diff --git a/admin/lib/Evoauth/Functions.pm b/admin/lib/Evoauth/Functions.pm index 5d6ebb4..fb50aba 100644 --- a/admin/lib/Evoauth/Functions.pm +++ b/admin/lib/Evoauth/Functions.pm @@ -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; diff --git a/admin/lib/Evoauth/Iptables.pm b/admin/lib/Evoauth/Iptables.pm index d9ab0c3..d43ee9b 100644 --- a/admin/lib/Evoauth/Iptables.pm +++ b/admin/lib/Evoauth/Iptables.pm @@ -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