blob: 2d65029967791956cf5b48f4ab6fc43cb5a42f56 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
#!/usr/bin/perl
# **** License ****
# Version: VPL 1.0
#
# The contents of this file are subject to the Vyatta Public License
# Version 1.0 ("License"); you may not use this file except in
# compliance with the License. You may obtain a copy of the License at
# http://www.vyatta.com/vpl
#
# Software distributed under the License is distributed on an "AS IS"
# basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
# the License for the specific language governing rights and limitations
# under the License.
#
# This code was originally developed by Vyatta, Inc.
# Portions created by Vyatta are Copyright (C) 2006, 2007 Vyatta, Inc.
# All Rights Reserved.
#
# Author: An-Cheng Huang
# Date: 2007
# Description: bash expand script
#
# **** End License ****
use strict;
use lib "/opt/vyatta/share/perl5/";
use VyattaConfig;
# expand a variable reference
if ($#ARGV != 0) {
print STDERR "usage: vyatta-cli-expand-var.pl '<var-ref>'\n";
exit 1;
}
$_ = $ARGV[0];
# basic format check:
# '(' ')' not allowed in reference.
# only allow absolute path for now.
if (!/^\$\(\/([^()]+)\)$/) {
print STDERR "invalid variable reference (invalid format)\n";
exit 1;
}
$_ = $1;
my $multi_val = 1;
if (s/^(.*)\/\@\@$/$1/) {
# return list of multi-node values
$multi_val = 1;
} elsif (s/^(.*)\/\@$/$1/) {
# return single value
$multi_val = 0;
} else {
# only allow the above 2 forms for now.
print STDERR "invalid variable reference (invalid value specification)\n";
exit 1;
}
if (/\@/) {
# '@' not allowed anywhere else in the reference for now.
print STDERR "invalid variable reference (extra value specification)\n";
exit 1;
}
my $config = new VyattaConfig;
my $path_str = join ' ', (split /\//);
my $val_str = "";
if ($multi_val) {
my @tmp = $config->returnOrigValues($path_str);
if (scalar(@tmp) > 0) {
# we got multiple values back
$val_str = join ' ', @tmp;
} else {
# this node may be a 'tag' node. try listing children.
$config->setLevel($path_str);
@tmp = $config->listOrigNodes();
$val_str = join ' ', @tmp;
}
} else {
$val_str = $config->returnOrigValue($path_str);
}
# expanded string is printed on stdout (multiple values separated by ' ').
print "$val_str";
exit 0;
|
