This commit is contained in:
Alexandre Anriot 2005-10-12 07:56:02 +00:00
parent c9c031b712
commit c9f504da9a
2 changed files with 6 additions and 6 deletions

View File

@ -36,7 +36,7 @@ sub Mail() {
# récupération du login correspondant à l'ip
my $sql = "SELECT login FROM users where ip = '".$ip."'";
my $sth = $dbh->prepare($sql);;
my $sth = $dbh->prepare($sql);
$sth->execute();
my $login;

View File

@ -31,7 +31,7 @@ sub Alter() {
if ($action == 1) {
system("/sbin/iptables -I EVOAUTH -s $ip -j ACCEPT 2>/dev/null");
&Evoauth::Functions::Log("[E] Connexion de $ip.") &&
&Evoauth::Functions::Mail("[E] Connexion de", $ip);
&Evoauth::Functions::Mail("[E] Connexion", $ip);
}
# mode vérification
@ -55,7 +55,7 @@ sub Alter() {
$sth->finish();
&Evoauth::Functions::Log("[E] Déconnexion de $ip.") &&
&Evoauth::Functions::Mail("[E] Déconnexion de", $ip);
&Evoauth::Functions::Mail("[E] Déconnexion", $ip);
}
}
@ -91,14 +91,14 @@ sub check_iptables() {
if (defined($statut)) {
if ($statut != 1) {
&Evoauth::Functions::Log("[A] Suppression de $ip.") &&
&Evoauth::Functions::Mail("[A] Suppression de", $ip);
&Evoauth::Functions::Mail("[A] Suppression", $ip);
&Alter(3, $ip);
}
}
else {
&Evoauth::Functions::Log("[A] Suppression de $ip.") &&
&Evoauth::Functions::Mail("[A] Suppression de", $ip);
&Evoauth::Functions::Mail("[A] Suppression", $ip);
&Alter(3, $ip);
}
}
@ -137,7 +137,7 @@ sub check_timestamp() {
# dernière connexion est < 1 min -> suppresion
&Alter(3, $ip);
&Evoauth::Functions::Log("[A] Suppression de $ip.") &&
&Evoauth::Functions::Mail("[A] Suppression de", $ip);
&Evoauth::Functions::Mail("[A] Suppression", $ip);
}
# sinon conservation