The last hour pictures from the zoom camera. This
page is updated with a new picture every hour.
The zoom camera is mounted in the mast at the
station, on a pan-tilt unit. It is directed towards a target, by the help of a PC.
Every hour is it directed towards a place in the Hessdalen valley,
and a picture is taken.
Whenever an alarm is coming from the two-camera system, it is directed towards the location,
and start recording on to videotape.
#!/usr/bin/perl -w
require "config.inc";
my $dir = &dir_prefix . "color";
$| = 1;
printf "Content-Type: text/html\n\n";
my( $file, @files, $i);
opendir(DIR, "$dir") || die "Error: opening $dir.\n";
@files = reverse(sort(readdir(DIR)));
printf " \n";
printf <\n\n";
}
print_html_link( $file );
$i++;
}
}
printf " \n";
closedir(DIR);
sub print_html_link {
my $file = $_[0];
my ($year, $month, $day, $hour, $minute, $second);
($year, $month, $day, $hour, $minute, $second) = $file =~ /^hourly-color-(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})\.jpg$/;
print "\t | ";
print "";
print "Zoom $hour:$minute:$second $day.$month.$year";
print "";
print " | \n";
}
