2012-12-01T13:27:02 GwenDragon

Code (perl): (dl )

1
2
3
4
5
6
7

if ($loginname =~ /\s/) { # Benutzername enthält mindestens 1 Leerzeichen
  # dann ungültige Zeichen rausnehmen
  #$loginname =~ s/\s//g;
}
else {
  # hier mit login weiter
}

Herzlichen Dank, mein Problem ist damit gelöst. Das Problem war, dass jede Fehlermeldung automatisch einen Server-Fehler zur Folge hat, weil ich mich mit der LOGIN-Routine noch 'oberhalb' des eigentlichen 'Programm-Teils' befinde, und somit Fehlermeldungen, seien es ERROR oder OOPS, noch gar nicht ausgeführt werden können.

Mit der von mir nun leicht gekürzten Version erkennt der Script einfach einen falschen Benutzernamen und reagiert somit, wie gewünscht, ohne Fehlermeldung, indem er den fehlerhaften Anmeldeversuch so einfach ignoriert.

Einen schönen Tag!

Ernie

PS. Wer englisch kann und echte(r) Perl-Guru(in) ist, könnte sich sogar ein nettes Zubrot verdienen, indem er (sie) mir hilft, mein EveryAuction Projekt, unter gebührender Berücksichtigung (alter) existierender EA Standards, auf einen Perl-technisch erstklassigen Standard zu bringen.

Ich bin pensioniert, habe Zeit und Mittel, und ich habe has weltweit umfassenste EveryAuction-Source-basierende Archiv.

Mein Ziel ist es, Teile einer kompletten Suite wie zum Beispiel mein Uraltprojekt:

http://gratis-anzeiger.com/

basierend auf EveryAuction Source, als kostenloses LGPL Engine anzubieten. Funktionsfertig und betriebsbereit, aber optisch relativ karg und vielleicht so etwa wie:

http://www.everyauction.info/cgi-bin/c/auction.pl?

WESHALB mach is sowas?

Die Idee EveryAuction ist geil! Und zwar deshalb, weil auch Programmieridioten wie ich mit EveryAuction in der Lage sind, nicht zu verstehen, wie sowas funzt, sondern auch noch eigenes auszuprobieren, und so zu lernen, wie man programmiert.

Ich spiele seit 13 Jahren, zum Zeitvertreib und aus reinen Vergnügen, mit EveryAuction Software. Ich betreibe dazu URL's, die zu nichts anderem dienen als zum Testen meiner Spielereien. Nebenbei unterstütze ich weltweit Benutzer von EveryAuction Source, so auch Makebid Software von Richard Thomas.

Es liegt mir viel daran, diese Perl Software weiterhin aktiv zu supporten. Ich habe sehr viel dabei gelernt, aber ich kenne meine Grenzen. Meine Kunst besteht darin, solange an einem Problem zu arbeiten, bis ich es gelöst habe. Perl schreiben kann ich zwar nicht, aber kopieren und abändern, darin gehör ich zu den grössten...

...deshalb brauche ich auch so ein grosses Archiv, und deshalb suche ich noch Spezialisten, die aus rechenintensiven Perl Bastler-Routinen effiziente 1- oder 2-Zeiler zu machen imstande sind.

Das mich solches ggfls. auch etwas kostet wird und darf, ist selbstredend.