ErrorReply("na sowas\nging schief\n"); sub ErrorReply { # Fehlerzeitpunkt und -Prozessnummer festhalten my $incident = localtime(time) . ' - ' . $$; # Fehlermeldung von die() my $message = shift; # Fehlermeldung ins Error-Log schreiben # Mehrzeiligen Meldungen aufspalten in mehrere Einzeiler warn join("", map("CGI-ERROR $incident: $_\n", split(/\n+/, $message))); # Jetzt die Meldung am Browser ausgeben print "Content-type: text/html\n\n"; # zur Sicherheit print qq~

Ooops!

Jetzt ist doch tatsächlich eines der sorgsam gepflegten Serverprogramme abgesemmelt! Das sollte eigentlich nicht vorkommen aber in seltenen Fällen passiert es doch mal.

Falls Sie bei der Aufklärung des Problems behilflich sein möchten, schicken Sie doch bitte einen kurzen Fehlerreport (was? wann? wie? wo?) per E-Mail an den Webmaster.
Vielen Dank dafür!

Zur Homepage

~; exit 0; }