#!/usr/bin/perl use CGI qw/:standard/; $kor = $ENV{QUERY_STRING}; @values = split (/\&/, $kor); $xkor = $values[0]; $ykor = $values[1]; $zkor = $values[2]; $city = $values[3]; #change 15.06.00 $pname = $values[4]; $pid = $values[5]; ################ #$place_neu = $place; $pname =~ s/[%20]/ /g ; ################ #end change 15.06.00 $ix=$xkor; $iy=$ykor; #$iz=$Zkor; $ic=$city; print "Content-type: text/html\n\n"; print <GoldenMaps
Home |

html ##################################### #0-te Zeile print < html if($pname ne "") { print < $pid
$pname
is in the center grid html } else { print < html } ##################################### ##################################### #1-te Zeile $x=$xkor; $y=$ykor+1; $a=$x.$y; if ($y <62) { print < html } else { print < html } ##################################### #2-te Zeile $x=$xkor-1; $y=$ykor+1; $a=$x.$y; print < html $x=$xkor; $y=$ykor+1; $a=$x.$y; print < html $x=$xkor+1; $y=$ykor+1; $a=$x.$y; print < html ##################################### #3-te Zeile $x=$xkor-1; $y=$ykor; $a=$x.$y; if ($x > 11) { print < html } else { print < html } print < html $x=$xkor; $y=$ykor; $a=$x.$y; print <$a html $x=$xkor+1; $y=$ykor; $a=$x.$y; print < html if ($x < 25) { print < html } else { print < html } ####################################### #4-te Zeile $x=$xkor-1; $y=$ykor-1; $a=$x.$y; print < html $x=$xkor; $y=$ykor-1; $a=$x.$y; print < html $x=$xkor+1; $y=$ykor-1; $a=$x.$y; print < html ##################################### #5-te Zeile $x=$xkor; $y=$ykor-1; $a=$x.$y; ####### next bit for the copyright logo print < html ################## if ($y > 51) { print < html } else { print < html } print <
  • Index
    		•
    contact us mail us
    © 2000-2009 Goldenmaps.
    html