adding echo method
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 25 Jul 2005 16:04:20 +0000 (16:04 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Mon, 25 Jul 2005 16:04:20 +0000 (16:04 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@1434 dcc99617-32d9-48b4-a31d-7c20da2025e4

OpenSRF/src/perlmods/OpenSRF/Application.pm

index dffb54d..194d7d5 100644 (file)
@@ -500,7 +500,6 @@ __PACKAGE__->register_method(
        method => 'introspect',
        api_name => 'opensrf.system.method.all'
 );
-
 __PACKAGE__->register_method(
        stream => 1,
        method => 'introspect',
@@ -508,6 +507,21 @@ __PACKAGE__->register_method(
        api_name => 'opensrf.system.method'
 );
 
+sub echo_method {
+       my $self = shift;
+       my $client = shift;
+       my @args = @_;
+
+       $client->respond( $_ ) for (@args);
+       return undef;
+}
+__PACKAGE__->register_method(
+       stream => 1,
+       method => 'echo_method',
+       argc => 1,
+       api_name => 'opensrf.system.echo'
+);
+
 sub make_stream_atomic {
        my $self = shift;
        my $req = shift;