#!/usr/bin/perl


#***********************************************************
#***                 Main Routine                        ***
#***********************************************************


$tmp_string = $ENV{PATH_TRANSLATED};
$start_ptr = rindex($tmp_string,"picnum=");
$start_ptr = $start_ptr + 7;               #increment past "picnum="
$end_ptr = rindex($tmp_string,"&");
$len_num = $end_ptr - $start_ptr;
$picnum = substr($tmp_string,$start_ptr,$len_num);

$picnum = $picnum + 1;


if ($picnum < 7 && $picnum > 0 )
{
 print("Content-Type: text/html\n\n");
 print "<META HTTP-EQUIV=REFRESH CONTENT=";
 print "\x221; URL=http://www.serve.com/wizjd/perl2/cgi-bin/pull_cgi.cgi/";
 print "picnum=", $picnum, "&";
 print "\x22>";
 print "\n";

 print "<TITLE>This is a Title</TITLE>";
 print "\n";
 print "<IMG src=\x22http://www.serve.com/wizjd/perl2/cgi-bin/pumpkin-f";
 print $picnum, ".gif\x22 HEIGHT=60 WIDTH=60>";
 print "<H2>The frame # is ", $picnum, "</H2>";
 print "To stop this, and see the Perl Source Code ";
 print "<A HREF=\x22/wizjd/perl2/cgi-bin/pull_cgi.txt\x22>";
 print "Click here.</A>";

}
else
{
 print("Content-Type: text/html\n\n");
 print "<TITLE>This is a Title</TITLE>";
 print "\n";
 print "<H2>All done.</H2>";
 print "To see the Perl Source Code";
 print "<A HREF=\x22/wizjd/perl2/cgi-bin/pull_cgi.txt\x22>";
 print "Click here.</A>";
 print "<BR>Back to <A HREF=\x22../index.html\x22>Examples page.</A>";
}