/[Sack]/trunk/bin/sack.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 /trunk/bin/sack.pl

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

revision 22 by dpavlin, Tue Sep 22 17:19:25 2009 UTC revision 24 by dpavlin, Tue Sep 22 21:27:13 2009 UTC
# Line 57  sub BEGIN { Line 57  sub BEGIN {
57    
58  use lib "$prefix/srv/webpac2/lib/";  use lib "$prefix/srv/webpac2/lib/";
59  use WebPAC::Input::ISI;  use WebPAC::Input::ISI;
60    
61    $WebPAC::Input::ISI::subfields = undef; # disable parsing of subfields
62    
63  my $input = WebPAC::Input::ISI->new(  my $input = WebPAC::Input::ISI->new(
64          path   => "$prefix/$path",          path   => "$prefix/$path",
65          offset => $offset,          offset => $offset,
# Line 194  sub run_code { Line 197  sub run_code {
197          warn "WARN no \$out defined!" unless defined $out;          warn "WARN no \$out defined!" unless defined $out;
198    
199          if ( $connected ) {          if ( $connected ) {
200                  warn "# get results from ", join(' ', keys %$connected );                  foreach my $node ( keys %$connected ) {
201                  merge_out( thaw( get_node( $_ ) ) ) foreach keys %$connected;                          warn "# $listen get_node $node\n";
202                            my $o = get_node $node;
203                            my $s = length $o;
204                            $o = thaw $o;
205                            warn "# $listen merge $s bytes\n";
206                            merge_out $o;
207                    }
208          }          }
209  }  }
210    
Legend:
Removed from v.22  
changed lines
  Added in v.24
  ViewVC Help
Powered by ViewVC 1.1.26