projects
/
Biblio-Z3950.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
more debug output and some cleanup
[Biblio-Z3950.git]
/
server.pl
diff --git
a/server.pl
b/server.pl
index
1e17f2c
..
33708da
100755
(executable)
--- a/
server.pl
+++ b/
server.pl
@@
-1,9
+1,11
@@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
+
+use warnings;
+use strict;
use Net::Z3950::SimpleServer;
use Net::Z3950::OID;
use COBISS;
use Net::Z3950::SimpleServer;
use Net::Z3950::OID;
use COBISS;
-use strict;
my $max_records = 3; # XXX configure this
my $max_result_sets = 10;
my $max_records = 3; # XXX configure this
my $max_result_sets = 10;
@@
-44,6
+46,7
@@
diag "search for $query";
my $setname = $this->{SETNAME};
my $repl_set = $this->{REPL_SET};
my $setname = $this->{SETNAME};
my $repl_set = $this->{REPL_SET};
+diag "SETNAME $setname REPL_SET $repl_set";
my $result;
unless ( $result = COBISS->search( $query ) ) {
$this->{ERR_CODE} = 108;
my $result;
unless ( $result = COBISS->search( $query ) ) {
$this->{ERR_CODE} = 108;
@@
-157,12
+160,13
@@
sub render {
package Net::Z3950::RPN::Term;
package Net::Z3950::RPN::Term;
+use Data::Dump qw(dump);
use COBISS;
sub render {
my $this = shift;
use COBISS;
sub render {
my $this = shift;
-print "render ",
$this
;
+print "render ",
dump($this)
;
my $attributes = {};
my $prefix = "";
my $attributes = {};
my $prefix = "";