diff --git a/admin/lib/Evoauth/Iptables.pm b/admin/lib/Evoauth/Iptables.pm index e47117b..0244a43 100644 --- a/admin/lib/Evoauth/Iptables.pm +++ b/admin/lib/Evoauth/Iptables.pm @@ -160,11 +160,10 @@ sub Control() { chomp $rule1; # on supprimer les commentaires - $rule1 =~ s/(*)(\#*)/$1/; -print "aa".$rule."aa\n"; + $rule1 =~ s/(\#*)$//; # on split la liste des paramètres - my @tmp1 = split (/\t/, $value); + my @tmp1 = split (/\t/, $rule1); 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"); } @@ -182,10 +181,10 @@ print "aa".$rule."aa\n"; chomp $rule2; # on supprimer les commentaires - $rule2 =~ s/(*)(\#*)/$1/; + $rule2 =~ s/(\#*)$//; # on split la liste des paramètres - my @tmp2 = split (/\t/, $value); + my @tmp2 = split (/\t/, $rule2); system("/sbin/iptables -A FORWARD -p $tmp2[2] -i ppp0 -o eth0 --dport $tmp2[1] -j EVOAUTH 2>/dev/null"); } @@ -205,10 +204,10 @@ print "aa".$rule."aa\n"; chomp $rule3; # on supprimer les commentaires - $rule2 =~ s/(*)(\#*)/$1/; + $rule3 =~ s/(\#*)$//; # on split la liste des paramètres - my @tmp3 = split (/\t/, $value); + my @tmp3 = split (/\t/, $rule3); 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");