就爱编程论坛

标题: perl发送邮件真正可用版本 [打印本页]

作者: admin 时间: 2012-2-4 05:43:45 标题: perl发送邮件真正可用版本

[root@ZB sf]# cat mailw.pl
[code=Python]#!/usr/bin/perl -w
use Net::SMTP;
use MIME::Base64;

################
# 自动发告警邮件
#sword make
#bijing make
################

$host = '123.125.50.135'; #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,
Timeout =>  30,
  );
$smtp->command('AUTH LOGIN')->response();
my $userpass = encode_base64($auth);
$userpass =~ s/\n//g;
$smtp->command($userpass)->response();
$userpass = encode_base64($password);
$userpass =~ s/\n//g;
$smtp->command($userpass)->response();
  $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) {
  $cf_file = './mail.cf'; #默认配置文件
}
else {
  $cf_file = $ARGV[0]; #获取配置文件名
}

#打开配置文件和日志文件
open CF_FILE, $cf_file or die "Open config file [$cf_file] failed! \n";
open LOG_FILE, '>>send.log' or die "Open send.log failed! $!\n";
while(<CF_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[2], $line[3]); \n";
}

close CF_FILE;
close LOG_FILE;
[/code]
[root@ZBsf]# cat mailw.cf
#<auth> <password> <To> <mail subject> <mail body>
t1@163.com 1234 t2@163.com XX重启完毕

欢迎光临就爱编程论坛 (http://bbs.waibc.com/)