Here is the "every hour picture" from the two-camerasystem. This page is updated with a new picture
every hour.
The two-camerasystem is under test
The two-camera system was mounted in Hessdalen between wednesday 13. and sunday 17.June 2001.
The Hessdalen AMS was stopped on the 7.November 2003 because of failure.
It will be installed after the failure is repaired.
#!/usr/bin/perl -w
require "config.inc";
my $dir = &dir_prefix . "hourly";
$| = 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 <
| Cam 2 |
Cam 1 |
Cam 2 |
Cam 1 |
END
$i=0;
foreach $file (@files) {
if($file =~ /^hourly-cam2-\d{14}\.jpg/) {
if( $i == 1 ) {
$i=0;
} else {
$i=1;
}
if( $i == 1 ) {
printf "\n";
print_html_link( $file );
$file =~ s/cam2/cam1/;
print_html_link( $file );
} else {
print_html_link( $file );
$file =~ s/cam2/cam1/;
print_html_link( $file );
printf " \n";
}
}
}
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-cam.-(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})\.jpg$/;
print "\t | ";
print "";
print "Hourly $hour:$minute:$second $day.$month.$year";
print "";
print " | \n";
}
