From: Mike Taylor <mike@indexdata.com>
Date: Fri, 3 Sep 2004 11:42:35 +0000 (+0000)
Subject: New
X-Git-Tag: release.1.0.3~46
X-Git-Url: http://git.indexdata.com/?p=simpleserver-moved-to-github.git;a=commitdiff_plain;h=6253c4e1f5426282ab33d91fc6ef7cd5835398ea;ds=sidebyside

New
---

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 = "<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);
+}