#! /usr/bin/perl

if( $#ARGV >= 0 ){
   $line = $ARGV[0];
   if( $line =~ /Name=([^\\&]+)/ ){
      $data = $1;
      $data =~ s/\%2C/,/;
      $data =~ s/\+/_/g;
      }
   else {
      $data = $line;
      }
   $type = 0;
   }
elsif( $ENV{PATH_INFO} ){
   $data = $ENV{PATH_INFO};
   $data =~ s/\///;
   $type = 1;
   }
elsif( $ENV{QUERY_STRING} ){
   $line = $ENV{QUERY_STRING};
   if( $line =~ /Name=([^&]+)/ ){
      $data = $1;
   } else {
      $data = $line;
   }
   $data =~ s/\%2C/,/;
   $data =~ s/\+/_/g;
   $type = 2;
   }
else {
   $line = <STDIN>;
   ($data) = ( $line =~ /Name=([^\\&]+)/ );
   $data =~ s/\%2C/,/;
   $data =~ s/\+/_/g;
   $type = 3;
   }

if( $ENV{MOD_PERL} ){
   my $r = shift;
   $r->content_type('text/html');
}


$map = 0;
($x,$y,$map) = split ",", $data;
if( $x =~ /\./ ){
   $lat = $x;
   $lon = $y;
} else {
   $lat = (444-$y)/17.76+25;
   $lon = (741-$x)/12.793+67;
}
$ilat = int($lat);
$ilon = int($lon);

print "<table border=\"0\">\n";
print " <tr>\n";
print "  <td align=\"center\"><h1>DEM for ${ilat}N ${ilon}W</h1>\n";

printf "  <a href=\"map.pl?%d.0,%d.0,$map\">", $ilat+1, $ilon;
print "<img src=\"bup.gif\" alt=\"Go North\"></a></td></tr>\n";

printf "<tr><td> <a href=\"map.pl?%d.0,%d.0,$map\">", $ilat, $ilon+1;
print "<img src=\"bleft.gif\" alt=\"Go West\"></a>\n";

if( $map ){
   print "<a href=\"map.pl?${ilat}.0,${ilon}.0,0\">\n";
   print "<img src=\"${ilat}_${ilon}-M.gif\" align=\"middle\">";
} else {
   print "<a href=\"map.pl?${ilat}.0,${ilon}.0,1\">\n";
   print "<img src=\"${ilat}_${ilon}.gif\" align=\"middle\">";
}
print "</a>\n";

printf "<a href=\"map.pl?%d.0,%d.0,$map\">", $ilat, $ilon-1;
print "<img src=\"bright.gif\" alt=\"Go East\"></a></td></tr>\n";

printf "<tr><td align=\"center\"><a href=\"map.pl?%d.0,%d.0,$map\">", $ilat-1, $ilon;
print "<img src=\"bdown.gif\" alt=\"Go South\"></a></td></tr></table>\n";

print "<img src=\"../legend.gif\" alt=\"Legend\">\n";