logging-server.pl

#!/usr/bin/perl -w

# 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 = "<dummy>foo</dummy>";
    $href->{RECORD} = $record;
    $href->{LEN} = length($record);
    $href->{NUMBER} = 1;
    $href->{BASENAME} = "Test";
}

sub close_handler {
    my $href = shift;
    print "Close: ", Dumper($href);
}