From c423f1b4bdad5f4dea96c27f998215ca18745f6f Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 28 Dec 2002 09:16:49 +0000
Subject: [PATCH] prevent edge-case business-onlinepayment mod_perl leakage in
 multi-database installs.  ugh.

---
 FS/FS/cust_bill.pm | 7 ++++++-
 FS/FS/svc_acct.pm  | 3 +++
 2 files changed, 9 insertions(+), 1 deletion(-)

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