This commit is contained in:
Alexandre Anriot 2005-09-15 09:47:10 +00:00
parent 60130dee35
commit 1f7e349ee7

View file

@ -33,8 +33,8 @@ sub Alter() {
# mode ajout
if ($action == 1) {
system("/sbin/iptables -I EVOAUTH -s $ip -j ACCEPT 2>/dev/null") &&
&Evoauth::Functions::Log("Ajout de $ip aux connectés.") &&
system("/sbin/iptables -I EVOAUTH -s $ip -j ACCEPT 2>/dev/null");
&Evoauth::Functions::Log("Ajout de $ip aux connectés.") &&
&Evoauth::Functions::Mail("Connexion", $ip);
}
@ -58,7 +58,7 @@ sub Alter() {
$sth->execute();
$sth->finish();
&Evoauth::Functions::Log("$ip [supprimee]");
&Evoauth::Functions::Log("$ip [supprimée]");
&Evoauth::Functions::Mail("Deconnexion", $ip);
}
}
@ -95,8 +95,8 @@ sub check_iptables() {
# si entrée iptables présente mais statut non connecté, on supprime
if ($statut != 1) {
&Evoauth::Functions::Log("$ip [supprimée]\n");
&Evoauth::Functions::Mail("Suppression", $ip);
&Evoauth::Functions::Log("$ip [supprimée]\n") &&
&Evoauth::Functions::Mail("Suppression", $ip);
&Alter(3, $ip);
}
}
@ -180,8 +180,8 @@ sub Control() {
# arret
elsif ($action == 2) {
system("/sbin/iptables -F EVOAUTH 2>/dev/null") &&
&Evoauth::Functions::Log("1 - Flush de la table EVOAUTH");
system("/sbin/iptables -F EVOAUTH 2>/dev/null");
&Evoauth::Functions::Log("1 - Flush de la table EVOAUTH");
while ( ($key, $value) = each(%conf) ) {
my @tmp3 = split (/\t/, $value);
@ -191,8 +191,8 @@ sub Control() {
&Evoauth::Functions::Log("2 - Annulation FORWARD + PREROUTING");
system("/sbin/iptables -X EVOAUTH 2>/dev/null") &&
&Evoauth::Functions::Log("3 - Suppression de la table EVOAUTH");
system("/sbin/iptables -X EVOAUTH 2>/dev/null");
&Evoauth::Functions::Log("3 - Suppression de la table EVOAUTH");
&Evoauth::Functions::Log("Evoauth vient de s'arreter.");
}