kivitendo/SL/LxOfficeConf.pm @ af281b3c
| 67b21d42 | Moritz Bunkus | package SL::LxOfficeConf;
|
||
use strict;
|
||||
use Config::Std;
|
||||
use Encode;
|
||||
sub read {
|
||||
| 28e11d24 | Moritz Bunkus | my ($class, $file_name) = @_;
|
||
| c599fef2 | Moritz Bunkus | read_config 'config/lx_office.conf.default' => %::lx_office_conf;
|
||
| 67b21d42 | Moritz Bunkus | _decode_recursively(\%::lx_office_conf);
|
||
| c599fef2 | Moritz Bunkus | |||
| 28e11d24 | Moritz Bunkus | $file_name ||= 'config/lx_office.conf';
|
||
if (-f $file_name) {
|
||||
read_config $file_name => my %local_conf;
|
||||
| c599fef2 | Moritz Bunkus | _decode_recursively(\%local_conf);
|
||
_flat_merge(\%::lx_office_conf, \%local_conf);
|
||||
}
|
||||
| 67b21d42 | 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 | Moritz Bunkus | 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 };
|
||||
}
|
||||
}
|
||||
}
|
||||
| 67b21d42 | Moritz Bunkus | 1;
|