Path: usenet.cis.ufl.edu!usenet.eel.ufl.edu!psgrain!nntp.teleport.com!usenet From: mheins@bluestem.prairienet.org (Mike Heins) Newsgroups: comp.lang.perl.announce,comp.lang.perl.misc Subject: ANNOUNCE: CGI Imagemap Module V1.00 Followup-To: comp.lang.perl.misc Date: 2 Mar 1996 17:22:45 GMT Organization: University of Illinois at Urbana Lines: 101 Approved: merlyn@stonehenge.com (comp.lang.perl.announce) Message-ID: <4ha055$53e@maureen.teleport.com> NNTP-Posting-Host: kelly.teleport.com Keywords: CGI module imagemap perl X-Disclaimer: The "Approved" header verifies header information for article transmission and does not imply approval of content. Xref: usenet.cis.ufl.edu comp.lang.perl.announce:280 comp.lang.perl.misc:22472 CGI::Imagemap 1.00 is now available at your local CPAN site as "CPAN"/authors/id/MIKEH/CGI_Imagemap-1.00.tar.gz CGI::Imagemap allows CGI programmers to place TYPE=IMAGE form fields on their HTML fill-out forms, with either client-side or server-side maps emulated. The imagemap file follows that of the NCSA imagemap program. Each point is an x,y tuple. Each line in the map consists of one of the following formats. Comment lines start with "#". circle action center edgepoint rect action upperleft lowerright point action point poly action point1 point2 ... pointN default action Using "point" and "default" in the same map makes no sense. If "point" is used, the action for the closest one is selected. To use CGI::Imagemap, define an image submit map on your form with something like: You can pass a "client-side" imagemap like this: CLASS METHODS $map->setmap(@map); $map->addmap(@add); $map->untaint('yes'); $action = $map->action($x,$y,@map); $action = $map->action($x,$y,$map); STATIC METHODS action_map($x,$y,@map); map_untaint(1); AUTHOR Send bug reports, kudos, complaints, and suggestions to Mike Heins, CREDITS This work is heavily kited from the Perl imagemap program originally written by V. Khera . AVAILABLE AT CPAN The master CPAN site is at ftp://ftp.funet.fi/ (Finland, Europe). Select the site nearest to you from the list below to get the best response time and bandwidth. Africa South Africa ftp://ftp.is.co.za/programming/perl/CPAN/ Asia Japan ftp://ftp.lab.kdd.co.jp/lang/perl/CPAN/ Taiwan ftp://dongpo.math.ncu.edu.tw/perl/CPAN/ Australasia Australia ftp://coombs.anu.edu.au/pub/perl/ ftp://ftp.mame.mu.oz.au/pub/perl/CPAN/ New Zealand ftp://ftp.tekotago.ac.nz/pub/perl/CPAN/ Europe Czech Republic ftp://sunsite.mff.cuni.cz/Languages/Perl/CPAN/ Finland ftp://ftp.funet.fi/pub/languages/perl/CPAN/ France ftp://ftp.ibp.fr/pub/perl/CPAN/ ftp://ftp.pasteur.fr/pub/computing/unix/perl/CPAN/ Germany ftp://ftp.leo.org/pub/comp/programming/languages/perl/CPAN/ ftp://ftp.rz.ruhr-uni-bochum.de/pub/CPAN/ the Netherlands ftp://ftp.cs.ruu.nl/pub/PERL/CPAN/ Poland ftp://ftp.pk.edu.pl/pub/lang/perl/CPAN/ Portugal ftp://ftp.ci.uminho.pt/pub/lang/perl/ Slovenia ftp://ftp.arnes.si/software/perl/CPAN/ Sweden ftp://ftp.sunet.se/pub/lang/perl/CPAN/ Switzerland ftp://ftp.switch.ch/mirror/CPAN/ UK ftp://ftp.demon.co.uk/pub/mirrors/perl/CPAN/ ftp://unix.hensa.ac.uk/mirrors/perl-CPAN/ North America British Columbia ftp://mango.softwords.bc.ca/pub/perl/CPAN/ California ftp://ftp.cdrom.com/pub/perl/CPAN/ Florida ftp://ftp.cis.ufl.edu/pub/perl/CPAN/ Illinois ftp://uiarchive.cso.uiuc.edu/pub/lang/perl/CPAN/ Massachusetts ftp://ftp.delphi.com/pub/mirrors/packages/perl/CPAN/ Oklahoma ftp://ftp.uoknor.edu/mirrors/CPAN/ Texas ftp://ftp.sedl.org/pub/mirrors/CPAN/ ftp://ftp.metronet.com/pub/perl/ ftp://ftp.sterling.com/CPAN/ .