111 |
|
|
112 |
while (my ($database, $db_config) = each %{ $config->{databases} }) { |
while (my ($database, $db_config) = each %{ $config->{databases} }) { |
113 |
|
|
114 |
my ($only_database,$only_input) = split(m#/#, $only_filter); |
my ($only_database,$only_input) = split(m#/#, $only_filter) if ($only_filter); |
115 |
next if ($only_database && $database !~ m/$only_database/i); |
next if ($only_database && $database !~ m/$only_database/i); |
116 |
|
|
117 |
my $indexer; |
my $indexer; |
182 |
|
|
183 |
foreach my $input (@inputs) { |
foreach my $input (@inputs) { |
184 |
|
|
185 |
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)); |
186 |
|
|
187 |
my $type = lc($input->{type}); |
my $type = lc($input->{type}); |
188 |
|
|