Sendmail

[Pits]

Hi!

Aus mir unerfindlichen Gründen klappt das verschicken von Emails via sendmail nicht. Hier dsa Script:

#!/usr/bin/perl -w
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $cgi = new CGI;
use DBI;

#-----------------------------------------------------------------------------#

Variablen                                                                   #

#-----------------------------------------------------------------------------#

allgemeine Strings

use vars qw($mailprog $nachname $vorname $adresse $plz_ort $telefon $email $kommentar);

#-----------------------------------------------------------------------------#

CGI-Parameter auslesen                                                      #

#-----------------------------------------------------------------------------#
$nachname  = $cgi->param('nachname');
$vorname   = $cgi->param('vorname');
$adresse   = $cgi->param('adresse');
$plz_ort   = $cgi->param('plz_ort');
$telefon   = $cgi->param('telefon');
$email     = $cgi->param('email');
$kommentar = $cgi->param('kommentar');

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

open(EMAIL, "|$mailprog -t") || die "Can't open $mailprog!\n)";
print EMAIL "To: [e-mail]";
print EMAIL "From: $email";
print EMAIL "Subject: Kontaktaufnahme via Homepage";
print EMAIL "Nachname:  $nachname\n\n";
print EMAIL "Vorname:   $vorname\n\n";
print EMAIL "Adresse:   $adresse\n\n";
print EMAIL "PLZ/Ort:   $plz_ort\n\n";
print EMAIL "Telefon:   $telefon\n\n";
print EMAIL "Email:     $email\n\n";
print EMAIL "Kommentar:\n\n";
print EMAIL "$kommentar\n";
close (EMAIL);

#-----------------------------------------------------------------------------#

HTML-Header printen                                                         #

#-----------------------------------------------------------------------------#
print "Content-Type: text/html\n\n";
print "Email erfolgreich versandt!";

Der letzte Print (Email erfolreich versandt) erscheint, aber in die Inbox flattert nix :-(

Any ideas?

[Reiner]

HI,

open(EMAIL, "|$mailprog -t") || die "Can't open $mailprog!\n)";
print EMAIL "To: [e-mail]";
print EMAIL "From: $email";
print EMAIL "Subject: Kontaktaufnahme via Homepage";
print EMAIL "Nachname:  $nachname\n\n";
print EMAIL "Vorname:   $vorname\n\n";
print EMAIL "Adresse:   $adresse\n\n";
print EMAIL "PLZ/Ort:   $plz_ort\n\n";
print EMAIL "Telefon:   $telefon\n\n";
print EMAIL "Email:     $email\n\n";
print EMAIL "Kommentar:\n\n";
print EMAIL "$kommentar\n";
close (EMAIL);

versuch mal das:

open(EMAIL, "|$mailprog -t") || die "Can't open $mailprog!\n)";
print EMAIL "To: [e-mail]\n";
print EMAIL "From: $email\n";
print EMAIL "Subject: Kontaktaufnahme via Homepage\n";
print EMAIL "Nachname:  $nachname\n";
print EMAIL "Vorname:   $vorname\n";
print EMAIL "Adresse:   $adresse\n";
print EMAIL "PLZ/Ort:   $plz_ort\n";
print EMAIL "Telefon:   $telefon\n";
print EMAIL "Email:     $email\n";
print EMAIL "Kommentar:\n\n";
print EMAIL "$kommentar\n";
close (EMAIL);

Gruß
Reiner

[Struppi]

Der letzte Print (Email erfolreich versandt) erscheint, aber in die Inbox flattert nix :-(

Any ideas?

Hast du dir mal angeschaut, wie eine mail aussehen sollte und wie deine aussieht?
Speziell den Header.

Struppi.

[Pits]

Speziell den Header.

Struppi.

Got it, thanx!
Immer diese Geschichte mit den Headern... :-)