Changeset 29546 for main/trunk/package-kits/linux/perllib/Greenstone/Config.pm

Timestamp:

2014-12-08T12:19:58+13:00 (9 years ago)

Author:

Jeremy Symon

Message:

Arch package now automatically sets the owner of the web directory to the tomcat user. The functionality is also implemented for the other package managers, but not yet tested.

File:

• main/trunk/package-kits/linux/perllib/Greenstone/Config.pm (modified) (2 diffs)

main/trunk/package-kits/linux/perllib/Greenstone/Config.pm

@@ -4 +4 @@
 use warnings;
 use utf8; 
+use Greenstone::Helpers;
 
 # Formats an array
@@ -31 +32 @@
 }
 
+# Reads a config file into the config hashmap
+sub readconf {
+    my ($self, $conf) = @_;
+    $self->{config} = {} unless exists $self->{config};
+    open CONF, '<', $conf
+        or die "Failed to open '$conf' for reading: $!";
+    my $var;
+    while (my $line = <CONF>) {
+        if (empty $line or comment $line) {
+            $var = undef;
+        } elsif (defined $var and $line =~ /^\s/) {
+            trim $line;
+            $self->subst ($line);
+            escape $line;
+            push @{$self->{config}->{$var}}, $line;
+        } else {
+            ($var, my $val) = trim (split ":", $line, 2);
+            defined $var and defined $val or die "Invalid variable assignment: '$line'";
+            if (empty $val) {
+                $self->{config}->{$var} = [];
+            } else {
+                $self->subst ($val);
+                escape $val;
+                $self->{config}->{$var} = $val;
+            }
+        }
+    }
+    close CONF;
+}
+
 1;