Sendmail ?

[Volker]

Hallo,
ich bin noch am Anfang von Perl-programmieren, deswegen hier eine einfache Frage. Ich habe bei mir zu Hause ein Perlprg geschrieben, das mir die Daten eines Formulars zu meiner E-mail adresse sendet. Überspielt auf dem Server von Schlund funktioniert es aber nicht, wahrscheinlich weil das Program "Sendmail" nicht findet. Das Verzeichnis für Sendmail ist bei Schlund: /usr/sbin/sendmail. Wie setzte ich das Verzeichnis für Sendmail in folgender Kopfzeile:

#!/usr/bin/perl
use Mail::Sendmail;
require 'cgi-lib.pl';

Herzlichen Dank für jede Hilfe
Volker

[torstent]

Hallo Volker!

Also bei mir klappt es , indem ich ein Handle auf das Mailproggi eröffne:

my $mailprog='/usr/sbin/sendmail' ;

open (MAIL ,"$mailprog") print "Fehler beim öffnen";
print MAIL "From: Absender";
.
.
.
close (MAIL);

Gruß Torsten

[Oli]

Hi Volker,

eine schöne Sache ist, Dir das Modul Mail::MailTools vom CPAN zu holen.

Dann bindest du es per use ein und kannst es etwa per untenstehender Routine aufrufen:

mehlen($ab, $em, $be, $ru);

sub mehlen{

my $absender = $_[0]; #@ quoten!
  my $empfaenger =  $_[1]; #@ quoten!
  my $betreff = $_[2];
  my $rumpf = $_[3];

my $mailer = Mail::Mailer->new("sendmail");

$mailer->open({ From => $absender,
    To => $empfaenger,
    Subject => $betreff,
  })
    or die "Kann nicht oeffnen: $!\n";
  print $mailer $rumpf;
  $mailer->close;
}

Das Tool sucht automatisch nach sendmail.

Gruß

Oliver