summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorStephen Hemminger <stephen.hemminger@vyatta.com>2008-11-21 17:06:58 -0800
committerStephen Hemminger <stephen.hemminger@vyatta.com>2008-11-21 17:06:58 -0800
commitb3ac0fa574fca93abf482ca4712ee9d14aa2f145 (patch)
tree777547b3bf81993e1d82671eb4581ef96d244306 /scripts
parent6a8196d788b6c2c84d6e5848cee328385290cc62 (diff)
downloadvyatta-op-firewall-b3ac0fa574fca93abf482ca4712ee9d14aa2f145.tar.gz
vyatta-op-firewall-b3ac0fa574fca93abf482ca4712ee9d14aa2f145.zip
Convert to Vyatta::
Diffstat (limited to 'scripts')
-rwxr-xr-xscripts/firewall/vyatta-show-firewall.pl14
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") {