#!/usr/local/bin/perl5 -w
$file = "shavercam.jpg";
$max_age = 3 * 60;
$cycle = 30;
$offline_cycle = 2 * 60 * 60;
sub head {
print "
shavercam
shavercam
I'm probably having as much fun as it seems.
|
";
}
sub tail {
print "
|
";
}
sub online_p {
my $now = time;
my $file_time = (stat($file))[9];
if ($file_time <= 0 || $file_time + $max_age < $now ) {
return 0;
} else {
return 1;
}
}
sub online {
print "![](\"index.cgi?image\") | ";
}
sub offline {
print "";
print "Error: camera is offline.";
print " | \n";
}
sub html {
print "Content-Type: text/html\n";
if (online_p) {
print "Refresh: $cycle\n";
print "\n";
head;
online;
tail;
} else {
print "Refresh: $offline_cycle\n";
print "\n";
head;
offline;
tail;
}
}
sub image {
my $now = time;
my $file_time = (stat($file))[9];
my $file_length = (stat($file))[7];
my $exp_time = $file_time; # netscape 4.x sucks!
my $type = "image/jpeg";
if ($file_time > 0) {
print "Last-Modified: " . fmt_time($file_time) . "\n";
}
if ( $exp_time > 0 ) {
print "Expires: " . fmt_time($exp_time) . "\n";
}
if ( $exp_time <= $now ) {
print "Pragma: no-cache\n";
}
print "Content-Length: $file_length\n";
print "Content-Type: $type\n";
print "\n";
open(IN, "<$file");
while () { print; }
close (IN);
}
sub fmt_time {
my ($time) = @_;
my @t = gmtime($time);
my ($sec, $min, $hour, $mday, $mon, $year,$wday) = @t;
my @days = ("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun");
my @months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun",
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
$year += 1900;
$wday = $days[$wday];
$mon = $months[$mon];
return sprintf("%s, %2d %s %d %02d:%02d:%02d GMT",
$wday, $mday, $mon, $year, $hour, $min, $sec);
}
sub main {
if ( $ENV{QUERY_STRING} && $ENV{QUERY_STRING} eq "image" ) {
image;
} else {
html;
}
}
main;
exit (0);