TD服务器上TD项目的移植?

RYU

哪位大侠有没有在TD服务器上TD项目移植到另一TD服务器的移植经验,
有没有什么经验共享啊..

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

empire2

我也急需

zhicl

http://bbs.51testing.com/thread-89587-1-1.html

freeboy666

修改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是密码。设置好以后就可以用了

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