<head>
<style>
td {font-family: verdana; font-size: 8pt;}
body {font-family: verdana; font-size: 8pt;}
</style>
<title> Admin snow</title>
</head>
<body>
<perl>
if($namerein ne "")
{
if ($namerein eq "test" && $pwrein eq "test") #hier name und passwort festlegen
{
if ($cmd ne "mod")
{
out <<EOF;
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
<input type="hidden" name="cmd=" value="mod">
<input type="hidden" name="namerein=" value="$namerein">
<input type="hidden" name="pwrein=" value="$pwrein">
<ul><b>Hier können Sie ändern was sie wollen, sie machen keinen Schaden :-)</b><p>
EOF
get "", "main", "ausgabe";
while (get_next("ausgabe"))
{
out "<tr><td>id: $_id </td><td>resort: <b>$resort</b></td><td> Schneehöhe: <input type=text name='Hoehe_$_id=' size=3 value=$Hoehe></td><td>Schneehöhe alt: <input type=text name='Hoehe_alt_$_id=' size=3 value=$Hoehe_alt></td><tr>"; #sollen mehrere Einträge eines Datensatzes geändert werden, müssen hier noch entsprechende Felder angehangen werden
}
out <<EOF;
</table><input type="submit">
</ul>
</form>
EOF
}
else{
out <<EOF;
<ul><table>
EOF
get "", "main", "holen";
while (get_next("holen"))
{
out "<tr><td>id: $_id </td><td>resort: <b>$resort</b></td><td>Schneehöhe: ".${"Hoehe_$_id"};
out " Alt: ".${"Hoehe_alt_$_id"}."</td></font><tr>";
mod "Id==$_id",[ "Hoehe", ${"Hoehe_$_id"},"Hoehe_alt",${"Hoehe_alt_$_id"} ],"main";
}
out <<EOF;
</table>
</ul>
EOF
}
}
else{
out "<b>Anmeldung fehlgeschlagen!</b>";
$namerein="";
}
}
{
out <<EOF;
<h2>Anmeldung</h2>Bitte melden Sie sich an:<br><b>Name:</b> test <b>Pass:</b> test
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<table>
<tr><td>Name:</td><td><input type="text" name="namerein="></td></tr>
<tr><td>Passwort:</td><td><input type="password" name="pwrein="></td></tr>
<tr><td></td><td><input type=submit value="Anmelden"></td></tr>
</table></form>
EOF
}
