From 22b2b6ad1409266ca86c6ceb394fb8d1a9a38b8d Mon Sep 17 00:00:00 2001
From: Alexandre Anriot <aanriot@evolix.fr>
Date: Thu, 15 Sep 2005 08:34:48 +0000
Subject: [PATCH] redirection des erreurs.

---
 admin/lib/Evoauth/Iptables.pm | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/admin/lib/Evoauth/Iptables.pm b/admin/lib/Evoauth/Iptables.pm
index e28cd5e..84c71d4 100644
--- a/admin/lib/Evoauth/Iptables.pm
+++ b/admin/lib/Evoauth/Iptables.pm
@@ -33,7 +33,7 @@ sub Alter() {
 
 	# mode ajout
 	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::Mail("Connexion", $ip);
 	}
@@ -53,7 +53,7 @@ sub Alter() {
 		my $sql = qq{ UPDATE users set statut = 0 where ip = '$ip' };
 		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->finish();
@@ -156,20 +156,20 @@ sub Control() {
 	if ($action == 1) {
 		while ( ($key, $value) = each(%conf) ) {
 			@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");
 
-		system("/sbin/iptables -N EVOAUTH 2&>1");
-		system("/sbin/iptables -A EVOAUTH -j DROP 2&>1");
+		system("/sbin/iptables -N EVOAUTH 2>/dev/null");
+		system("/sbin/iptables -A EVOAUTH -j DROP 2>/dev/null");
 
 		&Evoauth::Functions::Log("2 - Tables crées");
 
 		# chargement des règles du fichier de configuration
 		while ( ($key, $value) = each(%conf) ) {	
 			@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");
@@ -179,18 +179,18 @@ sub Control() {
 
 	# arret
 	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");
 
 		while ( ($key, $value) = each(%conf) ) {
 			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 -t nat -D PREROUTING -p $tmp3[2] -i ppp0 --dport $tmp3[1] -j DNAT --to $tmp3[0]:$tmp3[1] 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>/dev/null");
 		}
 
 		&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("Evoauth vient de s'arreter.");