smtp client

[Giannis Papaioannou]

On Tue, 29 Oct 2002, Pavlos Parissis wrote:

>Hello all,
>Έχουμε εναν linux gateway ο οποίος πρέπει να στέλνει διάφορα e-mails με
>πληροφορίες
>για το σύστημα,firewall logging κυρίος, σε κάποιους μέσα από διάφορα cron
>scripts.
>Έτσι πρέπει να βρώ ένα απλό πρόγραμμα με το οποίο θα στέλνω αύτα που θέλω.
>Το "mail" που υπάρχει δεν βρήκα τρόπο να το κάνω να συνδεθεί με έναν SMTP
>server.
...
>διότι τα e-mails θα τα αποστέλουν διάφορα scripts. Στο manual του pine
>δεν βρήκα κάτι σχετικό , να πέρνει δηλαδή απο  standard input το
>θέμα,e-mail του παραλήπτη και το body.

cat > mailer.pl
#!/usr/bin/perl

use Mail::Mailer qw(mail);

# mail method, perldoc Mail::Mailer for more
$mailer = new Mail::Mailer 'smtp', Server => "my.smtpserver.gr";

# headers
$mailer->open({ From    => 'me at my.pc.gr',
                To      => 'someoneelse at somewhereelse.gr',
                Subject => 'Some subject'
             });
# body
while(<>) {
  print $mailer $_;
}

$mailer->close();
^D

chmod +x mailer.pl
./mailer.pl outputfile1 outputfile2 ...
h'
command_with_output | ./mailer.pl