Ralf Hildebrandt:
[ Charset UTF-8 unsupported, converting... ]
> * Ralf Hildebrandt <ralf.hildebra...@charite.de>:
> > # mailq | tail
> > -- 2954 Kbytes in 421 Requests.
> >
> > # postfix-2.9-20110321/auxiliary/qshape/qshape.pl active deferred hold
> > T 5 10 20 40 80 160 320 640 1280
> > 1280+
> > TOTAL 74 0 0 0 0 0 0 0 0 0
> > 74
>
> It should probably handle old and new IDs precisely, but this makes it
> work for me:
>
> --- postfix-2.9-20110320/auxiliary/qshape/qshape.pl2007-03-08
> 15:39:42.000000000 +0100
> +++ postfix-2.9-20110321/auxiliary/qshape/qshape.pl2011-03-23
> 18:43:06.000000000 +0100
> @@ -212,7 +212,7 @@
>
> sub qenv {
> my ($qfile) = @_;
> - return unless $qfile =~ m{(^|/)[A-F0-9]{6,}$};
> + return unless $qfile =~ m{(^|/)[A-Za-z0-9]{6,16}$};
> my @st = lstat($qfile);
> return unless (@st > 0 && -f _ && (($st[2] & 0733) == 0700));
I would not fix the length at 16. It will increase through the
centuries, becoming 17 in 2106 or so, and will stay there for some
52*136 years.
Wietse
