#!/usr/bin/perl
#
#
# Original File
# --------------
#	http://www.Linux-Sec.net/Mail/etc.mail/clientqueue.sh
#	http://www.Linux-Sec.net/Mail/etc.mail/mqueue.clean.pl
#
#
# Removed junk/dead mail stuck in /var/spool/mqueue
#
#
# 30-Jul-03 amo Date-of-Birth
# 15-Aug-03 amo Added Deferred Connection
# 01-Nov-04 amo Added Qq for [q|Q]filename
#
#
#
#y ( $DIR ) = "/var/spool/mqueue";
my ( $DIR ) = "/var/spool/clientmqueue";
#
#
#
my ( @Pending ) = ` cd $DIR ; /bin/ls -l * `;
#
my ( $Cnt ) = $#Pending +1;
#
my ( $id ) = 0;
my ( $Qq ) = "";
#
my ( $Remove ) = 0;
     $Remove = 1 if ( "$ARGV[0]" eq "-remove" );
#
#
#
printf "\n";
printf "Found $Cnt emails in $DIR\n";
printf "\n";
#
if ( $#Pending >= 0 ) {
  while ( $id <= $#Pending ) {
    #
    @s = split ( /\s+/, $Pending[$id] );
    #
    # dfxxxxx  or qfxxxx
    #
    $q = $s[$#s];       # last entry of "ls -l"
    #
    $Qq = "q" if ( $q =~ s/^q/q/ );
    $Qq = "Q" if ( $q =~ s/^Q/Q/ );
    #
    if ( $q =~ s/^q//i ) {
      #
      chomp ( $From = `grep From: $DIR/$Qq$q` );
      chomp ( $To = `grep \?To: $DIR/$Qq$q` );
      chomp ( $Def = `grep Deferred: $DIR/$Qq$q` );
      #
      if ( $Remove == 1 ) {
        printf "REMOVING: ";
	#
	` rm -f $DIR/$Qq$q $DIR/d$q `;
      }
      printf "%5d $s q=[d/q/Q]$q\n\t %s\n\t %s\n\t %s\n", $id, $From, $To, $Def;
      #
    }
    #
    #
    $id += 1;
  }
}
#
# End of file