From: dpavlin <dpavlin@ae73d1a6-5fa4-44a9-8f13-f281fb455051>
Date: Fri, 22 Oct 2010 21:12:46 +0000 (+0000)
Subject: more debug output and some cleanup
X-Git-Url: http://git.rot13.org/?p=Biblio-Z3950.git;a=commitdiff_plain;h=93c971eaad5872bcf487b17ae1f599d15fb66403

more debug output and some cleanup


git-svn-id: svn+ssh://llin.lib/home/dpavlin/private/svn/Z3950-HTML-Scraper@13 ae73d1a6-5fa4-44a9-8f13-f281fb455051
---

diff --git a/server.pl b/server.pl
index 1e17f2c..33708da 100755
--- 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 strict;
 
 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};
+diag "SETNAME $setname REPL_SET $repl_set";
     my $result;
     unless ( $result = COBISS->search( $query ) ) {
         $this->{ERR_CODE} = 108;
@@ -157,12 +160,13 @@ sub render {
 
 package Net::Z3950::RPN::Term;
 
+use Data::Dump qw(dump);
 use COBISS;
 
 sub render {
     my $this       = shift;
 
-print "render ", $this;
+print "render ", dump($this);
 
     my $attributes = {};
     my $prefix     = "";