[MacPerl-AnyPerl] Another silly smtp question

[jason white <jason.white@usu.edu>]

Anyone have an idea why this would all of a sudden stop working?


-------
<?

use Net::SMTP;

$smtp = Net::SMTP->new('mailhost',

Hello => 'localhost',
		        TimeOut => 30,

Debug   => 0,
		        );
$smtp->mail ('endorse');
$smtp->to
('jason.white@bigfoot.com');
$smtp->data ();
$smtp->datasend
('hello');
$smtp->dataend ();
$smtp->quit;

print "The mail was sent";
!>
-------
(The funny delimiter marks -- <? & !> -- are because the server is running
ePerl (*.phtml files are parsed server side).

The error I get is from...
$smtp->mail('endorse');
It says that the method mail can't be created without a specific object or
package.
using 'send' gets the same results.

It worked just fine until recently.  I did make a change in my /etc/hosts
file that was affecting the smtp server, but those changes were for the
good of the smtp server (wouldn't accept anything including usu.edu that
wasn't myserver.usu.edu, but now it does just fine).  I made no changes in
the script, Did nothing to my perl install.  Mail is working fine
otherwise.  Any clues?  Is it just late in the week and this a sign that I
shouldn't be working on Saturday?

Thanks,

Jason

-------------------
Jason White
<Insert Title Here>
jason.white@usu.edu



==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-anyperl-request@macperl.org