Mail an SMTP

[Rolf]

Liebe Forumer,

programmieren mit PERL-Modulen macht Spaß, gerne würde ich mein kleines Erfolgserlebnis in Fragen "Senden einer Mail an SMTP" mit Euch teilen, bitte bedenkt jedoch, dass die folgende PERL'e im Prinzip funktioniert aber noch lange kein fertiges CGI ist (das mach ich morgen *g)... also Kritiken bitte 'ran hier ;-)

Viele Grüße, Rolf

---cut---smtp_test.pl---
#!/usr/bin/perl -w

Modul einbinden

use Net::SMTP;

$smtp_host = "mailserver";   # Hostname des Mailservers, kann auch ip.ip.ip.ip
$to = "otto@local";         # Die Maskierung des @ kann entfallen, wenn einfach '
$name = "Rolf";              # Name des Absenders, dieser Name wird angezeigt
$from = "rolf@local";       # Die Maskierung des @ kann entfallen, wenn einfach '
$subject = "Test Net::SMTP"; # Die Betreff-Zeile

es folgt die uunheimlich wichtige MailNachricht

$message = "Hallo,\nda bin ich mit meiner Macke!\nViele Grüße, Rolf";

Neues Objekt erstellen

$smtp = new Net::SMTP($smtp_host);

Die Mail formatieren zum Versand, beachte die Leerzeilen!

$form_message = <<MSG;
Subject: $subject
From: $name <$from>

$message

MSG

Ende der formatierten Mail

Ab geht die Post und tschuess

$smtp->to( $to );
$smtp->data( $form_message );
$smtp->quit();
---cut---eof---