diff options
author | Stephen Hemminger <stephen.hemminger@vyatta.com> | 2008-11-21 17:06:58 -0800 |
---|---|---|
committer | Stephen Hemminger <stephen.hemminger@vyatta.com> | 2008-11-21 17:06:58 -0800 |
commit | b3ac0fa574fca93abf482ca4712ee9d14aa2f145 (patch) | |
tree | 777547b3bf81993e1d82671eb4581ef96d244306 | |
parent | 6a8196d788b6c2c84d6e5848cee328385290cc62 (diff) | |
download | vyatta-op-firewall-b3ac0fa574fca93abf482ca4712ee9d14aa2f145.tar.gz vyatta-op-firewall-b3ac0fa574fca93abf482ca4712ee9d14aa2f145.zip |
Convert to Vyatta::
-rwxr-xr-x | scripts/firewall/vyatta-show-firewall.pl | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/scripts/firewall/vyatta-show-firewall.pl b/scripts/firewall/vyatta-show-firewall.pl index 763cdeb..08d0345 100755 --- a/scripts/firewall/vyatta-show-firewall.pl +++ b/scripts/firewall/vyatta-show-firewall.pl @@ -1,9 +1,9 @@ #!/usr/bin/perl use lib "/opt/vyatta/share/perl5/"; -use VyattaConfig; -use VyattaIpTablesRule; -use VyattaIpTablesAddressFilter; +use Vyatta::Config; +use Vyatta::IpTables::Rule; +use Vyatta::IpTables::AddressFilter; exit 1 if ($#ARGV < 1); my $chain_name = $ARGV[0]; @@ -84,7 +84,7 @@ sub show_chain { close $iptables; print $fh "<opcommand name='firewallrules'><format type='row'>\n"; - my $config = new VyattaConfig; + my $config = new Vyatta::Config; $config->setLevel("firewall name $chain rule"); my @rules = sort numerically $config->listOrigNodes(); foreach (@rules) { @@ -95,7 +95,7 @@ sub show_chain { # instead of just taking the first pair. my $pkts = shift @stats; my $bytes = shift @stats; - my $rule = new VyattaIpTablesRule; + my $rule = new Vyatta::IpTables::Rule; $rule->setupOrig("firewall name $chain rule $_"); my $ipt_rules = $rule->get_num_ipt_rules(); splice(@stats, 0, (($ipt_rules - 1) * 2)); @@ -118,7 +118,7 @@ sub show_chain { my $bytes = shift @stats; print $fh " <pkts>$pkts</pkts>\n"; print $fh " <bytes>$bytes</bytes>\n"; - my $rule = new VyattaIpTablesRule; + my $rule = new Vyatta::IpTables::sRule; $rule->setupDummy(); $rule->outputXml($fh); print $fh " </row>\n"; @@ -126,7 +126,7 @@ sub show_chain { print $fh "</format></opcommand>\n"; } -my $config = new VyattaConfig; +my $config = new Vyatta::Config; $config->setLevel("firewall name"); my @chains = $config->listOrigNodes(); if ($chain_name eq "-all") { |