if --only filter is used, we will parse just normalization files for this database.

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

diff --git a/lib/WebPAC/Parser.pm b/lib/WebPAC/Parser.pm
index 13ed09a..6bf02af 100644 (file)
--- a/lib/WebPAC/Parser.pm
+++ b/lib/WebPAC/Parser.pm
@@ -49,6 +49,7 @@ Create new parser object.
   my $parser = new WebPAC::Parser(
        config => new WebPAC::Config(),
        base_path => '/optional/path/to/conf',
+       only_database => $only
   );
 
 =cut
@@ -240,9 +241,15 @@ sub _read_sources {
 
        my $lookup_src_cache;
 
+       my $only_database = $self->{only_database};
+       my $only_input = $self->{only_input};
+
        $self->{config}->iterate_inputs( sub {
                my ($input, $database) = @_;
 
+               return if ( $only_database && $database !~ m/$only_database/i );
+               return if ( $only_input && $input->{name} !~ m/$only_input/i );
+
                $log->debug("database: $database input = ", dump($input));
 
                foreach my $normalize (@{ $input->{normalize} }) {
@@ -305,7 +312,7 @@ sub _parse_source {
 
        my $Document = PPI::Document->new( \$source ) || $log->logdie("can't parse source:\n", $self->{source});
 
-       $Document->prune('PPI::Token::Whitespace');
+       #$Document->prune('PPI::Token::Whitespace');
        $Document->prune('PPI::Token::Comment');
        #$Document->prune('PPI::Token::Operator');