- my $href = shift;
- my $key;
- my $hash = $href->{HANDLE};
-# my $hash = {};
-
- $href->{HITS} = 1;
- $href->{ERR_STR} = "A";
- $hash->{Search} = "Search Handler er besøgt";
-# $href->{HANDLE} = $hash;
- print "\n";
- print "---------------------------------------------------------------\n";
- print "Search handler\n";
- print "\n";
- udskriv_hash($href);
- print "---------------------------------------------------------------\n";
-}
-
-
-sub my_present_handler {
- my $href = shift;
-
- $href->{ERR_CODE} = 0;
-
- $href->{ERR_STR} = "";
- print "\n";
- print "--------------------------------------------------------------\n";
- print "Present handler\n";
- print "\n";
- udskriv_hash($href);
- print "--------------------------------------------------------------\n";
- return;
-}
-
-sub my_close_handler {
- my $href = shift;
-
- print "\n";
- print "-------------------------------------------------------------\n";
- print "Connection closed\n";
- print "\n";
- udskriv_hash($href);
- print "-------------------------------------------------------------\n";
+ print "------------------------------------------------------------\n";
+ print "Processing query : $query\n";
+ printf("Database set : %s\n", join(" ", @database_list));
+ print "Setname : $set_id\n";
+ print "------------------------------------------------------------\n";