[BACK]Return to pta_import.pl CVS log [TXT][DIR] Up to [cvsweb.bsd.lv] / pta

Diff for /pta/pta_import.pl between version 1.19 and 1.20

version 1.19, 2020/11/22 01:48:36 version 1.20, 2020/11/23 14:14:23
Line 156  $banks{$account_name} or die "unknown accountname: $ac
Line 156  $banks{$account_name} or die "unknown accountname: $ac
 # Parse the configuration file.  # Parse the configuration file.
 my $fn = "import_" . $account_name . ".txt";  my $fn = "import_" . $account_name . ".txt";
 open my $in, '<', $fn or die "$fn: $!";  open my $in, '<', $fn or die "$fn: $!";
 my ($csv_account, $delim, $header, $quote, @compiled);  my ($csv_account, $delim, $header, $quote, @compiled, @ignored);
 while (<$in>) {  while (<$in>) {
         chomp;          chomp;
         next if /^(?:#|$)/;          next if /^(?:#|$)/;
Line 181  while (<$in>) {
Line 181  while (<$in>) {
                 $quote = $1;                  $quote = $1;
                 next;                  next;
         }          }
           if (/^IGNORE\s+(.*)/) {
                   push @ignored, qr/$1/;
                   next;
           }
         $delim or die "no DELIM line in $fn";          $delim or die "no DELIM line in $fn";
         s/^(.*)$delim\s+(\d+)\s+(\S+)// or          s/^(.*)$delim\s+(\d+)\s+(\S+)// or
             die "$fn import parse error: $line";              die "$fn import parse error: $line";
Line 194  close $in;
Line 198  close $in;
 $csv_account or die "no ACCOUNT line in $fn";  $csv_account or die "no ACCOUNT line in $fn";
   
 # Parse the CSV file from the bank.  # Parse the CSV file from the bank.
 while (<>) {  LINE: while (<>) {
         chomp;          chomp;
         next if (/^$/);          next if (/^$/);
           foreach my $ignore (@ignored) {
                   next LINE if /$ignore/;
           }
         my $line = $_;          my $line = $_;
         if ($header) {          if ($header) {
                 $line eq $header                  $line eq $header

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

CVSweb