my $session = $args->{HANDLE};
my $set_id = $args->{SETNAME};
+ my $rpn = $args->{RPN};
my @database_list = @{ $args->{DATABASES} };
my $query = $args->{QUERY};
+ my $facets = $args->{INPUTFACETS};
my $hits = 3;
print "------------------------------------------------------------\n";
print "Processing query : $query\n";
printf("Database set : %s\n", join(" ", @database_list));
print "Setname : $set_id\n";
+ print " inputfacets:\n";
+ print Dumper($facets);
print "------------------------------------------------------------\n";
+ $args->{OUTPUTFACETS} = $facets;
+
$args->{HITS} = $hits;
$session->{$set_id} = $data;
$session->{__HITS} = $hits;
}
}
+sub my_start_handler {
+ my $args = shift;
+ my $config = $args->{CONFIG};
+}
+
Net::Z3950::SimpleServer::yazlog("hello");
my $handler = new Net::Z3950::SimpleServer(
+ START => "main::my_start_handler",
INIT => "main::my_init_handler",
SEARCH => "main::my_search_handler",
SCAN => "main::my_scan_handler",