[转帖]邮件发送CGI子程序范例

cnangel

下面是一段完整的E-MAIL发送CGI程序,如你想编写一个邮件发送程序,这一段代码很有参考价值.这段代码我在网上运行通过.
sub mail2{
$mailprg= "/usr/sbin/sendmail";#邮件服务器位置
$rmail="swtvjsw\@163.net";#回复时的E-MAIL地址
$title="会员审核通过通知";#邮件标题
open(PSD,"$fddata")|| die $!;#以只读方式打开会员数据库文件
@lines1=<SD>;#将数据以行方式读入数组@linesl
close(PSD);#关闭数据文件
foreach $line1 (@lines1) {#进入循环
($cnt,$msg,$name,$yum,$mm,$live,$email,$www,$url,$tel,$zczt,$sex,$yzpm,$time)=split(/↑/,$line1);#将每行数据以"↑"进行分割并分别赋给等式左边的14个变量,其中变量$email是会员的E-MAIL地址,变量$name是会员名字,变量$yum是会员登陆名,变量$mm是会员密码.
$email=~s/ //g;#去除变量$email的多余空格
if($zczt eq "已审核" && $name eq $FORM{'name'}){#如果变量$zczt等于"已审核"和变量$name等于由表单送来的名.
open (mail,"| $mailprg") || die "logo system error";#打开邮件服务器
print mail "TOemail\n";#将目的E-MAIL地址送入邮件服务器
print mail "Fromrmail\n";#将回复时的E-MAIL地址送入邮件服务器
print mail "Subject: $title\n";#将邮件标题送入邮件服务器
print mail "$name您好：\n";#将信件内容送入邮件服务器
print mail " 恭喜您已成为广州电子技术网大家庭中的一员，希望我们今后多多联系共同进步。\n";
print mail "您登陆的用户名：$yum；密码：$mm。\n";
print mail "思维 $Date\n";
print mail "----------------------------------------------------------\n";
print mail "程序制作：广州电子技术网-思维(http://gzdzw.51.net)\n";
print mail "\n\n";#邮件发送
close(mail);#关闭邮件服务器
last;}#判断语句结束并跳出循环
}#循环结束符号
print "<META HTTP-EQUIV=REFRESH CONTENT=\"0;URL=$cgiurl?action=sousuo1324&T1=$FORM{'T1'}&page=$FORM{'page'}\">\n";#程序运行完毕后返回的地址
exit;#退出此程序
}