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;