One Hat Cyber Team

Your IP : 10.30.1.1

Server IP : 103.148.201.5

Server : Linux web-olt 5.15.0-161-generic #171-Ubuntu SMP Sat Oct 11 08:17:01 UTC 2025 x86_64

Server Software : Apache/2.4.52 (Ubuntu)

PHP Version : 8.1.29

Buat File | Buat Folder

Dir : ~/usr/share/doc/libnet-dbus-perl/examples/

View File Name : 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);