ambiser
/
btrbk
mirror of https://github.com/digint/btrbk
9
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

btrbk: add match argument in config_key

pull/459/head
Axel Burri 2022-02-06 16:09:32 +01:00
parent e6ed21343c
commit 68d5fe3f55
1 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
btrbk
View File

@ -3900,24 +3900,35 @@ sub check_url($;@)
} }
sub config_key($$) sub config_key($$;$)
{ {
my $config = shift || die; my $config = shift || die;
my $key = shift || die; my $key = shift || die;
my $match = shift;
$config = $config->{CONFIG} if($config->{CONFIG}); # accept vinfo for $config $config = $config->{CONFIG} if($config->{CONFIG}); # accept vinfo for $config
my $val;
if(exists($config_override{$key})) { if(exists($config_override{$key})) {
TRACE "config_key: OVERRIDE key=$key to value=" . ($config_override{$key} // "<undef>") if($do_trace); TRACE "config_key: OVERRIDE key=$key to value=" . ($config_override{$key} // "<undef>") if($do_trace);
return $config_override{$key}; $val = $config_override{$key};
} }
else {
while(not exists($config->{$key})) { while(not exists($config->{$key})) {
# note: while all config keys exist in "meta" context (at least with default values), # note: while all config keys exist in "meta" context (at least with default values),
# we also allow fake configs (CONTEXT="cmdline") which have no PARENT. # we also allow fake configs (CONTEXT="cmdline") which have no PARENT.
return undef unless($config->{PARENT}); return undef unless($config->{PARENT});
$config = $config->{PARENT}; $config = $config->{PARENT};
} }
return $config->{$key}; $val = $config->{$key};
}
return undef unless defined($val);
return $val unless defined($match);
if(ref($val) eq "ARRAY") {
return grep(/^$match$/, @$val) ? $match : undef;
} else {
return ($val eq $match) ? $match : undef;
}
} }