极湖

#!/usr/local/bin/perl
use strict;

use vars qw(%Config);

$Config{qmHandle_cmd} = '/var/local/src/qmHandle';
$Config{msg_file} = '/home/ou/qmScript/message_id_list.txt';
$Config{log_file} = '/home/ou/qmScript/log/delete_qmail_msg.' . &get_date() . '.log';

$Config{match_pattern} = '\nTo:\s(.*)\@bad.domain\n';

&main();

sub main()
{
    my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
    &write_log("---------- ". &get_time() . " start delete messages ----------\n");

&analyze_and_delete_msgs();

    ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
    &write_log("---------- ". &get_time() . " end delete messages ----------\n");
}

#-------------------------------------------------------------------
sub analyze_and_delete_msgs()
{
# 执行命令“qmHandle -l -N”结果输出到文件
system("$Config{qmHandle_cmd} -l -N > $Config{msg_file}");
if (-e $Config{msg_file}) {
# 从文件读取消息ID
open (MSG_LIST, $Config{msg_file}) || die "couldn't open $Config{msg_file}!";

while (<MSG_LIST>) {
    my ($msg_id, $msg_info) = split(/\s/, $_);
# 根据消息ID分析邮件内容
my $read_cmd = "$Config{qmHandle_cmd} -m$msg_id";
&write_log("$read_cmd\n");
    my $msg_txt = `$read_cmd`;
if( $msg_txt =~ /$Config{match_pattern}/ ) {
# 文件内容匹配指定正则表达式的情况下，删除该邮件，并写log
my $del_cmd = "$Config{qmHandle_cmd} -d$msg_id";
system("$Config{qmHandle_cmd} -d$msg_id");
&write_log("message: $msg_id deleted\n");
    } else {
    # 文件内容匹配指定正则表达式的情况下，写log
&write_log("# message: $msg_id does not match\n");
}
}

close(MSG_LIST);
}

}

#-------------------------------------------------------------------
sub get_date()
{
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
return sprintf("%04d%02d%02d", $year + 1900, $mon +1, $mday);
}

#-------------------------------------------------------------------
sub get_time()
{
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
return sprintf("%02d:%02d:%02d", $hour, $min, $sec);
}

#-------------------------------------------------------------------
sub write_log($)
{
    my ($log_msg) = @_;

    open(LOG, ">>$Config{log_file}") || die("Cannot open $Config{log_file}\n");
    print LOG $log_msg;
    close(LOG);
}

#!/usr/bin/perl -w
#
# compress apache's log files by gzip
#
# 2006/12/06 created by ou
#
#
use Time::Local;
use strict;

my $log_dir = '/var/log/apache';
my $log_pattern = '^.*log.([0-9]{4})-([0-9]{2})-([0-9]{2})$';
my $keep_days = 2;

&compress_logs( $log_dir, $log_pattern );

sub compress_logs()
{
my ($log_dir, $log_pattern) = @_;

opendir(DIR, $log_dir) || die "Open dir $log_dir failed !";
my @all_files = grep !/^\.\.?$/, readdir DIR;

my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);
my $today_days = timelocal(0, 0, 0, $mday, $mon, $year+1900)/86400;

chdir($log_dir);

foreach(@all_files){
if( $_ =~ /$log_pattern/ ) {
my $log_file = "$log_dir/$_";
my $file_days = timelocal(0, 0, 0, $3, $2-1, $1)/86400;
if( ($today_days - $file_days) > $keep_days ) {
#print "gzip $log_file\n";
system("gzip $log_file");
} else {
#print "leave $log_file\n";
}
}
}
}