fixes
authorDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 15 May 2006 18:27:15 +0000 (18:27 +0000)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Mon, 15 May 2006 18:27:15 +0000 (18:27 +0000)
git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@512 07558da8-63fa-0310-ba24-9fe276d99e06

run.pl

diff --git a/run.pl b/run.pl
index 970f969..cfae9fe 100755 (executable)
--- a/run.pl
+++ b/run.pl
@@ -111,7 +111,7 @@ my $start_t = time();
 
 while (my ($database, $db_config) = each %{ $config->{databases} }) {
 
-       my ($only_database,$only_input) = split(m#/#, $only_filter);
+       my ($only_database,$only_input) = split(m#/#, $only_filter) if ($only_filter);
        next if ($only_database && $database !~ m/$only_database/i);
 
        my $indexer;
@@ -182,7 +182,7 @@ while (my ($database, $db_config) = each %{ $config->{databases} }) {
 
        foreach my $input (@inputs) {
 
-               next if ($only_input && $input->{name} =~ m#$only_input#i || $input->{type} =~ m#$only_input#i);
+               next if ($only_input && ($input->{name} !~ m#$only_input#i && $input->{type} !~ m#$only_input#i));
 
                my $type = lc($input->{type});