Наши скрипты > Sad But True

IP

(1/2) > >>

:
Как очистить файл с IP и вообще что чистить надо?

Green Kakadu:

--- Цитировать ---Как очистить файл с IP и вообще что чистить надо?
--- Конец цитаты ---

Все данные в файле polldata.txt
Строка с ip:

ip[~]0|0|0|0|0|0|0|0|0|0

это "чистая запись", кол-во нулей кол-во проверяемый ip.
При создании нового голосования, все данные автоматически обнуляются.

:
Проблема в том, что многие не могут голосовать по причине того, что сидят за фаерволом :(

Green Kakadu:
Есть два варианта:
первый, или запоминать лишь один 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).

:
Сделал как сказано - всё работает, но.....
Теперь полная свобода накрутчикам :((((

Как бы это завязать с куками? А то совсем напасть какая-то :(((

Проблема с фаерволами - это насущная проблема. :(

Навигация

[0] Главная страница сообщений

[#] Следующая страница