===================================================================
RCS file: /cvs/pta/pta_import.pl,v
retrieving revision 1.13
retrieving revision 1.21
diff -u -p -r1.13 -r1.21
--- pta/pta_import.pl	2020/11/18 21:32:16	1.13
+++ pta/pta_import.pl	2020/11/25 12:46:41	1.21
@@ -1,4 +1,4 @@
-#!/usr/bin/perl 
+#!/usr/bin/perl
 
 # Copyright (c) 2020 Freda Bundchen
 
@@ -22,20 +22,35 @@ use Getopt::Std qw(getopts);
 our ($opt_I);
 
 my %banks = (
+    "bbva_usa"              => \&import_bbva_usa,
     "capital_one_credit"    => \&import_capital_one_credit,
     "chase_credit"          => \&import_chase_credit,
     "optum_hsa"             => \&import_optum_hsa,
     "sparkasse_camt"        => \&import_sparkasse_camt,
+    "wellsfargo"            => \&import_wellsfargo,
 );
 
 # === SUBROUTINES  =====================================================
 
+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) =
+	    ($1, $2, $3, $4, $5);
+	$amount =~ s/\((\d+\.\d+)\)/-$1/;
+	return "$year$month$day",
+	    get_accounts_by_amount_sign($amount, $account, $csv_account),
+	    $description;
+}
+
 sub import_chase_credit ($$$) {
 	my ($account, $csv_account, $line) = @_;
 	my ($trans_date, $post_date, $description, $category,
 	    $type, $amount) = split /,/, $line;
 	my ($debit, $credit);
-	$post_date =~ s#(\d+)/(\d+)/(\d+)#$3$1$2#; 
+	$post_date =~ s#(\d+)/(\d+)/(\d+)#$3$1$2#;
 	($amount, $debit, $credit) =
 	    get_accounts_by_amount_sign($amount, $account,
 	    $csv_account);
@@ -47,8 +62,8 @@ 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) = 
+	$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);
@@ -82,15 +97,27 @@ sub import_sparkasse_camt ($$$) {
 	    (join ' ', $fields[11], $fields[4]);
 }
 
+sub import_wellsfargo ($$$) {
+	my ($account, $csv_account, $line) = @_;
+	$line =~
+	    m#^"(\d+)/(\d+)/(\d+)","(-?\d+\.\d+)","\*",".*","(.*?)"$# or
+	    die "parse error: $line" ;
+	my ($month, $day, $year, $amount, $description) =
+	    ($1, $2, $3, $4, $5);
+	return "$year$month$day",
+	    get_accounts_by_amount_sign($amount, $account, $csv_account),
+	    $description;
+}
+
 sub get_accounts_by_amount_sign ($$$) {
 	my ($amount, $account, $csv_account) = @_;
 	my ($debit, $credit);
 	if ($amount <= 0) {
 		$amount = substr $amount, 1;
-		$credit = $csv_account;	
+		$credit = $csv_account;
 		$debit = $account;
 	} else {
-		$debit = $csv_account;	
+		$debit = $csv_account;
 		$credit = $account;
 	}
 	return ($amount, $debit, $credit);
@@ -118,20 +145,18 @@ sub usage () {
 
 # === MAIN PROGRAM =====================================================
 
-my ($csv_account, $fn, $in, $account_name, $delim, @compiled);
-
-# Parse command line arguments.
 getopts 'I:' or usage;
-if ($opt_I) {
-	$account_name = $opt_I;
-	$banks{$account_name} or die "unknown accountname: $account_name";
-	$fn = "import_" . $account_name . ".txt";
-	open $in, $fn or die "$fn: $!";
-} else {
+unless ($opt_I) {
+	warn "The option -I is required.";
 	usage;
 }
+my $account_name = $opt_I;
+$banks{$account_name} or die "unknown accountname: $account_name";
 
 # Parse the configuration file.
+my $fn = "import_" . $account_name . ".txt";
+open my $in, '<', $fn or die "$fn: $!";
+my ($csv_account, $delim, $header, $quote, @compiled, @ignored);
 while (<$in>) {
 	chomp;
 	next if /^(?:#|$)/;
@@ -146,6 +171,20 @@ while (<$in>) {
 		$delim = $1;
 		next;
 	}
+	if (/^HEADER\s+(.*)$/) {
+		$header and die "duplicate HEADER line: $1";
+		$header = $1;
+		next;
+	}
+	if (/^QUOTE\s+(\S)$/) {
+		$quote and die "duplicate QUOTE line: $1";
+		$quote = $1;
+		next;
+	}
+	if (/^IGNORE\s+(.*)/) {
+		push @ignored, qr/$1/;
+		next;
+	}
 	$delim or die "no DELIM line in $fn";
 	s/^(.*)$delim\s+(\d+)\s+(\S+)// or
 	    die "$fn import parse error: $line";
@@ -159,12 +198,29 @@ close $in;
 $csv_account or die "no ACCOUNT line in $fn";
 
 # Parse the CSV file from the bank.
-chomp(my $header = <>);
-while (<>) {
+if (@ARGV) {
+	open STDIN, '<', $ARGV[0] or die "$ARGV[0]: $!";
+}
+LINE: while (<STDIN>) {
 	chomp;
 	next if (/^$/);
+	foreach my $ignore (@ignored) {
+		next LINE if /$ignore/;
+	}
 	my $line = $_;
-	my @fields = split /$delim/, $line;
+	if ($header) {
+		$line eq $header
+		    or die "expected HEADER $header\nbut got $line";
+		undef $header;
+		next;
+	}
+	my $copy_line = $line;
+	my @fields;
+	if ($quote) {
+		push @fields, $1 while $copy_line =~ s/$quote([^$quote]*)$quote$delim?//;
+	} else {
+		@fields = split /$delim/, $line;
+	}
 	my $matches = 0;
 	my ($account, $booking);
 	foreach my $selector (@compiled) {