diff options
author | Stephen Hemminger <stephen.hemminger@vyatta.com> | 2008-11-24 15:05:14 -0800 |
---|---|---|
committer | Stephen Hemminger <stephen.hemminger@vyatta.com> | 2008-11-24 15:05:14 -0800 |
commit | a5a4824be584431805317dbd40a0aa1957bd54bb (patch) | |
tree | 6f8461d39820b7f4291536cfd6b5dd0b0960c05c /scripts/vyatta-qos.pl | |
parent | 1962b4d7d72833479789d29622ef5ce2c2f4662f (diff) | |
download | vyatta-cfg-qos-a5a4824be584431805317dbd40a0aa1957bd54bb.tar.gz vyatta-cfg-qos-a5a4824be584431805317dbd40a0aa1957bd54bb.zip |
Change VyattaConfig to Vyatta::Config
Diffstat (limited to 'scripts/vyatta-qos.pl')
-rwxr-xr-x | scripts/vyatta-qos.pl | 14 |
1 files changed, 7 insertions, 7 deletions
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()) { |