CGI Fehlerseite

[Byter]

Hallo zusammen,
ich habe die nachfolgendes in mein Script eingebunden, die angesprochen wird wenn der User keine oder eine falsche eMail angibt. Das funktioniert einwandfrei.

Jetzt versuche ich, da durch diese Routine eine neue Seite geöffnet wird, das der Text auf einer eigenen Fehlerseite erscheint. Ich habe mir auch eine Fehlerseite kreiert doch leider scheitern alle Versuche, diese einzubinden. So hat es nicht funktioniert:

open (MAIL, "angebot/stdfehl.htm") || die "Fehler beim Zugriff auf $stdfehl.htm!\n";

Wer kann mir nun helfen

Vielen Dank im voraus.


------------------------------------------------------------------------------------------------------------------------------
sub falschemail
{
print "Content-type: text/html\n\n";
print "Folgendes haben Sie als Ihre eMail-Adresse angegeben:<br><br>\n";
if (length($eMail) == 0) {print "<big><i>leer</i></big><br><br>\n";}
else { print "<big>$eMail</big><br><br>\n";}
print "Leider ist diese Adresse ung&uuml;ltig!<br>Bitte wiederholen Sie die Eingabe.<br><br>\n";
print "<small><center><form METHOD=\"GET\" ACTION=\"javascript:history.back()\">\n";
print "<input type=\"submit\" value=\"Daten korrigieren\"></center></form>\n";
print "</small></font></BODY>\n";
exit;
}
------------------------------------------------------------------------------------------------------------------------------

 

[dr melon]

Hi,
Mit dem folgenden Script kannst du Jemanden weiterleiten:

#!/usr/bin/perl
use CGI qw(:cgi);
use strict;
my $cgi = new CGI;
my $wohin = "http://www.perl.com";
print $cgi->redirect( -URL => $wohin);

mfg dr.melon