projects
/
simpleserver-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added method Hash2grs into GRS1 module.
[simpleserver-moved-to-github.git]
/
ztest.pl
diff --git
a/ztest.pl
b/ztest.pl
index
486ff11
..
02a0042
100755
(executable)
--- a/
ztest.pl
+++ b/
ztest.pl
@@
-5,6
+5,17
@@
use Net::Z3950::SimpleServer;
use Net::Z3950::OID;
use strict;
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 = {};
sub my_init_handler {
my $args = shift;
my $session = {};
@@
-58,10
+69,9
@@
sub my_fetch_handler {
my $record = "<xml>";
my $field;
my $hits = $session->{__HITS};
my $record = "<xml>";
my $field;
my $hits = $session->{__HITS};
- my $href = $data->[$offset];
+ my $href = $data->[$offset - 1];
$args->{REP_FORM} = Net::Z3950::OID::xml;
$args->{REP_FORM} = Net::Z3950::OID::xml;
-
foreach $field (keys %$href) {
$record .= "<" . $field . ">" . $href->{$field} . "</" . $field . ">";
}
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);
$handler->launch_server("ztest.pl", @ARGV);
+
+## $Log: ztest.pl,v $
+## Revision 1.7 2001-03-13 14:20:21 sondberg
+## Added CVS logging
+##
+