Hallo,ich habe ein Formular in meiner Website.
Dieses Formular hat ungefähr 50 Felder.
Damit die Werte von den Feldern in der Email (die beim versenden ankommt) herrausstechen, möchte ich diese gerne formatieren können. Z.B. Fett und rot machen!
Hab noch nie etwas mit CGI gemacht.
Hat jemand eine Codebeispiel das ich evtl. anpassen könnte?
Hier ist ein Code aus dem Internet:
##############################################
read(STDIN, $formbuffer, $ENV{'CONTENT_LENGTH'});
@formpairs = split(/&/, $formbuffer);
foreach $formpair (@formpairs) {
($formname, $formvalue) = split(/=/, $formpair);
$formvalue =~ tr/+/ /;
$formvalue =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$formvalue =~ s/<([^>]|\n)*>//g;
if ($FORM{$formname}) { $FORM{$formname} = $FORM{$formname}.",".$formvalue; }
else { $FORM{$formname} = $formvalue; }
}
foreach $require (split(/\,/,$FORM{'require'})) {
if ($require eq "email" || $require eq "to") {
unless ($FORM{$require}=~ /\@/ && $FORM{$require}=~ /\./) {
$error .= "Error in $require.<BR>";
}
}
unless ($FORM{$require}) {
$error .= "Missing $require.<BR>";
}
}
unless ($FORM{'sendpage'}) {
$error .= "Missing confirmation page url<BR>";
}
if ($error) {
print "Content-type: text/html\n\n";
print qq(<CENTER><FONT COLOR="#000000"><B>Error</B><BR>-------------------------<BR>$error</FONT></CENTER>);
exit;
}
if ($FORM{'yourname'}) {
$yeshow = qq(
From, $FORM{'yourname'}
);
}
open (MAIL, "|$sendmail_location -t") || die "Can't open $sendmail_location!\n";
print MAIL "From: $FORM{'yourname'} <$FORM{'email'}>\n";
print MAIL "To: $FORM{'to'}\n";
print MAIL "Subject: $FORM{'subject'}\n\n";
print MAIL <<EOF;
$yeshow
$FORM{'message'}
##############################################
Kann ich diesen verwenden? und evtl. anpassen?
Bin für jede Hilfe dankbar,
Grüße
Silke
Datum: 22.09.2005-12:07
CGI Form Email => Mail formatieren
