[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] question 2 of 2 (much shorter)



Has anybody gotten the following script to work? What's the trick?

I downloaded SMTP.pm from the CPAN archives and put it in my NET folder
inside the lib folder, but the script generates errors. I'm using MacPerl
5.1.0r2 on a Powerbook Duo 2300c.


At 6:22 PM 12/17/96, John Kirkham wrote:
> I hope this helps...
>
> sub mailStatus {
>         use Net::SMTP;
>         local ($subject,$message) = @_;
>         local ($mailhost) = $config{"SMTP"};
>         local ($to) = $config{"adminmail"};
>         $from = $config{"fromAddr"};
>
>         $smtp = Net::SMTP->new($mailhost);
>
>         $smtp->mail($from);
>         $smtp->to($to);
>
>         $smtp->data();
>         $smtp->datasend("Subject: $subject\n\n");
>
>         $smtp->datasend($message);
>         $smtp->dataend();
>
>         $smtp->quit;
> }
>
>
> John Kirkham
> Global-X-Change Communications Inc.
> Sys. Admin./Tech. Support/ Programmer
> Ottawa, Ontario, Canada
> jkirkham@globalx.com
> http://www.globalx.net


-Dave

--------------------------------------------------------------------
David Ray -- Dream Designs -- dave@dream.com -- http://www.dream.com
--------------------------------------------------------------------