-f option
This commit is contained in:
parent
e81c1b1bc2
commit
b743807fb2
|
@ -13,9 +13,16 @@ sub config( $ ) {
|
|||
# config(var)
|
||||
# returns config value
|
||||
|
||||
my $file = "$Bin/config.yml";
|
||||
for (0..$#ARGV) {
|
||||
if ($ARGV[$_] eq "-f") {
|
||||
$file = $ARGV[$_+1];
|
||||
}
|
||||
}
|
||||
|
||||
my $var = shift;
|
||||
|
||||
my $yaml = YAML::Tiny->read( "$Bin/config.yml" );
|
||||
my $yaml = YAML::Tiny->read( $file );
|
||||
return $yaml->[0]->{$var};
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue