noms de variable corrects.

This commit is contained in:
Alexandre Anriot 2005-09-20 07:16:02 +00:00
parent 11b31516a7
commit b0d3dc2685
1 changed files with 6 additions and 7 deletions

View File

@ -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");