home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _084ade3306592c53bcc658889548603d < prev    next >
Text File  |  2000-03-15  |  833b  |  27 lines
  1. #!/usr/local/bin/perl
  2.  
  3. use CGI;
  4. $query = new CGI;
  5. print $query->header;
  6. print $query->start_html("A Clickable Image");
  7. print <<END;
  8. <H1>A Clickable Image</H1>
  9. </A>
  10. END
  11. print "Sorry, this isn't very exciting!\n";
  12.  
  13. print $query->startform;
  14. print $query->image_button('picture',"./wilogo.gif");
  15. print "Give me a: ",$query->popup_menu('letter',['A','B','C','D','E','W']),"\n"; # 
  16. print "<P>Magnification: ",$query->radio_group('magnification',['1X','2X','4X','20X']),"\n";
  17. print "<HR>\n";
  18.  
  19. if ($query->param) {
  20.     print "<P>Magnification, <EM>",$query->param('magnification'),"</EM>\n";
  21.     print "<P>Selected Letter, <EM>",$query->param('letter'),"</EM>\n";
  22.     ($x,$y) = ($query->param('picture.x'),$query->param('picture.y'));
  23.     print "<P>Selected Position <EM>($x,$y)</EM>\n";
  24. }
  25.  
  26. print $query->end_html;
  27.