diff options
author | Stephen Hemminger <stephen.hemminger@vyatta.com> | 2008-11-21 17:05:20 -0800 |
---|---|---|
committer | Stephen Hemminger <stephen.hemminger@vyatta.com> | 2008-11-21 17:05:20 -0800 |
commit | ea203872157e4b025f92999fe0c172df86ca0e55 (patch) | |
tree | 0549ec8122ab6c2b801e8fae3dc0d86d469a2052 /scripts/policy/vyatta-policy.pl | |
parent | 1e94772e482da91f3cd6c704563886a860d311fe (diff) | |
download | vyatta-cfg-quagga-ea203872157e4b025f92999fe0c172df86ca0e55.tar.gz vyatta-cfg-quagga-ea203872157e4b025f92999fe0c172df86ca0e55.zip |
Convert to new Vyatta::Config hierarchy
Diffstat (limited to 'scripts/policy/vyatta-policy.pl')
-rwxr-xr-x | scripts/policy/vyatta-policy.pl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/scripts/policy/vyatta-policy.pl b/scripts/policy/vyatta-policy.pl index 8fd94843..4a1ea4d8 100755 --- a/scripts/policy/vyatta-policy.pl +++ b/scripts/policy/vyatta-policy.pl @@ -1,7 +1,7 @@ #!/usr/bin/perl use lib "/opt/vyatta/share/perl5/"; -use VyattaConfig; -use VyattaMisc; +use Vyatta::Config; +use Vyatta::Misc; use Getopt::Long; my $VTYSH='/usr/bin/vyatta-vtysh'; @@ -47,7 +47,7 @@ sub is_community_list { sub update_community_list() { my $num = shift; - my $config = new VyattaConfig; + my $config = new Vyatta::Config; my @rules = (); my $rule; @@ -97,7 +97,7 @@ sub is_as_path_list { sub update_as_path() { my $word = shift; - my $config = new VyattaConfig; + my $config = new Vyatta::Config; my @rules = (); my $rule; @@ -147,7 +147,7 @@ sub is_access_list { sub update_access_list() { my $list = shift; - my $config = new VyattaConfig; + my $config = new Vyatta::Config; my @rules = (); my $rule; @@ -221,7 +221,7 @@ sub update_access_list() { # $1 = policy route-map <name> rule <num> action sub check_routemap_action() { my $routemap = shift; - my $config = new VyattaConfig; + my $config = new Vyatta::Config; my $action = $config->setLevel("$routemap"); my $origvalue = $config->returnOrigValue(); @@ -241,7 +241,7 @@ sub check_routemap_action() { # $1 = policy route-map <name> rule <num> sub check_delete_routemap_action() { my $routemap = shift; - my $config = new VyattaConfig; + my $config = new Vyatta::Config; my @nodes = $config->listNodes("$routemap"); if (defined @nodes) { |