[Dominicanrepublic-pm] IPTABLES

[Rafael George <Colaborador Linux.Org.Do>]

#!/usr/bin/perl -lw
#Titulo: Este script nos da el status de todas las cadenas con iptables
#Autor: Rafael George
#Fecha: 26/4/03
#Comentarios: Ninguno, tiene que ser ejecutado como root
#Estado: Sin terminar, perl golf

use strict;

my @fw = split(/ /, `whereis iptables`);

print "IPTABLES.Mangling: ";
print `$fw[1] -t mangle -V -L -n --line-numbers`;
print "IPTABLES.Nat: ";
print `$fw[1] -t nat -v -L -n --line-numbers`;
print "IPTABLES.Filter: ";
print `iptables -v -L -n --line-numbers`;