Биллинговая система Nodeny

sql_user_name = "%{User-Name}"

sub Add_To_All_Ip 
{

 my $p=$_[0];
 my ($auth,$dop_param,$i,$id,$ip,$mid,$n,$num,$num1,$num2,$opt,$options);
 my ($paket,$pipe2,$pipe_in,$pipe_out,$speed2,$speed_in,$speed_out);

 $ip=$p->{ip};
 $id=$p->{id};                  # id текущей записи (по таблице users)
 $num=$p->{num};                # виртуальный уникальный id текущей записи
 $dop_param=$p->{dop_param};    # дополнительные параметры учетки клиента

# должны быть в системе дополнительные поля с такими алиасами
$mac=$dop_param->{_mac};
$localip=$dop_param->{_localip};


# привязка мак адреса к ip
 system("$IPT -t filter -A INPUT -i $IF_INT -m mac --mac-source $mac ! -s $localip -j DROP");

}

sub Delete_From_All_Ip 
{

 my $p=$_[0];
 my ($auth,$dop_param,$i,$id,$ip,$mid,$n,$num,$num1,$num2,$opt,$options);
 my ($paket,$pipe2,$pipe_in,$pipe_out,$speed2,$speed_in,$speed_out);

 $ip=$p->{ip};
 $id=$p->{id};                  # id текущей записи (по таблице users)
 $num=$p->{num};                # виртуальный уникальный id текущей записи
 $dop_param=$p->{dop_param};    # дополнительные параметры учетки клиента

# должны быть в системе дополнительные поля с такими алиасами
$mac=$dop_param->{_mac};
$localip=$dop_param->{_localip};


# УДАЛЯЕМ привязку мак адреса к ip
while (!system("$IPT -t filter -D INPUT -i $IF_INT -m mac --mac-source $mac ! -s $localip -j DROP")) {};

}

perl noserver.pl -v

$IF_PPP=`grep -il $ip /var/run/radattr* | sed 's/[/]var[/]run[/]radattr[.]//g;'`;                                    
chomp $IF_PPP;        
&Debug("User Ip: $ip; LocalIP: $LocalIp; ID: $id; PPP: $IF_PPP"); 

system("sh $HTB start $IF_PPP ${speed_in} ${speed_in}");  

NEWNAME="ppp-$PEERNAME"
[ -z "$PEERNAME" ] && NEWNAME="$1"

if [ -x /sbin/ip ]; then
        /sbin/ip link set $1 down
        /sbin/ip link set $1 name $NEWNAME
        /sbin/ip link set $NEWNAME up
fi 

AH01215: syntax error at /usr/lib/cgi-bin/adm/adm.pl line 412, near ")"
AH01215: (Might be a runaway multi-line () string starting on line 408)
AH01215: Execution of /usr/lib/cgi-bin/adm/adm.pl aborted due to compilation errors.
End of script output before headers: adm.pl