computer:2:know

cleanup postfix mail queue, if mails are older than a specific age

 #!/usr/bin/perl

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

#

# cleanUpPostfixQueue.pl

#

# (c) s4c 2018-08

#

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

$now=` date "+%H:%M:%S"`;

chomp($now);

$now_s = getSeconds($now);

#print "now: $now, $now_s\n";



open(IN, "/usr/sbin/sendmail -bp |");

$counter=0;

$deleted=0;

while(<IN>){

        $line=$_;

        chomp($line);

        #print "$line\n";



        #match line:

        #3A3E16DC39CD     5474 Fri Aug 24 09:34:34  MAILER-DAEMON

        $format = '%a %b %d %H:%M:%S %Y';

        if ($line=~/^([\d|\w]*)\s*(\d*).*(\d\d:\d\d:\d\d)\s*MAILER-DAEMON$/ ){

                $counter++;

                $id=$1;

                $size=$2;

                $date=$3;

                $date_s = getSeconds($date);

                $diff = $now_s - $date_s;



                print "id=$id, size=$size, date=$date. diff=$diff.";



                if ($diff > 3600){

                        print "deleting id $id.";

                        system("/usr/sbin/postsuper -d $id >dev/null");

                        $deleted++;

                };

                print "\n";

        }

}

close(IN);



print "total: $counter, deleted: $deleted\n";



sub getSeconds($){

        $ret=-1;

        if ($_[0]=~/(\d\d):(\d\d):(\d\d)$/){

                $ret = $3 + ($2*60) + ($1 * 60 * 60);

        }

        return $ret;

}

Computer and IT knowledge - things to know

cleanup postfix mail queue, if mails are older than a specific age