#!/usr/bin/perl # program that prints activation page. #process information for transfer require './cgi-lib.pl'; &ReadParse(*form); $mappage = "/home/www/htdocs/bbd/map.html"; open (FILE,"$mappage") || die "Can't open $mappage: $!\n"; @lines = ; $size = @lines; print "Content-type: text/html\n\n"; #print the script activation page that will call the script to draw the image. for ($i=0; $i <= $size ; $i++) { $_ = $lines[$i]; #find where clickable is and replace it with business name and mapped below in blue if (//) { #advance until you have gone through the current image $i++; $_ = $lines[$i]; unless (//) { $i++; $_ = $lines[$i]; } print "\n"; print "

Scroll Down to see
$form{'busname'} located on the map

\n"; print "Look for the blue block.\n"; print "\n"; $_ = ""; } #check to see if the line starts the existing image part. if (//) { #advance until you have gone through the current image $i++; $_ = $lines[$i]; unless (//) { $i++; $_ = $lines[$i]; } print "\n"; print "\"Location"; print "\n"; $_ = ""; } print "$_"; }