package FS::cust_pay;
use strict;
-use vars qw( @ISA $conf $unsuspendauto );
+use vars qw( @ISA $conf $unsuspendauto $smtpmachine $invoice_from );
use Date::Format;
+use Mail::Header;
+use Mail::Internet 1.44;
use Business::CreditCard;
use FS::UID qw( dbh );
use FS::Record qw( dbh qsearch qsearchs dbh );
-use FS::Misc qw(send_email);
use FS::cust_bill;
use FS::cust_bill_pay;
use FS::cust_main;
@ISA = qw( FS::Record );
#ask FS::UID to run this stuff for us later
-FS::UID->install_callback( sub {
+$FS::UID::callback{'FS::cust_pay'} = sub {
+
$conf = new FS::Conf;
$unsuspendauto = $conf->exists('unsuspendauto');
-} );
+ $smtpmachine = $conf->config('smtpmachine');
+ $invoice_from = $conf->config('invoice_from');
+
+};
=head1 NAME
if ( $conf->config('deletepayments') ne '' ) {
my $cust_main = qsearchs('cust_main',{ 'custnum' => $self->custnum });
-
- my $error = send_email(
- 'from' => $conf->config('invoice_from'), #??? well as good as any
- 'to' => $conf->config('deletepayments'),
- 'subject' => 'FREESIDE NOTIFICATION: Payment deleted',
- 'body' => [
+ #false laziness w/FS::cust_bill::send & fs_signup_server
+ $ENV{MAILADDRESS} = $invoice_from; #??? well as good as any
+ my $header = new Mail::Header ( [
+ "From: $invoice_from",
+ "To: ". $conf->config('deletepayments'),
+ "Sender: $invoice_from",
+ "Reply-To: $invoice_from",
+ "Date: ". time2str("%a, %d %b %Y %X %z", time),
+ "Subject: FREESIDE NOTIFICATION: Payment deleted",
+ ] );
+ my $message = new Mail::Internet (
+ 'Header' => $header,
+ 'Body' => [
"This is an automatic message from your Freeside installation\n",
"informing you that the following payment has been deleted:\n",
"\n",
'paybatch: '. $self->paybatch. "\n",
],
);
-
- if ( $error ) {
- $dbh->rollback if $oldAutoCommit;
- return "can't send payment deletion notification: $error";
- }
-
+ $!=0;
+ $message->smtpsend( Host => $smtpmachine )
+ or $message->smtpsend( Host => $smtpmachine, Debug => 1 )
+ or do {
+ $dbh->rollback if $oldAutoCommit;
+ return "(customer # ". $self->custnum.
+ ") can't send payment deletion email to ".
+ $conf->config('deletepayments').
+ " via server $smtpmachine with SMTP: $!";
+ };
}
$dbh->commit or die $dbh->errstr if $oldAutoCommit;
return $error if $error;
}
- $self->SUPER::check;
+ ''; #no error
+
}
=item cust_bill_pay
=back
-=head1 VERSION
-
-$Id: cust_pay.pm,v 1.26 2003-09-10 10:54:46 ivan Exp $
-
=head1 BUGS
Delete and replace methods.