usr/lib/sendmail' klappt nicht immer

[Struppi]

#!/usr/bin/perl -w

Das du die Warnungen angeschaltet hast, ist zwar gut, aber du musst sie auch anzeigen lassen. Das Skript läuft als Serverskript, dann könntest du CGI::Carp verwenden.

Mit:

use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

Siehst du im Browser ob alles in Ordnung ist.

Du solltest auch noch use strict benutzen.

E-mail address to send intake form to (your address)

If not using PERL 5, escape the @ thus: @ instead of @

$YourEmail = '[e-mail]';

my $YourEmail = '[e-mail]';
(wegen use strict)

Location of mail program - check your doc or ask admin

$MailProgram = '/usr/lib/sendmail';

sendmail ist auch tatsächlich dort?
Wenn nicht kannst du es auch prüfen:

die "Kann sendmail nicht finden: $MailProgram" unless -e $MailProgram:

$subjectauto = "Registration";

my $subjectauto = "Registration";

open(MAIL,"|$mailp -t");

auch hier solltest du testen, ob das überhaupt geht:

open(MAIL,"|$mailp -t") or die "Fehler beim öffnen, weil: $!";

(Wobei aber hier das Problem ist, woher kommt $mailp?)

print MAIL "To: $YourEmail\n";
print MAIL "From: $YourEmail\n";
print MAIL "Subject: $subjectauto\n\n";
print MAIL "Hallo";
               close (MAIL);

abgesehen davon, dass diese ganzen Variabeln nicht definiert wurden, musst du hier aufpassen, dass dein Skript nicht mißbraucht wird, in dem zusätzliche Headerzeilen eingeschleust werden.

Versuch's doch mal mit einem Modul, z.b. MIME::Lite

Struppi.