/[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 689 by dpavlin, Sun Sep 24 18:52:35 2006 UTC revision 690 by dpavlin, Sun Sep 24 19:00:56 2006 UTC
# Line 93  sub parse { Line 93  sub parse {
93          # Find all the named subroutines          # Find all the named subroutines
94    
95          my $eval_create;          my $eval_create;
96            my @errors;
97    
98            sub error {
99                    my $msg = shift || $log->logconfess("error without message?");
100                    push @errors, $msg;
101                    return '';
102            }
103    
104          $Document->find( sub {          $Document->find( sub {
105                          my ($Document,$Element) = @_;                          my ($Document,$Element) = @_;
# Line 154  sub parse { Line 161  sub parse {
161    
162                          $log->debug("create: $create");                          $log->debug("create: $create");
163    
164                          $log->logdie("invalid database $e[3]" ) unless $self->valid_database( $e[3] );                          return error("invalid database $e[3]" ) unless $self->valid_database( $e[3] );
165                          $log->logdie("invalid input $e[5] of database $e[3]", ) unless $self->valid_database_input( $e[3], $e[5] );                          return error("invalid input $e[5] of database $e[3]", ) unless $self->valid_database_input( $e[3], $e[5] );
166    
167                          $eval_create->{ $e[3] }->{ $e[5] } .= $create;                          $eval_create->{ $e[3] }->{ $e[5] } .= $create;
168    
# Line 181  sub parse { Line 188  sub parse {
188                  $Dumper->print;                  $Dumper->print;
189          }          }
190    
191            $log->error("Parser errors: ", join("\n",@errors) ) if (@errors);
192    
193          return 1;          return 1;
194  }  }
195    
Legend:
Removed from v.689  
changed lines
  Added in v.690
  ViewVC Help
Powered by ViewVC 1.1.26