[Mimedefang] Archive::Zip problem?

[Cormack, Ken]

Thanks, Michal!  :)

-----Original Message-----
From: mimedefang-bounces at lists.roaringpenguin.com
[mailto:mimedefang-bounces at lists.roaringpenguin.com]On Behalf Of Michal
Jankowski
Sent: Thursday, March 04, 2004 2:08 PM
To: mimedefang at lists.roaringpenguin.com
Subject: Re: [Mimedefang] Archive::Zip problem?


"Cormack, Ken" <kcormack at acs.roadway.com> writes:

> We saw this log entry in today's logs (we havent looked back yet, to see
how
> many times this has occurred.)
>
> Mar  4 09:47:19 mail01 mimedefang-multiplexor: Slave 11 stderr: called at
> /etc/mail/mimedefang-filter line 527
>
^Imain::filter('MIME::Entity=HASH(0x97646b8)','Document.zip','.zip','applica
> tion/octet-stream') called at /usr/local/bin/mimedefang.pl line 513

>         use Archive::Zip qw(:ERROR_CODES);
>         my $path = $entity->bodyhandle->path;
>         my $zip = Archive::Zip->new();
> 527     if ($zip->read($path) == AZ_OK) {

You are seeing a (garbled for whatever reason) default error
message/trace from Archive::Zip, printed whenever there is an error in
processing .zip file.

Add

Archive::Zip::setErrorHandler(sub {});

before your call to $zip->read

  MJ
_______________________________________________
Visit http://www.mimedefang.org and http://www.canit.ca
MIMEDefang mailing list
MIMEDefang at lists.roaringpenguin.com
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang