This is pfdel for delete queue on postfix or zimbra

pfdel

#!/usr/bin/perl -w
#
# pfdel - deletes message containing specified address from
# Postfix queue. Matches either sender or recipient address.
#
# Usage: pfdel <email_address>
#

use strict;
# use warnings;

# Change these paths if necessary.

my $zimbraDir = '/opt/zimbra/';
my ($LISTQ, $POSTSUPER);

if ( -e $zimbraDir ){
    my $LISTQ = "/opt/zimbra/common/sbin/postqueue -p";
    my $POSTSUPER = "/opt/zimbra/common/sbin/postsuper";

    my $email_addr = "";
    my $qid = "";
    my $euid = $>;

    if ( @ARGV !=  1 ) {
        die "Usage: pfdel <email_address>\n";
    } else {
        $email_addr = $ARGV[0];
    }

    if ( $euid != 0 ) {
            die "You must be root to delete queue files.\n";
    }


    open(QUEUE, "$LISTQ |") ||
    die "Can't get pipe to $LISTQ: $!\n";

    my $entry = <QUEUE>;    # skip single header line
    $/ = "";        # Rest of queue entries print on
                # multiple lines.
    while ( $entry = <QUEUE> ) {
        if ( $entry =~ / $email_addr$/m ) {
            ($qid) = split(/\s+/, $entry, 2);
            $qid =~ s/[\*\!]//;
            next unless ($qid);

            #
            # Execute postsuper -d with the queue id.
            # postsuper provides feedback when it deletes
            # messages. Let its output go through.
            #
            if ( system($POSTSUPER, "-d", $qid) != 0 ) {
                # If postsuper has a problem, bail.
                die "Error executing $POSTSUPER: error " .
                "code " .  ($?/256) . "\n";
            }
        }
    }
    close(QUEUE);

    if (! $qid ) {
        die "No messages with the address <$email_addr> " .
        "found in zimbra queue.\n";
    }

    exit 0;

} else {
    my $LISTQ = "postqueue -p";
    my $POSTSUPER = "postsuper";

    my $email_addr = "";

    my $qid = "";
    my $euid = $>;

    if ( @ARGV !=  1 ) {
        die "Usage: pfdel <email_address>\n";
    } else {
        $email_addr = $ARGV[0];
    }

    if ( $euid != 0 ) {
            die "You must be root to delete queue files.\n";
    }


    open(QUEUE, "$LISTQ |") ||
    die "Can't get pipe to $LISTQ: $!\n";

    my $entry = <QUEUE>;    # skip single header line
    $/ = "";        # Rest of queue entries print on
                # multiple lines.
    while ( $entry = <QUEUE> ) {
        if ( $entry =~ / $email_addr$/m ) {
            ($qid) = split(/\s+/, $entry, 2);
            $qid =~ s/[\*\!]//;
            next unless ($qid);

            #
            # Execute postsuper -d with the queue id.
            # postsuper provides feedback when it deletes
            # messages. Let its output go through.
            #
            if ( system($POSTSUPER, "-d", $qid) != 0 ) {
                # If postsuper has a problem, bail.
                die "Error executing $POSTSUPER: error " .
                "code " .  ($?/256) . "\n";
            }
        }
    }
    close(QUEUE);

    if (! $qid ) {
        die "No messages with the address <$email_addr> " .
        "found in postfix queue.\n";
    }

    exit 0;
}