[libnet-dbus-perl] 77/335: Removed bogus/obsolete examples

[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 edebbfb6398abe743fab58af26dd3c1b3a734c19
Author: Daniel P. Berrange <dan at berrange.com>
Date:   Mon Aug 22 12:30:40 2005 +0000

    Removed bogus/obsolete examples
---
 examples/binding-client.pl | 17 ---------------
 examples/binding-server.pl | 35 -------------------------------
 examples/list-services.pl  | 23 --------------------
 examples/service.pl        | 52 ----------------------------------------------
 4 files changed, 127 deletions(-)

diff --git a/examples/binding-client.pl b/examples/binding-client.pl
deleted file mode 100644
index 571c9a8..0000000
--- a/examples/binding-client.pl
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-
-$ENV{DBUS_VERBOSE} = 1;
-
-use Net::DBus::Binding::Connection;
-use Net::DBus::Reactor;
-
-my $con = Net::DBus::Binding::Connection->new(address => "unix:path=/tmp/dbus-perl-test");
-my $reactor = Net::DBus::Reactor->new();
-$reactor->manage($con);
-$reactor->run();
-
-$con->disconnect;
-
-exit 0;
diff --git a/examples/binding-server.pl b/examples/binding-server.pl
deleted file mode 100644
index 736f4ba..0000000
--- a/examples/binding-server.pl
+++ /dev/null
@@ -1,35 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-
-$ENV{DBUS_VERBOSE} = 1;
-
-use Net::DBus::Binding::Server;
-use Net::DBus::Reactor;
-
-my $server = Net::DBus::Binding::Server->new(address => "unix:path=/tmp/dbus-perl-test");
-
-$server->set_connection_callback(\&new_con);
-
-my $reactor = Net::DBus::Reactor->new();
-$reactor->manage($server);
-
-$reactor->run();
-
-$server->disconnect;
-
-exit 0;
-
-my %cons;
-
-sub new_con {
-  my $server = shift;
-  my $connection = shift;
-
-  $cons{$connection} = $connection;
-
-  $reactor->manage($connection);
-
-  print "Got connection $connection\n";
-}
-
diff --git a/examples/list-services.pl b/examples/list-services.pl
deleted file mode 100644
index 92341d5..0000000
--- a/examples/list-services.pl
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/usr/bin/perl
-
-use Net::DBus;
-
-my $bus = Net::DBus->find;
-
-# Get the service provided by the dbus-daemon named org.freedesktop.DBus
-my $service = $bus->get_service("org.freedesktop.DBus");
-
-# Get a reference to the desktop bus' standard object, denoted
-# by the path /org/freedesktop/DBus. The object /org/freedesktop/DBus
-# implements the 'org.freedesktop.DBus' interface
-my $object = $service->get_object('/org/freedesktop/DBus',
-				  'org.freedesktop.DBus');
-# One of the member functions in the org.freedesktop.DBus interface
-# is ListServices(), which provides a list of all the other services
-# registered on this bus. Call it, and print the list.
-
-my $service_list = $object->ListNames();
-
-print "Services on the bus: \n", join("\n", map { "  '" . $_ . "'" } sort { $a cmp $b } @{$service_list}), "\n";
-
-
diff --git a/examples/service.pl b/examples/service.pl
deleted file mode 100644
index 225533d..0000000
--- a/examples/service.pl
+++ /dev/null
@@ -1,52 +0,0 @@
-#!/usr/bin/perl
-
-use Carp qw(confess cluck);
-use Net::DBus;
-use Net::DBus::Service;
-use Net::DBus::Reactor;
-
-#$SIG{__WARN__} = sub { cluck $_[0] };
-#$SIG{__DIE__} = sub { confess $_[0] };
-
-my $bus = Net::DBus->new($Net::DBus::TYPE_SESSION);
-
-my $service = Net::DBus::Service->new("org.example.MyService", 
-				      $bus);
-
-my $object = MyObject->new($service);
-
-
-my $reactor = Net::DBus::Reactor->new();
-print "Con ", $bus->{connection}, "\n";
-$reactor->manage($bus->{connection});
-
-print "Run reactor\n";
-$reactor->run();
-print "All done\n";
-
-package MyObject;
-
-use base qw(Net::DBus::Object);
-
-sub new {
-    my $class = shift;
-    my $self = $class->SUPER::new("/org/example/MyObject", 
-				  ["HelloWorld"],
-				  @_);
-    
-    bless $self, $class;
-    
-    return $self;
-}
-
-sub HelloWorld {
-    my $self = shift;
-    my $place = shift;
-    
-    return ("Hello", "World", $place);
-}
-
-sub Echo {
-    my $self = shift;
-    return @_;
-}

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