&untaint_argv; #what it sounds like (eww)
use vars qw($opt_d $opt_v);
-getopts("d:v");
+getopts("p:d:v");
my $user = shift or die &usage;
adminsuidsetup $user;
$FS::cust_main::Debug = 1 if $opt_v;
+my %search;
+$search{'payby'} = $opt_p if $opt_p;
+
my @cust_main = @ARGV
- ? map { qsearchs('cust_main', { custnum => $_ } ) } @ARGV
- : qsearch('cust_main', {} )
+ ? map { qsearchs('cust_main', { custnum => $_, %search } ) } @ARGV
+ : qsearch('cust_main', \%search )
;
#we're at now now (and later).
=head1 SYNOPSIS
- freeside-daily [ -d 'date' ] user [ custnum custnum ... ]
+ freeside-daily [ -d 'date' ] [ -p 'payby' ] [ -v ] user [ custnum custnum ... ]
=head1 DESCRIPTION
-d: Pretend it's 'date'. Date is in any format Date::Parse is happy with,
but be careful.
+ -p: Only process customers with the specified payby (CARD, CHEK, BILL, COMP, LECB)
+
+ -v: enable debugging
+
user: From the mapsecrets file - see config.html from the base documentation
custnum: if one or more customer numbers are specified, only bills those