Ответ

KLeN 21.03.2007 19:06

по мелочи, локальные переменные объявить и если проверка идет в условии result лучше указать явно

@ip[addr;subnet][parts;oaddr;mask;r;result]
$parts[^subnet.split[/;lh]]
$oaddr[$parts.0]$mask[^tmp[$parts.1]]
^connect[$MAIN:mysql_connect]{
$r[^table::sql{select inet_aton('$addr') & inet_aton('$mask') as r1,inet_aton('$oaddr') & inet_aton('$mask') as r2}]
}
$result($r.r1 eq $r.r2)

---