From eb05d6e3c534792f5d47ad8375f34756c972d71f Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 25 Jul 2005 16:04:20 +0000
Subject: [PATCH] adding echo method

git-svn-id: svn://svn.open-ils.org/ILS/trunk@1434 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 OpenSRF/src/perlmods/OpenSRF/Application.pm | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/OpenSRF/src/perlmods/OpenSRF/Application.pm b/OpenSRF/src/perlmods/OpenSRF/Application.pm
index dffb54deba..194d7d5018 100644
--- a/OpenSRF/src/perlmods/OpenSRF/Application.pm
+++ b/OpenSRF/src/perlmods/OpenSRF/Application.pm
@@ -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;
-- 
2.43.2