From 6253c4e1f5426282ab33d91fc6ef7cd5835398ea Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Fri, 3 Sep 2004 11:42:35 +0000 Subject: [PATCH] New --- logging-server.pl | 45 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) create mode 100755 logging-server.pl diff --git a/logging-server.pl b/logging-server.pl new file mode 100755 index 0000000..bc453af --- /dev/null +++ b/logging-server.pl @@ -0,0 +1,45 @@ +#!/usr/bin/perl -w + +# $Id: logging-server.pl,v 1.1 2004-09-03 11:42:35 mike Exp $ +# +# This is just about the simplest possible SimpleServer-based Z39.50 +# server. It exists only to log the data-structures that are handed +# to the back-end functions, and does only enough work otherwise to +# hand the client a coherent (if useless) response to its requests. + +use strict; +use warnings; +use Net::Z3950::SimpleServer; +use Data::Dumper; + +my $handler = new Net::Z3950::SimpleServer(INIT => \&init_handler, + CLOSE => \&close_handler, + SEARCH => \&search_handler, + FETCH => \&fetch_handler); +$handler->launch_server("logging-server.pl", @ARGV); + +sub init_handler { + my $href = shift; + print "INIT: ", Dumper($href); +} + +sub search_handler { + my $href = shift; + print "Search: ", Dumper($href); + $href->{HITS} = 1; +} + +sub fetch_handler { + my $href = shift; + print "Fetch: ", Dumper($href); + my $record = "foo"; + $href->{RECORD} = $record; + $href->{LEN} = length($record); + $href->{NUMBER} = 1; + $href->{BASENAME} = "Test"; +} + +sub close_handler { + my $href = shift; + print "Close: ", Dumper($href); +} -- 1.7.10.4