[Mimedefang] Re: $entity question

Jan Pieter Cornet johnpc at xs4all.nl
Mon May 3 09:12:01 EDT 2004


On Fri, Apr 30, 2004 at 08:26:13AM -0400, David F. Skoll wrote:
> On Fri, 30 Apr 2004, Kevin A. McGrail wrote:
> 
> > if (-s "$entity->bodyhandle->path" <= $sizelimit) {
> 
> $entity should always be defined, but $entity->bodyhandle or
> $entity->bodyhandle->path might not be -- you need to check both.

Oh, and the perl syntax is incorrect. Leave out the "" quotes around
the $entity->bodyhandle->path.

-- 
#!perl -wpl # mmfppfmpmmpp mmpffm <pmmppfmfpppppfmmmf at fpffmm4mmmpmfpmf.ppppmf>
$p=3-2*/[^\W\dmpf_]/i;s.[a-z]{$p}.vec($f=join('',$p-1?chr(sub{$_[0]*9+$_[1]*3+
$_[2]}->(map{/p|f/i+/f/i}split//,$&)+97):qw(m p f)[map{((ord$&)%32-1)/$_%3}(9,
3,1)]),5,1)='`'lt$&;$f.eig;                                # Jan-Pieter Cornet



More information about the MIMEDefang mailing list