4 use Net::Z3950::SimpleServer;
13 foreach $key (keys %$href) {
14 printf("%10s => %s\n", $key, $href->{$key});
23 $args->{IMP_NAME} = "DemoServer";
24 $args->{IMP_VER} = "3.14159";
25 $args->{ERR_CODE} = 0;
26 $args->{HANDLE} = $session;
31 my $term = $args->{TERM};
51 { TERM => 'Number 10',
57 $args->{ENTRIES} = $entries;
58 print "Welcome to scan....\n";
59 print "You scanned for term '$term'\n";
63 sub my_search_handler {
66 name => "Peter Dornan",
68 collaboration => "ATLAS"
70 name => "Jorn Dines Hansen",
72 collaboration => "HERA-B"
74 name => "Alain Blondel",
75 title => "Head of coll.",
76 collaboration => "ALEPH"
79 my $session = $args->{HANDLE};
80 my $set_id = $args->{SETNAME};
81 my @database_list = @{ $args->{DATABASES} };
82 my $query = $args->{QUERY};
85 print "------------------------------------------------------------\n";
86 print "Processing query : $query\n";
87 printf("Database set : %s\n", join(" ", @database_list));
88 print "Setname : $set_id\n";
89 print "------------------------------------------------------------\n";
91 $args->{HITS} = $hits;
92 $session->{$set_id} = $data;
93 $session->{__HITS} = $hits;
97 sub my_fetch_handler {
99 my $session = $args->{HANDLE};
100 my $set_id = $args->{SETNAME};
101 my $data = $session->{$set_id};
102 my $offset = $args->{OFFSET};
103 my $record = "<xml>";
105 my $hits = $session->{__HITS};
106 my $href = $data->[$offset - 1];
108 $args->{REP_FORM} = Net::Z3950::OID::xml;
109 foreach $field (keys %$href) {
110 $record .= "<" . $field . ">" . $href->{$field} . "</" . $field . ">";
114 $args->{RECORD} = $record;
115 if ($offset == $session->{__HITS}) {
121 my $handler = new Net::Z3950::SimpleServer(
122 INIT => \&my_init_handler,
123 SEARCH => \&my_search_handler,
124 SCAN => \&my_scan_handler,
125 FETCH => \&my_fetch_handler );
127 $handler->launch_server("ztest.pl", @ARGV);
130 ## $Log: ztest.pl,v $
131 ## Revision 1.8 2001-08-24 14:00:20 sondberg
132 ## Added support for scan.
134 ## Revision 1.7 2001/03/13 14:20:21 sondberg