X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=SimpleServer.pm;h=c6be9e44baa902d7a689c535f5ae4e64ac9c37a3;hb=83d0244e633eabe8ba89801b3b8cd0ca0f5fee10;hp=3739dff5fb3c1b34430c5a5e71a7a677456db0e6;hpb=dac897cfd658824a0254155ffa560ec88f95df34;p=simpleserver-moved-to-github.git

diff --git a/SimpleServer.pm b/SimpleServer.pm
index 3739dff..c6be9e4 100644
--- a/SimpleServer.pm
+++ b/SimpleServer.pm
@@ -25,7 +25,7 @@
 ##
 ##
 
-## $Id: SimpleServer.pm,v 1.42 2007-08-21 16:29:29 mike Exp $
+## $Id: SimpleServer.pm,v 1.45 2007-09-25 09:01:41 mike Exp $
 
 package Net::Z3950::SimpleServer;
 
@@ -39,7 +39,7 @@ require AutoLoader;
 
 @ISA = qw(Exporter AutoLoader DynaLoader);
 @EXPORT = qw( );
-$VERSION = '1.07';
+$VERSION = '1.09';
 
 bootstrap Net::Z3950::SimpleServer $VERSION;
 
@@ -320,6 +320,7 @@ The argument hash passed to the init handler has the form
   $args = {
 				    ## Response parameters:
 
+	     PEER_NAME =>  "",      ## Name or IP address of connecting client
 	     IMP_ID    =>  "",      ## Z39.50 Implementation ID
 	     IMP_NAME  =>  "",      ## Z39.50 Implementation name
 	     IMP_VER   =>  "",      ## Z39.50 Implementation version