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 bcc72da7e323c55bb665d56404e8e63619a509f7 Author: Daniel P. Berrange <d...@berrange.com> Date: Sat Oct 15 13:11:13 2005 +0000 Change doc example to be HAL instead of SKYPE, since the latter is fubar with newer DBus libs --- lib/Net/DBus.pm | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/lib/Net/DBus.pm b/lib/Net/DBus.pm index 53a896d..3653a03 100644 --- a/lib/Net/DBus.pm +++ b/lib/Net/DBus.pm @@ -16,7 +16,7 @@ # along with this program; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # -# $Id: DBus.pm,v 1.17 2005/10/15 13:31:42 dan Exp $ +# $Id: DBus.pm,v 1.18 2005/10/15 14:11:13 dan Exp $ =pod @@ -43,16 +43,16 @@ DBus - Perl extension for the DBus message system ######## Accessing remote services ######### - # Get the service known by 'org.freedesktop.DBus' - my $service = $bus->get_service("org.freedesktop.DBus"); + # 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"); - # See if SkyPE is around - if ($bus->has_service("com.skype.API")) { - my $skype = $bus->get_service("com.skype.API"); - ... do stuff with skype ... - } else { - print STDERR "SkyPE does not appear to be running\n"; - exit 1 + # List devices + foreach my $dev (@{$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