7 use FS::UID qw(adminsuidsetup);
8 use FS::Record qw(qsearch qsearchs);
11 &untaint_argv; #what it sounds like (eww)
14 my $user = shift or die &usage;
19 ? map { qsearchs('cust_main', { custnum => $_ } ) } @ARGV
20 : qsearch('cust_main', {} )
23 #we're at now now (and later).
24 my($time)= $opt_d ? str2time($opt_d) : $^T;
27 foreach $cust_main ( @cust_main ) {
31 $error = $cust_main->bill( 'time' => $time );
32 warn "Error billing, custnum ". $cust_main->custnum. ": $error" if $error;
34 $cust_main->apply_payments;
35 $cust_main->apply_credits;
37 $error=$cust_main->collect( 'invoice_time' => $time );
38 warn "Error collecting, custnum". $cust_main->custnum. ": $error" if $error;
45 foreach $_ ( $[ .. $#ARGV ) { #untaint @ARGV
46 #$ARGV[$_] =~ /^([\w\-\/]*)$/ || die "Illegal arguement \"$ARGV[$_]\"";
48 $ARGV[$_] =~ /^(.*)$/ || die "Illegal arguement \"$ARGV[$_]\"";
54 die "Usage:\n\n freeside-daily [ -d 'date' ] user [ custnum custnum ... ]\n";
59 freeside-daily - Run daily billing and invoice collection events.
63 freeside-daily [ -d 'date' ] user [ custnum custnum ... ]
67 Bills customers and runs invoice collection events. Should be run from
70 This script replaces freeside-bill from 1.3.1.
72 Bills customers. Searches for customers who are due for billing and calls
73 the bill and collect methods of a cust_main object. See L<FS::cust_main>.
75 -d: Pretend it's 'date'. Date is in any format Date::Parse is happy with,
78 user: From the mapsecrets file - see config.html from the base documentation
80 custnum: if one or more customer numbers are specified, only bills those
81 customers. Otherwise, bills all customers.
87 L<FS::cust_main>, config.html from the base documentation