$outfwsettings{'PROT'}
$outfwsettings{'SNET'}
| $outfwsettings{'DISPLAY_DIP'}:$outfwsettings{'DISPLAY_DPORT'}
@@ -695,7 +699,8 @@ END
;
my @ipgroups = qx(ls $configpath/ipgroups/);
foreach (sort @ipgroups){
- print "\t\t\t\t\t\n";
+ chomp($_);
+ print "\t\t\t\t\t\n";
}
print <
@@ -704,7 +709,8 @@ END
;
my @macgroups = qx(ls $configpath/macgroups/);
foreach (sort @macgroups){
- print "\t\t\t\t\t\n";
+ chomp($_);
+ print "\t\t\t\t\t\n";
}
print <
@@ -840,4 +846,4 @@ END
}
&Header::closebigbox();
-&Header::closepage();
\ No newline at end of file
+&Header::closepage();
|