nicht angemeldet
#!/usr/bin/perl
$i = 0;
print ("content-type:text/html\n\n\n");
print ("<html><body>\n");
print ("<table border=0 width="50%"><tr>\n");
print ("<td><b><font face="Tahoma">Benutzername:</font></b></td>\n");
print ("<td><b><font face="Tahoma">Erstellte Posts:</font></b></td></tr>\n");
@Mem = ("./Members/Affenbrotbaum.cgi","./Members/Boeltzer.cgi");
for(@Mem)
{
@Zeilen = ("");
open(MAILDAT, $Mem[$i]) die "Datei mit E-Mails nicht gefunden\n";
while(<MAILDAT>)
{
push(@Zeilen,$_);
}
close(MAILDAT);
for(@Zeilen) {
@Adresse = split(//,$_);
$i = 0;
for(@Adresse)
{
print "<tr><td><font face="Tahoma">";
print $Adresse[0];
print "</font></td><td><font face="Tahoma">";
print $Adresse[7];
print "</td></tr></font>\n";
goto N;
}
N:
}
$i++;
}
print ("</table></body></html>");
-------------------------------------------------------------------
Wenn ich nun zu @Mem noch einen Eintrag hinzufüge dann legt sich das Script mit nem 500'er hin *heul* vielleicht weiss ja einer weiter..