Another MIME decoder improvement, and script tags

[David le Blanc]

How much *legitimate* email needs script tags???

about zero I would suggest!
 
Will this update be in CVS?


Regards,

David le Blanc

--       	
Senior Technical Specialist      	
I d e n t i t y   S o l u t i o n s	
	
Level 1, 369 Camberwell Road, Melbourne, Vic 3124	
Ph 03 9813 1388 Fax 03 9813 1688 Mobile 0417 595 550
Email david.leblanc at identity-solutions.com.au	
 

> -----Original Message-----
> From: Fadotek Solutions, LLC [mailto:fadotek at ONEBOX.COM] 
> Sent: Friday, 12 March 2004 12:21 PM
> To: MAILSCANNER at JISCMAIL.AC.UK
> Subject: Re: Another MIME decoder improvement, and script tags
> 
> Absolutely squash them!
> 
> Thanks,
> 
> Jeff
> 
> 
> -----Original Message-----
> From:     Julian Field <mailscanner at ECS.SOTON.AC.UK>
> Sent:     Tue, 9 Mar 2004 16:07:16 +0000
> To:       MAILSCANNER at JISCMAIL.AC.UK
> Subject:  Another MIME decoder improvement, and script tags
> 
> For those of you who like to keep bang up to date on all 
> these issues, I
> have made another improvement to the MIME decoder which 
> catches more rogue
> MIME structures.
> 
> Please apply this to Message.pm:
> 
> -----SNIP-----
> --- Message.pm.old 2004-03-08 18:35:44.000000000 +0000
> +++ Message.pm 2004-03-09 10:01:52.000000000 +0000
> @@ -1317,7 +1317,7 @@
>         last unless defined $line;
>         $nextpos += length $line;
>         # Must have 2 lines of header
> -      if ($prevline =~ /^[^:]+: / && $line =~ 
> /(^\s+)|(^[^:]+ )|(^\s+.*=)/) {
> +      if ($prevline =~ /^[^:\s]+: / && $line =~ /(^\s+)|(^[^:]+
> )|(^\s+.*=)/) {
>           #print STDERR "Found header start at \"$prevline\"\n and
> \"$line\"\n";
>           $foundheader = 1;
>           last;
> @@ -1333,7 +1333,9 @@
>       }
> 
>       # Rewind to the start of the header
> -    $file->setpos($prevpos);
> +    #$file->setpos($prevpos);
> +    seek $file, $prevpos, 0;
> +    #print STDERR "First line is \"" . <$file> . "\"\n";
> 
>       # Setup everything for the MIME parser
>       my $parser = MIME::Parser->new;
> -----SNIP-----
> 
> I don't think this is urgent enough to warrant release now, 
> it can go into
> the pot for the next one.
> 
> While I'm here, how many of you would like me to squash 
> <script> tags in
> HTML messages?
> --
> Julian Field
> www.MailScanner.info
> MailScanner thanks transtec Computers for their support
> 
> PGP footprint: EE81 D763 3DB0 0BFD E1DC 7222 11F6 5947 1415 B654
>