HID Tablet + l4( )҂pM)F 244_5#Li GIF89a333!NThis art is in the public domain. Kevin Hughes, kevinh@eit.com, September 1995!,g80 @#IjUhV&L wU'eH{ ;eAJ^X*zլrYDb8^7\(7>F85 ;" lzTZp.F qփU #!/usr/local/cpanel/3rdparty/perl/542/bin/perl # Utility for searching and displaying queue information. # Written by Matt Hubbard 15 August 2002 # # Copyright (c) The Exim Maintainers 2021 - 2025 # SPDX-License-Identifier: GPL-2.0-or-later # See the file NOTICE for conditions of use and distribution. # Except when they appear in comments, the following placeholders in this # source are replaced when it is turned into a runnable script: # # BIN_DIRECTORY # PERL_COMMAND # MSGID_RE # This file has been so processed. # Routine for extracting the UTC timestamp from message ID # lifted from eximstat utility # Version 1.4 use strict; BEGIN { pop @INC if $INC[-1] eq '.' }; use Getopt::Std; use File::Basename; # Insert MSGID_RE # Start msgid.frag # Copyright (c) The Exim Maintainers 2025 # SPDX-License-Identifier: GPL-2.0-or-later # # Regex patterns for exim message-id # Simple matching my $b62 = "[[:alnum:]]"; my $msgid_sec_re = "${b62}{6}"; my $msgid_pid_new_re = "${b62}{11}"; my $msgid_pid_old_re = "${b62}{6}"; my $msgid_frc_new_re = "${b62}{4}"; my $msgid_frc_old_re = "${b62}{2}"; my $msgid_new_re = "$msgid_sec_re-$msgid_pid_new_re-$msgid_frc_new_re"; my $msgid_old_re = "$msgid_sec_re-$msgid_pid_old_re-$msgid_frc_old_re"; my $msgid_re = "(?:$msgid_new_re|$msgid_old_re)"; # Match with content submatches # - requires variables seconds, pid, fractions my $msgid_sec_cap_re = "(?$msgid_sec_re)"; my $msgid_pid_cap_re = "(?(?:$msgid_pid_new_re|$msgid_pid_old_re))"; my $msgid_frc_cap_re = "(?(?:$msgid_frc_new_re|$msgid_frc_old_re))"; my $msgid_cap_re = "(?:$msgid_sec_cap_re-$msgid_pid_cap_re-$msgid_frc_cap_re)"; # End msgid.frag # Have this variable point to your exim binary. my $exim = '/usr/sbin/exim'; my $eargs = '-bpu'; my %id; my %opt; my $count = 0; my $mcount = 0; my @tab62 = (0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0, # 0-9 0,10,11,12,13,14,15,16,17,18,19,20, # A-K 21,22,23,24,25,26,27,28,29,30,31,32, # L-W 33,34,35, 0, 0, 0, 0, 0, # X-Z 0,36,37,38,39,40,41,42,43,44,45,46, # a-k 47,48,49,50,51,52,53,54,55,56,57,58, # l-w 59,60,61); # x-z my $base; if ($^O eq 'darwin') { # aka MacOS X $base = 36; } else { $base = 62; }; if ($ARGV[0] eq '--version' || $ARGV[0] eq '-v') { print basename($0) . ": $0\n", "build: 4.100.1\n", "perl(runtime): $]\n"; exit 0; } if (!getopts('hf:r:y:o:s:C:zxlibRcaG:E:',\%opt)) { &help; exit; } if ($opt{h}) { &help; exit; } if ($ARGV[0] || !($opt{f} || $opt{r} || $opt{s} || $opt{y} || $opt{o} || $opt{z} || $opt{x} || $opt{c})) { &help; exit(1); } if ($opt{a}) { $eargs = '-bp'; } if ($opt{C} && -e $opt{C} && -f $opt{C} && -R $opt{C}) { $eargs .= ' -C '.$opt{C}; } if ($opt{G}) { $eargs .= ' -qG'.$opt{G}; } if ($opt{E}) { $exim = $opt{E}; } # Read message queue output into hash &collect(); # Identify which messages match selection criteria &selection(); # Print matching data according to display option. &display(); exit; sub help() { print <<'EOF' Exim message queue display utility. -h This help message. -C Specify which exim.conf to use. -E Specify exim binary to use. Selection criteria: -f Match sender address sender (field is "< >" wrapped) -r Match recipient address -s Match against the size field from long output -y Message younger than -o Message older than -z Frozen messages only (exclude non-frozen) -x Non-frozen messages only (exclude frozen) -G Match in given queue only [ NB: for regexps, provided string sits in // ] Display options: -c Display match count -l Long Format [Default] -i Message IDs only