⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.1
Server IP:
185.238.29.86
Server:
Linux server2 6.8.12-6-pve #1 SMP PREEMPT_DYNAMIC PMX 6.8.12-6 (2024-12-19T19:05Z) x86_64
Server Software:
nginx/1.18.0
PHP Version:
8.1.31
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
libnet-dbus-perl
/
examples
/
Edit File: notification.pl
#!/usr/bin/perl use Net::DBus qw(:typing); my $bus = Net::DBus->session; my $svc = $bus->get_service("org.freedesktop.Notifications"); my $obj = $svc->get_object("/org/freedesktop/Notifications"); $obj->Notify("notification.pl", 0, '', "Demo notification", "Demonstrating using of desktop\n" . "notifications from Net::DBus\n", ["done", "Done"], {"desktop-entry" => "virt-manager", x => dbus_variant(dbus_int32(200)), y => dbus_variant(dbus_int32(200))}, 2_000);
Simpan