evolix/evoauth
Archived
21
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

oops.

Browse source
This commit is contained in:
Alexandre Anriot 2005-09-28 14:13:47 +00:00
parent 05e1a9c016
commit bcc8f54dfc
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
admin/lib/Evoauth/Iptables.pm
View file

@ -30,7 +30,7 @@ sub Alter() {
# mode ajout
if ($action == 1) {
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);
}
@ -63,7 +63,7 @@ sub Alter() {
sub check_iptables() {
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
system("/sbin/iptables -L EVOAUTH -n | grep ACCEPT | awk '{ print \$4 }' > /tmp/ips.txt");
@ -105,7 +105,7 @@ sub check_iptables() {
}
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
my $dbh = DBI->connect( $db, $username, $userpass ) ||