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 |
|
|
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); |
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, |