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

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

revision 799 by dpavlin, Sun Feb 4 15:09:01 2007 UTC revision 800 by dpavlin, Sun Feb 4 23:10:18 2007 UTC
# Line 286  sub open { Line 286  sub open {
286  #                               return unless defined($l);  #                               return unless defined($l);
287  #                               return $l unless ($rec_regex && $f_nr);  #                               return $l unless ($rec_regex && $f_nr);
288    
289                                  warn "-=> $f_nr ## $l\n" if ($debug);                                  warn "-=> $f_nr ## |$l|\n" if ($debug);
290                                  $log->debug("-=> $f_nr ## $l");                                  $log->debug("-=> $f_nr ## $l");
291    
292                                  # codepage conversion and recode_regex                                  # codepage conversion and recode_regex
# Line 299  sub open { Line 299  sub open {
299                                          my $c = 0;                                          my $c = 0;
300                                          foreach my $r (@{ $rec_regex->{$f_nr} }) {                                          foreach my $r (@{ $rec_regex->{$f_nr} }) {
301                                                  my $old_l = $l;                                                  my $old_l = $l;
302                                                  eval '$l =~ ' . $r;                                                  $log->logconfess("expected regex in ", dump( $r )) unless defined($r->{regex});
303                                                    eval '$l =~ ' . $r->{regex};
304                                                  if ($old_l ne $l) {                                                  if ($old_l ne $l) {
305                                                          $log->debug("REGEX on $f_nr eval \$l =~ $r\n## old l: [$old_l]\n## new l: [$l]");                                                          my $d = "|$old_l| -> |$l| "; # . $r->{regex};
306                                                          warn "*** $r |$old_l| -> |$l|\n" if ($debug);                                                          $d .= ' +' . $r->{line} . ' ' . $r->{file} if defined($r->{line});
307                                                            $d .= ' ' . $r->{debug} if defined($r->{debug});
308                                                            $log->debug("MODIFY $d");
309                                                            warn "*** $d\n" if ($debug);
310    
311                                                  }                                                  }
312                                                  $log->error("error applying regex: $r") if ($@);                                                  $log->error("error applying regex: $r") if ($@);
313                                          }                                          }
314                                  }                                  }
315    
316                                  $log->debug("<=- $f_nr ## $l");                                  $log->debug("<=- $f_nr ## |$l|");
317                                  warn "<=- $f_nr ## $l\n" if ($debug);                                  warn "<=- $f_nr ## $l\n" if ($debug);
318                                  return $l;                                  return $l;
319                  });                  });
# Line 607  sub modify_record_regexps { Line 612  sub modify_record_regexps {
612                          foreach my $from (keys %{ $modify_record->{$f}->{$sf} }) {                          foreach my $from (keys %{ $modify_record->{$f}->{$sf} }) {
613                                  my $to = $modify_record->{$f}->{$sf}->{$from};                                  my $to = $modify_record->{$f}->{$sf}->{$from};
614                                  #die "no field?" unless defined($to);                                  #die "no field?" unless defined($to);
615                                  $log->debug("transform: |$from| -> |$to|");                                  my $d = "|$from| -> |$to|";
616                                    $log->debug("transform: $d");
617    
618                                  my $regex = _get_regex($sf,$from,$to);                                  my $regex = _get_regex($sf,$from,$to);
619                                  push @{ $regexpes->{$f} }, $regex;                                  push @{ $regexpes->{$f} }, { regex => $regex, debug => $d };
620                                  $log->debug("regex: $regex");                                  $log->debug("regex: $regex");
621                          }                          }
622                  }                  }
# Line 671  sub modify_file_regexps { Line 677  sub modify_file_regexps {
677                          $log->debug("transform: |$from| -> |$to|");                          $log->debug("transform: |$from| -> |$to|");
678    
679                          my $regex = _get_regex($sf,$from,$to);                          my $regex = _get_regex($sf,$from,$to);
680                          push @{ $regexpes->{$f} }, $regex;                          push @{ $regexpes->{$f} }, {
681                                    regex => $regex,
682                                    file => $modify_path,
683                                    line => $.,
684                            };
685                          $log->debug("regex: $regex");                          $log->debug("regex: $regex");
686                  }                  }
687          }          }
Legend:
Removed from v.799  
changed lines
  Added in v.800
  ViewVC Help
Powered by ViewVC 1.1.26