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

[Alexey Tourbin]

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;
----------- следущая часть -----------
Было удалено вложение не в текстовом формате...
Имя     : отсутствует
Тип     : application/pgp-signature
Размер  : 189 байтов
Описание: отсутствует
Url     : http://lists.altlinux.org/pipermail/sisyphus/attachments/20070426/2d10e514/attachment.bin