<perl>
if ($body eq "") {$body="000000"};
if ($bgcolor eq "") {$bgcolor="f0f0f0"};
if ($link eq "") {$link="cc0000"};
if ($vlink eq "") {$vlink="cc0000"};
if ($alink eq "") {$alink="ff0000"};
if ($headline eq "") {$headline="000099"};
</perl>
<html>
<head>
<title>Diese Seite stammt von www.Boxer-Tour.de</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body text="#$body" bgcolor="#$bgcolor" link="#$link" vlink="#$vlink" alink="#$alink">
$id=$id+100000;
$cook=$_cookies{a1}."W ".$id." N".$ns." E".$ew."\x20 Waypoint I PT ".$bez."äöü";
out $cook;
if ($cmd eq "clear")
{
$cook="";
out <<EOF
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p><font face="Arial, Helvetica, sans-serif">Alle Waypoints gelöscht. Zurück mit den Browserbuttons oder mit Klick auf ein Symbol.
</font></p>
EOF
}
else
{
$cook=$_cookies{a1}."W ".$id." N".$ns." E".$ew."\x20 Waypoint I PT ".$bez."äöü";
out <<EOF
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<font size="4" face="Arial, Helvetica, sans-serif">Eintrag $bez wurde der Waypointliste
