diff options
| -rwxr-xr-x | lib/Vyatta/Config.pm | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/lib/Vyatta/Config.pm b/lib/Vyatta/Config.pm index acd695f..633d747 100755 --- a/lib/Vyatta/Config.pm +++ b/lib/Vyatta/Config.pm @@ -729,6 +729,34 @@ sub parseTmpl { return ($is_multi, $is_text, $default); } +# $cfg_path: config path of the node. +# returns a hash ref containing attributes in the template +# or undef if specified node is not valid. +sub parseTmplAll { + my ($self, $cfg_path) = @_; + my @pdirs = split(/ +/, $cfg_path); + my %ret = (); + my $tpath = $self->getTmplPath(\@pdirs); + return unless $tpath; + return undef if (! -r "$tpath/node.def"); + open(my $tmpl, '<', "$tpath/node.def") or return undef; + foreach (<$tmpl>) { + if (/^multi:/) { + $ret{multi} = 1; + } elsif (/^tag:/) { + $ret{tag} = 1; + } elsif (/^type:\s+(\S+)\s*$/) { + $ret{type} = $1; + } elsif (/^default:\s+(\S+)\s*$/) { + $ret{default} = $1; + } elsif (/^help:\s+(\S.*)$/) { + $ret{help} = $1; + } + } + close($tmpl); + return \%ret; +} + ###### misc functions ###### # compare two value lists and return "deleted" and "added" lists. |