Da to-kamerasystemet oppdager et lysfenomen, sender den beskjed til zoom-kameraet om hvilken
retning lysfenomenet befinner seg. Zoom-kameraet retter seg inn mot den retningen, tar et
bilde og begynner opptak på video. Det bildet den tar sendes hit.
#!/usr/bin/perl -w
require "config.inc";
my $dir = &dir_prefix . "color_alarm";
$| = 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 =~ /^alarm-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";
}
Gå til thumb utgave av denne siden.
