/[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 412 by dpavlin, Sun Sep 5 22:22:37 2004 UTC revision 413 by dpavlin, Tue Sep 7 18:02:06 2004 UTC
# Line 17  use WebPAC::Index; Line 17  use WebPAC::Index;
17    
18  my $webpac = new WebPAC(  my $webpac = new WebPAC(
19          code_page => 'ISO-8859-2',          code_page => 'ISO-8859-2',
20          limit_mfn => 500,  #       limit_mfn => 500,
21  #       debug => 1,  #       debug => 1,
22  ) || die;  ) || die;
23    
# 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 101  while (my $rec = $webpac->fetch_rec) { Line 101  while (my $rec = $webpac->fetch_rec) {
101    
102                  $thes->{$ds->{'tag'}}->insert(                  $thes->{$ds->{'tag'}}->insert(
103                          path => $f,                          path => $f,
104                          headline => $headline,                          headline => join(" ",@{$ds->{'index'}}),
105                  );                  );
106          }          }
107    
# Line 117  foreach my $t (keys %{$thes}) { Line 117  foreach my $t (keys %{$thes}) {
117                  next;                  next;
118          }          }
119    
120          $log->debug("saving sorted index $t [".scalar(@e)." elements]");          $log->info("saving sorted index $t [".scalar(@e)." elements]");
121    
122          $webpac->output_file(          $webpac->output_file(
123                  file => "./out/thes_$t.html",                  file => "./out/bfilter/$t.txt",
124                  template => 'index.tt',                  template => 'index.tt',
125                  data => \@e,                  data => \@e,
126                  index_name => $t,                  index_name => $t,

Legend:
Removed from v.412  
changed lines
  Added in v.413

  ViewVC Help
Powered by ViewVC 1.1.26