Habe KEINE Ahnung - Formular

[agapanthus]

Moin.

Drei kleine Fehler haben sich eingeschlichen:

1. Eine Zeile wird in Perl mit einem Semikolon beendet (mehrfach in Deinem Script).
2. Was soll Perl bei Anwendung des regulären Ausdrucks auf $subject machen? Es fehlt das "s" für substitute. (Die Zeile ist schon im Beispiel auf SelfHTML falsch.)
3. Bei bedingten Verzweigungen (if)  muß die Bedingung in Klammern stehen.

Hier die Korrekturen:

$subject =~ /\s/ /g

$subject =~ s/\s/ /g;

if $query->param('Empfaenger') eq 'MA1'{
$mailto = '[e-mail]'
}

if ($query->param('Empfaenger') eq 'MA1') {
$mailto = '[e-mail]';
}

Gruß Frank