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

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 331c809bc..af248a7a8 100644
--- a/FS/FS/cust_bill.pm
+++ b/FS/FS/cust_bill.pm
@@ -36,6 +36,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('business-onlinepayment') ) {
     ( $bop_processor,
       $bop_login,
@@ -1121,7 +1126,7 @@ sub print_text {
 
 =head1 VERSION
 
-$Id: cust_bill.pm,v 1.59 2002-12-23 15:21:55 ivan Exp $
+$Id: cust_bill.pm,v 1.60 2002-12-28 09:16:49 ivan Exp $
 
 =head1 BUGS
 
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 456c965af..9b953eac8 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -62,6 +62,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';