From 1258e167d0c75473e50e840063db6d92eeaf0a80 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Sun, 22 Jul 2007 09:29:49 +0000
Subject: * fixed compatibility problems of our config-files with regards to
 being   executed by shells: there is no whitespace allowed before or after
 the   equal sign in shell-var assignments

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1269 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 bin/slxsettings       | 5 ++++-
 lib/OpenSLX/Basics.pm | 5 ++++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/bin/slxsettings b/bin/slxsettings
index be318bb5..976640ee 100755
--- a/bin/slxsettings
+++ b/bin/slxsettings
@@ -90,7 +90,10 @@ while (scalar @ARGV) {
 # fetch current content of local settings file...
 my $fileName = "$openslxConfig{'config-path'}/settings";
 my $configObj = Config::General->new(
-	-ConfigFile => $fileName, -SplitPolicy => 'equalsign',
+	-ConfigFile     => $fileName, 
+	-SplitDelimiter => '\s*=\s*',
+	-SplitPolicy    => 'custom',
+	-StoreDelimiter => '=',
 );
 my %settings = $configObj->getall();
 
diff --git a/lib/OpenSLX/Basics.pm b/lib/OpenSLX/Basics.pm
index fb7db676..3aebb54e 100644
--- a/lib/OpenSLX/Basics.pm
+++ b/lib/OpenSLX/Basics.pm
@@ -170,7 +170,10 @@ sub openslxInit
 			vlog(0, "reading config-file $f...");
 		}
 		my %config = ParseConfig(
-			-ConfigFile => $f, -AutoTrue => 1, -LowerCaseNames => 1
+			-AutoTrue       => 1, 
+			-ConfigFile     => $f, 
+			-LowerCaseNames => 1,
+			-SplitPolicy    => 'equalsign',
 		);
 		foreach my $key (keys %config) {
 			# N.B.: these config files are used by shell-scripts, too, so in
-- 
cgit v1.2.3-55-g7522