|
Тема |
Има ли нещо грешно в това? |
|
Автор | Дparo (Нерегистриран) | |
Публикувано | 10.05.01 19:33 |
|
|
Здравейте, това е част от Poll за гласуване.
Но като сложа тази част която проверява IP-то и не работи :(
Ако я махна, си работи без проблем...
Някаква идея? Искам да тръгне с възможността за проверка.
Предварително Ви благодаря
Ето и кода
sub ip_check {#Проверка на IP
$ipfile="data/$name.ips";
if ($ip=~/^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/) {
$ip=pack("C4",$1,$2,$3,$4);
if ($1<11 || $2<11 || $3<11 || $4<11){
$ip=substr(pack("u",$ip),1);
chop($ip);
}
}
if (-e $ipfile) {
open (IPF, "< $ipfile") || print_error "Не се отваря $ipfile $!";
while (<IPF>) {
chop;
if ($_ eq $ip) {
$FORM{$name}='-1';
}
}
close(IPF);
}
if ($FORM{$name}>0) {
open (IPF, ">> $ipfile") || print_error "Не може да гласувате с този IP-адрес $ipfile $!";
print IPF "$ip\n";
close(IPF);
}
}
|
| |
|
|
|