#!/usr/bin/perl --
unshift(@INC,"../../cgi/");
require "cgi-lib.pl";
MAIN:
{
&ReadParse(*input);
&ProcessForm;
}
sub ProcessForm {
print("Content-type: text/html\n");
print("\n");
$picsrc = $input{'picsrc'};
$picref = $input{'picref'};
if ( "${picref}" ne "" ) {
print("\n");
print("
Click on the image to see an even higher-resolution version!\n");
} else {
print("\n");
}
}