home *** CD-ROM | disk | FTP | other *** search
/ Teach Yourself CGI Programming with Perl in a Week / CGIPROGRAMMINGPERL.iso / booksrc / 09cgil01.cgi < prev    next >
Encoding:
Text File  |  1995-12-08  |  538 b   |  47 lines
  1. #!/usr/local/bin/perl 
  2. push (@INC, "/usr/local/business/http/accn.com/cgi-bin");
  3. require("cgi-lib.pl");
  4.  
  5. &ReadParse(*stuff);
  6.  
  7. print &PrintHeader;
  8.  
  9. print "<html>\n";
  10. print "<head> <title> Printing the x,y hot spot variables </title> </head>\n";
  11. print "<body>\n";
  12. print "<h3> The x,y coordinates of your mouse-click are: </h3> <hr noshade>";
  13. print "x coordinate = $stuff{'xyhot.x'}";
  14. print "y coordinate = $stuff{'xyhot.y'}";
  15.  
  16. print "</body>\n";
  17. print "</html>\n";
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.