blob: 17ee798ffc53c45b852c1cb3b87b5cd3498e95d3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
#!/usr/bin/perl -w
use strict;
use Fcntl qw(:flock);
use Date::Parse;
use Getopt::Std;
use FS::UID qw(adminsuidsetup driver_name dbh);
use FS::Record qw(qsearch qsearchs);
use FS::cust_main;
&untaint_argv; #what it sounds like (eww)
use vars qw($opt_d $opt_v);
getopts("d:v");
my $user = shift or die &usage;
adminsuidsetup $user;
$FS::cust_main::Debug = 1 if $opt_v;
my @cust_main = @ARGV
? map { qsearchs('cust_main', { custnum => $_ } ) } @ARGV
: qsearch('cust_main', {} )
;
#we're at now now (and later).
my($time)= $opt_d ? str2time($opt_d) : $^T;
my($cust_main,%saw);
foreach $cust_main ( @cust_main ) {
# $^T not $time because -d is for pre-printing invoices
foreach my $cust_pkg (
grep { $_->expire && $_->expire <= $^T } $cust_main->ncancelled_pkgs
) {
my $error = $cust_pkg->cancel;
warn "Error cancelling expired pkg ". $cust_pkg->pkgnum. " for custnum ".
$cust_main->custnum. ": $error"
if $error;
}
my $error = $cust_main->bill( 'time' => $time );
warn "Error billing, custnum ". $cust_main->custnum. ": $error" if $error;
$cust_main->apply_payments;
$cust_main->apply_credits;
$error = $cust_main->collect( 'invoice_time' => $time );
warn "Error collecting, custnum". $cust_main->custnum. ": $error" if $error;
}
if ( driver_name eq 'Pg' ) {
dbh->{AutoCommit} = 1; #so we can vacuum
foreach my $statement ( 'vacuum', 'vacuum analyze' ) {
my $sth = dbh->prepare($statement) or die dbh->errstr;
$sth->execute or die $sth->errstr;
}
}
# subroutines
sub untaint_argv {
foreach $_ ( $[ .. $#ARGV ) { #untaint @ARGV
#$ARGV[$_] =~ /^([\w\-\/]*)$/ || die "Illegal arguement \"$ARGV[$_]\"";
# Date::Parse
$ARGV[$_] =~ /^(.*)$/ || die "Illegal arguement \"$ARGV[$_]\"";
$ARGV[$_]=$1;
}
}
sub usage {
die "Usage:\n\n freeside-daily [ -d 'date' ] user [ custnum custnum ... ]\n";
}
=head1 NAME
freeside-daily - Run daily billing and invoice collection events.
=head1 SYNOPSIS
freeside-daily [ -d 'date' ] user [ custnum custnum ... ]
=head1 DESCRIPTION
Bills customers and runs invoice collection events. Should be run from
crontab daily.
This script replaces freeside-bill from 1.3.1.
Bills customers. Searches for customers who are due for billing and calls
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.
user: From the mapsecrets file - see config.html from the base documentation
custnum: if one or more customer numbers are specified, only bills those
customers. Otherwise, bills all customers.
=head1 BUGS
=head1 SEE ALSO
L<FS::cust_main>, config.html from the base documentation
=cut
|
