Alienform

[Jakob]

Wer kann mir bei alienform helfen?
Es funktioniert alles so weit (die mails werden auch versandt-an den der sich anmeldet, aber nicht an den Webmaster=mich) , nur bekomme ich andauernd folgende Meldung:
+++++++++++++++++++++++++++++
Mail Send Error
Ein Fehler tritt beim Senden der eMail auf: 18176. Please check the email's headers.
+++++++++++++++++++++++++++++
hat jemand eine ahnung, woran das liegen könnte?

herzlichen Dank und mfg

Jakob

[Bernhard Peissl]

Seas!

Ein bissl Code (die Funktion, die das mail abschickt, nicht alles) wirst du schon spendieren müssen. Da es ein fertiges Script zu sein scheint ev. auch einen Link zu alienform - was auch immer das sein soll *fg*

Perl? PHP? Linux? Win? Apache? Ommnihttpd? Xitami? IIS? .... Fragen über Fragen ;-)

lg bernhard

[Jakob]

Sorry!

Teil des Codes des cgi für:
********************************************************************
sub ParseForm
    {
    my ($key, $prefs, $buffer);
    if ($ENV{'REQUEST_METHOD'} eq 'GET')
        { @pairs = split(/&/, $ENV{'QUERY_STRING'}) }
    elsif ($ENV{'REQUEST_METHOD'} eq 'POST')
        {
        read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
        @pairs = split(/&/, $buffer)
        }
    else {Error('Bad or Unbekannte Request-Methode',
                "Das Formular muß mit REQUEST=POST oder REQUEST=GET übertragen werden, Fehler in HTML-Datei prüfen!.")}

foreach $pair (@pairs)
        {
        local($name, $value) = split(/=/, $pair);
        $name =~ tr/+/ /;
        $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $value =~ s/<!--(.)*?-->//mg;
        $FORM{$name} = $value;
        if ($name =~ /_/ and $name !~ /^_/)
            {
            ($prefs, $key) = split /_/, $name, 2;
            if ($prefs =~ /r/i and not $value)                { push @missing_values, $key }
            if ($prefs =~ /e/i and $value and
                (($value =~ /(@.*@)|(..)|(@.)|(.@)|(^.)/) or
                  ($value !~ /^.+@([?)[a-zA-Z0-9-.]+.([a-zA-Z]{2,3}|[0-9]{1,3})(]?)$/)))
                                                              { push @bad_emails, $key      }
            if ($prefs =~ /d/i and $value and $value =~ /\D/) { push @only_digits, $key     }
            if ($prefs =~ /w/i and $value and $value =~ /\W/) { push @only_words, $key      }
            if ($prefs =~ /s/i and $value)                    { $value =~ s/^(\s)*//;
                                                                $value =~ s/(\s)*$//;
                                                                $FORM{$name} = $value;       }
            }

}
    }

sub ParseText
    {
    my ($line, $key, $value, $sub);
    foreach $line (@_)
        {
        while (($key => $value) = each %FORM)
            { $line =~ s/[$key]/$value/ig }
        while (($key => $value) = each %ENV)
            { $line =~ s/[%$key]/$value/ig }
        $line =~ s/[^<*?[^>]]//g;
        }
    foreach $line (@_)
        {
        while ($line =~ /[<((.)*?)>]/)
            {
            $sub = $1;
            $sub =~ s/[^\d+\*/-%.x<>()]//g;
            $sub = eval $sub;
            $line =~ s/[<(.)*?>]/$sub/
            }
        }
    return @_;
    }

sub SendMail
    {
    open(MAIL,"|$mail_cmd") or Error('Fehler - Mailer öffnen',"Ein Fehler tritt auf beim Starten des Mailers ($mail_cmd): $!.");
    print MAIL @_;
    close(MAIL) or Error('Mail Send Error',"Ein Fehler tritt beim Senden der eMail auf: $?. Please check the email's headers.");
    }

__END__
*********************************************************************
Die Antorttextdatei ist dann folgendermaßen aufgebaut (funktioniert):

Mail an den der das Formular ausgefüllt hat:
To: [email]
From: [e-mail]
Subject: formular

Nachricht

Ebenso ist die Textdatei aufgebaut, die an mich gehen soll - eben der Teil der nicht funktioniert:
To: [e-mail]
From: [email]
Subject: formular

Nachricht

noch mal recht herzlichen Dank

Jakob

- Es brqaucht nicht unbedingt dieses cgi sein.
es sollte jedoch nur die ausgefüllten Variablen übernehmen können, und für verschiedene Formulare einsetzbar sein.

[Bernhard Peissl]

Seas Jakob!

Probier mal, das '@' in deiner email-Adresse zu maskieren ('@')
To: [e-mail]

Ansonsten lass bitte mal den PERL-Interpreter mit dem -w flag über das script laufen, und poste die Fehler/Warnings!

• Es brqaucht nicht unbedingt dieses cgi sein.

Meistens sind diese fertig-scripten nicht sehr implementierfreundlich. Wenn man nicht ganz genau das machen will, wie dessen Autor, sind die Dinger oft ziemlich schwierig umzubauen.

es sollte jedoch nur die ausgefüllten Variablen übernehmen können, und für verschiedene Formulare einsetzbar sein.

Alternative (?):
http://www.teamone.de/selfaktuell/artikel/formmail.htm

lg Bernhard