Danke

[Struppi]

Hallo,
ich hab mich wohl zu früh gefreut, jetzt klappt es schon wieder nicht mehr. Er bringt beim aufrufen des scripts den fehler:
Software error:
Can't find string terminator '"' anywhere before EOF at postkarte.pl line 34.
weiß jemand an was das liegt?
mfg Marcel

#!/usr/bin/perl

use strict;
use CGI::Carp qw(fatalsToBrowser);
use CGI;

my $cgi  = new CGI;

Warum bindest du CGI.pm ein und benutzt es dann nicht?
Ausserdem solltest du dich mal mit HERE Dokumenten befassen.

#!/usr/bin/perl -w

use strict;
use CGI qw/:standard/;

my $image = param('image') || '';

print header(), start_html(),
      start_form(-action => '../../cgi-bin/send.cgi', -name => 'postcard', onsubmit => 'return pruefung()'),
      hidden(-name => 'image') # Du brauchst hier kein Value anzugeben, CGI.pm macht das automatisch
      ;
print <<TEXT;
<TABLE BORDER=0 CELLPADDING=1 CELLSPACING=0 >
<TR>
<TD ALIGN="CENTER">Name des Senders:</TD>
<TD ALIGN=CENTER>e-Mail des Senders:</TD>
</TR><TR>
<TD ALIGN=CENTER><input type="text" name="fromname" size="35"></TD>
<TD ALIGN=CENTER><input type="text" name="from" size="35"></TD>
</TR><TR>
<TD ALIGN=CENTER>Name des Empfängers:</TD>
<TD ALIGN=CENTER>e-Mail des Empfängers:</TD>
</TR><TR>
<TD ALIGN=CENTER><input type="text" name="toname" size="35"></TD>
<TD ALIGN=CENTER><input type="text" name="to" size=/"35/"></TD>
<TR><TR>
<TD ALIGN=CENTER COLSPAN=2>Text deiner Postkarte:<BR>
<textarea name="text" wrap=virtual rows="5" cols="80"></textarea></TD>
<TR><TR>
<TD ALIGN=CENTER COLSPAN=2>
<input type="submit" value="Postkarte abschicken"></TD>
<TR>
</TABLE>
</form>
TEXT

print end_html();