服务器：Apache
语言：Perl
#!c:/Perl/bin/perl.exe
use CGI qw(param);
use Net::Smtp;
#-------------------------------------------------------
print "Content-type:text/html\n\n";
print "<p><font face=\"Arial Unicode MS\"><b><span class=\"style5\">Domain Prediction using Kernel Method</span></b></font></p>";
print "Your query sequence ";
print param("seq_name");
print " is being processed.</br>";
print "Results will be emailed to your mailbox ";
print "<em>";
print param("email_address");
print "</em><br>";
print "Sequence:</br>";
print param("input_seq");
#-----------------------------------------------------
#邮件服务器地址
$smtp_server = 'mail.fudan.edu.cn';
#发件人地址
$from = 'lschen@fudan.edu.cn';
#Title
$title = 'PERL+CGI发邮件!';
#delay after sending a mail
$delay = 1;
# to whom?
$to = param("email_address");
# Content
$msg=<<HTML;
Dear user,
your query sequence $seq_name has been predicted by Kemadom!
Results:
Thanks for yor support!
if any problem, please let us known.
You can mailto lschen\@fudan.edu.cn
Bioinformatics Group
Shanghai Key Laboratory of Intelligent Information Processing
Fudan University, Shanghai, P. R. China
Email: lschen\@fudan.edu.cn
Tel: +86-21-6564-3786-2
HTML
#发送邮件
&sendMail($smtp_server,$from,$to,$title,$msg);
sleep($delay);
###########################
#
#例程sendMail
#参数列表
#$smtp_server发邮件smtp服务器地址
#$from发件人地址
#$to收件人地址
#$title邮件标题
#$msg邮件内容
#
###########################
sub sendMail{
my ($smtp_server,$from,$to,$title,$msg) = @_;
$smtp = Net::SMTP->new($smtp_server);
$smtp->auth('lschen','*******');
$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend('From: '.$from);
$smtp->datasend("\n");
$smtp->datasend('To: '.$to);
$smtp->datasend("\n");
$smtp->datasend('Subject: '.$title);
$smtp->datasend("\n\n");
$smtp->datasend("$msg\n");
$smtp->dataend();
$smtp->quit;
}
exit;
#-------------------------------------
