/[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 436 by dpavlin, Mon Sep 13 12:13:04 2004 UTC revision 437 by dpavlin, Mon Sep 13 15:32:55 2004 UTC
# Line 9  all2all.pl - basic script for all WebPAC Line 9  all2all.pl - basic script for all WebPAC
9  use strict;  use strict;
10  use Data::Dumper;  use Data::Dumper;
11  use Carp;  use Carp;
12    use Getopt::Long;
13    
14  use lib './lib';  use lib './lib';
15  use WebPAC;  use WebPAC;
16  use WebPAC::jsFind;  use WebPAC::jsFind;
17  use WebPAC::Index;  use WebPAC::Index;
18    
19    # options which can be changed via command line
20    #
21    my $code_page = 'ISO-8859-2';
22    my ($limit_mfn, $start_mfn, $debug, $low_mem);
23    my $index_path = './out/index';
24    
25    my $result = GetOptions(
26            "code_page=s"   => \$code_page,
27            "limit_mfn=i"   => \$limit_mfn,
28            "start_mfn=i"   => \$start_mfn,
29            "debug!"        => \$debug,
30            "low_mem!"      => \$low_mem,
31    );
32    
33    # create WebPAC object
34    #
35  my $webpac = new WebPAC(  my $webpac = new WebPAC(
36          code_page => 'ISO-8859-2',          code_page => $code_page,
37          limit_mfn => 500,          limit_mfn => $limit_mfn,
38          start_mfn => 6000,          start_mfn => $start_mfn,
39  #       debug => 1,          debug => $debug,
40  #       low_mem => 1,          low_mem => $low_mem,
41  ) || die;  ) || die;
42    
43  my $log = $webpac->_get_logger() || die "can't get logger";  my $log = $webpac->_get_logger() || die "can't get logger";
# Line 28  my $log = $webpac->_get_logger() || die Line 45  my $log = $webpac->_get_logger() || die
45  $log->debug("creating WebPAC::jsFind object");  $log->debug("creating WebPAC::jsFind object");
46    
47  my $index = new WebPAC::jsFind(  my $index = new WebPAC::jsFind(
48          index_path => './out/index',          index_path => $index_path,
49          keys => 10,          keys => 10,
50  ) || die;  ) || die;
51    

Legend:
Removed from v.436  
changed lines
  Added in v.437

  ViewVC Help
Powered by ViewVC 1.1.26