oops.
This commit is contained in:
parent
ee41737293
commit
b24339acd9
|
@ -30,7 +30,7 @@ sub Alter() {
|
||||||
# mode ajout
|
# mode ajout
|
||||||
if ($action == 1) {
|
if ($action == 1) {
|
||||||
system("/sbin/iptables -I EVOAUTH -s $ip -j ACCEPT 2>/dev/null");
|
system("/sbin/iptables -I EVOAUTH -s $ip -j ACCEPT 2>/dev/null");
|
||||||
Evoauth::Functions::Log("[E] Connexion de $ip.") &&
|
&Evoauth::Functions::Log("[E] Connexion de $ip.") &&
|
||||||
&Evoauth::Functions::Mail("[E] Connexion de", $ip);
|
&Evoauth::Functions::Mail("[E] Connexion de", $ip);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -63,7 +63,7 @@ sub Alter() {
|
||||||
sub check_iptables() {
|
sub check_iptables() {
|
||||||
my ($ip, @ips);
|
my ($ip, @ips);
|
||||||
|
|
||||||
&Evoauth::Functions::Log("[A] Vérification des règles Iptables.");
|
&Evoauth::Functions::Log("[C] Vérification des règles Iptables.");
|
||||||
|
|
||||||
# obtention de la liste des ips
|
# obtention de la liste des ips
|
||||||
system("/sbin/iptables -L EVOAUTH -n | grep ACCEPT | awk '{ print \$4 }' > /tmp/ips.txt");
|
system("/sbin/iptables -L EVOAUTH -n | grep ACCEPT | awk '{ print \$4 }' > /tmp/ips.txt");
|
||||||
|
@ -105,7 +105,7 @@ sub check_iptables() {
|
||||||
}
|
}
|
||||||
|
|
||||||
sub check_timestamp() {
|
sub check_timestamp() {
|
||||||
&Evoauth::Functions::Log("[A] Vérification des états de connexion.");
|
&Evoauth::Functions::Log("[C] Vérification des états de connexion.");
|
||||||
|
|
||||||
# on travaille sur tous les utilisateurs présents
|
# on travaille sur tous les utilisateurs présents
|
||||||
my $dbh = DBI->connect( $db, $username, $userpass ) ||
|
my $dbh = DBI->connect( $db, $username, $userpass ) ||
|
||||||
|
|
Reference in a new issue