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 dea2fb4d99efe0266957a97ce1ed31c43cd64d88
Author: Daniel P. Berrange <d...@berrange.com>
Date: Sun Aug 14 18:07:39 2005 +0000
Added simple script for dumping objects
---
examples/dump-object.pl | 15 +++++++++++++++
1 file changed, 15 insertions(+)
diff --git a/examples/dump-object.pl b/examples/dump-object.pl
new file mode 100644
index 0000000..4cda072
--- /dev/null
+++ b/examples/dump-object.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+
+use Net::DBus;
+use Net::DBus::Dumper;
+
+my $bus = Net::DBus->find;
+
+if ($#ARGV != 2) {
+ die "syntax: $0 SERVICE OBJECT INTERFACE\n";
+}
+
+my $service = $bus->get_service($ARGV[0]);
+my $object = $service->get_object($ARGV[1], $ARGV[2]);
+
+print dbus_dump($object);
--
Alioth's /usr/local/bin/git-commit-notice on
/srv/git.debian.org/git/pkg-perl/packages/libnet-dbus-perl.git
_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
