summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--LedgerSMB/Sysconfig.pm13
-rwxr-xr-xLedgerSMB/User.pm1
-rw-r--r--ledger-smb.conf6
3 files changed, 13 insertions, 7 deletions
diff --git a/LedgerSMB/Sysconfig.pm b/LedgerSMB/Sysconfig.pm
index 3023ac79..5b67b690 100644
--- a/LedgerSMB/Sysconfig.pm
+++ b/LedgerSMB/Sysconfig.pm
@@ -39,6 +39,11 @@ $gzip = "gzip -S .gz";
# Path to the translation files
$localepath = 'locale/mo';
+# available printers
+%printer = ( Laser => 'lpr -Plaser',
+ Epson => 'lpr -PEpson',
+ );
+
#################################
# Global database parameters
#################################
@@ -50,5 +55,13 @@ my $globalPassword = "set me to correct password";
#$GLOBALDBH = DBI->connect($globalDBConnect, $globalDBUserName, $globalDBPassword);
+# These lines prevent other apps in mod_perl from seeing the global db
+# connection info
+
+my $globalDBConnect = undef;
+my $globalUserName = undef;
+my $globalPassword = undef;
+
+
1;
diff --git a/LedgerSMB/User.pm b/LedgerSMB/User.pm
index b892eeb3..09b4a533 100755
--- a/LedgerSMB/User.pm
+++ b/LedgerSMB/User.pm
@@ -35,7 +35,6 @@ package User;
use LedgerSMB::Sysconfig;
-
sub new {
my ($type, $memfile, $login) = @_;
my $self = {};
diff --git a/ledger-smb.conf b/ledger-smb.conf
index 995e92fc..7821cf58 100644
--- a/ledger-smb.conf
+++ b/ledger-smb.conf
@@ -1,9 +1,3 @@
-use vars qw($userspath $spool $memberfile $templates $sendmail $language $sid $latex %printer $gzip $GLOBALDBH);
-
-# available printers
-%printer = ( Laser => 'lpr -Plaser',
- Epson => 'lpr -PEpson',
- );
# if the server can't find gzip, latex, dvips or pdflatex, add the path
$ENV{PATH} .= ":/usr/local/bin:/usr/local/pgsql/bin";