pta/pta_import.pl - diff

Return to pta_import.pl CVS log

Up to [cvsweb.bsd.lv] / pta

version 1.21, 2020/11/25 12:46:41

version 1.23, 2020/11/26 19:39:43

Line 25 my %banks = (

"bbva_usa" => \&import_bbva_usa,

"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,

Line 69 sub import_capital_one_credit ($$$) {

Line 70 sub import_capital_one_credit ($$$) {

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 ($$$) {

my ($account, $csv_account, $line) = @_;

my ($date, $description, $amount,

Line 154 my $account_name = $opt_I;

Line 169 my $account_name = $opt_I;

$banks{$account_name} or die "unknown accountname: $account_name";

# Parse the configuration file.

my $fn = "import_" . $account_name . ".txt";

my $fn = "import/" . $account_name . ".txt";

open my $in, '<', $fn or die "$fn: $!";

my ($csv_account, $delim, $header, $quote, @compiled, @ignored);

while (<$in>) {