#!/usr/bin/perl
# map2html  22-Jan-96
# Andrew Daviel, andrew@Vancouver-Webpages.com
#
if (@ARGV[0] =~ /-h/i) { 
   print "Usage: map2html < mapfile > default.html\n\n" ;
   print "Converts an NCSA style imagemap map file produced by e.g. mapedit\n";
   print "into a segment of HTML for use in the map default link.\n";
   exit ;
}
# Typically used to present a list of links the user could have selected
# if only they hadn't missed all the active areas on an imagemap.
# May also be used  with imagemap V1.9 or the builtin imap module in
# Apache 1.0 to allow text-mode
# browsers to access links from an imagemap.

# Takes a map file on STDIN and produces HTML on STDOUT.
# Comments in the input file start with a leading "#"
# The last comment before a polygon definition is taken as the document title.
# If there is no comment, the file name is used as the title

$print_default = 0 ; # usually don't want default
print "<ul>\n";
while (<STDIN>) {
  chop ;
  if (!$_) { next ; }  
  if (/^default/) {
    s/default *// ;
    if ($print_default) {
      print "<li><a href=\"$_\">default</a>\n";
    }
  } else {
    $title = "" ; 
    while (/^#/) {
      s/#// ;
      $title = $_ ;
      $_ = (<STDIN>) ; chop ;
    }
    if (!$_) { last ; }
    tr/ / /s ;
    @field = split(/ /) ;
    $_ = $field[1] ;
    if (!$title) { $title = $_ ; }
    $title =~ s/&/&amp;/g ; $title =~ s/>/&gt;/g ; $title =~ s/</&lt;/g ;
    print "<li><a href=\"$_\">$title</a>\n";
  }
}
print "</ul>\n";