X-Git-Url: http://git.indexdata.com/?p=simpleserver-moved-to-github.git;a=blobdiff_plain;f=SimpleServer.pm;h=06d1d3ed69844f6c401e3dfd3f9f5a427ddeefd2;hp=5a8e32d6c9d2ec48debb1c3576b0c84a06b31832;hb=b253d10bee09bcce4b50b47bbe4b283ac8c63306;hpb=398e2d2769ff83b45a4a2cdc1b4a5a61a9196724 diff --git a/SimpleServer.pm b/SimpleServer.pm index 5a8e32d..06d1d3e 100644 --- a/SimpleServer.pm +++ b/SimpleServer.pm @@ -26,7 +26,16 @@ ## ## $Log: SimpleServer.pm,v $ -## Revision 1.14 2002-03-06 11:30:02 mike +## Revision 1.17 2003-09-09 11:40:10 mike +## (Finally!) support implementation-ID +## +## Revision 1.16 2003/01/03 09:01:51 sondberg +## Version 0.07. +## +## Revision 1.15 2002/09/16 14:00:16 sondberg +## Updated Changes and added a few lines of documentation. +## +## Revision 1.14 2002/03/06 11:30:02 mike ## Add RPN structure documentation to SimpleServer.pm's POD. ## Add README to MANIFEST. ## @@ -78,7 +87,7 @@ require AutoLoader; @EXPORT = qw( ); -$VERSION = '0.05'; +$VERSION = '0.08'; bootstrap Net::Z3950::SimpleServer $VERSION; @@ -273,9 +282,14 @@ The argument hash passed to the init handler has the form $args = { ## Response parameters: + IMP_ID => "", ## Z39.50 Implementation ID IMP_NAME => "", ## Z39.50 Implementation name IMP_VER => "", ## Z39.50 Implementation version ERR_CODE => 0, ## Error code, cnf. Z39.50 manual + USER => "xxx" ## If Z39.50 authentication is used, + ## this member contains user name + PASS => "yyy" ## Under same conditions, this member + ## contains the password in clear text HANDLE => undef ## Handler of Perl data structure }; @@ -288,7 +302,7 @@ result sets or a handle to a back-end search engine of some sort), it is always best to store them in a private session structure - rather than leaving them in global variables in your script. -The Implementation name and version are only really used by Z39.50 +The Implementation ID, name and version are only really used by Z39.50 client developers to see what kind of server they're dealing with. Filling these in is optional.