Nachricht in neuem Fenster ausgeben

[FlamingMoe]

Moin,

hab ein guestbook runtergeladen (nms) und es soweit zum laufen gebracht. Nun noch folgendes:  Es werden die Formular-Felder auf Inhalt geprüft. Wenn man keinen Namen, etc. eingibt, taucht ne Fehlermeldung auf.

Diese Fehlermeldung hätte ich gerne in einem neuen Fenster. Was muss ich tun?

Es folgt der betreffende Auszug aus dem Quelltext: (Wahrscheinlich zu viel, aber sicher ist sicher. ich meine Die Meldung "The comment section in the guestbook fillout form appears
to be blank ....."

$_ .= "\n<!-- comment end -->\n";

$_ .= "<!--begin-->\n" unless $entry_order;
        }
    }
);

write_log('entry') if $uselog;

my $mailsafe_username =
  ( check_email( $inputs{username} ) ? $inputs{username} : '' );
my $mailsafe_realname = cleanup_realname( $inputs{realname} );

if ($mail)
{
    my $to      = $recipient;
    my $from    = "$mailsafe_username ($mailsafe_realname)";
    my $reply   = "$mailsafe_username ($mailsafe_realname)";
    my $subject = 'Entry to Guestbook';
    my $body    = 'You have a new entry in your guestbook:';
    do_mail( $to, $from, $reply, $subject, $body );
}

if ( $remote_mail && $mailsafe_username )
{

my $to      = $mailsafe_username;
    my $from    = $recipient;
    my $reply   = $recipient;
    my $subject = 'Entry to Guestbook';
    my $body    = 'Thank you for adding to my guestbook.';
    do_mail( $to, $from, $reply, $subject, $body );
}

Print Out Initial Output Location Heading

if ($redirection)
{
    print redirect($guestbookurl);
}
else
{
    no_redirection();
}

sub form_error
{

my ($why) = @_;

my ( $title, $heading, $text, $comments_field );

if ( $why eq 'no_name' )
    {
        $inputs{realname}  = '';
        $escaped{realname} = '';
        $title             = 'No Name';
        $heading           = 'Your Name appears to be blank';
        $text              = <<EOTEXT;
The Name Section in the guestbook fillout form appears to
be blank and therefore your entry to the guestbook was not
added.  Please add your name in the blank below.
EOTEXT
        $comments_field = <<EOCOMMENT;
    Comments have been retained.
        <input type="hidden" name="comments" value="$escaped{comments}" />
        <input type="hidden" name="comments_encoded" value="1" />
EOCOMMENT
    }
    elsif ( $why eq 'no_comments' )
    {
        $title   = 'No Comments';
        $heading = 'Your Comments appear to be blank';
        $text    = <<EOTEXT;
The comment section in the guestbook fillout form appears
to be blank and therefore the Guestbook Addition was not
added.  Please enter your comments below.
EOTEXT
        $comments_field = <<EOCOMMENT;
    Comments:<br />
    <textarea name="comments" cols="60" rows="4"></textarea>
EOCOMMENT
    }
    else
    {
        $title          = 'Unknown Error';
        $heading        = 'Something appears to be wrong with your submission';
        $text           = 'Please check your input and resubmit';
        $comments_field = <<EOCOMMENT;
    Comments:<br />
    <textarea name="comments" cols="60" rows="4">$escaped{comments}</textarea />
    <input type="hidden" name="comments_encoded" value="1" />
EOCOMMENT
    }

print "Content-Type: text/html; charset=iso-8859-1\n\n";
    $done_headers++;
    print <<END_FORM;

Vielen Dank!
moe

[Raik]

Hallo, FlamingMoe!

Diese Fehlermeldung hätte ich gerne in einem neuen Fenster. Was muss ich tun?

in einem fenster auf dem server (wo perl läuft)?
wenn du das fenster auf dem clienten haben willst, hat perl nichts damit zu tun.
dann gehts nur mit javascript.

freundl. Grüsse aus Berlin, Raik

[Orlando]

Hi FlamingMoe,

Es werden die Formular-Felder auf Inhalt geprüft. Wenn man keinen Namen, etc. eingibt, taucht ne Fehlermeldung auf. Diese Fehlermeldung hätte ich gerne in einem neuen Fenster. Was muss ich tun?

nachdem es wohl nicht viel bringen wird, wenn dieses Fenster beim Admin deines Hosters auf der Konsole aufpoppt, schlage ich eine clientseitige Technik vor, z.B. Javascript:

window.open()

Dieses Fenster kannst du per onload-Event öffnen und darin eine Seite generieren, die den Fehler reklamiert. Allerdings ist dafür zusätzliche Kommunikation zwischen Perl-Scripts oder eine Übergabe aller Informationen an das neue Fenster nötig. Das ist umständlich, wenn du mich fragst.

Besser, du bleibst im alten Fenster und markierst dort eventuell Fehleingaben.

Grüße,
 Roland

[FlamingMoe]

die .pl weiß doch, wann sie die guestbook.html aufzurufen hat. Kann ich evtl. eine Fehler.html basteln, die dann im falle des Falles statt der guestbook.html aufgerufen wird, und das dann eben in eigenem Fenster?

Was meint Ihr mit Eingaben im selben Fenster "Markieren"?

thx
moe

[Markus Pitha]

Hola,

die .pl weiß doch, wann sie die guestbook.html aufzurufen hat. Kann ich evtl. eine Fehler.html basteln, die dann im falle des Falles statt der guestbook.html aufgerufen wird, und das dann eben in eigenem Fenster?

Ich würde es ohnehin anders machen.
Ich würde den Perl Code so belassen wie er ist. Die einzige Möglichkeit eine Fehlermeldung in einem neuen Fenster anzeigen zu lassen, geht nur über Javascript, wie dir bereits gesagt wurde. Ich würde aber gar kein Javascript-Perl Mischmasch daraus machen.
Du hast somit die Möglichkeit nach klicken den "SENDEN" Buttons im Formular die Eingaben des Formulars an eine Javascript Funktion zu binden (die natürlich nichts mit Perl zu tun hat!). In dieser Funktion überprüfst du einfach alle Eingaben mit regulären Ausdrücken mithilfe von Javascript. (Die Funktion zu reg. Ausdrücken sind in Javascript hinreichend genug, um deine Eingaben zu überprüfen).
Du hast nun die Eingabeüberprüfung per Javascript, und in Form eines Popups(mit window.open() ), als auch die Eingabeüberprüfung mit Perl, was auch gut ist, da jemand auf die Idee kommen könnte Javascript auszuschalten oder Javascript aus irgend einem Grund nicht ausführen kann, aber selbst diese Personen sehen dann sogar eine Eingabeüberprüfung.

Markus.