公司有个邮件系统,是用perl的cgi做的(他们是这么说的),想用php来开发它的前台的问题?? perl不带前台啊。php有imap函数 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 第一:imap是php的一个扩展模块,如果是linux服务器的话,需要重新编译[前台你的邮件系统支持imap]第二:如果您用得pop3的话,也不难,PHP也有其pop3扩展模块但不是公开的.如果需要可以跟我系. 第三:发送邮件相对而言,就简单的多啦.PEAR有smtp的类库,你可以参考一下. 我看了,他的函数是用perl来编写的,所有的文件都是用.cgi来着.以下是他的少量代码,在index.cgi下:use lib qw(.);use strict;use Webcgi::template_print;use Webpl::webmail;use Webcgi::translate;use CGI;my $query=new CGI;my $style=$query->cookie('style');$style=0 if(!defined($style) || $style eq '');my $lang=$query->cookie('lang');$lang='gb' if(!defined($lang) || $lang eq '');my $msg = $query->param('msg');my $change_lang = $query->param('change_lang');if (defined($change_lang)) { $lang = $change_lang; my $charset = Webpl::webmail::get_charset($lang); CGI::charset($query, $charset); my $cookie = $query->cookie(-name=>'lang', -value=>$lang, -expires=>'+1y', -path=>'/',); print $query->header(-cookie=>$cookie);} else { print "Content-Type: text/html\n\n";}if (!defined($lang) || $lang eq '') { if ($ENV{'HTTP_ACCEPT_LANGUAGE'} eq 'zh-cn') { $lang = 'gb'; } elsif ($ENV{'HTTP_ACCEPT_LANGUAGE'} eq 'en-ca') { $lang = 'eng'; } elsif ($ENV{'HTTP_ACCEPT_LANGUAGE'} eq 'zh-tw') { $lang = 'big5'; }}my @mailconf=Webpl::webmail::webconfig('1',$style,$lang);my $copyright = $mailconf[24];my $mail_domain = $ENV{'HTTP_HOST'};$mail_domain =~ s/^mail.//;my $title = Webpl::webmail::get_title("abc\@$mail_domain");if($title eq '') { $title = $mailconf[29];}if (defined($msg)){ $msg = "index.cgi:".$msg; $msg = Webcgi::translate::get($lang,$msg);}看上去和php的有些类似的,好想perl也是用类似c语言来编的吗??他前面的use是不是调用类啊?? 知道的,楼上能不能发给我呢??我的邮件地址是:[email protected]我是自己用imap来做gmail的邮件和信箱管理.另外,imap是不是和pop3不兼容啊!!我公司的不能用imap来写,继续顶! 原来的似乎也是基于web的?楼主可以直接发http请求啊 imap是鸡肋小规模玩玩还可以 to 神仙对,原来的是基于web的http://192.168.1.200/cgi-bin/index.cgi 没有吧.他给我的代码,如果要改成其他样子的,而我又只会php,岂不是要我自己再重写一变??有点郁闷... 学习perl贝,如果你重写一遍的话,不知道会如何,而且是你一个人开发,呵呵技多不压身! 学perl,老板上班看着我拿本书在学习非炒了我不可!现在只能自己二次开发了! 一些站长工具是用什么开发的 导出csv文件里面中文是乱码怎么解决 用GD库ImageTTFText生成图片,什么中文字体是单一颜色 捕获上传地址 招聘PHP程序员 怎样可以使得网页打开象discuz这样快? PHP连接oracle,执行外部sql脚本的问题! 100分求助!LINUX环境下PHP连接ORACLE的问题 为什么我的apache+php是下载??? win7中IIS+php+Sql2008的错误 在表一读数据但是要判断表二的一个字段应该怎么写 一个表单上有两个按钮,我希望按不同的按钮,用 POST方式提交到不同的后台处理页面,如何做?
第二:如果您用得pop3的话,也不难,PHP也有其pop3扩展模块但不是公开的.如果需要可以跟我系.
use lib qw(.);
use strict;
use Webcgi::template_print;
use Webpl::webmail;
use Webcgi::translate;
use CGI;my $query=new CGI;
my $style=$query->cookie('style');
$style=0 if(!defined($style) || $style eq '');
my $lang=$query->cookie('lang');
$lang='gb' if(!defined($lang) || $lang eq '');
my $msg = $query->param('msg');
my $change_lang = $query->param('change_lang');if (defined($change_lang)) {
$lang = $change_lang;
my $charset = Webpl::webmail::get_charset($lang);
CGI::charset($query, $charset);
my $cookie = $query->cookie(-name=>'lang',
-value=>$lang,
-expires=>'+1y',
-path=>'/',);
print $query->header(-cookie=>$cookie);} else {
print "Content-Type: text/html\n\n";
}if (!defined($lang) || $lang eq '') {
if ($ENV{'HTTP_ACCEPT_LANGUAGE'} eq 'zh-cn') {
$lang = 'gb';
} elsif ($ENV{'HTTP_ACCEPT_LANGUAGE'} eq 'en-ca') {
$lang = 'eng';
} elsif ($ENV{'HTTP_ACCEPT_LANGUAGE'} eq 'zh-tw') {
$lang = 'big5';
}
}my @mailconf=Webpl::webmail::webconfig('1',$style,$lang);
my $copyright = $mailconf[24];my $mail_domain = $ENV{'HTTP_HOST'};
$mail_domain =~ s/^mail.//;
my $title = Webpl::webmail::get_title("abc\@$mail_domain");
if($title eq '') {
$title = $mailconf[29];
}if (defined($msg)){
$msg = "index.cgi:".$msg;
$msg = Webcgi::translate::get($lang,$msg);
}
看上去和php的有些类似的,好想perl也是用类似c语言来编的吗??他前面的use是不是调用类啊??
我的邮件地址是:[email protected]
我是自己用imap来做gmail的邮件和信箱管理.另外,imap是不是和pop3不兼容啊!!我公司的不能用imap来写,继续顶!
楼主可以直接发http请求啊
小规模玩玩还可以
有点郁闷...
技多不压身!
现在只能自己二次开发了!