perl 自動發郵件

perl指令碼：

#!/usr/bin/perl
use Net::SMTP;
use MIME::Base64;

################
# 自動簽到指令碼 #
################

$host = '10.182.131.153'; #SMTP伺服器位址

###########################
#
# $host: smtp伺服器
# $auth: 郵件賬戶
# $password: 郵件賬戶密碼
# $to: 要發送的目標
# $mail_body: 郵件內容
#
###########################

sub send_mail {
  my($host, $auth, $password, $to, $mail_body) = @_;
  my $smtp = Net::SMTP->new(
    Host    =>  $host,
    Hello   =>  $host,
    Timeout =>  30,
    Debug   =>  1
  );

  $smtp->auth(substr($auth, 0, index($auth, '@')), $password);
  $smtp->mail($auth);
  $smtp->to($to);
  $smtp->bcc($auth);
  $smtp->data();
  $smtp->datasend("Content-Type:text/plain;charset=GB2312\n");
  $smtp->datasend("Content-Transfer-Encoding:base64\n");
  $smtp->datasend("From:$auth \n");
  $smtp->datasend("To:$to \n");
  $smtp->datasend("Subject:=?gb2312?B?".encode_base64($mail_body,'')."?=\n\n");
  $smtp->datasend("\n");

  $smtp->datasend(encode_base64($mail_body,'')." \n");
  $smtp->dataend();
  $smtp->quit;
}

#擷取命令列參數
if(@ARGV < 1) {
  $conf_file = './mailusers.conf'; #預設設定檔
}
else {
  $conf_file = $ARGV[0]; #擷取設定檔名
}

#開啟設定檔和記錄檔
open CONF_FILE, $conf_file or die "Open config file [$conf_file] failed! \n";
open LOG_FILE, '>>send.log' or die "Open send.log failed! $!\n";
while(<LOG_FILE>) {
  chomp;
  if($_ =~ /^#+/) {
    next; #跳過注釋行
  }

@line = split /\s+/, $_;
if(@line != 4) {
  next; #跳過空行
}

#發送郵件
send_mail($host, $line[0], $line[1], $line[2], $line[3]);
print LOG_FILE "[" . localtime() . "] send_mail($host, $line[0], $line[1], $line[2], $line[3]); \n";
}

close CONF_FILE;
close LOG_FILE;

自動發信的賬戶和目標都配在設定檔裡，設定檔格式如下mails.conf：

#<auth> <password> <To> <mail body>
000000 簽到然後就是在 crontab 裡配自動運行是時間了：

#分 時 日 月 星期 命令
41 8 * * 1-5 /usr/bin/perl /home/aig/.run/checkin.pl /home/aig/.run/mails.conf
58 13 * * 1-5 /usr/bin/perl /home/aig/.run/checkin.pl /home/aig/.run/mails.conf