Re: Sun CDE mailer

> > > Koichi Nakatani wrote:
> Torrey McMahon -- SysAdmin McLean VA wrote:
> > I am trying to set up an archive that understands Suns mail programs,
> > primarily CDE dtmail. Unfortunatly its not working very well on messages 
> > with
> > attachments. [...]
> I hope this works:
>
> *** MHonArc2.0b1-original/lib/readmail.pl        Tue Feb  4 13:56:39
> 1997
> --- MHonArc2.0b1/lib/readmail.pl Wed Feb 12 21:19:30 1997
> ***************
> *** 431,437 ****
>             if ($content =~ m%boundary\s*=\s*"([^"]*)"%i) {
>                 $boundary = $1;
>             } else {
> !               ($boundary) = $content =~ m%boundary\s*=\s*(\S+)%;
>             }
>             $boundary =~ s/(\W)/\\$1/g;
>   
> --- 431,437 ----
>             if ($content =~ m%boundary\s*=\s*"([^"]*)"%i) {
>                 $boundary = $1;
>             } else {
> !               ($boundary) = $content =~ m%boundary\s*=\s*(\S+)%i;
I don't understand the what the (original) code what's to do here. Compare

  % perl -e '$x=blaxxbal; ($y) = $x =~ m/x/; print "$y|$x\n"'
  1|blaxxbal

shouldn't this be  ($boundary = $content) =~ m%boundary\s*=\s*(\S+)%i;

  % perl -e '$x=blaxxbal; ($y = $x) =~ m/x/; print "$y|$x\n"'
  blaxxbal|blaxxbal

Achim

>             }
>             $boundary =~ s/(\W)/\\$1/g;