<table cellpadding="0" width="100%" height="100%" cellspacing="15" border="0">
    <tr>
    <td align=left width="100%">
    <span class=titel>News</span>
    </td>
    </tr>
    <loop>
    <tr>
    <td align=left width="100%">
    <span class=navimain>$datum<p>$titel<p>$text<p>$URL</span>
    </td>
    </tr>
    <tr>
    <td align=center width="100%">
    <img src="http://www.klimagoetter.de/images/head.gif" width="400" height="3">
    </td>
    </tr>
    </loop>
    <tr>
    <td align=center valign=middle>
<perl>
if($logout eq "1")
{
mod "nutzer_name==$login_name", ["nutzer_sid", ""], "nutzer";
}
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)= gmtime(time);
$sid_aktuell = (1000000*$year)+(10000*$mon)+(100*$mday)+(4*$hour);
$anzeige="";
if($namerein ne "" && pwrein ne "" && $sid eq "")
{
  get "nutzer_name==!$namerein", "nutzer";

  if($nutzer_passwort ne "" && $nutzer_passwort eq $pwrein)
  {
out "<!-- Session-Id erstellen und mit Url mitgeben -->";
    mod "nutzer_name==$namerein", ["nutzer_sid", "$sid_aktuell"], "nutzer";
    $anzeige="1";
} else
  {
    out "<span class=text>Anmeldung fehlgeschlagen!<p></span>
";
    $namerein="";
    $login_name="";
    $anzeige="";
  }

if($namerein ne "" && $sid ne "")
{
out "<!-- test, ob aktuelle session-id noch gültig ist -->";
get "nutzer_name==$namerein", "nutzer";
$sid_max = 10+(1*$nutzer_sid);
if($sid eq $nutzer_sid && $sid_aktuell <= $sid_max)
{
out "<!-- session-id ist gültig - session-id wird aktualisiert -->";
mod "nutzer_name==$namerein", ["nutzer_sid", "$sid_aktuell"], "nutzer";
$anzeige="1";
} else
{
out "<!-- session-id ist abgelaufen -->";
    $login_name="$nutzer_name";
    $namerein="";
    $anzeige="";
}
}
out "<!-- login-seite -->";
if($namerein eq "")
{
out <<EOF;

<tr><td>
<form action="http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<span class=fuss>Login-Name:</td><td><input type="text" name="namerein=" value="$login_name"></td>
<td>Passwort:</td><td><input type="password" name="pwrein="></td><td>  
<input type="image" src="http://www.klimagoetter.de/images/login.gif" width="70" height="30" BORDER="0" ALT="Einloggen zum News schreiben" value="Anmelden"></span></td></tr>
</table></form>
EOF
}
out "<!-- anzeige des inhalts, falls berechtigt -->";

{

<!-- Feldbezeichnungen und Pfad wegen Veröffentlichung geändert -->
<table cellpadding=0 cellspacing=6 border=0 width=502>
    <FORM NAME="news" ENCTYPE="multipart/form-data" ACTION="http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/Frosti/news&cmd=add" METHOD=POST>
<INPUT TYPE=HIDDEN NAME="cmd=" VALUE="add">
<INPUT TYPE=HIDDEN NAME="htx=" VALUE="/Frosti/news">
<tr>
<td colspan=2 align=center>
<span class=text>Bitte tragt hier Eure neuesten Neuigkeiten ein. Bitte nur seriöse,
fundierte und gut recherchierte Nachrichten. Danke!<p></span>
</td>
</tr>
<tr valign=zop>
<td align=left>
<span class=fuss>Überschrift:</span>
</td>
<td align=right>
<input type=text size="30" name="titel:=">
</td>
</tr>
<tr valign=top>
<td align=left>
<span class=fuss>Nachricht:</span>
</td>
<td align=right>
<textarea cols="38" rows="5" name="text:="></textarea>
</td>
</tr>
<tr valign=top>
<td align=left>
<span class=fuss>option. URL</span>
</td>
<td align=right>
<input type=text size="30" name="URL:=">
</td>
</tr>
<tr valign=top>
<td align=left>
<span class=fuss>Autor:</span>
</td>
<td align=right>
<input type=text size="30" name="Autor:=">
</td>
</tr>
<tr>
<td colspan=2 align=center>
<br><br>
<input type="reset" name="reset" value="Zurücksetzen">
<input type="submit" name="abschicken" value="Abschicken">
      </td>
     </tr>
     </form>
    </table>

}
</perl>

     </td>
     </tr>
     </table>