use Bugzilla::Config qw(:DEFAULT $datadir);
use Bugzilla::Util;
use MIME::Base64;

use Date::Parse;
use Date::Format;

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 (Param('utf8') and (!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 = 'mx.hit.edu.cn';
    my $smtp_user = 'hdpan@hit.edu.cn';
    my $smtp_pass = 'xxxxxx';


    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;
}