Matti Maekitalo: guestbook script anpassen

Beitrag lesen

use Mosche;

wir haben auf unserer seite ein guestbook eingerichtet, was auch bis auf unser problem ausgezeichnet läuft. das problem: das perl script generiert einen www-link. wenn man ihn dann öffnen möchte, passiert das im selben frame! weiss irgendjemand, wie man das im perl script ändern kann?!

if ($FORM{'url'} =~ /^http://([^/]+)/i) {

Der Autor des Guestbooks scheint noch nie etwas von CGI.pm gehört zu haben.

print GUEST "<tr><td align="right"><font face="Verdana" size="2" color="#000066"><b>URL :</b></font></td>\n";

Und von here-Documents auch nicht :-)

print GUEST "<td><a href="$FORM{'url'}"><font face="Verdana" size="2" color="#000066">$FORM{'url'}</a></font></td></tr>\n";

Abgesehen davon musst du nur diese Zeile ändern:
     print GUEST "<td><a href="$FORM{'url'}" target="_blank"><font face="Verdana" size="2" color="#000066">$FORM{'url'}</a></font></td></tr>\n";

Im Übrigen würde ich dieses Guestbook mal dringend verbessern - Stichwort font-Tag, CGI.pm, here-docs,...

use Tschoe qw(Matti);