END
;
}
print <
END
;
}
}
print <
END
;
}
&Header::closebox();
}
if ($outfwsettings{'POLICY'} ne 'MODE0'){
open( FILE, "< $p2pfile" ) or die "Unable to read $p2pfile";
@p2ps = ;
close FILE;
&Header::openbox('100%', 'center', 'P2P-Block');
print <
Protokoll
Status
END
;
my $id = 1;
foreach $p2pentry (sort @p2ps)
{
@p2pline = split( /\;/, $p2pentry );
print <
END
;
print "\t\t\t
\n";
print <$p2pline[0]:
END
;
if ($p2pline[2] eq 'on') {
print <
END
;
} else {
print <
END
;
}
print <
END
;
}
print < Klicken Sie auf die Symbole um das entsprechende iptables P2P-Blockmodul zu (de-)aktivieren.
END
;
&Header::closebox();
}
&Header::openbox('100%', 'center', 'Policy');
print <
Modus 0:
In diesem Modus ist es allen Rechnern im Netzwerk uneingeschraenkt moeglich Verbindungen ins Internet aufzubauen.
Modus 1:
In diesem Modus werden nur Verbindungen nach den oben definierten Regeln zugelassen.
Modus 2:
In diesem Modus werden saemtliche Verbindungen erlaubt, bis auf die oben definierten Block-Regeln.
END
;
if ($outfwsettings{'POLICY'} ne 'MODE0') {
print <
END
;
}
print <
END
;
&Header::closebox();
&Header::closebigbox();
&Header::closepage();
############################################################################################################################
############################################################################################################################
sub addrule
{
&Header::openbox('100%', 'center', 'Rules hinzufuegen');
if ($outfwsettings{'EDIT'} eq 'no') { $selected{'ENABLED'} = 'checked'; }
print <
Anmerkung:
Aktiviert:
Protokoll:
Sicherheitspolitik:
END
;
if ($outfwsettings{'POLICY'} eq 'MODE1'){
print "\t\t\tALLOW\n";
} elsif ($outfwsettings{'POLICY'} eq 'MODE2'){
print "\t\t\tDENY\n";
}
print <
Quellnetz:
END
;
&Header::closebox();
if ($outfwsettings{'POLICY'} eq 'MODE1' || $outfwsettings{'POLICY'} eq 'MODE2')
{
&Header::openbox('100%', 'center', 'Quick Add');
open( FILE, "< /var/ipfire/outgoing/defaultservices" ) or die "Unable to read default services";
my @defservices = ;
close FILE;
print "
$Lang::tr{'service'}
$Lang::tr{'description'}
$Lang::tr{'port'}
$Lang::tr{'protocol'}
$Lang::tr{'source net'}
$Lang::tr{'logging'}
";
foreach my $serviceline(@defservices)
{
my @service = split(/,/,$serviceline);
print <";}
}
print "