Revision c599fef2
Von Moritz Bunkus vor etwa 14 Jahren hinzugefügt
| SL/LxOfficeConf.pm | ||
|---|---|---|
|
use Encode;
|
||
|
|
||
|
sub read {
|
||
|
my $file = -f 'config/lx_office.conf' ? 'config/lx_office.conf' : 'config/lx_office.conf.default';
|
||
|
read_config $file => %::lx_office_conf;
|
||
|
read_config 'config/lx_office.conf.default' => %::lx_office_conf;
|
||
|
_decode_recursively(\%::lx_office_conf);
|
||
|
|
||
|
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);
|
||
|
}
|
||
|
}
|
||
|
|
||
|
sub _decode_recursively {
|
||
| ... | ... | |
|
}
|
||
|
}
|
||
|
|
||
|
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 };
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
1;
|
||
Auch abrufbar als: Unified diff
Konfigurationsdatei config/lx_office.conf.default immer einlesen; Daten aus config/lx_office.conf reinmergen