[libnet-dbus-perl] 228/335: Added demo of galago desktop notifications

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to branch experimental
in repository libnet-dbus-perl.

commit 61dde90d15f88c2245cfbd66c581ae21ee09081e
Author: Daniel P. Berrange <berrange at redhat.com>
Date:   Sat Nov 4 16:26:38 2006 -0500

    Added demo of galago desktop notifications
---
 examples/notification.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/examples/notification.pl b/examples/notification.pl
new file mode 100644
index 0000000..bbcafb5
--- /dev/null
+++ b/examples/notification.pl
@@ -0,0 +1,19 @@
+#!/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);

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-dbus-perl.git