Na}{

1 Na}{

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

File Content: `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);

Edit Rename Chmod Delete

FILE FOLDER INFO

Name	Size	Permission
dump-object-xml.pl	393 bytes	0644
dump-object.pl	419 bytes	0644
example-client-async.pl	1038 bytes	0644
example-client-no-introspect.pl	666 bytes	0644
example-client.pl	894 bytes	0644
example-proxy-service.pl	1748 bytes	0644
example-service-async.pl	1301 bytes	0644
example-service-magic.pl	1575 bytes	0644
example-service-no-introspect.pl	1014 bytes	0644
example-service.pl	1535 bytes	0644
example-signal-emitter.pl	949 bytes	0644
example-signal-receiver.pl	1184 bytes	0644
lshal.pl	643 bytes	0644
notification.pl	516 bytes	0644
strict-exports.pl	1322 bytes	0644

N4ST4R_ID | Naxtarrr

File Content: notification.pl

File Content: `notification.pl`