aner подскажите, как правильно в нем прописать опорное время?
Как хочешь...например сделай небольшой скрипт, типа:
#!/usr/bin/perl
my $time = time;
print "Content-type: text/html\\n\\n";
print qq "$time";
exit;
Получишь на экране текущее время, его записываешь в файл image.config
$imagedir=.....
$imageurl=.....
$imagetime=....
$imageday=.... - количество дней
1;
Скрипт исправляешь на:
require "image.config";
my $time = time;
if ($time > ($imagetime+(86400*$imageday))) {
opendir(DIR,"$imagedir");
@jpg=grep(/jpg\\Z/,readdir(DIR));
@gif=grep(/gif\\Z/,readdir(DIR));
push(@images,@jpg);
push(@images,@gif);
closedir(DIR);
srand();
$SIZE=@images;
$randnum=int rand $SIZE;
print "Content-type: text/html\\n\\n";
$image="$imageurl/$images[$randnum]";
print qq(
\\n);
}
else {
print "Content-type: text/html\\n\\n";
print qq \'Нет картинки\';
}
И все...