$title

#!/usr/sbin/perl # ======================================================================== # MakeIndex - make index html file imagemap menus # # Usage: MakeIndex # ======================================================================== # History: # -------------------------------------------------------------------- # 09211999 aew Initial coding # -------------------------------------------------------------------- # cycle through all the txt files in the directory - make a page for # each file # -------------------------------------------------------------------- @files = `ls -1 *.txt`; foreach $filename (@files) { chop ($filename); print "Processing:".$filename."\n"; #determine the number of rows and cols in the continent this tile is for $NCOLS=11; $NROWS=9; # Get the file number to nav arrows ($fno = $filename) =~ s/.txt//; ($foo,$col,$row) = split(/_/,$fno); # open the points file $ok = open(IN,$filename); if (! $ok) { print "Error opening ".$filename; exit; } # open the output HTML file ($outname = ">".$filename.".html") =~ s/.txt//; $ok = open(OUT,$outname); if (! $ok) { print "Error opening ".$outname; exit; } # -------------------------------------------------------------------- # Print a title and header text # -------------------------------------------------------------------- $title=; chomp($title); print OUT <<"header"; $title $title

header # -------------------------------------------------------------------- # insert the imagemap image # -------------------------------------------------------------------- print OUT "\n"; # -------------------------------------------------------------------- # and elevation legend # -------------------------------------------------------------------- print OUT "\n"; print OUT "\n"; print OUT "

"; ($gifname = $filename.".gif") =~ s/.txt//; print OUT "

\n"; print OUT "

\n"; # -------------------------------------------------------------------- # print out the navigation section # -------------------------------------------------------------------- print OUT "

\n"; print OUT "\n"; # -------------------------------------------------------------------- # legend # -------------------------------------------------------------------- print OUT "
\n"; print OUT "\n"; $cont="Maine"; if ($row>0) { print OUT ""; if ($col>0) { print OUT "\n"; } else { print OUT "\n"; } print OUT "\n"; if ($col<($NCOLS-1)) { print OUT "\n"; } else { print OUT "\n"; } print OUT ""; } print OUT ""; if ($col>0) { print OUT "\n"; } else { print OUT "\n"; } print OUT "\n"; if ($col<($NCOLS-1)) { print OUT "\n"; } else { print OUT "\n"; } print OUT ""; if ($row<($NROWS-1)) { print OUT ""; if ($col>0) { print OUT "\n"; } else { print OUT "\n"; } print OUT "\n"; if ($col<($NCOLS-1)) { print OUT "\n"; } else { print OUT "\n"; } print OUT ""; } print OUT "
"; print OUT ""; print OUT " "; print OUT ""; print OUT " "; print OUT ""; print OUT "
"; print OUT ""; print OUT " "; print OUT ""; print OUT " "; print OUT ""; print OUT "
"; print OUT ""; print OUT " "; print OUT ""; print OUT " "; print OUT ""; print OUT "
\n"; print OUT "\n"; print OUT "
\n"; print OUT "\n"; print OUT "

"; # -------------------------------------------------------------------- # home page link.... # -------------------------------------------------------------------- print OUT "

\n"; print OUT "\n"; print OUT "

"; print OUT "\n\n

\n"; # -------------------------------------------------------------------- # loop through the points and make the imagemap # -------------------------------------------------------------------- print OUT "\n"; print OUT "\n"; # -------------------------------------------------------------------- # get the Y size of the image so we can invert the coordinates # -------------------------------------------------------------------- while ($inline = ) { chomp($inline); #chop($inline); @points = split(/,/,$inline); $inline = ; chomp($inline); #chop($inline); @ids = split(/,/,$inline); $id=@ids[0]; chomp($id); print OUT "\n"; $" = " "; } print OUT "\n"; print OUT "\n"; print OUT "\n\n\n"; close OUT; }