12 use FS::UID qw(adminsuidsetup);
13 use FS::Record qw(qsearch);
16 use vars qw($smtpmachine @body);
19 $FS::alerter::_template::first = "";
20 $FS::alerter::_template::last = "";
21 $FS::alerter::_template::company = "";
22 $FS::alerter::_template::payby = "";
23 $FS::alerter::_template::expdate = "";
25 # Set the mail program and other variables
26 my $mail_sender = "billing\@mydomain.tld"; # or invoice_from if available
27 my $failure_recipient = "postmaster"; # or invoice_from if available
28 my $warning_time = 30 * 24 * 60 * 60;
29 my $urgent_time = 15 * 24 * 60 * 60;
30 my $panic_time = 5 * 24 * 60 * 60;
31 my $window_time = 24 * 60 * 60;
33 &untaint_argv; #what it sounds like (eww)
35 #we're at now now (and later).
38 # Get the current month
39 my ($sec,$min,$hour,$mday,$mon,$year) =
40 (localtime($_date) )[0,1,2,3,4,5];
43 # Login to the database
44 my $user = shift or die &usage;
47 # Get the needed configuration files
48 my $conf = new FS::Conf;
49 $smtpmachine = $conf->config('smtpmachine');
50 $mail_sender = $conf->config('invoice_from')
51 if $conf->exists('invoice_from');
52 $failure_recipient = $conf->config('invoice_from')
53 if $conf->exists('invoice_from');
56 my(@customers)=qsearch('cust_main',{});
57 if (scalar(@customers) == 0)
62 # Prepare for sending email
64 $ENV{MAILADDRESS} = $mail_sender;
65 my $header = new Mail::Header ( [
66 "From: Account Processor",
67 "To: $failure_recipient",
68 "Sender: $mail_sender",
69 "Reply-To: $mail_sender",
70 "Subject: Unnotified Billing Arrangement Expirations",
73 my @alerter_template = $conf->config('alerter_template')
74 or die "cannot load config file alerter_template";
76 my $alerter = new Text::Template (TYPE => 'ARRAY', SOURCE => [ map "$_\n", @alerter_template ])
77 or die "can't create new Text::Template object: Text::Template::ERROR";
78 $alerter->compile() or die "can't compile template: Text::Template::ERROR";
80 # Now I can start looping
81 foreach my $customer (@customers)
83 my $custnum = $customer->getfield('custnum');
84 my $first = $customer->getfield('first');
85 my $last = $customer->getfield('last');
86 my $company = $customer->getfield('company');
87 my $payby = $customer->getfield('payby');
88 my $payinfo = $customer->getfield('payinfo');
89 my $paydate = $customer->getfield('paydate');
90 my $daytime = $customer->getfield('daytime');
91 my $night = $customer->getfield('night');
93 my ($payyear,$paymonth,$payday) = split (/-/,$paydate);
95 my $expire_time = timelocal(0,0,0,$payday,--$paymonth,$payyear);
97 #credit cards expire at the end of the month/year of their exp date
98 if ($payby eq 'CARD') {
99 ($paymonth < 11) ? $paymonth++ : ($paymonth=0, $payyear++);
100 $expire_time = timelocal(0,0,0,$payday,$paymonth,$payyear);
104 if (($expire_time < $_date + $warning_time &&
105 $expire_time > $_date + $warning_time - $window_time) ||
106 ($expire_time < $_date + $urgent_time &&
107 $expire_time > $_date + $urgent_time - $window_time) ||
108 ($expire_time < $_date + $panic_time &&
109 $expire_time > $_date + $panic_time - $window_time)) {
113 my @packages = $customer->ncancelled_pkgs;
114 if (scalar(@packages) != 0) {
115 my @invoicing_list = $customer->invoicing_list;
116 if ( grep { $_ ne 'POST' } @invoicing_list ) {
117 my $header = new Mail::Header ( [
118 "From: $mail_sender",
119 "To: ". join(', ', grep { $_ ne 'POST' } @invoicing_list ),
120 "Sender: $mail_sender",
121 "Reply-To: $mail_sender",
122 "Date: ". time2str("%a, %d %b %Y %X %z", time),
123 "Subject: Billing Arrangement Expiration",
125 $FS::alerter::_template::first = $first;
126 $FS::alerter::_template::last = $last;
127 $FS::alerter::_template::company = $company;
128 if ($payby eq 'CARD') {
129 $FS::alerter::_template::payby = "credit card (" .
130 substr($payinfo, 0, 2) . "xxxxxxxxxx" .
131 substr($payinfo, -4) . ")";
132 }elsif ($payby eq 'COMP') {
133 $FS::alerter::_template::payby = "complimentary account";
135 $FS::alerter::_template::payby = "current method";
137 $FS::alerter::_template::expdate = $expire_time;
139 my $message = new Mail::Internet (
141 'Body' => [ $alerter->fill_in( PACKAGE => 'FS::alerter::_template' ) ],
144 $message->smtpsend( Host => $smtpmachine )
145 or die "Can't send expiration email!: $!"; #die? warn?
147 } elsif ( ! @invoicing_list || grep { $_ eq 'POST' } @invoicing_list ) {
148 push @body, sprintf(qq{%5d %-32.32s %4s %10s %12s %12s},
150 $first . " " . $last . " " . $company,
160 # Now I need to send EMAIL
162 my $message = new Mail::Internet (
164 'Body' => [ (@body) ],
167 $message->smtpsend( Host => $smtpmachine )
168 or $message->smtpsend( Host => $smtpmachine, Debug => 1 )
169 or return "can't send alerter failure email to $failure_recipient".
170 " via server $smtpmachine with SMTP: $!";
175 foreach $_ ( $[ .. $#ARGV ) { #untaint @ARGV
176 $ARGV[$_] =~ /^([\w\-\/]*)$/ || die "Illegal argument \"$ARGV[$_]\"";
182 die "Usage:\n\n freeside-expiration-alerter user\n";
187 freeside-expiration-alerter - Emails notifications of credit card expirations.
191 freeside-expiration-alerter user
195 Emails customers notice that their credit card or other billing arrangement
196 is about to expire. Usually run as a cron job.
198 user: From the mapsecrets file - see config.html from the base documentation
202 $Id: freeside-expiration-alerter,v 1.2 2002-03-07 19:50:24 jeff Exp $
206 Yes..... Use at your own risk. No guarantees or warrantees of any
207 kind apply to this program. Parts of this program are hacked from
208 other GNU licensed software created mainly by Ivan Kohler.
210 This is released under the GNU Public License. See www.gnu.org
211 for more information regarding this license.
215 L<FS::cust_main>, config.html from the base documentation
219 Jeff Finucane <jeff@cmh.net>