Hi to all of you again!!

I have a perl-script for sending a mail (don't ask - I *need* it for sending
mails!).
In perl I use it like:
--
open(MAIL, "|mail.pl");
print MAIL "From: \"xx\@xx.com\" <xx\@xx.com>\n".
         "To: \"xx\@xx.com\" <xx\@xx.com>\n".
         "Subject: TEST\n\n".
         "This is the body";#[EMAIL PROTECTED] is only example
close(MAIL);
$error=($? >> 8);
if ($error) { print "Error: ".$error."\n";}
--
1. how to do this:
open(MAIL, "|mail.pl");
print MAIL $message;
close(MAIL);

2. how to do a return-value-check (in perl I get 0 if no error, 1 if an
error occured in mail.pl) 

tanks
witty 

-- 
GMX - Die Kommunikationsplattform im Internet.
http://www.gmx.net

--
GMX Tipp:

Machen Sie Ihr Hobby zu Geld bei unserem Partner 1&1!
http://profiseller.de/info/index.php3?ac=OM.PS.PS003K00596T0409a

Reply via email to