#!/usr/bin/perl
use Time::Local;
sub mydateconvert {
my ($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst, $mytime);
($day, $mon, $year, $hour, $min, $sec) = split(/-/,$_[0]);
#$mytime = timelocal ($sec, $min, $hour, $day, $mon-1, $year);
($sec, $min, $hour, $day, $mon, $year, $wday, $yday, $isdst) = localtime();# ($mytime-3*3600);
$year+=1900;
$mon+=1;
return $mytime = sprintf ("%.2ld.%.2ld.$year %.2ld:%.2ld:%.2ld",$day,$mon,$hour,$min,$sec);
}
$databasefile = 'mycounterlog.txt';
$filedatemodify = mydateconvert($ENV{'LAST_MODIFIED'});
$filedatereadnew = mydateconvert($ENV{'DATE_LOCAL'});
$link = "$ENV{'REQUEST_URI'}";
if ($link eq "/") { $link="/index.shtml" }
open(DB,"+<$databasefile") || die $!;
flock(DB,2); # Locking file
seek(DB,0,0);
@DATA = ;
$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, "
";
Главная страница
Общие сведения
Список аппаратуры
Радиолампы
Клуб
