|
|
|
Målestasjonens siste alarmbilder.
|
De siste alarmbildene fra målestasjonen. Denne siden blir oppdatert hver gang det kommer et nytt
alarmbilde. De fleste av disse alarmbildene er "falske alarmer", dvs. alarmer som umiddelbart
kan få sin naturlige forklaring. De bildene som ikke kan forklares umiddelbart blir
definert som interessante alarmbilder, som blir nærmere undersøkt.
Årets interessante alarmbildene blir lagt på side Bilder 2001.
Kommentarer
på årets interessante alarmbilder blir langt her.
Analyseprogrammet analyserer ikke hele bildeflaten. Det røde området i maskeringsbildet
blir ikke analysert.
Hessdalen AMS ble tatt ned 7.November 2003 p� grunn av feil.
Den kommer opp etter at den er reparert.
#!/usr/bin/perl
#
# Copyright (c) 1997 Martin Ranang Thorsen
$cells = 120;
$format = '.jpg';
$meta_dir = "/alarmdir";
$thumb_dir = "/alarm_thumbdir";
$html_dir = "/ams".$meta_dir;
$html_thumb_dir = "/ams".$thumb_dir;
$alarm_dir = "/local/hessdalen/html".$html_dir;
$alarm_thumb_dir = "/local/hessdalen/html".$html_thumb_dir;
$tr = " | ";
sub print_http_header {
print "Content-type: text/html\n\n";
}
sub print_html_link {
my $file = @_[0];
my $year, $month, $day, $hour, $minute, $second;
($year, $month, $day, $hour, $minute, $second) = $file =~
/^alarm-(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})$format$/;
print "\n";
print "";
print "![\"";](\"$html_thumb_dir/$file\") ";
print "Alarm $hour:$minute:$second $day.$month.$year";
print "\n";
print " | \n";
}
sub print_html_table {
print "\n$tr\n";
my $i, $file, @files;
opendir(DIR, "$alarm_thumb_dir") || die "Error: opening $alarm_thumb_dir.\n";
@files = reverse(sort(readdir(DIR)));
$i = 0;
foreach $file (@files) {
if(($file =~ /^alarm-\d{14}$\$format/) && ($i < $cells)) {
if(!($i % 4) && $i) {
print "\n$tr\n";
}
print_html_link($file);
$i++;
}
}
closedir(DIR);
print " \n";
}
print_http_header();
print_html_table();
exit(0)
Gå til bare-tekst utgave av denne siden.
|