/[webpac2]/trunk/run.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 /trunk/run.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 74 by dpavlin, Sun Nov 20 20:13:39 2005 UTC revision 76 by dpavlin, Sun Nov 20 20:32:46 2005 UTC
# Line 14  use WebPAC::Normalize::XML; Line 14  use WebPAC::Normalize::XML;
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    
# Line 25  my $lookup = new WebPAC::Lookup( Line 27  my $lookup = new WebPAC::Lookup(
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(
Legend:
Removed from v.74  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.26