hallo ich möchte gerne das admintool aus der bib für meine seiten verwenden, habe aber schwierigkeiten das ganze an meine seiten anzupassen .
wer kann mir helfen??
gruss herbert
<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
{
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>
<table>
EOF
get "", "main", "ausgabe";
$i=0; #hier wird eine Zählvariable gesetzt die eine neue Variable in get_next bildet
while (get_next(ausgabe))
{
out "<tr><td>id: $_id </td><td>resort: <b>$resort</b></td><td> Schneehöhe: <input type=text name='neu$i=' size=3 value=$Hoehe></td></font><tr>"; #sollen mehrere Einträge eines Datensatzes geändert werden, müssen hier noch entsprechende Felder angehangen werden
neu$i ist neu+die zahl x
$i++; #zahl für $neu wird um eins erhöht
}
out <<EOF;
</table><input type="submit">
</ul>
</form>
EOF
}
else{
out <<EOF;
<ul><table>
EOF
get "", "main", "bla";
$new=neu; # hier wird der erste Teil des Namens der übergebenen Variablen zusammengebaut
$i=0; # hier der zweite, wieder mit zahl - entspricht der zahl aus dem Form zb. $neu3
while (get_next(bla))
{
out "<tr><td>id: $_id </td><td>resort: <b>$resort</b></td><td>Schneehöhe: ";
$var = ${$new.$i}; # hier wird die Variable zusammengesetzt - es entsteht $var = $neux (x für zahl)
out $var;
if ($var ne $Hoehe) # wenn etwas geändert wurde
{
out " <font color=red>****geändert****</font>";
}
out "</td></font><tr>";
$i ++;
}
out <<EOF;
</table>
</ul>
EOF
}
}
else{
Ist es der erste Seitenaufruf, beginnt das Programm hier mit der PW -abfrage.
out "<b>Anmeldung fehlgeschlagen!</b>";
$namerein="";
}
}
if($namerein eq "")
{
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
}
</perl>
