ウェブメーラー再び改修

Fri, 10 Mar 2006 23:16:15 +0900

一昨日改修したばかりだが、またしても一部のSubjectがデコードされない問題発覚。

WILLCOMの『Pic＠nic-Mail　通話明細照会内容更新のお知らせ』が"=?ISO-2022-JP?Q?"だったので、mimir.pl の mimedecode に追加対処するなり。

## charset=`ISO-2022-JP',encoding=`Q' の encoded-word にマッチするパターン
$match_mime_qp = '=\?[Ii][Ss][Oo]-2022-[Jj][Pp]\?[Qq]\?([^\?]+)\?=';

## charset=`utf-8',encoding=`Q' の encoded-word にマッチするパターン
$match_mime_utf_qp = '=\?[Uu][Tt][Ff]-[78]\?[Qq]\?(.+)=*\?=';

## &bodydecode が使う処理残しデータ用バッファ
$bdebuf = "";

## mimedecode interface ##
sub main'mimedecode {
local($_, $kout) = @_;
1 while s/($match_mime)[ \t]*\n?[ \t]+($match_mime)/$1$3/o;
s/$match_mime/&kconv(&base64decode($1))/geo;
s/$match_mime_qp/&kconv(&qpdecode($1))/geo;
s/$match_mime_utf_qp/&kconv(&qpdecode($1))/geo;
s/(\x1b[\$\(][BHJ@])+/$1/g;
1 while s/(\x1b\$[B@][\x21-\x7e]+)\x1b\$[B@]/$1/;
1 while s/(\x1b\([BHJ][\t\x20-\x7e]+)\x1b\([BHJ]/$1/;
s/^([\t\x20-\x7e]*)\x1b\([BHJ]/$1/;
$_;
}

これだけなら何て事無かったのだが、さらに「途中から漢字が化ける」という難儀な問題が隠れていた。

4時間ほど頭をひねった結果、'<','>'の文字コードを含む漢字が化ける事に気付いた。"照"の7bits-JIS表現'>H'が、'>H'とサニタイズされてたわけだ。MIMEデコードとUTF-8変換を済ませてからサニタイズするよう common_lib.pl の header_analysis を改修した。

sub header_analysis{
my $header = $_[0];
my %header_hash;
my $i;

my @tmp_array = split(/\r\n([^\:^\s]+)\s*:/, $header);
shift(@tmp_array);
for($i=0; $i<$#tmp_array; $i=$i+2){
$key = $tmp_array[$i];
$value = $tmp_array[($i+1)];

$key = uc($key);
&Jcode::convert(\$value, "euc");
# bug fix 2006/03/10
# $value = deltag($value);
$value =~ s/^\s*//; # 先頭のスペースを削除
$value =~ s/\r\n /\r\n/g; # スペースは改行の後のもののみ削除
$value =~ s/\r\n//g; $value =~ s/\t//g;
# &Jcode::convert(\$value, $charset);
# $value = &mimedecode($value, $charset2);
$value = &mimedecode($value);
&Jcode::convert(\$value, $charset);
# bug fix 2006/03/10
$value = deltag($value);

if(($key eq 'TO' || $key eq 'CC' || $key eq 'REPLY-TO') && exists($header_hash{$key})){
$header_hash{$key} .= ", $value";
}else{
$header_hash{$key} = $value;
}
}
if(!exists($header_hash{'FROM'})){ $header_hash{'FROM'} = '(Fromなし)'; }
if(!exists($header_hash{'SUBJECT'})){ $header_hash{'SUBJECT'} = '(Subjectなし)'; }
if($header_hash{'SUBJECT'} eq ''){ $header_hash{'SUBJECT'} = '(空文字列のSubject)'; }

return %header_hash;
}

2006/03/10 on Yano's digital garage

ウェブメーラー再び改修