use FS::cust_main;
&untaint_argv; #what it sounds like (eww)
-use vars qw($opt_d $opt_v);
+use vars qw($opt_d $opt_v $opt_p);
getopts("p:d:v");
my $user = shift or die &usage;
-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)
+ -p: Only process customers with the specified payby (I<CARD>, I<DCRD>, I<CHEK>, I<DCHK>, I<BILL>, I<COMP>, I<LECB>)
-v: enable debugging