14 |
use WebPAC::Output::TT; |
use WebPAC::Output::TT; |
15 |
use WebPAC::Output::Estraier; |
use WebPAC::Output::Estraier; |
16 |
|
|
17 |
|
my $limit = shift @ARGV; |
18 |
|
|
19 |
my $abs_path = abs_path($0); |
my $abs_path = abs_path($0); |
20 |
$abs_path =~ s#/[^/]*$#/#; |
$abs_path =~ s#/[^/]*$#/#; |
21 |
|
|
27 |
|
|
28 |
my $isis = new WebPAC::Input::ISIS( |
my $isis = new WebPAC::Input::ISIS( |
29 |
code_page => 'ISO-8859-2', # application encoding |
code_page => 'ISO-8859-2', # application encoding |
30 |
limit_mfn => 50, |
limit_mfn => $limit, |
31 |
); |
); |
32 |
|
|
33 |
my $maxmfn = $isis->open( |
my $maxmfn = $isis->open( |