Есть два варианта:
первый, или запоминать лишь один ip (в sbt.cfg устанавливается $ip_check=1;)
Или чтоб не проверять вообще, надо сделать вот что:
vote.cgi
строка 49 (подпрограмма main):
$check=&check_me;
ее нужно закомментировать, т.е. поставить перед ней #:
#$check=&check_me;
далее:
utils.pl, подпрограмма modify_poll_var
с 86 строки по 95 идет блок:
if ($old_key eq \'ip\'){
#Save ip
#Get last voting ips
@my_ip= split (/\\|/,$old_val);
unshift(@my_ip,$ENV{\'REMOTE_ADDR\'});
if (($#my_ip+1)>$ip_check){pop @my_ip}
$old_val=join("|", @my_ip);
$newdata .=$old_key."\\[~\\]".$old_val."\\n";
}
elsif ($old_key eq \'total\'){
$old_val +=1;
$newdata .=$old_key."\\[~\\]".$old_val;
}
меняем его на это:
if ($old_key eq \'total\'){
$old_val +=1;
$newdata .=$old_key."\\[~\\]".$old_val;
}
Все. В sbt.cfg переменной $ip_check не стоит присваивать 0, лучше оставить там какое-нибудь значение (по умолчанию, там 10).