Re: [sisyphus] WARNING: amavisd-new и кодировки писем

[Alexey Tourbin <at@altlinux.ru>]

[-- Attachment #1: Type: text/plain, Size: 1476 bytes --]

On Thu, Apr 26, 2007 at 04:57:34PM +0300, Slava Dubrovskiy wrote:
> Alexey Tourbin пишет:
> >>Откатился на perl-base-5.8.8-alt6 -  ошибок нет.
> >>Содержимое журнала (если интересно сборщикам)
> >>
> >># cat errors
> >>Apr 23 12:53:58 ns amavis[4720]: (04720-13) (!!)TROUBLE in check_mail: 
> >>quar+notif FAILED: temporarily unable to quarantine: 451 4.5.0 Local 
> >>delivery(1) to /var/spool/amavis/quarantine/virus-Cp3jMXD3DAZJ failed: 
> >>Insecure dependency in sysopen while running with -T switch at 
> >>/usr/lib/perl5/i386-linux/IO/File.pm line 180., id=04720-13 at 
> >>/usr/sbin/amavisd line 9366.
> >>    
> >
> >К сожалению, мне это ни о чем не говорит.  Нужно отлаживать.
> >Если можете помочь с отладкой, можно продолжить обсуждение.
> >  
> У меня те же ошибки. Что надо сделать?

Приложить "по живому" вот этот патч, и понять, в каком месте
передается протухшее имя файла.  И почему оно протухло.

--- /usr/lib/perl5/i386-linux/IO/File.pm-	2007-04-25 13:49:44 +0000
+++ /usr/lib/perl5/i386-linux/IO/File.pm	2007-04-26 14:02:45 +0000
@@ -177,6 +177,11 @@ sub open {
 	my ($mode, $perms) = @_[2, 3];
 	if ($mode =~ /^\d+$/) {
 	    defined $perms or $perms = 0666;
+	    use Scalar::Util qw(tainted):
+	    if (tainted $file) {
+		    require Carp;
+		    Carp::cluck("file $file tainted");
+	    }
 	    return sysopen($fh, $file, $mode, $perms);
 	} elsif ($mode =~ /:/) {
 	    return open($fh, $mode, $file) if @_ == 3;

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]