From a5a4824be584431805317dbd40a0aa1957bd54bb Mon Sep 17 00:00:00 2001 From: Stephen Hemminger Date: Mon, 24 Nov 2008 15:05:14 -0800 Subject: Change VyattaConfig to Vyatta::Config --- scripts/vyatta-qos.pl | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'scripts') diff --git a/scripts/vyatta-qos.pl b/scripts/vyatta-qos.pl index 9b1253e..10f8610 100755 --- a/scripts/vyatta-qos.pl +++ b/scripts/vyatta-qos.pl @@ -15,7 +15,7 @@ # **** End License **** use lib "/opt/vyatta/share/perl5"; -use VyattaConfig; +use Vyatta::Config; use strict; use Getopt::Long; @@ -86,7 +86,7 @@ sub make_policy { ## list defined qos policy names sub list_policy { my $direction = shift; - my $config = new VyattaConfig; + my $config = new Vyatta::Config; my @nodes = (); $config->setLevel('qos-policy'); @@ -121,7 +121,7 @@ sub delete_interface { # update policy to interface sub update_interface { my ($interface, $direction, $name ) = @_; - my $config = new VyattaConfig; + my $config = new Vyatta::Config; $config->setLevel('qos-policy'); foreach my $type ( $config->listNodes() ) { @@ -222,7 +222,7 @@ my %interfaceVifUsing = ( sub interfaces_using { my ($name) = @_; - my $config = new VyattaConfig; + my $config = new Vyatta::Config; my @affected = (); $config->setLevel('interfaces'); @@ -294,7 +294,7 @@ sub delete_policy { } sub check_conflict { - my $config = new VyattaConfig; + my $config = new Vyatta::Config; my %other = (); $config->setLevel("qos-policy"); @@ -309,14 +309,14 @@ sub check_conflict { sub create_policy { my ($shaper, $name) = @_; - my $config = new VyattaConfig; + my $config = new Vyatta::Config; # Syntax check make_policy($config, $shaper, $name); } sub apply_changes { - my $config = new VyattaConfig; + my $config = new Vyatta::Config; $config->setLevel('qos-policy'); foreach my $policy ($config->listNodes()) { -- cgit v1.2.3