X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=lib%2Fperl%2FConfig.pm;h=552690caccea76fa85eeb8feb2a1dfff67125e4a;hb=35257848f97710b8107e20f690404cfaf0838f74;hp=bf013b731d6eb9a4087780ffee2c204b20b0d8af;hpb=7d03eebb5f18086cf58077bd6a0bce808e62f7e7;p=libucw.git

diff --git a/lib/perl/Config.pm b/lib/perl/Config.pm
index bf013b73..552690ca 100644
--- a/lib/perl/Config.pm
+++ b/lib/perl/Config.pm
@@ -1,7 +1,11 @@
-# Perl module for parsing Sherlock configuration files (using the config utility)
-# (c) 2002 Martin Mares <mj@ucw.cz>
+#	Perl module for parsing Sherlock configuration files (using the config utility)
+#
+#	(c) 2002--2005 Martin Mares <mj@ucw.cz>
+#
+#	This software may be freely distributed and used according to the terms
+#	of the GNU Lesser General Public License.
 
-package Sherlock::Config;
+package UCW::Config;
 
 use strict;
 use warnings;
@@ -9,27 +13,38 @@ use Getopt::Long;
 
 our %Sections = ();
 
+our $DefaultConfigFile = "";
+our $Usage = "-C, --config filename   Override the default configuration file
+-S, --set sec.item=val  Manual setting of a configuration item";
+
+
 sub Parse(@) {
 	my @options = @_;
 	my $defargs = "";
-	push @options, "config|C=s" => sub { my ($o,$a)=@_; $defargs .= " -C'$a'"; };
+	my $override_config = 0;
+	push @options, "config|C=s" => sub { my ($o,$a)=@_; $defargs .= " -C'$a'"; $override_config=1; };
 	push @options, "set|S=s" => sub { my ($o,$a)=@_; $defargs .= " -S'$a'"; };
+	Getopt::Long::Configure("bundling");
 	Getopt::Long::GetOptions(@options) or return 0;
+	if (!$override_config && $DefaultConfigFile) {
+		$defargs = "-C'$DefaultConfigFile' $defargs";
+	}
 	foreach my $section (keys %Sections) {
 		my $opts = $Sections{$section};
-		my $optlist = join(" ", keys %$opts);
-		my @l = `bin/config $defargs $section $optlist`;
+		my $optlist = join(";", keys %$opts);
+		my %filtered_opts = map { my $t=$_; $t=~s/[#\$]+$//; $t => $$opts{$_} } keys %$opts;
+		my @l = `bin/config $defargs "$section\{$optlist\}"`;
 		$? && exit 1;
 		foreach my $o (@l) {
-			$o =~ /^CF_([^=]+)="(.*)"\n$/ or die "Cannot parse bin/config output: $_";
-			my $var = $$opts{$1};
+			$o =~ /^CF_.*_([^=]+)='(.*)'\n$/ or die "Cannot parse bin/config output: $_";
+			my $var = $filtered_opts{$1};
 			my $val = $2;
 			if (ref $var eq "SCALAR") {
 				$$var = $val;
 			} elsif (ref $var eq "ARRAY") {
 				push @$var, $val;
 			} elsif (ref $var) {
-				die ("Sherlock::Config::Parse: don't know how to set $o");
+				die ("UCW::Config::Parse: don't know how to set $o");
 			}
 		}
 	}