Gecko [ www.ctm-euromeuble.fr ]

Name	Size	Permission	Date
qmail-local	[ DIR ]	drwxr-xr-x	2020-08-24 23:50
smtpd-policy	[ DIR ]	drwxr-xr-x	2020-08-24 23:50
access.gz	5.92 KB	-rw-r--r--	2016-02-14 02:39
aliases.gz	3.62 KB	-rw-r--r--	2016-02-14 02:39
bounce.cf.default	3.46 KB	-rw-r--r--	2020-02-16 20:59
canonical.gz	3.83 KB	-rw-r--r--	2016-02-14 02:39
dynamicmaps.cf	524 B	-rw-r--r--	2014-05-30 13:38
generic.gz	3.42 KB	-rw-r--r--	2016-02-14 02:39
header_checks.gz	6.49 KB	-rw-r--r--	2016-04-11 00:30
mailqfmt.pl	1.96 KB	-rw-r--r--	2020-02-05 01:03
main.cf.default.gz	8.17 KB	-rw-r--r--	2020-02-16 20:59
makedefs.out.gz	1.32 KB	-rw-r--r--	2020-02-16 20:59
post-install.gz	7.81 KB	-rw-r--r--	2015-12-28 01:00
postfix-script.gz	2.8 KB	-rw-r--r--	2020-02-16 20:59
postfix-tls-script.gz	9.13 KB	-rw-r--r--	2016-12-04 21:52
postfix-wrapper.gz	2.25 KB	-rw-r--r--	2009-02-12 02:06
postmulti-script.gz	2.89 KB	-rw-r--r--	2015-09-25 01:24
relocated.gz	2.46 KB	-rw-r--r--	2016-02-14 02:39
transport.gz	3.93 KB	-rw-r--r--	2016-02-14 02:39
virtual.gz	4.06 KB	-rw-r--r--	2016-02-14 02:39

Rename

#! /usr/bin/perl -wT

# This file is licensed to you under the conditions of the
# GNU General Public License v2.

# $Id: mailqfmt.pl,v 0.6 2004/01/20 00:30:26 emma Exp $

use strict;

my ($rec, $rsn);
use HTTP::Date;

my $cmd = '/usr/bin/mailq';

my %q = ( ' ' => 'normal',
	  '!' => 'hold  ',
	  '*' => 'active' );

delete $ENV{'PATH'};

if ($ENV{'SSH_CLIENT'} and not $ENV{'SSH_TTY'}) {
    print STDERR "Warning: If you aren't redirecting input, type EOF (^D) now and re-run me with ssh -t.\n";
}

if (@ARGV == 0 and -t STDIN) {
	open STDIN, "$cmd|" or die "cannot run $cmd: $!";
}

while(<>) {
	if (/^Mail queue is empty/) { print; next; }
	if (/^--/) { print; next; }	# print trailer
	if (/^-/) { next; }		# skip header
	# empty line
	if (/^$/) {
		if ($rsn) { $rec .= " reason=$rsn"; }
		print "$rec\n";
		$rec = $rsn = '';
		next;
	}
	# line with queue id
	if (/^([0-9A-F]+)\s*([ !*])\s+(\d+)\s+(\S+\s+\S+\s+\d+\s+\d+:\d+:\d+)\s+(.+)$/)
	{
		my ($qid, $qfl, $siz, $dat, $from) = ($1, $2, $3, $4, $5);
		$dat = HTTP::Date::time2isoz(str2time($dat));
		$dat =~ s/ /T/g;
		$siz = sprintf "%08d", $siz;
		$rec="$qid queue=$q{$qfl} size=$siz date=$dat from=$from";
		next;
	}
	if (/^\s*$(.+)$$/) { $rsn = $1; $rsn =~ tr/ /_/; next; }
	if (/^\s+(.+)$/) { $rec .= " to=$1"; next; }
}

exit
__END__
# $Log: mailqfmt.pl,v $
# Revision 0.6  2004/01/20 00:30:26  emma
# When in an SSH session without pseudo terminal,
# warn the user that program expects input
#
# Revision 0.5  2003/12/19 13:38:18  emma
# Do not require space before a bounce reason (which made mailqfmt.pl
# ignore long bounce reasons.)
#
# Revision 0.4  2003/01/09 11:59:47  ma
# Pass "Mail queue is empty".
#
# Revision 0.3  2003/01/09 11:55:59  ma
# Use delete, not undef, to dispose of $ENV{PATH}.
#
# Revision 0.2  2003/01/09 11:53:11  ma
# Add -wT to shebang line. Undefine $ENV{PATH}. Fix __end__ to __END__.
#
# Revision 0.1  2003/01/09 11:50:56  ma
# first release
#