[libnet-dbus-perl] 140/335: Update to be compatible with examples in GLib & Python

[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 1cdf97ced9aa3158bbdf839e196b02b4349ffb0d
Author: Daniel P. Berrange <d...@berrange.com>
Date:   Sun Oct 23 15:17:49 2005 +0000

    Update to be compatible with examples in GLib & Python
---
 examples/example-client.pl          | 13 ++++++++-----
 examples/example-service.pl         | 12 ++++++------
 examples/example-signal-emitter.pl  |  7 +++----
 examples/example-signal-receiver.pl |  7 ++++---
 4 files changed, 21 insertions(+), 18 deletions(-)

diff --git a/examples/example-client.pl b/examples/example-client.pl
index d671a63..0a50bc2 100644
--- a/examples/example-client.pl
+++ b/examples/example-client.pl
@@ -22,8 +22,11 @@ my $dict = $object->GetDict();
 
 print "{", join(", ", map { "'$_': '" . $dict->{$_} . "'"} keys %{$dict}), 
"}\n";
 
-$object->name("John Doe");
-$object->age(21);
-$object->email('john....@example.com');
-
-print $object->name, " ", $object->age, " ", $object->email, "\n";
+if (0) {
+    $object->name("John Doe");
+    $object->age(21);
+#$object->email('john....@example.com');
+    
+    print $object->name, " ", " ", $object->email, "\n";
+
+}
diff --git a/examples/example-service.pl b/examples/example-service.pl
index 04efacc..a3a12e2 100644
--- a/examples/example-service.pl
+++ b/examples/example-service.pl
@@ -13,11 +13,11 @@ package SomeObject;
 use base qw(Net::DBus::Object);
 use Net::DBus::Exporter qw(org.designfu.SampleInterface);
 
-use Class::MethodMaker [ scalar => [ qw(name email age) ]];
+#use Class::MethodMaker [ scalar => [ qw(name email age) ]];
 
-dbus_property("name", "string");
-dbus_property("email", "string", "read");
-dbus_property("age", "int32", "write");
+#dbus_property("name", "string");
+#dbus_property("email", "string", "read");
+#dbus_property("age", "int32", "write");
 
 sub new {
     my $class = shift;
@@ -41,14 +41,14 @@ dbus_method("GetDict", [], [["dict", "string", "string"]]);
 sub GetDict {
     my $self = shift;
     print "Do get dict\n";
-    return {"first" => "Hello Dict", "second" => " from example-service.py"};
+    return {"first" => "Hello Dict", "second" => " from example-service.pl"};
 }
 
 dbus_method("GetTuple", [], [["struct", "string", "string"]]);
 sub GetTuple {
     my $self = shift;
     print "Do get tuple\n";
-    return ["Hello Tuple", " from example-service.py"];
+    return ["Hello Tuple", " from example-service.pl"];
 }
 
 package main;
diff --git a/examples/example-signal-emitter.pl 
b/examples/example-signal-emitter.pl
index 2dde6b0..851a509 100644
--- a/examples/example-signal-emitter.pl
+++ b/examples/example-signal-emitter.pl
@@ -26,13 +26,12 @@ sub new {
     return $self;
 }
 
-dbus_signal("hello", ["string"]);
-dbus_method("emitHelloSignal", ["string"]);
+dbus_signal("HelloSignal", ["string"]);
+dbus_method("emitHelloSignal");
 sub emitHelloSignal {
     my $self = shift;
-    my $name = shift;
     print "Got request to send hello signal\n";
-    return $self->emit_signal("hello", "Hello " . $name);
+    return $self->emit_signal("HelloSignal", "Hello");
 }
 
 
diff --git a/examples/example-signal-receiver.pl 
b/examples/example-signal-receiver.pl
index 4e2a5a1..dd20945 100644
--- a/examples/example-signal-receiver.pl
+++ b/examples/example-signal-receiver.pl
@@ -11,20 +11,21 @@ use Carp qw(confess cluck);
 my $bus = Net::DBus->session();
 
 my $service = $bus->get_service("org.designfu.TestService");
-my $object  = $service->get_object("/org/designfu/TestService/object");
+my $object  = $service->get_object("/org/designfu/TestService/object",
+                                  "org.designfu.TestService");
 
 sub hello_signal_handler {
     my $greeting = shift;
     print "Received hello signal with greeting '$greeting'\n";
 }
 
-$object->connect_to_signal("hello", \&hello_signal_handler);
+$object->connect_to_signal("HelloSignal", \&hello_signal_handler);
 
 my $reactor = Net::DBus::Reactor->main();
 
 my $ticks = 0;
 $reactor->add_timeout(1000, Net::DBus::Callback->new(method => sub {
-    $object->emitHelloSignal("John Doe");
+    $object->emitHelloSignal();
     if ($ticks++ == 10) {
       $reactor->shutdown();
     }

-- 
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