Clear MailQueue Script

#!/bin/sh
# This script will prompt for sender domain and then purge the mail queue
# Requires qtool.pl

echo "Type the sender domain you would like to purge, followed by [ENTER]:"

read domain

echo "Got it.  I'll purge all messages from $domain"

QIDS="$(mailq | grep -B1 $domain | grep '^[a-z]'  | awk  '{print $1}' | sed  's/\*$//')"
for q in $QIDS
do
  /usr/local/bin/qtool.pl -C /etc/mail/sendmail.cf -d /var/spool/mqueue/$q
done