bogues de regexp.
This commit is contained in:
parent
b0d3dc2685
commit
b272c6f912
|
@ -155,15 +155,15 @@ sub Control() {
|
||||||
|
|
||||||
# initialisation d'Evoauth
|
# initialisation d'Evoauth
|
||||||
if ($action == 1) {
|
if ($action == 1) {
|
||||||
foreach my $rule1 (@rules) {
|
foreach (@rules) {
|
||||||
next if m/^\#/;
|
next if /^#/;
|
||||||
chomp $rule1;
|
chomp;
|
||||||
|
|
||||||
# on supprimer les commentaires
|
# on supprimer les commentaires
|
||||||
$rule1 =~ s/(\#*)$//;
|
$_ =~ s/#.*//;
|
||||||
|
|
||||||
# on split la liste des paramètres
|
# on split la liste des paramètres
|
||||||
my @tmp1 = split (/\t/, $rule1);
|
my @tmp1 = split (/\t+/);
|
||||||
|
|
||||||
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");
|
||||||
}
|
}
|
||||||
|
@ -176,15 +176,15 @@ sub Control() {
|
||||||
&Evoauth::Functions::Log("2 - Tables crées");
|
&Evoauth::Functions::Log("2 - Tables crées");
|
||||||
|
|
||||||
# chargement des règles
|
# chargement des règles
|
||||||
foreach my $rule2 (@rules) {
|
foreach (@rules) {
|
||||||
next if m/^\#/;
|
next if /^#/;
|
||||||
chomp $rule2;
|
chomp;
|
||||||
|
|
||||||
# on supprimer les commentaires
|
# on supprimer les commentaires
|
||||||
$rule2 =~ s/(\#*)$//;
|
$_ =~ s/#.*//;
|
||||||
|
|
||||||
# on split la liste des paramètres
|
# on split la liste des paramètres
|
||||||
my @tmp2 = split (/\t/, $rule2);
|
my @tmp2 = split (/\t+/);
|
||||||
|
|
||||||
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");
|
||||||
}
|
}
|
||||||
|
@ -199,15 +199,15 @@ sub Control() {
|
||||||
system("/sbin/iptables -F EVOAUTH 2>/dev/null");
|
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");
|
||||||
|
|
||||||
foreach my $rule3 (@rules) {
|
foreach (@rules) {
|
||||||
next if m/^\#/;
|
next if /^#/;
|
||||||
chomp $rule3;
|
chomp;
|
||||||
|
|
||||||
# on supprimer les commentaires
|
# on supprimer les commentaires
|
||||||
$rule3 =~ s/(\#*)$//;
|
$_ =~ s/#.*//;
|
||||||
|
|
||||||
# on split la liste des paramètres
|
# on split la liste des paramètres
|
||||||
my @tmp3 = split (/\t/, $rule3);
|
my @tmp3 = split (/\t+/);
|
||||||
|
|
||||||
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