| 1 | ################################################################################ |
1 | ################################################################################ |
| 2 | # WeBWorK Online Homework Delivery System |
2 | # WeBWorK Online Homework Delivery System |
| 3 | # Copyright © 2000-2007 The WeBWorK Project, http://openwebwork.sf.net/ |
3 | # Copyright © 2000-2007 The WeBWorK Project, http://openwebwork.sf.net/ |
| 4 | # $CVSHeader: webwork2/lib/WeBWorK/PG/Local.pm,v 1.24 2006/12/05 20:59:46 sh002i Exp $ |
4 | # $CVSHeader: webwork2/lib/WeBWorK/PG/Local.pm,v 1.25 2007/08/13 22:59:58 sh002i Exp $ |
| 5 | # |
5 | # |
| 6 | # This program is free software; you can redistribute it and/or modify it under |
6 | # This program is free software; you can redistribute it and/or modify it under |
| 7 | # the terms of either: (a) the GNU General Public License as published by the |
7 | # the terms of either: (a) the GNU General Public License as published by the |
| 8 | # Free Software Foundation; either version 2, or (at your option) any later |
8 | # Free Software Foundation; either version 2, or (at your option) any later |
| 9 | # version, or (b) the "Artistic License" which comes with this package. |
9 | # version, or (b) the "Artistic License" which comes with this package. |
| … | |
… | |
| 195 | #); |
195 | #); |
| 196 | |
196 | |
| 197 | my $mailer = new WeBWorK::Utils::DelayedMailer( |
197 | my $mailer = new WeBWorK::Utils::DelayedMailer( |
| 198 | smtp_server => $ce->{mail}{smtpServer}, |
198 | smtp_server => $ce->{mail}{smtpServer}, |
| 199 | smtp_sender => $ce->{mail}{smtpSender}, |
199 | smtp_sender => $ce->{mail}{smtpSender}, |
|
|
200 | smtp_timeout => $ce->{mail}{smtpTimeout}, |
| 200 | # FIXME I'd like to have an X-Remote-Host header, but before I do that I have to |
201 | # FIXME I'd like to have an X-Remote-Host header, but before I do that I have to |
| 201 | # factor out the remote host/remote port code from Feedback.pm and Authen.pm and |
202 | # factor out the remote host/remote port code from Feedback.pm and Authen.pm and |
| 202 | # put it in Utils! (or maybe in WW::Request?) |
203 | # put it in Utils! (or maybe in WW::Request?) |
| 203 | headers => "X-WeBWorK-Module: " . __PACKAGE__ . "\n" |
204 | headers => "X-WeBWorK-Module: " . __PACKAGE__ . "\n" |
| 204 | . "X-WeBWorK-Course: " . $ce->{courseName} . "\n" |
205 | . "X-WeBWorK-Course: " . $ce->{courseName} . "\n" |