Replace Config::Any with YAML::Tiny

This commit is contained in:
Daniel Berteaud 2019-03-25 21:39:41 +01:00
parent 9035410106
commit 8293c3ec4e
1 changed files with 6 additions and 2 deletions

View File

@ -8,14 +8,18 @@ use Encode qw(encode);
use Data::Dumper;
use Compress::Zlib;
use Getopt::Long;
use Config::Any;
use YAML::Tiny;
my $config = '/etc/systemd/journal-gelf.yml';
my $conf = {};
if (-e $config) {
print "Reading config file $config\n";
$conf = Config::Any->load_files( { files => [ $config ], flatten_to_hash => 1, use_ext => 1 } )->{$config};
my $yaml = YAML::Tiny->read( $config ) or die "Config file $config is invalid\n";
if (not $yaml->[0]) {
die "Config file $config is invalid\n"
}
$conf = $yaml->[0];
}
GetOptions (