\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 "