3 # $Id: logging-server.pl,v 1.1 2004-09-03 11:42:35 mike Exp $
5 # This is just about the simplest possible SimpleServer-based Z39.50
6 # server. It exists only to log the data-structures that are handed
7 # to the back-end functions, and does only enough work otherwise to
8 # hand the client a coherent (if useless) response to its requests.
12 use Net::Z3950::SimpleServer;
15 my $handler = new Net::Z3950::SimpleServer(INIT => \&init_handler,
16 CLOSE => \&close_handler,
17 SEARCH => \&search_handler,
18 FETCH => \&fetch_handler);
19 $handler->launch_server("logging-server.pl", @ARGV);
23 print "INIT: ", Dumper($href);
28 print "Search: ", Dumper($href);
34 print "Fetch: ", Dumper($href);
35 my $record = "<dummy>foo</dummy>";
36 $href->{RECORD} = $record;
37 $href->{LEN} = length($record);
39 $href->{BASENAME} = "Test";
44 print "Close: ", Dumper($href);