X-Git-Url: http://git.ipfire.org/?p=people%2Fpmueller%2Fipfire-2.x.git;a=blobdiff_plain;f=html%2Fcgi-bin%2Foutgoingfw.cgi;h=e8cef70030e829727598066b37ea39e203cb6d17;hp=f24ce1aa07b2117fcd0013134e3fff3d08e6bc31;hb=f2fdd0c1e9a3ccf539cd477a6111281eadc200a7;hpb=4b4aec3a3d388d87c5279e90b299a0af1e68d649 diff --git a/html/cgi-bin/outgoingfw.cgi b/html/cgi-bin/outgoingfw.cgi index f24ce1aa07..e8cef70030 100644 --- a/html/cgi-bin/outgoingfw.cgi +++ b/html/cgi-bin/outgoingfw.cgi @@ -30,7 +30,12 @@ my @p2pline = (); my $configfile = "/var/ipfire/outgoing/rules"; my $p2pfile = "/var/ipfire/outgoing/p2protocols"; -my $servicefile = "/var/ipfire/outgoing/defaultservices" +my $servicefile = "/var/ipfire/outgoing/defaultservices"; + +my %color = (); +my %mainsettings = (); +&General::readhash("${General::swroot}/main/settings", \%mainsettings); +&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color); &General::readhash("${General::swroot}/ethernet/settings", \%netsettings); @@ -213,13 +218,13 @@ END print < - - + \n"; - } - else { - print "\t\t\t\n"; - } - $id++; - print <\n"; + print <$p2pline[0]:
Protokoll - Netzwerk - Ziel - Anmerkung - Politik - Aktionen +
Protokoll + Netzwerk + Ziel + Anmerkung + Politik + Aktionen END ; foreach $configentry (sort @configs) @@ -240,7 +245,7 @@ END if ($outfwsettings{'STATE'} eq 'ALLOW'){ $outfwsettings{'DISPLAY_STATE'} = "ALLOW"; } if ((($outfwsettings{'POLICY'} eq 'MODE1') && ($outfwsettings{'STATE'} eq 'ALLOW')) || (($outfwsettings{'POLICY'} eq 'MODE2') && ($outfwsettings{'STATE'} eq 'DENY'))){ print < +
$outfwsettings{'PROT'} $outfwsettings{'SNET'} $outfwsettings{'DISPLAY_DIP'}:$outfwsettings{'DISPLAY_DPORT'} @@ -310,7 +315,7 @@ if ($outfwsettings{'POLICY'} eq 'MODE2'){ &Header::openbox('100%', 'center', 'P2P-Block'); print < -
Protokoll +
Protokoll Status END ; @@ -322,14 +327,8 @@ END
END ; - if ($id % 2) { - print "\t\t\t
END @@ -455,7 +454,7 @@ if ($outfwsettings{'POLICY'} eq 'MODE1') my @defservices = ; close FILE; -print ""; +print "
$Lang::tr{'service'}$Lang::tr{'description'}$Lang::tr{'port'}$Lang::tr{'protocol'}$Lang::tr{'source net'}
"; foreach my $serviceline(@defservices) { my @service = split(/,/,$serviceline);
$Lang::tr{'service'}$Lang::tr{'description'}$Lang::tr{'port'}$Lang::tr{'protocol'}$Lang::tr{'source net'}