[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.20 and 1.22

version 1.20, 2020/11/23 14:14:23 version 1.22, 2020/11/26 18:04:43
Line 25  my %banks = (
Line 25  my %banks = (
     "bbva_usa"              => \&import_bbva_usa,      "bbva_usa"              => \&import_bbva_usa,
     "capital_one_credit"    => \&import_capital_one_credit,      "capital_one_credit"    => \&import_capital_one_credit,
     "chase_credit"          => \&import_chase_credit,      "chase_credit"          => \&import_chase_credit,
       "etrade_ira"            => \&import_etrade_ira,
     "optum_hsa"             => \&import_optum_hsa,      "optum_hsa"             => \&import_optum_hsa,
     "sparkasse_camt"        => \&import_sparkasse_camt,      "sparkasse_camt"        => \&import_sparkasse_camt,
     "wellsfargo"            => \&import_wellsfargo,      "wellsfargo"            => \&import_wellsfargo,
Line 69  sub import_capital_one_credit ($$$) {
Line 70  sub import_capital_one_credit ($$$) {
         return ($post_date, $amount, $debit, $credit, $description);          return ($post_date, $amount, $debit, $credit, $description);
 }  }
   
   sub import_etrade_ira ($$$) {
           my ($account, $csv_account, $line) = @_;
           my @fields = split /,/, $line;
           $fields[0] =~ s#(\d+)/(\d+)/(\d+)#20$3$1$2#;
           my ($amount, $debit, $credit) =
               get_accounts_by_amount_sign($fields[5], $account,
               $csv_account);
           if ($fields[2] eq 'EQ') {
                   $fields[8] .= " [$fields[3]]";
           }
           return ($fields[0], $amount, $debit, $credit,
               join ' quantity ', $fields[8], $fields[4]);
   }
   
 sub import_optum_hsa ($$$) {  sub import_optum_hsa ($$$) {
         my ($account, $csv_account, $line) = @_;          my ($account, $csv_account, $line) = @_;
         my ($date, $description, $amount,          my ($date, $description, $amount,
Line 198  close $in;
Line 213  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.
 LINE: while (<>) {  if (@ARGV) {
           open STDIN, '<', $ARGV[0] or die "$ARGV[0]: $!";
   }
   LINE: while (<STDIN>) {
         chomp;          chomp;
         next if (/^$/);          next if (/^$/);
         foreach my $ignore (@ignored) {          foreach my $ignore (@ignored) {
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.22
CVSweb