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:
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.
the PM File:
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;