<HTML>
<head><title>Willkommen</title></head>
<perl>
$eigentuemer="";
get "eigentuemer==$huettenname", statistik;
if ($eigentuemer eq $huettenname)
{
$letzter=$besucham;
$anzahl=$besucher;
$anzahl=$anzahl+1;
mod "eigentuemer==$huettenname",["besucher", $anzahl, "besucham", datum,(jetzt,"Wochentag, Tag.Monatname Jahr, Stunde:Minute"), "letzterbesucham", $letzter], statistik;
}
else
{
$letzter="";
$anzahl=1;
put ["besucher", $anzahl, "besucham", datum,(jetzt,"Wochentag, Tag.Monatname Jahr, Stunde:Minute"), "letzterbesucham", $letzter, "eigentuemer", $huettenname], statistik;
}
</perl>
<frameset rows="*" frameborder=0 border=0>
<perl>
out "<FRAME NAME=\"content\" SRC=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/Sascha_Fitzner/struppis/seite2&sessionid=";
}
out $sid;
out "&huette=",$huettenname;
out "\" MARGINHEIGHT=2 MARGINWIDTH=5 SCROLLING=\"1\""; out "NORESIZE BORDER=\"0\" ALIGN=\"TOP\">";
</perl>
</FRAMESET>
</html>
