Perl Issues THANKS

[Julian Field]

<x-flowed>
Is this a good time to ask if you have bought your copy of the MailScanner
book yet?
It's very reasonably priced and available at www.mailscanner.info. Cheaper
than Amazon!
Thanks!

At 19:57 08/10/2004, you wrote:
> > It's a Perl issue.
>Thanks from me too.
>
>Seems like this issue was introduced by a patch in the freebsd-port
>"P5-MIME-Tools".
>The original "Filer.pm" is also still there but renamed to "Filer.pm.orig"
>
>Not shure how too behave correctly, but i took the liberty too cc this
>message to that ports maintainer.
>
>--
>Lars
>
>
>
> >
> > At 14:18 08/10/2004, you wrote:
> >>That did the trick...  Was this a perl issue?  Is there something I
> >> should
> >>keep in mind or notes on should I need to make changes to MS or SA in the
> >>future?
> >>
> >>-Brendan
> >>
> >>-----Original Message-----
> >>From: MailScanner mailing list [mailto:MAILSCANNER at JISCMAIL.AC.UK] On
> >> Behalf
> >>Of Julian Field
> >>Sent: Friday, October 08, 2004 8:05 AM
> >>To: MAILSCANNER at JISCMAIL.AC.UK
> >>Subject: Re: Perl Issues
> >>
> >>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.
> >> > >
> >
> > --
> > 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).
> >
>
>
>
>----------------------------------------------------------------
>Tjenesten mail.adventuras.no ble levert av Adventuras Web Agency
>http://www.adventuras.no/
>
>------------------------ 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).

--
Julian Field
www.MailScanner.info
Professional Support Services at www.MailScanner.biz
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>