use Text::CSV;
my %opt;
-getopts('va:P:C:', \%opt);
+getopts('va:P:C:T:', \%opt);
#$Net::SFTP::Foreign::debug = -1;
sub HELP_MESSAGE { '
[ -a archivedir ]
[ -P port ]
[ -C category ]
+ [ -T taxclass ]
freesideuser sftpuser@hostname[:path]
' }
$categorynum = $category->categorynum;
}
+my $taxclass = $opt{T} || '';
+
#my $tmpdir = File::Temp->newdir();
my $tmpdir = tempdir( CLEANUP => 1 ); #DIR=>somewhere?
quantity => $hash{quantity},
start_date => $cust_main->next_bill_date,
pkg => $hash{date_desc},
+ taxclass => $taxclass,
);
if (my $classname = $hash{classname}) {
if (!exists($classnum_of{$classname}) ) {
}
$opt{classnum} = $classnum_of{$classname};
}
- # XXX what's the tax status of these charges?
print STDERR " Charging $hash{amount}\n"
if $opt{v};
my $error = $cust_main->charge(\%opt);