#!/usr/bin/perl
require "/www/cgi-bin/cgi-lib.pm";
ReadParse();
PrintHeader();
$Refresh = 15;
if ($in{'REFRESH'})
{
$Refresh = $in{'REFRESH'};
}
$Refresh = 5 if ($Refresh < 5);
print "Strachan Cam ($Refresh seconds)\n";
if ($Refresh <= 60)
{
print "\n";
}
print "\n";
print "\n";
print "\n";
print "![](\"http://134.29.9.107/video/frame\")
\n";
print "
\n";
if ($Refresh <= 60)
{
print "This image self-refreshes after $Refresh seconds.\n";
}
else
{
print "This image will not refresh.";
}
print "
\n";
if ($Refresh <= 55)
{
print "\n";
print "Slower\n";
}
if ($Refresh > 55 && $Refresh <= 60)
{
print "\n";
print "Stop\n";
}
if ($Refresh <= 60 && $Refresh > 5)
{
print " -- ";
}
if ($Refresh > 5)
{
print "\n";
print "Faster\n";
}
print "
\n";
print "Streaming video is also available: ";
print "AVI or ";
print "Java\n";
print "
\n";
print "This video camera is part of the\n";
print "EMuseum. It is looking out of a nearby office\n";
print "at Minnesota State\n";
print "University at Mankato, Minnesota.";
print "\n";