De siste timebildene fra zoom-kameraet. Denne side blir oppdatert med et nytt bilde hver time.
Zoom kameraet er montert i masta ved målestasjonen,
på en pan-tilt-enhet. Det gjør at den kan rette seg inn mot ønsket mål,
styrt av den ene PC'en.
Hver time blir den styrt mot et sted i Hessdalen, og bildet blir overført hit.
Hver gang det går en alarm fra to-kamera systemet, blir zoom-kameraet rettet mot det stedet som
alarmen kom fra og den tar opp sekvensen på video tape.
#!/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";
}
