De siste timebildene fra to-kamerasystemet. Denne side blir oppdatert med et nytt bilde hver time.
Cam1 er montert i masta ved målestasjonen. Cam2 er montert
i et tre syd for målestasjonen. Den er også lokalisert høyere opp i fjellsiden.
Avstanden mellom de to kameraene er ca. 170m.
#!/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";
}
