From: ivan <ivan>
Date: Sat, 28 Dec 2002 09:16:48 +0000 (+0000)
Subject: prevent edge-case business-onlinepayment mod_perl leakage in multi-database
X-Git-Tag: freeside_1_4_1beta7~18
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=38e863aac27a3420bc0da2428cf5067724c14408;hp=4a7d686c64aa4568cff392bd9900c48e69be3054;p=freeside.git

prevent edge-case business-onlinepayment mod_perl leakage in multi-database
installs.  ugh.
---

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';