projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
89966e5
)
buglet in email invoices fixed
author
ivan
<ivan>
Mon, 29 Mar 1999 12:06:15 +0000
(12:06 +0000)
committer
ivan
<ivan>
Mon, 29 Mar 1999 12:06:15 +0000
(12:06 +0000)
site_perl/cust_main.pm
patch
|
blob
|
history
diff --git
a/site_perl/cust_main.pm
b/site_perl/cust_main.pm
index
2002f7a
..
842d522
100644
(file)
--- a/
site_perl/cust_main.pm
+++ b/
site_perl/cust_main.pm
@@
-5,7
+5,8
@@
use vars qw($paymentserversecret $paymentserverport $paymentserverhost);
package FS::cust_main;
use strict;
package FS::cust_main;
use strict;
-use vars qw(@ISA $conf $lpr $processor $xaction $E_NoErr $invoice_from);
+use vars qw( @ISA $conf $lpr $processor $xaction $E_NoErr $invoice_from
+ $smtpmachine );
use Safe;
use Carp;
use Time::Local;
use Safe;
use Carp;
use Time::Local;
@@
-34,6
+35,7
@@
$FS::UID::callback{'FS::cust_main'} = sub {
$conf = new FS::Conf;
$lpr = $conf->config('lpr');
$invoice_from = $conf->config('invoice_from');
$conf = new FS::Conf;
$lpr = $conf->config('lpr');
$invoice_from = $conf->config('invoice_from');
+ $smtpmachine = $conf->config('smtpmachine');
if ( $conf->exists('cybercash3.2') ) {
require CCMckLib3_2;
if ( $conf->exists('cybercash3.2') ) {
require CCMckLib3_2;
@@
-591,6
+593,8
@@
sub collect {
#my @print_text = $cust_bill->print_text; #( date )
my @invoicing_list = $self->invoicing_list;
if ( grep { $_ ne 'POST' } @invoicing_list ) { #email invoice
#my @print_text = $cust_bill->print_text; #( date )
my @invoicing_list = $self->invoicing_list;
if ( grep { $_ ne 'POST' } @invoicing_list ) { #email invoice
+ $ENV{SMTPHOSTS} = $smtpmachine;
+ $ENV{MAILADDRESS} = $invoice_from;
my $header = new Mail::Header ( [
"From: $invoice_from",
"To: ". join(', ', grep { $_ ne 'POST' } @invoicing_list ),
my $header = new Mail::Header ( [
"From: $invoice_from",
"To: ". join(', ', grep { $_ ne 'POST' } @invoicing_list ),
@@
-863,7
+867,7
@@
sub check_invoicing_list {
=head1 VERSION
=head1 VERSION
-$Id: cust_main.pm,v 1.1
3 1999-02-28 20:09:03
ivan Exp $
+$Id: cust_main.pm,v 1.1
4 1999-03-29 12:06:15
ivan Exp $
=head1 BUGS
=head1 BUGS
@@
-919,7
+923,10
@@
enable cybercash, cybercash v3 support, don't need to import
FS::UID::{datasrc,checkruid} ivan@sisd.com 98-sep-19-21
$Log: cust_main.pm,v $
FS::UID::{datasrc,checkruid} ivan@sisd.com 98-sep-19-21
$Log: cust_main.pm,v $
-Revision 1.13 1999-02-28 20:09:03 ivan
+Revision 1.14 1999-03-29 12:06:15 ivan
+buglet in email invoices fixed
+
+Revision 1.13 1999/02/28 20:09:03 ivan
allow spaces in zip codes, for (at least) canada. pointed out by
Clayton Gray <clgray@bcgroup.net>
allow spaces in zip codes, for (at least) canada. pointed out by
Clayton Gray <clgray@bcgroup.net>