[ Content | View menu ]

Daily Archive March 10th, 2003

smtp.pl

March 10, 2003

#!/usr/bin/perl -w use Mail::Mailer; $smtp = Mail::Mailer->new(“smtp”,”Server”,”smtp.server”); print “To: “; $to = ; chomp($to); print “Subject: “; $subject = ; chomp($subject); print “Body:n”; while ($line = ) { last if $line eq “.n”; $body .= $line; } chomp($body); print “Opening SMTP connection…n”; $smtp->open({ “From” => “hmm@woolgathering.cx”, “To” => $to, “Subject” => $subject }); print $smtp […]

code - Comments closed