Просмотр архива 5 релиз l2 (финал)


<?php
  ##########################################
## Автор: Bopo6eu aka 7up                   #                                                                                                                                                                                      ## Сайт: http://l2pirates.ru                #                                                                                                   ## ICQ  :  44-67-47-41                      #                                                                                             ## Версия Лицензионная                      #
## Данная версия скрипта является ПЛАТНОЙ,  #
## вы НЕ ИМЕЕТЕ ПРАВА распрострянять данный #
##  скрипт или какие-либо части его кода... #
  #########################################
$floodstime=120;

function CheckIP ()
{global $floodstime;
$flag= false;
$fs= filesize('local/flood/floodforum.dat');
$f= fopen('local/flood/floodforum.dat', 'r');
flock($f, LOCK_SH);
$arr= @unserialize(fread($f, $fs));
flock($f, LOCK_UN);
fclose($f);
$IP= $_SERVER['REMOTE_ADDR'];
$IP=htmlspecialchars(stripslashes($IP));
$t= time();
if (isset($arr)) {
foreach ($arr as $k=>$v)
if ($v<$t) unset($arr[$k]);
} else $arr= array ();
if (!isset($arr[$IP])) {
$arr[$IP]= $t + $floodstime;
$flag= false;
} else {
$arr[$IP]= $t + $floodstime;
$flag= true;
}
$f= fopen('local/flood/floodforum.dat', 'a+');
flock($f, LOCK_EX);
ftruncate($f, 0);
@fwrite($f, serialize($arr));
fflush($f);
flock($f, LOCK_UN);
fclose($f);
return $flag;
}
?>