4 use vars qw( $days_to_pay $cust_main $cust_pkg
11 use FS::Record qw(qsearch qsearchs);
12 use FS::UID qw(adminsuidsetup);
16 getopts('ed:qplsc', \%opt);
17 my $user = shift or die &usage;
22 my ($sec,$min,$hour,$mday,$mon,$year) =
23 (localtime($now) )[0,1,2,3,4,5];
27 foreach $cust_main ( qsearch('cust_main',{} ) ) {
29 my ( $eyear, $emon, $eday ) = ( 2037, 12, 31 );
30 if ( $cust_main->paydate =~ /^(\d{4})\-(\d{1,2})\-(\d{1,2})$/
31 && $cust_main->payby eq 'BILL') {
32 ( $eyear, $emon, $eday ) = ( $1, $2, $3 );
36 && $cust_main->balance_date(time - $opt{d} * 86400) > 0
37 && qsearchs( 'cust_pkg', { 'custnum' => $cust_main->custnum,
40 && $cust_main->payby eq 'BILL'
42 || ( $eyear == $year && $emon < $mon ) ) )
46 print $cust_main->custnum, "\t",
47 $cust_main->last, "\t", $cust_main->first, "\t",
48 $cust_main->balance_date(time-$opt{d} * 86400);
52 # print "\n\tCharging late fee of \$$opt{l}" unless $opt{q};
56 foreach $cust_pkg ( qsearch( 'cust_pkg',
57 { 'custnum' => $cust_main->custnum } ) ) {
59 if ( $opt{p} && ! grep { $_ eq 'POST' } $cust_main->invoicing_list ) {
60 print "\n\tAdding postal invoicing" unless $opt{q};
61 my @invoicing_list = $cust_main->invoicing_list;
62 push @invoicing_list, 'POST';
63 $cust_main->invoicing_list(\@invoicing_list);
67 print "\n\tSuspending pkgnum " . $cust_pkg->pkgnum unless $opt{q};
72 print "\n\tCancelling pkgnum " . $cust_pkg->pkgnum unless $opt{q};
78 print "\n" unless $opt{q};
85 foreach $_ ( $[ .. $#ARGV ) {
86 $ARGV[$_] =~ /^([\w\-\/\.]*)$/ || die "Illegal arguement \"$ARGV[$_]\"";
92 die "Usage:\n\n freeside-overdue [ -e ] [ -d days ] [ -q ] [ -p ] [ -l amount ] [ -s ] [ -c ] user\n";
98 freeside-overdue - Perform actions on overdue and/or expired accounts.
102 freeside-overdue [ -e ] [ -d days ] [ -q ] [ -p ] [ -l amount ] [ -s ] [ -c ] user
106 Performs actions on overdue and/or expired accounts.
108 Selection options (at least one selection option is required):
110 -d: Customers with a balance due on invoices older than the supplied number
111 of days. Requires an integer argument.
113 -e: Customers with a billing expiration date in the past.
117 -q: Be quiet (by default, selected accounts are printed).
119 -p: Add postal invoicing to the relevant customers.
121 -l: Add a charge of the given amount to the relevant customers.
123 -s: Suspend accounts.
127 user: From the mapsecrets file - see config.html from the base documentation
131 Example crontab entries:
133 # suspend expired accounts
134 20 4 * * * freeside-overdue -e -s user
136 # quietly add postal invoicing to customers over 30 days past due
137 20 4 * * * freeside-overdue -d 30 -p -q user
139 # suspend accounts and charge a $10.23 fee for customers over 60 days past due
140 20 4 * * * freeside-overdue -d 60 -s -l 10.23 user
142 # cancel accounts over 90 days past due
143 20 4 * * * freeside-overdue -d 90 -c user
145 =head1 ORIGINAL AUTHORS
147 Original disable-overdue version by mw/kwh: Mark W.? and Kristian Hoffmann ?