34 lines
441 B
Perl
34 lines
441 B
Perl
|
#!/usr/local/bin/perl
|
||
|
|
|
||
|
|
use CGI;
|
||
|
|
|
||
|
|
$co = new CGI;
|
||
|
|
|
||
|
|
print $co->header,
|
||
|
|
|
||
|
|
$co->start_html('Image Map Example'),
|
||
|
|
|
||
|
|
$co->h1('Image Map Example'),
|
||
|
|
|
||
|
|
$co->start_form,
|
||
|
|
|
||
|
|
$co->image_button
|
||
|
|
(
|
||
|
|
-name => 'map',
|
||
|
|
-src=>'map.gif'
|
||
|
|
),
|
||
|
|
|
||
|
|
$co->p,
|
||
|
|
|
||
|
|
$co->end_form,
|
||
|
|
|
||
|
|
$co->hr;
|
||
|
|
|
||
|
|
if ($co->param())
|
||
|
|
{
|
||
|
|
$x = $co->param('map.x');
|
||
|
|
$y = $co->param('map.y');
|
||
|
|
print "You clicked the map at ($x, $y)";
|
||
|
|
}
|
||
|
|
|
||
|
|
print $co->end_html;
|