Net::SMTP and the undefined value

Quicksilver has asked for the wisdom of the Perl Monks concerning the following question:

Dear Monks, I'm putting together a form to mail some data to one of users and am using Net::SMTP to mail them. However I keep coming across an error message whilst testing saying that I have an undefined value in $smtp->mail( $from ); but I'm sure I have defined this further up the form. I would be grateful if somebody could point out what I have missed as this is the first time I've used this module and I'd like to leanr how to make it work properly. Many thanks.

#! c:\perl\bin\perl.exe

use strict;
use warnings;

use cgi;
use Net::SMTP;


#constants

my $mailserver_url = "foo.bar.baz";
my $to = "foo\@bar";
my $from = "bar\@foo";
my $subject = "Mail time";




my $smtp = Net::SMTP->new('$mailserver_url');


#Sending the message

$smtp->mail( $from );
$smtp->to( $to );
$smtp->data();
$smtp->datasend("To: $to\n");
$smtp->datasend("From: $from\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n"); # done with header
$smtp->datasend($name, $company, $country, $email);
$smtp->dataend();
$smtp->quit(); # all done. message sent.
[download]

Comment on Net::SMTP and the undefined value Select or Download Code

Replies are listed 'Best First'.
Re: Net::SMTP and the undefined value by moritz (Cardinal) on Jul 30, 2007 at 14:27 UTC
The undef value is probably `$smtp`, because `'$mailserver_url'` is not a valid URL. Try it without the single ticks, and check the return value of `Net::SMTP->new()` Perl 6 in German	[reply] [d/l] [select]
Re^2: Net::SMTP and the undefined value by Quicksilver (Scribe) on Jul 30, 2007 at 14:47 UTC
Moritz, Many thanks, it seems to have done the trick. Iain	[reply]
Re: Net::SMTP and the undefined value by vkhera (Novice) on Jul 30, 2007 at 20:57 UTC
After every $smtp->methodname() call, add some error checking. Like this: `$smtp->mail($from) or die $smtp->message();` and then you'll see exactly where your error is. Visual inspection of your code seems correct. It would be more helpful also if you show the actual error message you got and where you got it. There is no error reporting in the code you posted, so nobody knows for sure what is happening to you.	[reply] [d/l]


good chemistry is complicated, and a little bit messy -LW
	PerlMonks