Trihedralguy has asked for the wisdom of the Perl Monks concerning the following question:
I'm having problem debugging something that is wrong with my perl program. So I came to the Monastery to get a couple of extra sets of eyes.
The error I'm getting is: Undefined subroutine &ModPerl::ROOT::ModPerl::Registry::home_trihedralguy_htdocs_smi_employment_app_register_2ecgi::send_email
Can anyone see what I'm doing wrong? The Code Snippet from the calling script:
The error I'm getting is: Undefined subroutine &ModPerl::ROOT::ModPerl::Registry::home_trihedralguy_htdocs_smi_employment_app_register_2ecgi::send_email
Can anyone see what I'm doing wrong? The Code Snippet from the calling script:
the PM File:use lib '/home/thertzel/htdocs/smi/employment/app/'; #Current Director +y use EmailSender; #The name of the module send_email($username, $body); #we need to send it our username and the + preformed message.
package EmailSender; use Net::SMTP; use strict; sub send_email { my $username = shift; my $body = shift; my $smtp; #Define Scalar for Net::SMTP #Mail Settings $smtp = Net::SMTP->new( Host => 'smtp.smi.com', Timeout => 30, Debug => 1, ); #End Mail Settings $smtp->mail('humanresource@smi.com'); $smtp->to($username); $smtp->data(); $smtp->datasend("To: $username\n"); $smtp->datasend("From: humanresource\@foobar.com\n"); $smtp->datasend("Subject: Smi Employment Application\n"); $smtp->datasend("Content-Type: text/plain; charset=\"iso-8859-1\"\n"); $smtp->datasend(qq^ $body ^); my $errormsg = $smtp->status(); $smtp->dataend(); $smtp->quit; #return $errormsg; } 1;
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Undefined subroutine
by friedo (Prior) on Feb 20, 2008 at 19:38 UTC | |
Re: Undefined subroutine
by ikegami (Patriarch) on Feb 20, 2008 at 19:37 UTC | |
Re: Undefined subroutine
by Trihedralguy (Pilgrim) on Feb 20, 2008 at 21:58 UTC |
Back to
Seekers of Perl Wisdom