summaryrefslogtreecommitdiff
path: root/scripts/policy/vyatta-policy.pl
diff options
context:
space:
mode:
authorStephen Hemminger <stephen.hemminger@vyatta.com>2008-11-21 17:05:20 -0800
committerStephen Hemminger <stephen.hemminger@vyatta.com>2008-11-21 17:05:20 -0800
commitea203872157e4b025f92999fe0c172df86ca0e55 (patch)
tree0549ec8122ab6c2b801e8fae3dc0d86d469a2052 /scripts/policy/vyatta-policy.pl
parent1e94772e482da91f3cd6c704563886a860d311fe (diff)
downloadvyatta-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-xscripts/policy/vyatta-policy.pl14
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) {