#!/usr/local/bin/perl ############################################################################## # wget -N -P older http://www.irkutsk.com/webcam.jpg # change this according to your installation $basedir = "/export/home/nautilus/www/webcam"; $latest = "webcam.jpg"; #$ENV{'TZ'} = 'Asia/Irkutsk'; # POSIX.1 timezone of your webcam $ENV{'TZ'} = 'MSK-8MSD,M3.5.0,M10.5.0'; ############################################################################## use File::stat; use Time::localtime; $file = "$basedir/$latest"; print "Content-type: text/html\n\n"; print ''; # check if the picture file is there if (not -r $file) { print "File not found: $file
"; exit; } $time = ctime(time()); print ""; print ""; print " "; print ""; print ''; # calculating how old is the picture $deltatime = time()-stat($file)->mtime; #print "

Time: $time

"; #print "

Deltatime in sec: $deltatime

"; $deltaday = int($deltatime / 86400); $deltatime %= 86400; # drop the days $deltahour = int($deltatime / 3600); $deltatime %= 3600; # drop the hours # only minutes and seconds left $deltasec = $deltatime % 60; # seconds only $deltamin = int($deltatime / 60); # minutes only print '

'; print ""; print "

Current date/time:

$time

Picture received:

', ctime(stat($file)->mtime), '

or '; if ($deltaday) {print "$deltaday days ";} if ($deltahour) {print "$deltahour hours ";} if ($deltamin) {print "$deltamin min ";} #if ($deltasec) {print "$deltasec seconds ";} print 'ago

Time shown may fluctuate
due to caching policy
of your provider

"; exit;