Perl Issues

Julian Field mailscanner at ecs.soton.ac.uk
Fri Oct 8 14:04:54 IST 2004


<x-flowed>
At 13:01 08/10/2004, you wrote:
>Line 362 is:
>return 1 if ($name =~ /((?:[\[\]\\\/\<\>\|\?\*\:\"]|\p{IsCntrl}))/); ### path

return 1 if ($name =~ /((?:[\[\]\\\/\<\>\|\?\*\:\"\x00-\x1f]))/); ### path

should do the trick.

>or special characters
>
>
>This is the whole chunk of the Filer.pm code surrounding line 362
>
>sub evil_filename {
>     my ($self, $name) = @_;
>
>     $self->debug("is this evil? '$name'");
>
>     return 1 if (!defined($name) or ($name eq ''));   ### empty
>     return 1 if ($name =~ m{(^\s)|(\s+\Z)});  ### leading/trailing whitespace
>     return 1 if ($name =~ m{^\.+\Z});         ### dots
>     return 1 if ($name =~ /((?:[\[\]\\\/\<\>\|\?\*\:\"]|\p{IsCntrl}))/);
> ### path or special characters
>     return 1 if ($self->{MPF_MaxName} and
>                  (length($name) > $self->{MPF_MaxName}));
>
>     $self->debug("it's ok");
>     0;
>}
>
>
>Is it possible that I missed grabbing some perl modules?  I thought that
>the port installation took care of getting what it needed provided that
>perl was installed but it's been a while since my last install of MS.
>
>-Brendan
>
>-----Original Message-----
>From: MailScanner mailing list [mailto:MAILSCANNER at JISCMAIL.AC.UK] On
>Behalf Of Julian Field
>Sent: Friday, October 08, 2004 3:04 AM
>To: MAILSCANNER at JISCMAIL.AC.UK
>Subject: Re: Perl Issues
>
>It's a goodie this one.
>
>In /usr/local/lib/perl5/site_perl/5.6.1/MIME/Parser/Filer.pm, at line 362,
>there is a statement given in the regular expression which your version of
>Perl does not support.
>If you post that line here, I will mail you the fixed version of it. I
>can't find an example of this at the moment.
>
>At 23:23 07/10/2004, you wrote:
> >I'm attempting a fresh install of mailscanner from FreeBSD Port to a FreeBSD
> >4.7 machine.
> >
> >(Perl 5.6.1, SA 2.64, MS 4.33.3)
> >
> >I've done this install without issue on other similar FreeBSD machines but
> >when I attempt to start mailscanner using the script in ../rc.d/ I get the
> >following errors.  Any help is greatly appreciated.
> >
> >Can't locate object method "SWASHNEW" via package "utf8" (perhaps you forgot
> >to load "utf8"?) at
> >/usr/local/lib/perl5/site_perl/5.6.1/MIME/Parser/Filer.pm line 362.
> >Compilation failed in require at
> >/usr/local/lib/perl5/site_perl/5.6.1/MIME/Parser.pm line 152.
> >BEGIN failed--compilation aborted at
> >/usr/local/lib/perl5/site_perl/5.6.1/MIME/Parser.pm line 152.
> >Compilation failed in require at
> >/usr/local/lib/MailScanner/MailScanner/MCPMessage.pm line 40.
> >BEGIN failed--compilation aborted at
> >/usr/local/lib/MailScanner/MailScanner/MCPMessage.pm line 40.
> >Compilation failed in require at /usr/local/libexec/MailScanner/MailScanner
> >line 51.
> >BEGIN failed--compilation aborted at
> >/usr/local/libexec/MailScanner/MailScanner line 51.
> >
> >-Brendan

--
Julian Field
www.MailScanner.info
MailScanner thanks transtec Computers for their support
Buy the MailScanner book at www.MailScanner.info/store

PGP footprint: EE81 D763 3DB0 0BFD E1DC 7222 11F6 5947 1415 B654

------------------------ MailScanner list ------------------------
To unsubscribe, email jiscmail at jiscmail.ac.uk with the words:
'leave mailscanner' in the body of the email.
Before posting, read the MAQ (http://www.mailscanner.biz/maq/) and
the archives (http://www.jiscmail.ac.uk/lists/mailscanner.html).
</x-flowed>



More information about the MailScanner mailing list