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

diff --git a/SimpleServer.pm b/SimpleServer.pm
index 3739dff..bc8a9ab 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.46 2007-09-25 09:02:14 mike Exp $
 
 package Net::Z3950::SimpleServer;
 
@@ -39,7 +39,7 @@ require AutoLoader;
 
 @ISA = qw(Exporter AutoLoader DynaLoader);
 @EXPORT = qw( );
-$VERSION = '1.07';
+$VERSION = '1.10';
 
 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