Rick T <p...@reason.net> writes:
> [1:text/plain Show]
>
>
> [2:text/html Hide Save:noname (4kB)]
>
> I have two subroutines (below) in a program that uses Net::SMTP. I’ve
> recently moved my site from FutureQuest.net to Hostgator.com, and this part
> of my program has stopped working. The first routine sends an analysis of a
> test to me at Reason.net, and the second send a score to several addresses
> associated with the student. On my new host at Hostgator both fail to do
> this. (One of the “technicians” at Hostgator said he found my email, so one
> or both likely arrived at webmas...@hostgator.com.)
>
> I am not trained in computer tech; I’m just a 78 year old high school
> teacher who bought a few books on perl, so I don’t really understand how to
> fill in the many variable assignments that make up most of these two
> routines. Instead I took guesses and tried stuff to see what would happen.
> If any of you have suggestions or corrections, I’d be grateful!
>
> Rick Triplett
>
> FIRST SUBROUTINE:
>
> sub email_analysis { # to LibertyLearning for score posting and analysis
> my $n_max = shift;
> my @analysis = define_analysis($n_max);
>
> my $subject_line
> = "$pf{percent_correct_final} $pf{name_full} $course_file\n";
>
> # Send administration an email of statistical analysis
> my $to = 'socra...@reason.net';
> my $from = 'webmas...@libertylearning.com';
> my $site = 'libertylearning.com';
> my $smtp_host = 'mail.libertylearning.com';
Are you sure that mail.libertylearning.com is a valid SMTP host? And can
you use it from your current Web host? Usually, one would use the
mailgateway from the Web hosting company.
Web host may limit outgoing email from any web site they host to prevent
scammer web sites: they can filter whatever email you send and make sure
you send legitimate stuff and you do not put their business in danger of
being classified as a scam friendly business.
Contact your Web host and ask them what mail gateway you should use to
have your web site send email.
Best regards,
Olivier
>
> my $smtp = Net::SMTP->new( $smtp_host, Hello => $site );
> $smtp->mail($from);
> $smtp->to($to);
> $smtp->data();
> $smtp->datasend("From: webmaster\@LibertyLearning.com\n");
> $smtp->datasend("To: $to\n");
> $smtp->datasend("Date: $pf{ date_ended }\n");
> $smtp->datasend("Subject: $subject_line\n");
> $smtp->datasend("\n");
> $smtp->datasend("$student_id\n");
> $smtp->datasend("$pf{percent_correct_final}\n");
> $smtp->datasend("squandered: $pf{percent_squandered}\%\n");
> $smtp->datasend("if tried: $pf{if_tried}\%\n");
> $smtp->datasend("string_of_wrongs: $pf{string_of_wrongs}\n");
> foreach (@analysis) {$smtp->datasend("$_\n")};
> $smtp->dataend();
> $smtp->quit;
> return;
> }
>
> SECOND SUBRUTINE:
>
> sub email_mentors {
> my $message = shift;
> my $to = 'socra...@reason.net'; #was my $to = shift;
> my $from = 'webmas...@libertylearning.com';
> my $site = 'libertylearning.com';
> my $smtp_host = 'mail.LibertyLearning.com';
>
> my $smtp = Net::SMTP->new( $smtp_host, Hello => $site );
> $smtp->mail($from);
> $smtp->to($to);
> $smtp->data();
> $smtp->datasend("From: no_reply\@LibertyLearning.com\n");
> $smtp->datasend("To: $to\n");
> $smtp->datasend("Date: $pf{ date_ended }\n");
> $smtp->datasend("Subject: Test Results\n");
> $smtp->datasend("\n");
> $smtp->datasend("$message\n");
> $smtp->dataend();
> $smtp->quit;
>
> return;
> }
--
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
