/[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 414 by dpavlin, Tue Sep 7 18:02:06 2004 UTC revision 415 by dpavlin, Wed Sep 8 15:30:07 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 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 => join(" ",@{$ds->{'index'}}),                                  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->info("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/bfilter/$t.txt",                  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.414  
changed lines
  Added in v.415

  ViewVC Help
Powered by ViewVC 1.1.26