nicht angemeldet
hi ho
Moins!
aha. also hast du ein problem mit der brauserausgabe...
hast du irgendwo print "Content-type: text/html\n\n" stehen?
und danach vielleicht noch irgendeinen html-text fuer den user...?
Kann es eigendlich nicht sein... Ich poste mal das ganze Script..:
==================cut===============
#!/usr/local/bin/perl
use CGI::Carp qw(fatalsToBrowser);
Daten vom Formular bekommen
read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});
print "Content-type: text/html\n\n";
Daten auswerten
@Formularfelder = split(/&/, $Daten);
foreach $Feld (@Formularfelder)
{
($name, $value) = split(/=/, $Feld);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.\n)*-->//g;
$Formular{$name} = $value;
}
$mailprog = "/usr/sbin/sendmail";
$subject = "hab hier \‚ne interessante Site gefunden!";
$sendermail = $Formular{'Email'};
$sendername = $Formular{'Name'};
$Empfaenger = $Formular{'EmailKumpel1'} + $Formular{'EmailKumpel2'};
Daten an Sendmail schicken...
open(MAIL,"$Mailprogramm -t") or die "Fehler beim Versenden der Mail: $!";
print MAIL "To: $Empfaenger\n";
print MAIL "From: $sendermail $sendername\n";
print MAIL "Subject: $subject\n\n";
print MAIL "Hallo!\n";
print MAIL " \n";
print MAIL "$Formular{'Name'} hat gerade DanFun.com einen Besuch abgestattet und meint Du solltest\n";
print MAIL "auch mal hier vorbeischauen!\n";
print MAIL "Dieser Meinung sind wir auch. Also, die Adresse lautet\n";
print MAIL " http://www.DanFun.com\n";
print MAIL " \n";
print MAIL "Na dann bis gleich!\n";
print MAIL " \n";
print MAIL "$Formular{'Name'} schrieb noch folgendes:\n";
print MAIL " \n";
print MAIL "$Formular{'Nachricht'}\n";
print MAIL " \n";
close(MAIL);
open(MAIL, "$Mailprogramm -t") die "Fehler beim Versenden der Mail: $!";
print MAIL "To: webmaster@danfun.com\n";
print MAIL "From: mailbot@danfun.com DanFunMailbot\n";
print MAIL "Subject: Weiterempfehlung versendet!\n\n";
print MAIL "Von: $Formular{'Name'} $Formular{'Email'}\n";
print MAIL "An: $Empfaenger\n";
print MAIL "An: $Formular{'NameKumpel1'} $Formular{'NameKumpel2'}\n";
print MAIL "Msg: $Formular{'Nachricht'}\n";
close(MAIL);
Danke sagen...
print << "[END]";
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
<title>Vielen Dank, Formular{'Name'}!</title>
</head>
<body bgcolor="#000000" text="#FFFFFF" topmargin="0" leftmargin="0">
ne ganze Menge html deleted
</body>
</html>
[END]
EOP
====================cut=====================0
Das wars...
denn bis dann,
Kurti