<input type="hidden" name="htx" value="/xxx/change_pwd">
<input type="hidden" name="Id" value=$Id">
<perl>
out "<input type=\"hidden\" name=\"benutzername\" value=\"",$benutzername,"\">";
<perl>
if ($sessionid ne "")
{
$sessid=$sessionid;
get "sessionid==$sessid", idtable;
if ($sessionid eq $sessid)
{
out "<center>";
out $benutzername," ";
$sessionid=$sessid
}
else
{
out " gebe nun Dein neues Passwort ein<br>Beachte die Groß/Kleinschreibung <br>";
out "<INPUT ID=\"Passwort\" TYPE=TEXT NAME=\"passwort:=\" VALUE=\"\" SIZE=20 MAXLENGTH=20>";
out "<INPUT TYPE=RESET NAME=\"button_Reset\" VALUE=\" Reset \" ID=\"ResetButton\">";
out "<INPUT TYPE=SUBMIT NAME=\"Button_Abschicken\" VALUE=\"Ändern\" ID=\"SendButton\"></center>";
}
}
else
{
out " Dein Passwort kann nicht geändert werden, da Du nicht eingeloggt bist. <br>Bitte logge dich aus und wieder mit Deinem altem Passwort wieder ein und versuche es erneut</center>";
}
</perl>