X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=ztest.pl;h=02a004273d065fdb3fb2c05eaf3e7780b2603737;hb=38818d8a4802abcbcfa58294ec0ddd166d9cc2ce;hp=62a579f49d6c5fa21141bd48a60e383df89c9c55;hpb=b5817b7f59ccfdc2fdad49e916dea95155b23867;p=simpleserver-moved-to-github.git

diff --git a/ztest.pl b/ztest.pl
index 62a579f..02a0042 100755
--- a/ztest.pl
+++ b/ztest.pl
@@ -5,6 +5,17 @@ use Net::Z3950::SimpleServer;
 use Net::Z3950::OID;
 use strict;
 
+
+sub dump_hash {
+	my $href = shift;
+	my $key;
+
+	foreach $key (keys %$href) {
+		printf("%10s	=>	%s\n", $key, $href->{$key});
+	}
+}
+
+
 sub my_init_handler {
 	my $args = shift;
 	my $session = {};
@@ -35,7 +46,7 @@ sub my_search_handler {
 	my $set_id = $args->{SETNAME};
 	my @database_list = @{ $args->{DATABASES} };
 	my $query = $args->{QUERY};
-	my $hits = 2;
+	my $hits = 3;
 
 	print "------------------------------------------------------------\n";
 	print "Processing query : $query\n";
@@ -61,7 +72,6 @@ sub my_fetch_handler {
 	my $href = $data->[$offset - 1];
 
 	$args->{REP_FORM} = Net::Z3950::OID::xml;
-
 	foreach $field (keys %$href) {
 		$record .= "<" . $field . ">" . $href->{$field} . "</" . $field . ">";
 	}
@@ -81,3 +91,9 @@ my $handler = Net::Z3950::SimpleServer->new({
 
 $handler->launch_server("ztest.pl", @ARGV);
 
+
+## $Log: ztest.pl,v $
+## Revision 1.7  2001-03-13 14:20:21  sondberg
+## Added CVS logging
+##
+