3 # This is just about the simplest possible SimpleServer-based Z39.50
4 # server. It exists only to log the data-structures that are handed
5 # to the back-end functions, and does only enough work otherwise to
6 # hand the client a coherent (if useless) response to its requests.
10 use Net::Z3950::SimpleServer;
13 my $handler = new Net::Z3950::SimpleServer(INIT => \&init_handler,
14 CLOSE => \&close_handler,
15 SEARCH => \&search_handler,
16 FETCH => \&fetch_handler);
17 $handler->launch_server("logging-server.pl", @ARGV);
21 print "INIT: ", Dumper($href);
26 print "Search: ", Dumper($href);
32 print "Fetch: ", Dumper($href);
33 my $record = "<dummy>foo</dummy>";
34 $href->{RECORD} = $record;
35 $href->{LEN} = length($record);
37 $href->{BASENAME} = "Test";
42 print "Close: ", Dumper($href);