ABAKUS

Da hilft sicher nicht nur der Servererror und der Logauszug weiter, sondern das Script mit Parametern usw.

Läuft bei mir normal nur bei meinem Kollegen nicht!!!

#!/usr/bin/perl
require "newsconfig.pl";

&formular;

&anfangadmin;
𝕜


print("

<SCRIPT language=\"JavaScript\">
<!--
if (parent.frames.length < 1) {

window.top.location.href=\"admin.pl\";

}
//-->
</SCRIPT>

");


if($FORM{'status'} eq "logout")
{
chmod(0777, "$IPLAGER");
open (NEW_ID,">$IPLAGER");
close NEW_ID;
chmod(0611, "$IPLAGER");
print("<center><img src=\"../bilder/ok.gif\" border=\"0\">&nbsp;<b>Logout bestätigt.<br>Vielen Dank für Ihren Besuch.</b></center>");
}

print("<br>

<form method=\"post\" action=\"logerf.pl\">
<table width=\"28%\" align=\"center\">
<tr>
<th align=center colspan=2><img src=\"../bilder/key.gif\" width=\"16\" height=\"16\" border=\"0\">&nbsp;<b>Login Admintool:</b></th>
</tr>
<tr>
<td width=\"14%\">&nbsp;Login:</td>
<td width=\"86%\">
<input type=\"text\" name=\"administrator\">
</td>
</tr>
<tr>
<td width=\"14%\">&nbsp;Passwort:</td>
<td width=\"86%\">
<input type=\"password\" name=\"passwort\">
</td>
</tr>
<tr>
<td width=\"14%\">
<input type=\"hidden\" name=\"stat\" value=\"einlogen\">&nbsp;<img src=\"../bilder/adminkl.gif\" width=\"16\" height=\"16\" border=\"0\">
</td>
<td width=\"86%\">
<input type=\"submit\" name=\"Abschicken\" value=\"Einloggen\">
</td>
</tr>
</table>
</form>
<h1 align=\"center\">&nbsp;</h1>
<h1 align=\"center\">&nbsp;</h1>
");