r508@llin: dpavlin | 2006-03-22 02:24:34 +0100

 renamed --one to --only (with legacy support for --one)

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@423 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/run.pl b/run.pl
index 7a833f5..4f8fb91 100755 (executable)
--- a/run.pl
+++ b/run.pl
@@ -41,9 +41,9 @@ limit loading to 100 records
 
 remove database and Hyper Estraier index before indexing
 
-=item --one=database_name
+=item --only=database_name
 
-reindex just single database
+reindex just single database (legacy name is --one)
 
 =item --config conf/config.yml
 
@@ -59,13 +59,14 @@ my $limit;
 my $clean = 0;
 my $config = 'conf/config.yml';
 my $debug = 0;
-my $one_db_name;
+my $only_db_name;
 
 GetOptions(
        "limit=i" => \$limit,
        "offset=i" => \$offset,
        "clean" => \$clean,
-       "one=s" => \$one_db_name,
+       "one=s" => \$only_db_name,
+       "only=s" => \$only_db_name,
        "config" => \$config,
        "debug" => \$debug,
 );
@@ -81,7 +82,7 @@ my $start_t = time();
 
 while (my ($database, $db_config) = each %{ $config->{databases} }) {
 
-       next if ($one_db_name && $database !~ m/$one_db_name/i);
+       next if ($only_db_name && $database !~ m/$only_db_name/i);
 
        my $log = _new WebPAC::Common()->_get_logger();