|
|
my $buffer;
local *FH;
open FH, '<' . sprintf('%s/a2/ru/auto/lastupdate', $ENV{'FILES_ROOT'});
flock FH,1;
binmode FH;
1 while read(FH,$buffer,4096,length($buffer));
close FH;
my ($num_extra, $num_of_base, $num_hotfix, $lastupdate, $num_main) = split(/ /,$buffer);
# $num_main - меняется при выходе новой версии
# $num_extra - количество записей после выхода новой версии.
# То есть a+z = общее количество записей антивируса. z - константа (в данный момент z=51982).
# $num_of_base количество дополнительных баз (на главной страничке не указывается)
# $num_hotfix - количество записей в горячем дополнении
# $lastupdate - дата выхода последнего дополнения
sub hrstr2time
{
my @t=reverse split(/[^0-9]+/,$_[0]);
$t[4]--;
$t[5]-=1900;
return mktime(@t);
}
sub time2hrstr_local
{
my @tm_buff = localtime($_[0]);
return sprintf('%02u.%02u.%04u, %02u:%02u:%02u'
,$tm_buff[3]
,$tm_buff[4]+1
,$tm_buff[5]+1900
,$tm_buff[2]
,$tm_buff[1]
,$tm_buff[0]
);
}
?>
Новости
|
|