15 |
|
|
16 |
use lib './lib'; |
use lib './lib'; |
17 |
use WebPAC; |
use WebPAC; |
18 |
use WebPAC::jsFind; |
#use WebPAC::jsFind; |
19 |
|
use WebPAC::HyperEstraier; |
20 |
use WebPAC::Index; |
use WebPAC::Index; |
21 |
use WebPAC::Tree; |
use WebPAC::Tree; |
22 |
|
|
24 |
# |
# |
25 |
my $code_page = 'ISO-8859-2'; |
my $code_page = 'ISO-8859-2'; |
26 |
my ($limit_mfn, $start_mfn, $debug, $low_mem); |
my ($limit_mfn, $start_mfn, $debug, $low_mem); |
27 |
my $index_path = './out/index'; |
#my $index_path = './out/index'; |
28 |
|
my $index_path = './out/casket'; |
29 |
|
|
30 |
my $result = GetOptions( |
my $result = GetOptions( |
31 |
"code_page=s" => \$code_page, |
"code_page=s" => \$code_page, |
106 |
|
|
107 |
my $log = $webpac->_get_logger() || die "can't get logger"; |
my $log = $webpac->_get_logger() || die "can't get logger"; |
108 |
|
|
109 |
$log->debug("creating WebPAC::jsFind object"); |
#$log->debug("creating WebPAC::jsFind object"); |
110 |
|
# |
111 |
|
#my $index = new WebPAC::jsFind( |
112 |
|
# index_path => $index_path, |
113 |
|
# keys => 62, |
114 |
|
#) || die; |
115 |
|
|
116 |
my $index = new WebPAC::jsFind( |
$log->debug("creating HyperEstraier object"); |
117 |
index_path => $index_path, |
my $index = new WebPAC::HyperEstraier( index_path => $index_path ) || die; |
|
keys => 62, |
|
|
) || die; |
|
118 |
|
|
119 |
my $thes; |
my $thes; |
120 |
|
|