\n";
my @iptablesline = split(/ +/,$ipmlines[$i]);
my $offset=0;
if ( $iptablesline[0] eq "" ){
$offset=1;
}
print " | \n ".$iptablesline[0+$offset]." | \n ".$iptablesline[1+$offset]." | \n";
print " ".$iptablesline[2+$offset]." | \n ".$iptablesline[3+$offset]." | \n";
print " ".$iptablesline[4+$offset]." | \n ".&Header::colorize($iptablesline[5+$offset])." | \n";
print " ".&Header::colorize($iptablesline[6+$offset])." | \n";
print " ".&Header::colorize($iptablesline[7+$offset])." | \n";
print " ".&Header::colorize($iptablesline[8+$offset])." | \n ";
for (my $i=9+$offset; $i <= $#iptablesline; $i++){
$string = $iptablesline[$i];
$string =~ s/\s$//gi;
# mangles with marks need to be converted from hex to number to show the correct qos class
if ( $string =~ /^0x/){
$string = hex($string);
}
print " ".$string;
}
print " | \n
\n";
}
print "