[Mimedefang] URGENT: Apply the MIME-Tools patch NOW.

[Ray Spinhirne]

Thanks

That seems to have worked.  (That is the patch has been applied.)

Ray
> 
> * Ray Spinhirne <rays at admin.stedwards.edu> [2002-04-26T10:09-0700]:
> > When trying to install the patch on a HPUX 11 system the patch command
> > gives the following message:
> 
> If HPUX is anything like Solaris or similar commercial unix varients,
> your patch command may not support the unifed format the patch is in.
> 
> You can either obtain the GNU diff/patch utilities, which support the
> unified format, or try the following contextual diff format patch.
> 
> *** MIME-tools-5.411/lib/MIME/Field/ParamVal.pm.orig	Sat Nov  4 11:54:49 2000
> --- MIME-tools-5.411/lib/MIME/Field/ParamVal.pm	Fri Apr 26 10:29:55 2002
> ***************
> *** 108,113 ****
> --- 108,116 ----
>   # Pattern to match spaces or comments:
>   my $SPCZ     = '(?:\s|\([^\)]*\))*';
>   
> + # Pattern to match non-semicolon as fallback for broken MIME
> + # produced by some viruses
> + my $BADTOKEN = '[^;]+';
>   
>   #------------------------------
>   #
> ***************
> *** 200,208 ****
>   	$raw =~ m/\G$SPCZ\;$SPCZ/og or last;             # skip leading separator
>   	$raw =~ m/\G($PARAMNAME)\s*=\s*/og or last;      # give up if not a param
>   	$param = lc($1);
> ! 	$raw =~ m/\G(\"([^\"]+)\")|\G($TOKEN)|\G($ENCTOKEN)/g or last;   # give up if no value
> ! 	my ($qstr, $str, $token, $enctoken) = ($1, $2, $3, $4);
> ! 	$params{$param} = defined($qstr) ? $str : (defined($token) ? $token : $enctoken);
>   	debug "   field param <$param> = <$params{$param}>";
>       }
>   
> --- 203,218 ----
>   	$raw =~ m/\G$SPCZ\;$SPCZ/og or last;             # skip leading separator
>   	$raw =~ m/\G($PARAMNAME)\s*=\s*/og or last;      # give up if not a param
>   	$param = lc($1);
> ! 	$raw =~ m/\G(\"([^\"]+)\")|\G($ENCTOKEN)|\G($BADTOKEN)|\G($TOKEN)/g or last;   # give up if no value
> ! 	my ($qstr, $str, $enctoken, $badtoken, $token) = ($1, $2, $3, $4, $5);
> ! 	if (defined($badtoken)) {
> ! 	    # Strip leading/trailing whitespace from badtoken
> ! 	    $badtoken =~ s/^\s*//;
> ! 	    $badtoken =~ s/\s*$//;
> ! 	}
> ! 	$params{$param} = defined($qstr) ? $str :
> ! 	    (defined($enctoken) ? $enctoken :
> ! 	     (defined($badtoken) ? $badtoken : $token));
>   	debug "   field param <$param> = <$params{$param}>";
>       }
>   
> *** MIME-tools-5.411/lib/MIME/Parser.pm.orig	Sat Nov 11 21:55:11 2000
> --- MIME-tools-5.411/lib/MIME/Parser.pm	Fri Apr 26 10:29:55 2002
> ***************
> *** 998,1003 ****
> --- 998,1004 ----
>   	$self->process_multipart($in, $rdr, $ent);
>       }
>       elsif (("$type/$subtype" eq "message/rfc822") && 
> + 	   ($head->count('MIME-Version') > 0 || $self->extract_nested_messages eq 'REPLACE') &&
>   	   $self->extract_nested_messages) {
>   	$self->debug("attempting to process a nested message");
>   	$self->process_message($in, $rdr, $ent);
> 
> 
> -- 
> Jeremy Mates                                        http://www.sial.org/
> 
> OpenPGP: 0x11C3D628  (4357 1D47 FF78 24BB 0FBF 7AA8 A846 9F86 11C3 D628)
> _______________________________________________
> MIMEDefang mailing list
> MIMEDefang at lists.roaringpenguin.com
> http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
>