I would interest in this answer also.
I have a similar script, however I had to include this line in the beginning to get it
to dial.
(`rasphone -d`);
Not sure why?
Ned Cunningham
POS Systems Development
Monro Muffler Brake
200 Holleder Parkway
Rochester, NY 14615
(585) 647-6400 ext. 310
[EMAIL PROTECTED]
-----Original Message-----
From: LoBue, Mark [mailto:[EMAIL PROTECTED]
Sent: Friday, November 21, 2003 12:53 PM
To: liuxu; [EMAIL PROTECTED]
Subject: Re: how to send mail using Perl
At 07:12 PM 11/20/2003, liuxu wrote:
>I want to send mail using perl,the following is my code.
>There are not any error or warning when the program run.
>But i can not receive the mail. Please help me ! thanks!
>
>use Net::SMTP;
>$smtp = Net::SMTP->new('192.168.1.169') or die "Can not connect to
the mail
>server : $! \n";
First thing I would do is change this line to
$smtp = Net::SMTP->new('192.168.1.169' , Debug => 1)
or die "Can not connect to the mail server : $! \n";
This allows you to see the responses from the smtp server, which will
help
track this down.
>$smtp->mail('[EMAIL PROTECTED]');
>$smtp->to('[EMAIL PROTECTED]');
>$smtp->data();
>$smtp->datasend("To: postmaster\n");
Are you postmaster?
>$smtp->datasend("\n");
>$smtp->datasend("A simple test message\n");
>$smtp->dataend();
>$smtp->quit;
-Mark
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
