/[webpac]/trunk2/all2all.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 /trunk2/all2all.pl

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

revision 411 by dpavlin, Sun Sep 5 22:22:37 2004 UTC revision 415 by dpavlin, Wed Sep 8 15:30:07 2004 UTC
# Line 25  my $log = $webpac->_get_logger(); Line 25  my $log = $webpac->_get_logger();
25    
26  my $index = new WebPAC::jsFind(  my $index = new WebPAC::jsFind(
27          index_path => './out/index',          index_path => './out/index',
28          keys => 80,          keys => 10,
29  ) || die;  ) || die;
30    
31  my $thes;  my $thes;
# Line 99  while (my $rec = $webpac->fetch_rec) { Line 99  while (my $rec = $webpac->fetch_rec) {
99    
100                  $thes->{$ds->{'tag'}} ||= new WebPAC::Index;                  $thes->{$ds->{'tag'}} ||= new WebPAC::Index;
101    
102                  $thes->{$ds->{'tag'}}->insert(                  foreach my $h (@{$ds->{'index'}}) {
103                          path => $f,                          $thes->{$ds->{'tag'}}->insert(
104                          headline => $headline,                                  path => $f,
105                  );                                  headline => $h,
106                            );
107                    }
108          }          }
109    
110  #       print Dumper(\@ds);  #       print Dumper(\@ds);
# Line 117  foreach my $t (keys %{$thes}) { Line 119  foreach my $t (keys %{$thes}) {
119                  next;                  next;
120          }          }
121    
122          $log->debug("saving sorted index $t [".scalar(@e)." elements]");          my $file = "./out/bfilter/$t.txt";
123            $log->info("saving sorted index $t to '$file' [".scalar(@e)." elements]");
124    
125          $webpac->output_file(          $webpac->output_file(
126                  file => "./out/thes_$t.html",                  file => $file,
127                  template => 'index.tt',                  template => 'index.tt',
128                  data => \@e,                  data => \@e,
129                  index_name => $t,                  index_name => $t,
Legend:
Removed from v.411  
changed lines
  Added in v.415
  ViewVC Help
Powered by ViewVC 1.1.26