From 7d03eebb5f18086cf58077bd6a0bce808e62f7e7 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Fri, 23 Aug 2002 08:29:59 +0000
Subject: [PATCH] Added a Perl module for parsing options and configuration.

---
 lib/perl/Config.pm | 39 +++++++++++++++++++++++++++++++++++++++
 lib/perl/Makefile  |  4 ++++
 2 files changed, 43 insertions(+)
 create mode 100644 lib/perl/Config.pm
 create mode 100644 lib/perl/Makefile

diff --git a/lib/perl/Config.pm b/lib/perl/Config.pm
new file mode 100644
index 00000000..bf013b73
--- /dev/null
+++ b/lib/perl/Config.pm
@@ -0,0 +1,39 @@
+# Perl module for parsing Sherlock configuration files (using the config utility)
+# (c) 2002 Martin Mares <mj@ucw.cz>
+
+package Sherlock::Config;
+
+use strict;
+use warnings;
+use Getopt::Long;
+
+our %Sections = ();
+
+sub Parse(@) {
+	my @options = @_;
+	my $defargs = "";
+	push @options, "config|C=s" => sub { my ($o,$a)=@_; $defargs .= " -C'$a'"; };
+	push @options, "set|S=s" => sub { my ($o,$a)=@_; $defargs .= " -S'$a'"; };
+	Getopt::Long::GetOptions(@options) or return 0;
+	foreach my $section (keys %Sections) {
+		my $opts = $Sections{$section};
+		my $optlist = join(" ", 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};
+			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");
+			}
+		}
+	}
+	1;
+}
+
+1;  # OK
diff --git a/lib/perl/Makefile b/lib/perl/Makefile
new file mode 100644
index 00000000..580319ab
--- /dev/null
+++ b/lib/perl/Makefile
@@ -0,0 +1,4 @@
+# Perl modules
+
+DIRS+=lib/perl
+PROGS+=obj/lib/perl/Config.pm
-- 
2.39.2