noms de variable corrects.
This commit is contained in:
parent
07cc73e35f
commit
26532a7930
|
@ -160,11 +160,10 @@ sub Control() {
|
||||||
chomp $rule1;
|
chomp $rule1;
|
||||||
|
|
||||||
# on supprimer les commentaires
|
# on supprimer les commentaires
|
||||||
$rule1 =~ s/(*)(\#*)/$1/;
|
$rule1 =~ s/(\#*)$//;
|
||||||
print "aa".$rule."aa\n";
|
|
||||||
|
|
||||||
# on split la liste des paramètres
|
# 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");
|
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;
|
chomp $rule2;
|
||||||
|
|
||||||
# on supprimer les commentaires
|
# on supprimer les commentaires
|
||||||
$rule2 =~ s/(*)(\#*)/$1/;
|
$rule2 =~ s/(\#*)$//;
|
||||||
|
|
||||||
# on split la liste des paramètres
|
# 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");
|
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;
|
chomp $rule3;
|
||||||
|
|
||||||
# on supprimer les commentaires
|
# on supprimer les commentaires
|
||||||
$rule2 =~ s/(*)(\#*)/$1/;
|
$rule3 =~ s/(\#*)$//;
|
||||||
|
|
||||||
# on split la liste des paramètres
|
# 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 -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");
|
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");
|
||||||
|
|
Reference in a new issue