formular per perl/cgi verschicken

  • hallo leute,
    wer von euch kann mir weiterhelfen?
    ich möchte 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 asci geupt und die eigenschaften auf 755 gesetzt worde):


    #!/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




    irgendwie klappt es nicht!?


    wer weiß hilfe!?