#!/usr/bin/perl
#
# mqgrep - Print message IDs matching <pattern>
#
# Example: mqgrep POSTOFFICE.PACBELL.NET | sudo postsuper -d -
#
# Written by Martin K. Petersen <mkp@mkp.net>

$pattern = shift @ARGV;

$/ = "";
open(FH, "mailq|") || die "Failed to run mailq: $!\n";

while(<FH>) {
    next if /^-/;
    next if /\*/;
    next unless /$pattern/;
    ($id, $rest) = split / /;
    print "$id\n";
};

# EOF