#!/usr/local/bin/perl
require 'html.pl';
#This routine takes any data that has been submitted via a form and
# returns it in an associative array called %data
&read_post_data;
# open_html sends the basic stuff needed at the top of the web page...
&open_html;
print <Grid Section 68
Grid section 68. No Cepheids here...
There are no known Cepheids in this portion of WF4. Variable objects
may be other types of variable stars,
bad pixel events, or other phenomena. If you really want to ask your
teaching assistant or professor about an object, click on it. The
coordinates will appear below the image. Write the coordinates on
your lab sheet in Part I, Section C. When
you're done exploring here,
return
to the main WF4 8x8 grid
EOF
# Must put EOF at very beginning of line!!!
#first see if they've already clicked on the picture...
#the image type returns the .x and .y for the names of the
#values of the point clicked...very handy if we want to have
#different things happen based on where the user clicks.
#In this case, the field was named 'anim' so the values are
#stored in 'anim.x' and 'anim.y' which are both elements of the
#associative array %data.
if ($data{'anim.x'})
{
print "You clicked on the coordinates ($data{'anim.x'},";
print "$data{'anim.y'}) in grid section 68. Write the ";
print "coordinates and grid number on your lab sheet if ";
print "you wish to ask your teaching assistant or professor ";
print "about this object.
";
$xval=$data{'anim.x'};
$yval=$data{'anim.y'};
}
#this closes the html file (as the name would imply!)
&close_html;
exit;