diff options
| author | ivan <ivan> | 2003-09-26 13:04:24 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-09-26 13:04:24 +0000 |
| commit | cf004a5afe85340db2b54978ca540ab6c93c3863 (patch) | |
| tree | ff921936a83cdbb535a91a951b01c228de58bfe9 /FS/bin/freeside-daily | |
| parent | 06ef2ebbf1ac9bb45a9af2899227b34bf7bb3ebd (diff) | |
re-setup option to re-charge setup fee
Diffstat (limited to 'FS/bin/freeside-daily')
| -rwxr-xr-x | FS/bin/freeside-daily | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/FS/bin/freeside-daily b/FS/bin/freeside-daily index 579d071ac..b53679460 100755 --- a/FS/bin/freeside-daily +++ b/FS/bin/freeside-daily @@ -10,8 +10,8 @@ use FS::Conf; use FS::cust_main; &untaint_argv; #what it sounds like (eww) -use vars qw($opt_d $opt_v $opt_p); -getopts("p:d:v"); +use vars qw($opt_d $opt_v $opt_p $opt_s); +getopts("p:d:vs"); my $user = shift or die &usage; adminsuidsetup $user; @@ -42,7 +42,8 @@ foreach $cust_main ( @cust_main ) { if $error; } - my $error = $cust_main->bill( 'time' => $time ); + my $error = $cust_main->bill( 'time' => $time, + 'resetup' => $opt_s, ); warn "Error billing, custnum ". $cust_main->custnum. ": $error" if $error; $cust_main->apply_payments; @@ -98,7 +99,7 @@ freeside-daily - Run daily billing and invoice collection events. =head1 SYNOPSIS - freeside-daily [ -d 'date' ] [ -p 'payby' ] [ -v ] user [ custnum custnum ... ] + freeside-daily [ -d 'date' ] [ -p 'payby' ] [ -s ] [ -v ] user [ custnum custnum ... ] =head1 DESCRIPTION @@ -113,7 +114,9 @@ the bill and collect methods of a cust_main object. See L<FS::cust_main>. -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<CHEK>, I<BILL>, I<COMP>, I<LECB>) + + -s: re-charge setup fees -v: enable debugging |