redirection des erreurs.
This commit is contained in:
parent
66b5b0f5e7
commit
ca4d94dfa7
|
@ -33,7 +33,7 @@ sub Alter() {
|
||||||
|
|
||||||
# mode ajout
|
# mode ajout
|
||||||
if ($action == 1) {
|
if ($action == 1) {
|
||||||
system("/sbin/iptables -I EVOAUTH -s $ip -j ACCEPT 2&>1") &&
|
system("/sbin/iptables -I EVOAUTH -s $ip -j ACCEPT 2>/dev/null") &&
|
||||||
&Evoauth::Functions::Log("Ajout de $ip aux connectés.") &&
|
&Evoauth::Functions::Log("Ajout de $ip aux connectés.") &&
|
||||||
&Evoauth::Functions::Mail("Connexion", $ip);
|
&Evoauth::Functions::Mail("Connexion", $ip);
|
||||||
}
|
}
|
||||||
|
@ -53,7 +53,7 @@ sub Alter() {
|
||||||
my $sql = qq{ UPDATE users set statut = 0 where ip = '$ip' };
|
my $sql = qq{ UPDATE users set statut = 0 where ip = '$ip' };
|
||||||
my $sth = $dbh->prepare($sql);
|
my $sth = $dbh->prepare($sql);
|
||||||
|
|
||||||
system("/sbin/iptables -D EVOAUTH -s $ip -j ACCEPT 2&>1");
|
system("/sbin/iptables -D EVOAUTH -s $ip -j ACCEPT 2>/dev/null");
|
||||||
|
|
||||||
$sth->execute();
|
$sth->execute();
|
||||||
$sth->finish();
|
$sth->finish();
|
||||||
|
@ -156,20 +156,20 @@ sub Control() {
|
||||||
if ($action == 1) {
|
if ($action == 1) {
|
||||||
while ( ($key, $value) = each(%conf) ) {
|
while ( ($key, $value) = each(%conf) ) {
|
||||||
@tmp1 = split (/\t/, $value);
|
@tmp1 = split (/\t/, $value);
|
||||||
system("/sbin/iptables -t nat -A PREROUTING -p $tmp1[2] -i ppp0 --dport $tmp1[1] -j DNAT --to $tmp1[0]:$tmp1[1] 2&>1");
|
system("/sbin/iptables -t nat -A PREROUTING -p $tmp1[2] -i ppp0 --dport $tmp1[1] -j DNAT --to $tmp1[0]:$tmp1[1] 2>/dev/null");
|
||||||
}
|
}
|
||||||
|
|
||||||
&Evoauth::Functions::Log("1 - Règles de PREROUTING charges");
|
&Evoauth::Functions::Log("1 - Règles de PREROUTING charges");
|
||||||
|
|
||||||
system("/sbin/iptables -N EVOAUTH 2&>1");
|
system("/sbin/iptables -N EVOAUTH 2>/dev/null");
|
||||||
system("/sbin/iptables -A EVOAUTH -j DROP 2&>1");
|
system("/sbin/iptables -A EVOAUTH -j DROP 2>/dev/null");
|
||||||
|
|
||||||
&Evoauth::Functions::Log("2 - Tables crées");
|
&Evoauth::Functions::Log("2 - Tables crées");
|
||||||
|
|
||||||
# chargement des règles du fichier de configuration
|
# chargement des règles du fichier de configuration
|
||||||
while ( ($key, $value) = each(%conf) ) {
|
while ( ($key, $value) = each(%conf) ) {
|
||||||
@tmp2 = split (/\t/, $value);
|
@tmp2 = split (/\t/, $value);
|
||||||
system("/sbin/iptables -A FORWARD -p $tmp2[2] -i ppp0 -o eth0 --dport $tmp2[1] -j EVOAUTH 2&>1");
|
system("/sbin/iptables -A FORWARD -p $tmp2[2] -i ppp0 -o eth0 --dport $tmp2[1] -j EVOAUTH 2>/dev/null");
|
||||||
}
|
}
|
||||||
|
|
||||||
&Evoauth::Functions::Log("3 - Règles chargées");
|
&Evoauth::Functions::Log("3 - Règles chargées");
|
||||||
|
@ -179,18 +179,18 @@ sub Control() {
|
||||||
|
|
||||||
# arret
|
# arret
|
||||||
elsif ($action == 2) {
|
elsif ($action == 2) {
|
||||||
system("/sbin/iptables -F EVOAUTH 2&>1") &&
|
system("/sbin/iptables -F EVOAUTH 2>/dev/null") &&
|
||||||
&Evoauth::Functions::Log("1 - Flush de la table EVOAUTH");
|
&Evoauth::Functions::Log("1 - Flush de la table EVOAUTH");
|
||||||
|
|
||||||
while ( ($key, $value) = each(%conf) ) {
|
while ( ($key, $value) = each(%conf) ) {
|
||||||
my @tmp3 = split (/\t/, $value);
|
my @tmp3 = split (/\t/, $value);
|
||||||
system("/sbin/iptables -D FORWARD -p $tmp3[2] -i ppp0 -o eth0 --dport $tmp3[1] -j EVOAUTH 2&>1");
|
system("/sbin/iptables -D FORWARD -p $tmp3[2] -i ppp0 -o eth0 --dport $tmp3[1] -j EVOAUTH 2>/dev/null");
|
||||||
system("/sbin/iptables -t nat -D PREROUTING -p $tmp3[2] -i ppp0 --dport $tmp3[1] -j DNAT --to $tmp3[0]:$tmp3[1] 2&>1");
|
system("/sbin/iptables -t nat -D PREROUTING -p $tmp3[2] -i ppp0 --dport $tmp3[1] -j DNAT --to $tmp3[0]:$tmp3[1] 2>/dev/null");
|
||||||
}
|
}
|
||||||
|
|
||||||
&Evoauth::Functions::Log("2 - Annulation FORWARD + PREROUTING");
|
&Evoauth::Functions::Log("2 - Annulation FORWARD + PREROUTING");
|
||||||
|
|
||||||
system("/sbin/iptables -X EVOAUTH 2&>1") &&
|
system("/sbin/iptables -X EVOAUTH 2>/dev/null") &&
|
||||||
&Evoauth::Functions::Log("3 - Suppression de la table EVOAUTH");
|
&Evoauth::Functions::Log("3 - Suppression de la table EVOAUTH");
|
||||||
|
|
||||||
&Evoauth::Functions::Log("Evoauth vient de s'arreter.");
|
&Evoauth::Functions::Log("Evoauth vient de s'arreter.");
|
||||||
|
|
Reference in a new issue