QQ登录

只需一步,快速开始

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 503|回复: 0

求助perl问题

[复制链接]
发表于 2003-4-14 21:55:52 | 显示全部楼层 |阅读模式
我用perl编了一个邮件发送程序

这个程序在linux下用perl mail.cgi可以成功完成发送工作

但是这个程序通过web来执行,就会没有反应,直到程序死亡,显示错误,不能完成mail发送

例如:http://www.leftworld.net/mail.cgi
和http://www.leftworld.net/ail.cgi

这两个程序分别用两种方法编写,程序如下:

mail.cgi

#!/usr/bin/perl -w

    open (MAIL, "| /usr/sbin/sendmail wichcat\@hotmail.com") || die "logo system error";
    print MAIL "Reply-to:\n";
    print MAIL "From: adminmail\n";
    print MAIL "Subject: title\n\n";
    print MAIL "name 你好,这是你在title许的愿望。\n";
    print MAIL "----------------------------------------------------------\n";
    print MAIL "名  字   :  name\n";
    print MAIL "愿望类别   :  qqnum\n";
    print MAIL "主页地址   :  url\n";
    print MAIL "信箱地址   :  email\n";
    print MAIL "登记时间   :  date_time\n";
    print MAIL "愿望内容   :  content  \n";
    print MAIL "------------------------------------------------------\n";
    print MAIL "title abs_url\n";
    print MAIL "左岸贵族网络出品 http://www.leftworld.net\n";
    close (MAIL);
print "done";



ail.cgi 如下:

#!/usr/bin/perl -w
open(MAIL,">tempfile");
print MAIL "stuff to be emailed .. la la la ..\n";
close (MAIL);
system("cat tempfile | /usr/sbin/sendmail wichcat\@hotmail.com");
system("rm tempfile");
print "done";


请阿斑竹指教,我想了好几天未果。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

GMT+8, 2024-11-16 05:31 , Processed in 0.037933 second(s), 16 queries .

© 2021 Powered by Discuz! X3.5.

快速回复 返回顶部 返回列表