[libnet-dbus-perl] 130/335: Change doc example to be HAL instead of SKYPE, since the latter is fubar with newer DBus libs
Intrigeri
intrigeri at moszumanska.debian.org
Sat Mar 21 01:07:38 UTC 2015
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 <dan at 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
More information about the Pkg-perl-cvs-commits
mailing list