pta/pta_import.pl - diff

Return to pta_import.pl CVS log

Up to [cvsweb.bsd.lv] / pta

version 1.16, 2020/11/19 19:56:48

version 1.17, 2020/11/19 23:55:50

Line 1

#!/usr/bin/perl

Line 34 my %banks = (

sub import_bbva_usa ($$$) {

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

$line =~

m#(\d+)/(\d+)/(\d+),(.*?),\S+,($?\d+\.\d+$?),# or

die "parse error: $line";

my ($month, $day, $year, $description, $amount) =

Line 50 sub import_chase_credit ($$$) {

my ($trans_date, $post_date, $description, $category,

$type, $amount) = split /,/, $line;

my ($debit, $credit);

$post_date =~ s#(\d+)/(\d+)/(\d+)#$3$1$2#;

($amount, $debit, $credit) =

get_accounts_by_amount_sign($amount, $account,

$csv_account);

Line 62 sub import_capital_one_credit ($$$) {

my ($trans_date, $post_date, $card_num,

$description, $category, $csv_debit,

$csv_credit) = split /,/, $line;

$post_date =~ s/(\d+)-(\d+)-(\d+)/$1$2$3/;

my ($amount, $debit, $credit) =

get_accounts_by_csv_col($account, $csv_account,

$csv_debit, $csv_credit);

return ($post_date, $amount, $debit, $credit, $description);

Line 114 sub get_accounts_by_amount_sign ($$$) {

my ($debit, $credit);

if ($amount <= 0) {

$amount = substr $amount, 1;

$credit = $csv_account;

$debit = $account;

} else {

$debit = $csv_account;

$credit = $account;

}

return ($amount, $debit, $credit);