/SL/LxOfficeConf.pm - Annotieren - projekt kivitendo - wissen

| Zweig: | Markierung: | Revision:

kivitendo/SL/LxOfficeConf.pm @ 027ddbda

-b21d42
+package SL::LxOfficeConf;
 use strict;
 use Config::Std;
 use Encode;
 sub read {
-            c599fef2
+  read_config 'config/lx_office.conf.default' => %::lx_office_conf;
-b21d42
+  _decode_recursively(\%::lx_office_conf);
-            c599fef2
+            Moritz Bunkus
   if (-f 'config/lx_office.conf') {
     read_config 'config/lx_office.conf' => my %local_conf;
     _decode_recursively(\%local_conf);
     _flat_merge(\%::lx_office_conf, \%local_conf);
+  }
-b21d42
+            Moritz Bunkus
 sub _decode_recursively {
   my ($obj) = @_;
   while (my ($key, $value) = each %{ $obj }) {
     if (ref($value) eq 'HASH') {
       _decode_recursively($value);
     } else {
       $obj->{$key} = decode('UTF-8', $value);
+    }
+  }
+}
-            c599fef2
+sub _flat_merge {
   my ($dst, $src) = @_;
   while (my ($key, $value) = each %{ $src }) {
     if (!exists $dst->{$key}) {
       $dst->{$key} = $value;
     } else {
       map { $dst->{$key}->{$_} = $value->{$_} } keys %{ $value };
+    }
+  }
+}
-b21d42
+;