)
{
$zaehler=$zaehler+1;
$text1=$_;
chomp($text1);
if ($zaehler == $zeilennummer)
{
$laenge=$#zwischendaten;
for ($z=0;$z<=$laenge;$z+=1)
{
if (length($zwischendaten[$z]) > 0)
{
print IN "$zwischendaten[$z]\t";
}
}
print IN "\n";
}
else
{
print IN "$text1\n";
}
}
close(INS);
close(IN);
chmod "daten/hauptdatei.txt",0666;
unlink "daten/hauptdateitmp.txt";
unlink "daten/$nummer.txt";
unlink "beitraege/$nummer.txt";
print "";
print "Beitrag erfolgreich gelöscht.";
print "
";
print "Zum Forum
";
print "
";
}
}
}
}
sub registrieren
{
$text=<<"TEXT";
Hier kannst Du den Nick, den Du im Forum benutzen willst, mit einem Paßwort schützen.
Dein Vorteil: Niemand anders mehr kann diesen Nick verwenden.
|
TEXT
print "$text";
}
sub registrierenspeichern
{
$nick=param("nick");
$nick=~ s/^\s+//;
$nick=~ s/\s+$//;
$passwort=param("passwort");
$passwort=~ s/^\s+//;
$passwort=~ s/\s+$//;
$globalsicherheit=0;
$usersicherheit=0;
if (length($nick) == 0)
{
$globalsicherheit=1;
}
if (length($passwort) == 0)
{
$globalsicherheit=1;
}
$nickintern=¨auteumwandeln($nick);
if ($nickintern =~ /\W/)
{
$globalsicherheit=1;
print "
";
print "";
print "Bitte verwende in Deinem Nick nur Buchstaben und Zahlen und keine Leerzeichen.";
print "
";
print "Zurück
";
print "
";
}
if ($passwort =~ /\W/)
{
$globalsicherheit=1;
print "
";
print "";
print "Bitte verwende in Deinem Paßwort nur Buchstaben und Zahlen und keine Leerzeichen.";
print "
";
print "Zurück
";
print "
";
}
if ($globalsicherheit == 0)
{
$kleinnick=lc($nick);
$kleinnickintern=¨auteumwandeln($kleinnick);
if (-e "user/$kleinnickintern.txt")
{
print "
";
print "";
print "$nick ist leider bereits registriert. Probiere es bitte mit einem anderen Nick.";
print "
";
print "Zurück
";
print "
";
}
else
{
open(IN,">user/$kleinnickintern.txt");
print IN "$nick\n";
print IN "$passwort\n";
close(IN);
chmod "user/$kleinnickintern.txt",0666;
print "";
print "Der Nick $nick wurde erfolgreich registriert.";
print "
";
print "Zurück zum Forum
";
print "
";
}
}
}
sub userloeschen
{
$text=<<"TEXT";
Lieber Webmasterin, lieber Webmaster, hier kannst Du direkt einen registrierten User löschen.
|
TEXT
print "$text";
}
sub userloeschenspeichern
{
$nick=param("nick");
$nick=~ s/^\s+//;
$nick=~ s/\s+$//;
$passwort=param("passwort");
$passwort=~ s/^\s+//;
$passwort=~ s/\s+$//;
$globalsicherheit=0;
$usersicherheit=0;
if (length($nick) == 0)
{
$globalsicherheit=1;
}
if (length($passwort) == 0)
{
$globalsicherheit=1;
}
$nickintern=¨auteumwandeln($nick);
if ($nickintern =~ /\W/)
{
$globalsicherheit=1;
print "
";
print "";
print "Dieser Nick dürfte eigentlich nicht existieren.";
print "
";
print "Zurück
";
print "
";
}
if ($passwort =~ /\W/)
{
$globalsicherheit=1;
print "
";
print "";
print "Ungültiges Admin-Paßwort.";
print "
";
print "Zurück
";
print "
";
}
if ($passwort ne $adminpasswort)
{
$globalsicherheit=1;
print "
";
print "";
print "Falsches Admin-Paßwort.";
print "
";
print "Zurück
";
print "
";
}
if ($globalsicherheit == 0)
{
$kleinnick=lc($nick);
$kleinnickintern=¨auteumwandeln($kleinnick);
if (-e "user/$kleinnickintern.txt")
{
unlink "user/$kleinnickintern.txt";
print "";
print "Der Nick $nick wurde erfolgreich gelöscht.";
print "
";
print "Zurück zum Forum
";
print "
";
}
else
{
print "";
print "Der Nick $nick wurde nicht gefunden.";
print "
";
print "Zurück zum Forum
";
print "
";
}
}
}
sub useruebersicht
{
$text=<<"TEXT";
Lieber Webmasterin, lieber Webmaster, hier kannst Du Dir alle registrierten User inklusive Paßwort ansehen:
|
TEXT
print "$text";
}
sub useruebersichtausfuehren
{
$passwort=param("passwort");
$passwort=~ s/^\s+//;
$passwort=~ s/\s+$//;
$globalsicherheit=0;
$usersicherheit=0;
if (length($passwort) == 0)
{
$globalsicherheit=1;
}
if ($passwort =~ /\W/)
{
$globalsicherheit=1;
print "
";
print "";
print "Ungültiges Admin-Paßwort.";
print "
";
print "Zurück
";
print "
";
}
if ($passwort ne $adminpasswort)
{
$globalsicherheit=1;
print "
";
print "";
print "Falsches Admin-Paßwort.";
print "
";
print "Zurück
";
print "
";
}
if ($globalsicherheit == 0)
{
opendir(IN,"user");
@usernamen=readdir(IN);
closedir(IN);
@usernamen=sort @usernamen;
$laenge=$#usernamen;
if ($laenge == (-1))
{
print "";
print "Noch keine registrierten User vorhanden.";
print "
";
print "Zurück
";
print "
";
}
else
{
print "";
print "";
print "Username:";
print " | ";
print "";
print "Paßwort:";
print " | ";
print "";
for ($z=0;$z<=$laenge;$z+=1)
{
$text=$usernamen[$z];
chomp($text);
if ($text =~ /\w/ and length($text) > 0 and $text ne '.htaccess')
{
$kleinnick=lc($text);
#print "$kleinnick";
open (IN,"user/$kleinnick");
$nick=;
chomp($nick);
$passwort=;
chomp($passwort);
close(IN);
print "";
print "$nick";
print " | ";
print "";
print "$passwort";
print " | ";
print "";
}
}
print "
";
}
}
}
sub umlauteumwandeln
{
my($utext)=shift(@_);
$utext =~ s/ä/ae/g;
$utext =~ s/Ä/AE/g;#
$utext =~ s/ö/oe/g;
$utext =~ s/Ö/OE/g;
$utext =~ s/ü/ue/g;
$utext =~ s/Ü/UE/g;
return($utext);
}