查看完整版本: Bugzilla 3.1.2 成功安装, 但是发送不了邮件 ?????

Bugzilla 3.1.2 成功安装, 但是发送不了邮件 ?????

我装bugzilla时,用的版本是 3.1.2
ActivePerl-5.8.8.820-MSWin32-x86-274739.msi
mysql-5.0.15-win32成功进入登陆界面之后,发送邮件时,就会出现下面的错误页面,我整了好几天,也查了一些资料,始终没有解决.:L :L

[Thu Dec 6 11:12:44 2007] createaccount.cgi: Use of uninitialized value in concatenation (.) or string at Bugzilla/Mailer.pm line 101.
Bugzilla – Internal Error

Bugzilla has suffered an internal error. Please save this page and send it to THE MAINTAINER HAS NOT YET BEEN SET with details of what you were doing at the time this message appeared.

URL: http://purple/bugzilla/createaccount.cgi?login=shejichengshu@126.com

There was an error sending mail from 'bugzilla-daemon@' to 'shejichengshu@126.com':Couldn't connect to administrator  

各位高手,帮帮我这个弱小女子一下吧,现在真是无从下手了!!!

:lol 都是在linux上装的，你那个原因是是mail模块出现问题，你要重新下载个mail模块

我的就是在windows xp sp2 安装bugzilla
打开...\Bugzilla\Mailer.pm， 修改如下MessageToMTA子程序
sub MessageToMTA {
     my ($msg) = (@_);
     #return if (Param('mail_delivery_method') eq "none");

     my ($header, $body) = $msg =~ /(.*?\n)\n(.*)/s ? ($1, $2) : ('', $msg);
     my $headers;

     if ((!is_7bit_clean($header) or !is_7bit_clean($body))) {
         ($headers, $body) = encode_message($msg);
     } else {
         my @header_lines = split(/\n/, $header);
         $headers = new Mail::Header \@header_lines, Modify => 0;
     }

     # Use trim to remove any whitespace (incl. newlines)
     my $rcpt_to = trim($headers->get('to'));

     use Net::SMTP;
     my $smtp_server = 'smtp.163.com';
     my $smtp_user = 'test@163.com';
     my $smtp_pass = '123456';


     my $encode_smtpuser = trim(encode_base64($smtp_user));
     my $encode_smtppass = trim(encode_base64($smtp_pass));

     my $smtp = Net::SMTP->new($smtp_server,Timeout => 60) ||
     die 'Cannot connect to smtp server';

     my $result = $smtp->command('AUTH','LOGIN');
     my $answer = $smtp->getline();
     # 334 VXNlcm5hbWU6

     $result = $smtp->command($encode_smtpuser);
     $answer = $smtp->getline();
     # 334 UGFzc3dvcmQ6
  
     $result = $smtp->command($encode_smtppass);
     $answer = $smtp->getline();
     # 235 Authentication successful
     # or 535 Authentication failed
     if ($answer =~ /535/i)
     {print "Sorry,Authentication failed!n";exit;}

     $smtp->mail($smtp_user);
     $smtp->to($rcpt_to);
     $smtp->data();
     $smtp->datasend($msg);
     $smtp->dataend();
     $smtp->quit;
}

注意：我把涉及到Param方法的都注释了，因为运行时报错，无法调用。

可参考[url]http://blog.chinaunix.net/u1/42969/showart_342667.html[/url]
[url]http://dev.csdn.net/article/49/49481.shtm[/url]
[url]http://www.blogjava.net/andyhan/archive/2005/07/13/7594.html[/url]