version 1.22, 2020/11/26 18:04:43 |
version 1.23, 2020/11/26 19:39:43 |
Line 169 my $account_name = $opt_I; |
|
Line 169 my $account_name = $opt_I; |
|
$banks{$account_name} or die "unknown accountname: $account_name"; |
$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"; |
open my $in, '<', $fn or die "$fn: $!"; |
open my $in, '<', $fn or die "$fn: $!"; |
my ($csv_account, $delim, $header, $quote, @compiled, @ignored); |
my ($csv_account, $delim, $header, $quote, @compiled, @ignored); |
while (<$in>) { |
while (<$in>) { |