/[webpac2]/trunk/lib/WebPAC/Parser.pm
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/lib/WebPAC/Parser.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 755 by dpavlin, Sun Oct 8 20:28:17 2006 UTC revision 976 by dpavlin, Sat Nov 3 12:30:43 2007 UTC
# Line 49  Create new parser object. Line 49  Create new parser object.
49    my $parser = new WebPAC::Parser(    my $parser = new WebPAC::Parser(
50          config => new WebPAC::Config(),          config => new WebPAC::Config(),
51          base_path => '/optional/path/to/conf',          base_path => '/optional/path/to/conf',
52            only_database => $only
53    );    );
54    
55  =cut  =cut
# Line 238  sub _read_sources { Line 239  sub _read_sources {
239    
240          my @sources;          my @sources;
241    
242            my $lookup_src_cache;
243    
244            my $only_database = $self->{only_database};
245            my $only_input = $self->{only_input};
246    
247          $self->{config}->iterate_inputs( sub {          $self->{config}->iterate_inputs( sub {
248                  my ($input, $database) = @_;                  my ($input, $database) = @_;
249    
250                    return if ( $only_database && $database !~ m/$only_database/i );
251                    return if ( $only_input && $input->{name} !~ m/$only_input/i );
252    
253                  $log->debug("database: $database input = ", dump($input));                  $log->debug("database: $database input = ", dump($input));
254    
255                  foreach my $normalize (@{ $input->{normalize} }) {                  foreach my $normalize (@{ $input->{normalize} }) {
# Line 260  sub _read_sources { Line 269  sub _read_sources {
269                          $self->{valid_inputs}->{$database}->{$input_name}++;                          $self->{valid_inputs}->{$database}->{$input_name}++;
270    
271                          push @sources, sub {                          push @sources, sub {
272                                    #warn "### $database $input_name, $full ###\n";
273                                  $self->_parse_source( $database, $input_name, $full, $s );                                  $self->_parse_source( $database, $input_name, $full, $s );
274                          };                          };
275    
# Line 302  sub _parse_source { Line 312  sub _parse_source {
312    
313          my $Document = PPI::Document->new( \$source ) || $log->logdie("can't parse source:\n", $self->{source});          my $Document = PPI::Document->new( \$source ) || $log->logdie("can't parse source:\n", $self->{source});
314    
315          $Document->prune('PPI::Token::Whitespace');          #$Document->prune('PPI::Token::Whitespace');
316          $Document->prune('PPI::Token::Comment');          $Document->prune('PPI::Token::Comment');
317          #$Document->prune('PPI::Token::Operator');          #$Document->prune('PPI::Token::Operator');
318    
Legend:
Removed from v.755  
changed lines
  Added in v.976
  ViewVC Help
Powered by ViewVC 1.1.26