On Wed, Mar 23, 2011 at 06:45:26PM +0100, Ralf Hildebrandt wrote:
> 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 don't think qshape needs to be any more selective, this should do the
trick.
--
Viktor.
