END
;
@@ -475,7 +808,7 @@ if ($outfwsettings{'POLICY'} eq 'MODE1' || $outfwsettings{'POLICY'} eq 'MODE2')
my @defservices = ;
close FILE;
-print "
$Lang::tr{'service'}
$Lang::tr{'description'}
$Lang::tr{'port'}
$Lang::tr{'protocol'}
$Lang::tr{'source net'}
$Lang::tr{'logging'}
";
+print "
$Lang::tr{'service'}
$Lang::tr{'description'}
$Lang::tr{'port'}
$Lang::tr{'protocol'}
$Lang::tr{'source net'}
$Lang::tr{'logging'}
$Lang::tr{'action'}
";
foreach my $serviceline(@defservices)
{
my @service = split(/,/,$serviceline);
@@ -509,3 +842,6 @@ END
&Header::closebox();
}
}
+
+&Header::closebigbox();
+&Header::closepage();
\ No newline at end of file