perl不带前台啊。
php有imap函数

解决方案 »

  1.   

    第一:imap是php的一个扩展模块,如果是linux服务器的话,需要重新编译[前台你的邮件系统支持imap]
    第二:如果您用得pop3的话,也不难,PHP也有其pop3扩展模块但不是公开的.如果需要可以跟我系.
      

  2.   

    第三:发送邮件相对而言,就简单的多啦.PEAR有smtp的类库,你可以参考一下.
      

  3.   

    我看了,他的函数是用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是不是调用类啊??
      

  4.   

    知道的,楼上能不能发给我呢??
    我的邮件地址是:[email protected]
    我是自己用imap来做gmail的邮件和信箱管理.另外,imap是不是和pop3不兼容啊!!我公司的不能用imap来写,继续顶!
      

  5.   

    原来的似乎也是基于web的?
    楼主可以直接发http请求啊
      

  6.   

    imap是鸡肋
    小规模玩玩还可以
      

  7.   

    to 神仙对,原来的是基于web的http://192.168.1.200/cgi-bin/index.cgi
      

  8.   

    没有吧.他给我的代码,如果要改成其他样子的,而我又只会php,岂不是要我自己再重写一变??
    有点郁闷...
      

  9.   

    学习perl贝,如果你重写一遍的话,不知道会如何,而且是你一个人开发,呵呵
    技多不压身!
      

  10.   

    学perl,老板上班看着我拿本书在学习非炒了我不可!
    现在只能自己二次开发了!