|
Posted by rjngh2005 on October 24, 2006, 7:38 pm
Please log in for more thread options
harryfmudd [AT] comcast [DOT] net wrote:
> rjngh2005@gmail.com wrote:
> > This is on a Windows 2000 desktop.
> >
> > I have activestate perl installed
> >
> > using ppm I have downloaded the libnet module from ActiveState ppm2
> > repository
> >
> > next I rebooted my desktop.
> >
> >
> >
> >
> > I have checked and have found the following files
> >
> >
> > c:\perl\lib\net\smtp.pm
> > c:\perl\site\lib\net\smtp.pm
> >
> >
> >
> > I guess you have to compile this on a unix box
> > but I am not sure if you have to compile this on a Windows 2000
> > desktop.
> >
>
> I doubt the need to compile - in fact, Active State's PPM packages are
> supposed to be already compiled when you get them.
>
> What "Can't call method xyzzy on an undefined value" means is that you
> didn't get a Net::SMTP object back from the "new()." In general you
> should _always_ check when you instantiate an object if there is any way
> the instantiation could fail. And in general when you see this message
> you should assume the instantiation failed, and investigate along those
> lines.
>
> Unfortunately, the Net::SMTP docs are less than clear on how you can get
> a useful error. Two good places to look are always $! and $@. So:
>
> >
> > The code is given below.
> >
> >
> > use warnings;
> > use Net::SMTP;
> > $server = 'ip_address';
> > $to = 'abc@test.com';
> > $from_email = 'abc@test.com';
> > $subject = 'hello, email';
> > ### $smtp = Net::SMTP->new($server);
>
> $smtp = Net::SMTP->new ($server) or die <<eod;
> Error - Failed to create Net::SMTP object
> $! = $!
> $@ = $@
> eod
>
> > $smtp->mail($from_email);
> > $smtp->to($to);
> > $smtp->data();
> > $smtp->datasend("To: $to\n");
> > $smtp->datasend("Subject: $subject\n\n");
> > $smtp->datasend("This will be the body of the message.\n");
> > $smtp->datasend("\n--\nVery Official Looking .sig here\n");
> > $smtp->dataend();
> > $smtp->quit();
> > print "done\n";
> >
>
> When I do this, I get
>
> Error - Failed to create Net::SMTP object
> $! = Invalid argument
> $@ = Net::SMTP: Bad hostname 'ip_address'
>
> Which in retrospect is obvious.
>
> The trick is, what server do you give it? If it's not test.com, it will
> have to have routing enabled, which will plunge you into the wonders of
> configuring SMTP servers. Good luck.
>
> Tom Wyant
Your input helped a lot!!!!
I added the code (section for die...eod)
and got the message unable to create object.
I consulted my network admin and he explained that the smtp host was
configured to allow only email from certain ip addresses and of course
my desktop was not in the list.
Hence to test things out we added my desktop ip address to the list and
Bingo.....everything worked.
I am a happy enlightened person.
Thanks a lot for pointing me in the right direction !!!!!
You have made my day
| 
XML Sitemap