Mail in Perl

[afoeder]

Hallo!

Ich habe aus einem bestehenden FormMailer eine Mail-Routine rausgeholt, und diese auf meine Bedürfnisse angepasst (sie soll mir eine Email senden, wenn ein neuer GB-Eintrag da ist).
Nur funktioniert sie nicht.
dies ist der Code:

$mailprog = 'usr/sbin/sendmail';
open(MAIL,"|$mailprog -t");

print MAIL "To: webmaster@foeder.de\n";
print MAIL "From: webmaster@foeder.de (Gästebuch)\n";
print MAIL "Subject: Neuer Gästebucheintrag\n\n";
print MAIL "Ein neuer Gästebucheintrag wurde erstellt.\n\n";
print MAIL "URL:\n";
print MAIL "http://www.foeder.de/dyn-frame.shtml?ID=guestbook\n";
close (MAIL);

muss da noch irgendwie ein Befehl rein, der die Mail richtig sendet, oder was könnte da fehlerhaft sein?

kann auch das sendmail-dir falsch sein (mein Serveradmin wusste es auf die Schnelle auch nicht).


Vielen Dank,
Adrian

 

[mo]

probier mal
$mailprog = '/usr/sbin/sendmail'; ich vermute, da fehlt ein /.
was hast denn da für nen genialen admin?

bye,
mo

 

[afoeder]

PHP

Hallo!

Ich bin nach erfolglosem Probieren auf die geniale Idee gekommen, eine PHP-Seite mailen zu lassen:

open(MAIL,"|http://www.foeder.de/gbmail.php3");
close(MAIL);

funktioniert das so, wenn ich diese zwei Zeilen mitten in ein Perl-Script knalle?

Danke,
Adrian

 

[mo]

wieso machst du das dann nicht alles in php? perl is doch anerkanntermassen müllig (siehe meine sig. )

bye,
mo

 

[afoeder]

habe ich ja in Naher Zukunft vor, doch das vorgefertigte UGB-Gästebuch ist halt in Perl und ich wollte es "Gschwind" um die Mail-Funktion erweitern.
sind ja eigentlich nur ein paar Zeilen Code...

CU
Adri

 

[ShadowsMaster]

open (SENDMAIL, "|/usr/sbin/sendmail -t") or &error("Unable to open the mail program");
print SENDMAIL "To: webmaster@foeder.de\n";
print SENDMAIL "From: Gästebuch <webmaster@foeder.de>\n";
print SENDMAIL "Subject: Neuer Gästebucheintrag\n";
print SENDMAIL "Jemand hat ein falsches Passwort eingegeben. Informationen:\n\n";
print SENDMAIL "URL:\n";
print SENDMAIL "http://www.foeder.de/dyn-frame.shtml?ID=guestbook\n";
close(SENDMAIL);

Müsste so gehn, cya,
ShadowsMaster

 

[Oleg.de]

in Perl

$EMAIL = "/usr/sbin/sendmail"; # Pfad zu E-mail Programm
$ADRESS="test\@test.de"; # E-mail Adresse

open (MAIL,"|$EMAIL $ADRESS");
print MAIL ("From: Homepage <deine adresse>\n");
print MAIL ("Subject: Kann auch eine Variable sein\n\n");
print MAIL ("variable mit text");
close (MAIL);

 

[ShadowsMaster]

Da hab ich auch mal ne Frage zu dem Thema. Wie kann man SendMail mit PHP verwenden? Müsst ja mit popen und fputs gehen, aber wie?

 

[afoeder]

wenn das überhaupt Sinn macht.
die mail() - Funktion kann ja nicht mehr und nicht weniger.
D.h. es bietet gundsätzlich ja keine Vorteile, SendMail zu verwenden, es sei denn natürlich, Du hast einen konkreten Grund dazu.

Gruß,
Adrian