diff options
| author | ivan <ivan> | 2002-12-28 09:16:48 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-12-28 09:16:48 +0000 |
| commit | 38e863aac27a3420bc0da2428cf5067724c14408 (patch) | |
| tree | e017128ea59ee3bc320702e3df557b23ea4e5c48 | |
| parent | 4a7d686c64aa4568cff392bd9900c48e69be3054 (diff) | |
prevent edge-case business-onlinepayment mod_perl leakage in multi-database
installs. ugh.
| -rw-r--r-- | FS/FS/cust_bill.pm | 7 | ||||
| -rw-r--r-- | FS/FS/svc_acct.pm | 3 |
2 files changed, 9 insertions, 1 deletions
diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm index 980ec4e49..afde4338c 100644 --- a/FS/FS/cust_bill.pm +++ b/FS/FS/cust_bill.pm @@ -37,6 +37,11 @@ $FS::UID::callback{'FS::cust_bill'} = sub { $invoice_from = $conf->config('invoice_from'); $smtpmachine = $conf->config('smtpmachine'); + ( $bop_processor,$bop_login, $bop_password, $bop_action ) = ( '', '', '', ''); + @bop_options = (); + ( $ach_processor,$ach_login, $ach_password, $ach_action ) = ( '', '', '', ''); + @ach_options = (); + if ( $conf->exists('cybercash3.2') ) { require CCMckLib3_2; #qw($MCKversion %Config InitConfig CCError CCDebug CCDebug2); @@ -1213,7 +1218,7 @@ sub print_text { =head1 VERSION -$Id: cust_bill.pm,v 1.41.2.18 2002-12-23 15:22:46 ivan Exp $ +$Id: cust_bill.pm,v 1.41.2.19 2002-12-28 09:16:47 ivan Exp $ =head1 BUGS diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm index 39e516bc6..f7a0665de 100644 --- a/FS/FS/svc_acct.pm +++ b/FS/FS/svc_acct.pm @@ -66,6 +66,9 @@ $FS::UID::callback{'FS::svc_acct'} = sub { $welcome_mimetype = $conf->config('welcome_email-mimetype') || 'text/plain'; } else { $welcome_template = ''; + $welcome_from = ''; + $welcome_subject = ''; + $welcome_mimetype = ''; } $smtpmachine = $conf->config('smtpmachine'); $radius_password = $conf->config('radius-password') || 'Password'; |