r23761 - in /scripts/KGB: client/test server/test

[dmn at users.alioth.debian.org]

Author: dmn
Date: Mon Aug  4 17:21:43 2008
New Revision: 23761

URL: http://svn.debian.org/wsvn/?sc=1&rev=23761
Log:
add test server and client

demonstrates PoCo-SOAP problem of inability to return
anything to the client :(

Added:
    scripts/KGB/client/test   (with props)
    scripts/KGB/server/test   (with props)

Added: scripts/KGB/client/test
URL: http://svn.debian.org/wsvn/scripts/KGB/client/test?rev=23761&op=file
==============================================================================
--- scripts/KGB/client/test (added)
+++ scripts/KGB/client/test Mon Aug  4 17:21:43 2008
@@ -1,0 +1,19 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+use utf8;
+
+use SOAP::Lite;
+
+my $s=SOAP::Lite->new(
+    uri=>"http://localhost:12700",
+    proxy=>"http://localhost:12700?session=Test",
+);
+
+my $som = $s->commit();
+
+die 'SOAP FAULT: ', $som->fault->{faultstring}, "\n", $som->fault->{detail}, "\n"
+    if $som->fault;
+
+print $som;

Propchange: scripts/KGB/client/test
------------------------------------------------------------------------------
    svn:executable = *

Added: scripts/KGB/server/test
URL: http://svn.debian.org/wsvn/scripts/KGB/server/test?rev=23761&op=file
==============================================================================
--- scripts/KGB/server/test (added)
+++ scripts/KGB/server/test Mon Aug  4 17:21:43 2008
@@ -1,0 +1,60 @@
+#!/usr/bin/perl
+use utf8;
+use strict;
+use warnings;
+
+use POE;
+BEGIN {
+    package POE::Component::Server::SOAP;
+    use constant DEBUG=>2;
+}
+use POE::Component::Server::SOAP;
+
+my $my_name = 'Test';
+
+POE::Component::Server::SOAP->new(
+    ALIAS   => "$my_name-SOAP",
+    ADDRESS => '127.0.0.1',
+    PORT    => 12700,
+    HOSTNAME => 'localhost',
+);
+
+POE::Session->create(
+    inline_states => {
+        _start          => \&setup_service,
+        _stop           => \&shutdown_service,
+        soap_commit     => \&do_commit,
+    },
+#    options=>{trace=>1,debug=>1},
+);
+
+POE::Kernel->run;
+exit 0;
+
+sub setup_service {
+    my $kernel = $_[KERNEL];
+
+    $kernel->alias_set($my_name) == 0
+    	or die "Can't register alias Test\n";
+    $kernel->post("$my_name-SOAP" => 'ADDMETHOD',
+        $my_name => 'soap_commit',
+        $my_name => 'commit',
+    );
+
+    undef;
+}
+sub shutdown_service {
+    my $kernel = $_[KERNEL];
+    my $session = $_[SESSION]->ID();
+    warn "_stop \@session $session\n";
+    $kernel->post(SOAP => 'DELSERVICE', $my_name);
+}
+sub do_commit {
+    my $kernel = $_[KERNEL];
+    my $response = $_[ARG0];
+    $response->content('OK');
+    $kernel->post($_[SENDER] => 'DONE', $response );
+    return;
+    $kernel->post($_[SENDER], 'FAULT', $response, $SOAP::Constants::FAULT_CLIENT, 'Bad request', 'commit not implemented');
+    return 1;
+}

Propchange: scripts/KGB/server/test
------------------------------------------------------------------------------
    svn:executable = *