/[Z3950-HTML-Scraper]/server.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /server.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 9 by dpavlin, Sun Jun 21 08:16:41 2009 UTC revision 13 by dpavlin, Fri Oct 22 21:12:46 2010 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl
2    
3    use warnings;
4    use strict;
5    
6  use Net::Z3950::SimpleServer;  use Net::Z3950::SimpleServer;
7  use Net::Z3950::OID;  use Net::Z3950::OID;
8  use COBISS;  use COBISS;
 use strict;  
9    
10  my $max_records = 3; # XXX configure this  my $max_records = 3; # XXX configure this
11  my $max_result_sets = 10;  my $max_result_sets = 10;
# Line 44  diag "search for $query"; Line 46  diag "search for $query";
46    
47      my $setname  = $this->{SETNAME};      my $setname  = $this->{SETNAME};
48      my $repl_set = $this->{REPL_SET};      my $repl_set = $this->{REPL_SET};
49    diag "SETNAME $setname REPL_SET $repl_set";
50      my $result;      my $result;
51      unless ( $result = COBISS->search( $query ) ) {      unless ( $result = COBISS->search( $query ) ) {
52          $this->{ERR_CODE} = 108;          $this->{ERR_CODE} = 108;
# Line 157  sub render { Line 160  sub render {
160    
161  package Net::Z3950::RPN::Term;  package Net::Z3950::RPN::Term;
162    
163    use Data::Dump qw(dump);
164  use COBISS;  use COBISS;
165    
166  sub render {  sub render {
167      my $this       = shift;      my $this       = shift;
168    
169  print "render ", $this;  print "render ", dump($this);
170    
171      my $attributes = {};      my $attributes = {};
172      my $prefix     = "";      my $prefix     = "";
Legend:
Removed from v.9  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.26