;
$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, "
";
Главная страница
Общие сведения
Список аппаратуры
Радиолампы
Клуб