Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Undefined value error

by clarkmurph (Initiate)
on Feb 21, 2018 at 17:54 UTC ( #1209683=perlquestion: print w/replies, xml ) Need Help??

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

Hello, I get the following error when I execute the below script "Can't call method "mail" on an undefined value at ./recalert.plx line 24, <RECCHK> line 9." I did not write the original perl script, I just modified the email addresses to work in my environment, and the email addresses in the below script are sanitized. The script has worked for about three years without issue, I really have no perl experience, and not sure what the error means, or how to fix it/ Please help

#!/usr/bin/perl -w $from = 'email@123.org'; $to = 'email@456.org'; $servername = 'email.789.org'; # $user ='username'; # $pwd ='password'; open RECCHK, "/tmp/statusmon.eml"; @recchkvar = <RECCHK>; use Sys::Hostname; my $host = hostname(); my $host1 = uc($host); open STDERR, '>&STDOUT'; #redirect STDERR output to STDOUT use Net::SMTP; $smtp = Net::SMTP->new("$servername", Debug => 1); ### Enable below if authentication required and set parameters above # $smtp->datasend("AUTH LOGIN\n"); # $smtp->datasend("$user\n"); # $smtp->datasend("$pwd\n"); sleep(2); $smtp->mail("$from"); $smtp->to("$to"); $smtp->data; $smtp->datasend("Subject: 79XX/69XXC/WB3 InfiniStream $host1 has an is +sue, and requires investigation \n"); foreach $line (@recchkvar) { $smtp->datasend("$line\n"); } close RECCHK; $smtp->dataend; $smtp->quit

Replies are listed 'Best First'.
Re: Undefined value error
by toolic (Bishop) on Feb 21, 2018 at 18:25 UTC
    I suspect the call to new returns an undefined value because it fails. The Net::SMTP docs state:
    On failure undef will be returned and $@ will contain the reason for the failure.

    You can try to get more information by showing $@:

    $smtp = Net::SMTP->new("$servername", Debug => 1); print "$@\n";

    Is $servername a valid remote host?

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1209683]
Approved by toolic
Front-paged by toolic
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (3)
As of 2020-11-28 03:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?