\n|; } else { $ret .= qq|| . mhonarc::htmlize($file) . qq|
\n|; } } } elsif ($pdata =~ /\S/) { # plain text my(@subret) = filter($fields, \$pdata, $isdecode, $args); $ret .= shift @subret; push(@files, @subret); } else { # Make sure readmail thinks we processed $ret .= " "; } ++$i; } ## Done with uudecode return ($ret, @files); } ## Check for HTML data if requested if ($args =~ s/\bhtmlcheck\b//i && $$data =~ /\A\s*<(?:html\b|x-html\b|!doctype\s+html\s)/i) { if (readmail::MAILis_excluded('text/html')) { return (&$readmail::ExcludedPartFunc('text/plain HTML')); } my $html_filter = readmail::load_filter('text/html'); if (defined($html_filter) && defined(&$html_filter)) { return (&$html_filter($fields, $data, $isdecode, $args)); } else { require 'mhtxthtml.pl'; return (m2h_text_html::filter($fields, $data, $isdecode, $args)); } } my($charset, $nourl, $doquote, $igncharset, $nonfixed, $textformat, $keepspace, $maxwidth, $target, $defset, $xhtml); my(%asis) = ( 'us-ascii' => 1, 'iso-8859-1' => 1, ); $nourl = ($mhonarc::NOURL || ($args =~ /\bnourl\b/i)); $doquote = ($args =~ /\bquote\b/i); $nonfixed = ($args =~ /\bnonfixed\b/i); $keepspace = ($args =~ /\bkeepspace\b/i); if ($args =~ /\bmaxwidth=(\d+)/i) { $maxwidth = $1; } else { $maxwidth = 0; } if ($args =~ /\bdefault=(\S+)/i) { $defset = lc $1; } else { $defset = 'us-ascii'; } $target = ""; if ($args =~ /\btarget="([^"]+)"/i) { $target = $1; } elsif ($args =~ /\btarget=(\S+)/i) { $target = $1; } $target =~ s/['"]//g; if ($target) { $target = qq/target="$target"/; } $defset =~ s/['"\s]//g; ## Grab charset parameter (if defined) if ( defined($fields->{'content-type'}[0]) and $fields->{'content-type'}[0] =~ /\bcharset\s*=\s*([^\s;]+)/i ) { $charset = lc $1; $charset =~ s/['";\s]//g; } else { $charset = $defset; } ## Grab format parameter (if defined) if ( defined($fields->{'content-type'}[0]) and $fields->{'content-type'}[0] =~ /\bformat\s*=\s*([^\s;]+)/i ) { $textformat = lc $1; $textformat =~ s/['";\s]//g; } else { $textformat = "fixed"; } ## Check if certain charsets should be left alone if ($args =~ /\basis=(\S+)/i) { my $t = lc $1; $t =~ s/['"]//g; %asis = ('us-ascii' => 1); # XXX: Should us-ascii always be "as-is"? local($_); foreach (split(':', $t)) { $asis{$_} = 1; } } ## Check MIMECharSetConverters if charset should be left alone my $charcnv = &readmail::load_charset($charset); if (defined($charcnv) && $charcnv eq '-decode-') { $asis{$charset} = 1; } ## Check if max-width set if ($maxwidth && $textformat eq 'fixed') { $$data =~ s/^(.*)$/&break_line($1, $maxwidth)/gem; } ## Convert data according to charset if (!$asis{$charset}) { # Japanese we have to handle directly to support nourl flag if ($charset =~ /iso-2022-jp/) { require "iso2022jp.pl"; if ($nonfixed) { return (&iso_2022_jp::jp2022_to_html($$data, $nourl)); } else { return ('
' . &iso_2022_jp::jp2022_to_html($$data, $nourl). ''); } # Registered in CHARSETCONVERTERS } elsif (defined($charcnv) && defined(&$charcnv)) { $$data = &$charcnv($$data, $charset); # Other } else { warn qq/\n/, qq/Warning: Unrecognized character set: $charset\n/, qq/ Message-Id: <$mhonarc::MHAmsgid>\n/, qq/ Message Number: $mhonarc::MHAmsgnum\n/; esc_chars_inplace($data); } } else { esc_chars_inplace($data); } if ($textformat eq 'flowed') { # Initial code for format=flowed contributed by Ken Hirsch (May 2002). # text/plain; format=flowed defined in RFC2646 my $currdepth = 0; my $ret=''; s!^\r?\n>!!mg; # we don't know why Eudora puts these in while (length($$data)) { $$data =~ /^((?:>)*)/; my $qd = $1; if ($$data =~ s/^(.*(?:(?:\n|\r\n?)$qd(?!>).*)*\n?)//) { # divide message into chunks by "quote-depth", # which is the number of leading > signs my $chunk = $1; $chunk =~ s/^$qd ?//mg; # N.B. also takes care of # space-stuffing $chunk =~ s/^-- $/--/mg; # special case for '-- ' if ($chunk =~ / \r?\n/) { # Treat this chunk as format=flowed # Lines that end with spaces are # considered to have soft line breaks. # Lines that end with no spaces are # considered to have hard line breaks. # XXX: Negative look-behind assertion not supported # on older versions of Perl 5 (<5.6) #$chunk =~ s/(?$1/g; $chunk =~ s/(^|[^ ])(\r?\n|\Z)/$1
$2/mg; } else { # Treat this chunk as format=fixed if ($nonfixed) { $chunk =~ s/(\r?\n)/
$1/g; if ($keepspace) { $chunk =~ s/^(.*)$/&preserve_space($1)/gem; } } else { $chunk = "
" . $chunk . "\n"; } } my $newdepth = length($qd)/length('>'); if ($currdepth < $newdepth) { $chunk = $StartFlowedQuote x ($newdepth - $currdepth) . $chunk; } elsif ($currdepth > $newdepth) { $chunk = $EndFlowedQuote x ($currdepth - $newdepth) . $chunk; } $currdepth = $newdepth; $ret .= $chunk; } else { # The above regex should always match, but just in case... warn qq/\n/, qq/Warning: Dequoting problem with format=flowed data\n/, qq/ Message-Id: <$MHAmsgid>\n/, qq/ Message Number: $MHAmsgnum\n/; $ret .= $$data; last; } } if ($currdepth > 0) { $ret .= $EndFlowedQuote x $currdepth; } ## Post-processing cleanup: makes things look nicer $ret =~ s/
<\/blockquote>/<\/blockquote>/g; $ret =~ s/<\/blockquote>
/<\/blockquote>/g; $$data = $ret; } else { ## Check for quoting if ($doquote) { $$data =~ s@^( ?${HQuoteChars})(.*)$@$1$2@gom; } ## Check if using nonfixed font if ($nonfixed) { $$data =~ s/(\r?\n)/
$1/g; if ($keepspace) { $$data =~ s/^(.*)$/&preserve_space($1)/gem; } } else { $$data = "
" . $$data . "\n"; } } ## Convert URLs to hyperlinks $$data =~ s@($HUrlExp)@$1@gio unless $nourl; ($$data); } ##---------------------------------------------------------------------------## sub esc_chars_inplace { my($foo) = shift; $$foo =~ s/&/&/g; $$foo =~ s//>/g; $$foo =~ s/"/"/g; 1; } ##---------------------------------------------------------------------------## sub preserve_space { my($str) = shift; 1 while $str =~ s/^([^\t]*)(\t+)/$1 . ' ' x (length($2) * 8 - length($1) % 8)/e; $str =~ s/ /\ /g; $str; } ##---------------------------------------------------------------------------## sub break_line { my($str) = shift; my($width) = shift; my($q, $new) = ('', ''); my($try, $trywidth, $len); ## Translate tabs to spaces 1 while $str =~ s/^([^\t]*)(\t+)/$1 . ' ' x (length($2) * 8 - length($1) % 8)/e; ## Do nothing if str <= width return $str if length($str) <= $width; ## See if str begins with a quote char if ($str =~ s/^( ?$QuoteChars)//o) { $q = $1; --$width; } ## Create new string by breaking up str while ($str ne "") { # If $str less than width, break out if (length($str) <= $width) { $new .= $q . $str; last; } # handle case where no-whitespace line larger than width if (($str =~ /^(\S+)/) && (($len = length($1)) >= $width)) { $new .= $q . $1; substr($str, 0, $len) = ""; next; } # Break string at whitespace $try = ''; $trywidth = $width; $try = substr($str, 0, $trywidth); if ($try =~ /(\S+)$/) { $trywidth -= length($1); $new .= $q . substr($str, 0, $trywidth); } else { $new .= $q . $try; } substr($str, 0, $trywidth) = ''; } continue { $new .= "\n" if $str; } $new; } ##---------------------------------------------------------------------------## 1;