#!PERL_COMMAND
-# $Cambridge: exim/src/src/exiqgrep.src,v 1.1 2004/10/07 10:39:01 ph10 Exp $
# Utility for searching and displaying queue information.
# Written by Matt Hubbard 15 August 2002
# Routine for extracting the UTC timestamp from message ID
# lifted from eximstat utility
-# Version 1.1
+# Version 1.2
use strict;
use Getopt::Std;
chomp();
my $line = $_;
#Should be 1st line of record, if not error.
- if ($line =~ /^\s*(\w+)\s+((?:\d+(?:\.\d+)?[A-Z])?)\s*(\w{6}-\w{6}-\w{2})\s+(<.*?>)/) {
+ if ($line =~ /^\s*(\w+)\s+((?:\d+(?:\.\d+)?[A-Z]?)?)\s*(\w{6}-\w{6}-\w{2})\s+(<.*?>)/) {
my $msg = $3;
$id{$msg}{age} = $1;
$id{$msg}{size} = $2;
foreach my $msg (keys(%id)) {
if ($opt{f}) {
# Match sender address
- next unless ($id{$msg}{from} =~ /$opt{f}/);
+ next unless ($id{$msg}{from} =~ /$opt{f}/i);
}
if ($opt{r}) {
# Match any recipient address
my $match = 0;
foreach my $rcpt (@{$id{$msg}{rcpt}}) {
- $match++ if ($rcpt =~ /$opt{r}/);
+ $match++ if ($rcpt =~ /$opt{r}/i);
}
next unless ($match);
}