;
$SIZE = @DATA;
$i = 0;
while ($i <= $SIZE) {
($counter,$counter2,$filedatestat,$filedatecreate,$filedatemodifyold,$filedateread,$oldlink) = split(/`/,$DATA[$i]);
chop($oldlink);
if ($oldlink eq $link) {
$counter++;
$counter2++;
$DATA[$i] = "$counter`$counter2`$filedatestat`$filedatecreate`$filedatemodify`$filedatereadnew`$link\n";
goto LocateLink;
}
$i++;
}
$filedatecreate = $filedatemodify;
$filedatestat = $filedatereadnew;
$filedateread = $filedatereadnew;
push @DATA, "1`1`$filedatestat`$filedatemodify`$filedatemodify`$filedatereadnew`$link\n";
$counter=1;
LocateLink:
@DATA = sort {($b =~ /(\d+)/)[0] <=> ($a =~ /(\d+)/)[0]} @DATA;
seek(DB,0,0);
print(DB @DATA);
truncate(DB,tell(DB));
flock(DB, 8);
close(DB);
print "Content-Type: text/html\n\n";
print "Страница создана ..... ", $filedatecreate, "";
print "
Последнее изменение ..... ", $filedatemodify, "";
print "
Последнее обращение ..... ", $filedateread, "";
print "
Показов страницы с ", $filedatestat, " ..... ", $counter, "
";
Главная страница
Общие сведения
Список аппаратуры
Радиолампы
Клуб
return_links();
echo ' ';
require_once($_SERVER['DOCUMENT_ROOT'].'/uniplacer_config.php');
require_once($_SERVER['DOCUMENT_ROOT'].'/'._UNIPLACE_USER_.'/uniplacer.php');
$Uniplacer = new Uniplacer(_UNIPLACE_USER_);
$Uniplacer->GetCode();
$links = $Uniplacer->GetLinks();
if($links){
foreach($links as $link){
echo $link.'
';
}
}
?>