改造logwatch用MTA发信

logwatch是个用perl写的不错的东西,但是他给管理员发现是直接往管道里面写内容,这就需要运行logwatch的机器本身要有MTA(sendmail,qmail...)
而我的机器不需要这些东西,改造一下让他用别的MTA给管理员发送邮件.

不懂perl,乱改一气:(,红色部分为添加的内容

#!/usr/bin/perl -w

$ENV{'LANG'} = 'en_US'; # Hack to fix RH bug #81144

use strict;
use Net::SMTP;
##########################################################################
# $Id: logwatch.pl,v 1.109 2004/02/03 19:14:59 kirk Exp $
##########################################################################
# Most current version can always be found at:
# ftp://ftp.logwatch.org/pub/redhat/RPMS

..............

# Default config here...
$Config{'detail'} = 0;
$Config{'mailto'} = "root";
$Config{'save'} = "/tmp/logwatch";#改变默认配置,让结果保存到文件
$Config{'print'} = 0;
$Config{'range'} = "yesterday";
$Config{'debug'} = 0;
$Config{'archives'} = 0;
$Config{'tmpdir'} = "/tmp";
$Config{'splithosts'} = 0;
$Config{'multiemail'} = 0;

....................

sub send_mail
{
my($to,$from,$subject,@body)=@_;
my $relay="smtp.yourserver.com";#你用来发信的smtp server
my $smtp=Net::SMTP->new($relay);
die "Could not open connection: $!" if (!defined $smtp);
$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend("To: $to ");
$smtp->datasend("From: $from ");
$smtp->datasend("Subject: $subject ");
$smtp->datasend(" ");
foreach(@body) {
$smtp->datasend("$_ ");
}
$smtp->dataend();
$smtp->quit;
}

..........................

#############################################################################

# Get rid of temp directory...
if ($Config{'debug'}<100) {
`rm -rf $TempDir`;
}
#自己加的,读取文件的内容,然后发信给管理员
open(FILE,$Config{'save'});
my @tmp;
@tmp=;
&send_mail("[email protected]","[email protected]","logwatch for you host",@tmp);
close(FILE);
`rm -rf $Config{'save'}`;
#这段内容要在exit(0)前执行,放在后面的话程序没有执行就退出了.

exit(0);

# vi: shiftwidth=3 tabstop=3 et

.....................