[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.28 and 1.29

version 1.28, 2020/12/11 19:28:12 version 1.29, 2021/05/19 17:10:53
Line 21  use Getopt::Std qw(getopts);
Line 21  use Getopt::Std qw(getopts);
   
 our ($opt_I);  our ($opt_I);
   
 my %banks = (  
     "bbva_usa"              => \&import_bbva_usa,  
     "capital_one_360"       => \&import_capital_one_360,  
     "capital_one_credit"    => \&import_capital_one_credit,  
     "chase_credit"          => \&import_chase_credit,  
     "etrade_ira"            => \&import_etrade_ira,  
     "optum_hsa"             => \&import_optum_hsa,  
     "sparkasse_camt"        => \&import_sparkasse_camt,  
     "wellsfargo"            => \&import_wellsfargo,  
 );  
   
 my %date_formats = (  my %date_formats = (
     'MM/DD/YYYY' => 's#(\d+)/(\d+)/(\d+)#$3$1$2#',      'MM/DD/YYYY' => 's#(\d+)/(\d+)/(\d+)#$3$1$2#',
     'MM/DD/YY'   => 's#(\d+)/(\d+)/(\d+)#20$3$1$2#',      'MM/DD/YY'   => 's#(\d+)/(\d+)/(\d+)#20$3$1$2#',
Line 54  unless ($opt_I) {
Line 43  unless ($opt_I) {
         usage;          usage;
 }  }
 my $account_name = $opt_I;  my $account_name = $opt_I;
 $banks{$account_name} or die "unknown accountname: $account_name";  
   
 # Parse the configuration file.  # Parse the configuration file.
 my $fn = "import/" . $account_name . ".txt";  my $fn = "import/" . $account_name . ".txt";
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
CVSweb