/[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 401 by dpavlin, Sun Feb 19 16:36:42 2006 UTC revision 423 by dpavlin, Wed Mar 22 00:18:56 2006 UTC
# Line 41  limit loading to 100 records Line 41  limit loading to 100 records
41    
42  remove database and Hyper Estraier index before indexing  remove database and Hyper Estraier index before indexing
43    
44  =item --one=database_name  =item --only=database_name
45    
46  reindex just single database  reindex just single database (legacy name is --one)
47    
48  =item --config conf/config.yml  =item --config conf/config.yml
49    
# Line 59  my $limit; Line 59  my $limit;
59  my $clean = 0;  my $clean = 0;
60  my $config = 'conf/config.yml';  my $config = 'conf/config.yml';
61  my $debug = 0;  my $debug = 0;
62  my $one_db_name;  my $only_db_name;
63    
64  GetOptions(  GetOptions(
65          "limit=i" => \$limit,          "limit=i" => \$limit,
66          "offset=i" => \$offset,          "offset=i" => \$offset,
67          "clean" => \$clean,          "clean" => \$clean,
68          "one=s" => \$one_db_name,          "one=s" => \$only_db_name,
69            "only=s" => \$only_db_name,
70          "config" => \$config,          "config" => \$config,
71          "debug" => \$debug,          "debug" => \$debug,
72  );  );
# Line 81  my $start_t = time(); Line 82  my $start_t = time();
82    
83  while (my ($database, $db_config) = each %{ $config->{databases} }) {  while (my ($database, $db_config) = each %{ $config->{databases} }) {
84    
85          next if ($one_db_name && $database !~ m/$one_db_name/i);          next if ($only_db_name && $database !~ m/$only_db_name/i);
86    
87          my $log = _new WebPAC::Common()->_get_logger();          my $log = _new WebPAC::Common()->_get_logger();
88    
# Line 153  while (my ($database, $db_config) = each Line 154  while (my ($database, $db_config) = each
154                          limit => $limit || $input->{limit},                          limit => $limit || $input->{limit},
155                          offset => $offset,                          offset => $offset,
156                          lookup => $lookup,                          lookup => $lookup,
157                            recode => $input->{recode},
158                  );                  );
159                  $log->logdie("can't create input using $input_module") unless ($input);                  $log->logdie("can't create input using $input_module") unless ($input);
160    
Legend:
Removed from v.401  
changed lines
  Added in v.423
  ViewVC Help
Powered by ViewVC 1.1.26