hallo leute,
ich habe ein problem und zwar möchte ich aus einer flashseite ein formular per perl/cgi versenden.das formular hat eigene eingabefelder, denen per action-skript folgende befehle zugeordnet sind:
tabOrder = new Array("AnredeTitel", "Vorname", "Name", "Praxis", "Strasse","PLZ_Ort","Tel","Fax","Email","Mitteilung");
Selection.setFocus(tabOrder[0]);
der absende button sieht so aus:
on (release) {
recipient = "e@mail.de";
redirect = "http://www.domain.de/index_flash.html";
subject = "Internetanfrage";
getURL("http://www.domain.de/cgi-bin/userscript.pl", "", "POST");
}
on (release) {
gotoAndPlay("home");
}
der webhoster ist speicherhosting.com
das script sieht wie folgt aus (die datei ist als ascii auf den server geladen worden und die eigenschaften wurde auf 755 gesetzt):
#!/usr/bin/perl
######## EINSTELLUNGEN DIE SIE VORNEHMEN MÜSSEN #################
# Die Einstellungen sind bereits mit den gängigsten Werten vorbelegt
# Besonderes Augenmerk müßen Sie jedoch auf den genauen Eintrag des Mailprogramm Pathes legen!
# Diese Information hält Ihr Provider für Sie bereit.
# Vergewissern Sie sich auch das die Ausführung eigener Perl (CGI) Scripte auf Ihrem Webspace / Paket
# erlaubt ist!
# Sämtliche Einstellungen dürfen nur zwischen den beiden Hochzeichen vorgenommen werden
# alles andere lassen Sie (wenn Sie kein Perl können/verstehen) wie es ist.
# Hier tragen Sie zwischen den beiden Hochzeichen ('') den Path zu Ihrem Sendmailprogramm ein
# Fragen Sie ggf. Ihren Provider. Die Voreinstellung 'usr/sbin/sendmail' wird häufig verwendet
# und funktioniert meist.
$mailprogramm='/usr/sbin/sendmail';
# In $subtext steht die Überschrift der E-Mail unter der Sie die Formulardaten erhalten
$subtext='Mein Kontaktformular';
# In $antwort steht der Bestätigungstext den Ihr Absender nach versenden des Formulars sehen
$antwort='Vielen Dank! Das Formular wurde übermittelt.';
# In $sr steht die Schriftart der Antwort
$sr='Arial';
# In $sr_size steht die Grösse der Schrift
$sr_size='2';
################### ENDE EINSTELLUNGEN ##########################
# AB HIER NICHTS MEHR ÄNDERN WENN SIE NICHT GENAU WISSEN WAS SIE DA TUN! #######################
read(STDIN,$eingabe,$ENV{'CONTENT_LENGTH'});
$eingabe=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$html="";
@pairs=split('&',$eingabe);
foreach $p (@pairs)
{
($key,$wert)=split('=',$p);
$wert=~s/\n//g;
$wert=~s/\+/ /g;
if ($key eq 'FormularTitel')
{
$wert=~s/#/ /g;
}
$hash{$key}=$wert;
$html="$html$key:\n$wert\n\n";
}
$MailPgm = $mailprogramm;
$Mail= "$hash{'ToMail'}";
$From= "$hash{'FormularTitel'}<$hash{'ToMail'}>";
$Subject= $subtext;
open (MAIL, "|$MailPgm $Mail") || die "Fehler beim Zugriff auf $MailPgm!\n";
print MAIL "From: $From\n";
print MAIL "Reply-To: $From\n";
print MAIL "To: $Mail\n";
print MAIL "Subject: $Subject\n\n";
print MAIL "Titel des Formulars: $hash{'FormularTitel'}\n";
print MAIL "\n";
print MAIL "$html\n";
print MAIL "\n";
print MAIL "\n";
print MAIL "\n";
close MAIL;
print "Content-type: text/html\n\n";
print <<eg;
<html>
<head>
</head>
<body bgcolor=white>
<font face=$sr size=$sr_size>$antwort</font>
</body>
</html>
eg
es kommt zwar die bestätigung: 'Vielen Dank! Das Formular wurde übermittelt.'
die mail kommt aber nicht an!
woran liegt das?
wer weiß hilfe!?
Datum: 02.11.2004-22:32
Neuling sucht Hilfe!
