##
## $Log: SimpleServer.pm,v $
-## Revision 1.15 2002-09-16 14:00:16 sondberg
+## Revision 1.18 2003-09-09 20:12:38 mike
+## Return diagnostics on Init failure
+##
+## 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
@EXPORT = qw(
);
-$VERSION = '0.06';
+$VERSION = '0.08';
bootstrap Net::Z3950::SimpleServer $VERSION;
$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
+ ERR_STR => "", ## Error string (additional info.)
USER => "xxx" ## If Z39.50 authentication is used,
## this member contains user name
PASS => "yyy" ## Under same conditions, this member
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.
The ERR_CODE should be left at 0 (the default value) if you wish to
accept the connection. Any other value is interpreted as a failure
-and the client will be shown the door.
+and the client will be shown the door, with the code and the
+associated additional information, ERR_STR returned.
=head2 Search handler