|
package SL::LxOfficeConf;
|
|
|
|
use strict;
|
|
|
|
use Config::Std;
|
|
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;
|
|
_decode_recursively(\%::lx_office_conf);
|
|
}
|
|
|
|
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);
|
|
}
|
|
}
|
|
}
|
|
|
|
1;
|