51Testing软件测试论坛

标题: TD服务器上TD项目的移植? [打印本页]

作者: RYU 时间: 2007-9-19 17:48
标题: TD服务器上TD项目的移植?
哪位大侠有没有在TD服务器上TD项目移植到另一TD服务器的移植经验,
有没有什么经验共享啊..

[[i] 本帖最后由 RYU 于 2007-11-17 17:01 编辑 [/i]]

作者: empire2 时间: 2007-9-19 18:38
我也急需

作者: zhicl 时间: 2007-9-20 10:01
标题: 参考一下吧
http://bbs.51testing.com/thread-89587-1-1.html

作者: freeboy666 时间: 2007-9-25 08:58
修改Bugzilla\BugMail.pm里面的最后一个函数sub MessageToMTA ($;$)
修改前为：

sub MessageToMTA ($;$) {
my ($msg, $rcpt_to) = (@_);

my $sendmailparam = "";
unless (Param("sendmailnow")) {
   $sendmailparam = "-ODeliveryMode=deferred";
}

if ($enableSendMail == 1) {
      open(SENDMAIL, "|/usr/lib/sendmail $sendmailparam -t -i") ||
      die "Can't open sendmail";

      print SENDMAIL trim($msg) . "\n";
      close SENDMAIL;

}
}

修改后为：
sub MessageToMTA ($;$) {
my ($msg, $rcpt_to) = (@_);

my $sendmailparam = "";
unless (Param("sendmailnow")) {
   $sendmailparam = "-ODeliveryMode=deferred";
}

if ($enableSendMail == 1) {
      #open(SENDMAIL, "|/usr/lib/sendmail $sendmailparam -t -i") ||
      #  die "Can't open sendmail";

      #print SENDMAIL trim($msg) . "\n";
      #close SENDMAIL;
  use Net::SMTP;
  my $smtp_server = '127.0.0.1';
  my $smtp_user = 'admin@test.com';
  my $smtp_pass = 'admin';

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

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

}
}

我是在自己机器上建立的一个邮件服务器，所以stmp-server是127.0.0.1，like@like.com就是一个账号，like是密码。设置好以后就可以用了

，我的目的是在局域网内使用，所以用那个邮件服务器创建的账号，之后就可以使用了。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)