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 b30c2be48648f26d1d1060b00257670ec2b8ca9c Author: Daniel P. Berrange <d...@berrange.com> Date: Sat Oct 15 13:24:10 2005 +0000 Example for listing HAL devices --- examples/lshal.pl | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/examples/lshal.pl b/examples/lshal.pl new file mode 100644 index 0000000..e2c7d25 --- /dev/null +++ b/examples/lshal.pl @@ -0,0 +1,17 @@ +#!/usr/bin/perl -w + +use strict; +use Net::DBus; + +my $bus = Net::DBus->system; + +# Get a handle to the HAL service +my $hal = $bus->get_service("org.freedesktop.Hal"); + +# Get the device manager +my $manager = $hal->get_object("/org/freedesktop/Hal/Manager", "org.freedesktop.Hal.Manager"); + +# List devices +foreach my $dev (sort { $a cmp $b } @{$manager->GetAllDevices}) { + print $dev, "\n"; +} -- 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