2004年4月12日アーカイブ

最近更新をさぼっているblogですが、他の利用者の方から「またサムネイルが作れない！」との報告。
どうやら、調子に乗ってportupgradeしていたら、せっかく修正したlibjpegを上書きしてしまった模様。
直さなくっちゃ～。
などと思いつつ、今日のportupgrade。あまり大きな変更はないみたいですね。

apache-ant-1.6.1            <  needs updating (port has 1.6.1_1)
f-prot-sig-20040307         <  needs updating (port has 20040318)
glib-2.2.3_1                <  needs updating (port has 2.4.0)
ja-grep-2.0                 <  needs updating (port has 2.4.2)
libIDL-0.8.3_1              <  needs updating (port has 0.8.3_2)
libmng-1.0.6                <  needs updating (port has 1.0.7)
libmpeg2-0.3.1_1            <  needs updating (port has 0.4.0b_1)
libungif-4.1.0b1_1          <  needs updating (port has 4.1.2)
linc-1.0.3_1                <  needs updating (port has 1.0.3_2)
net-snmp-5.1_4              <  needs updating (port has 5.1.1)
netpbm-10.21                <  needs updating (port has 10.21_1)
p5-Digest-1.05_1            <  needs updating (port has 1.06)
p5-File-MMagic-1.21         <  needs updating (port has 1.22)
pango-1.2.5_2               <  needs updating (port has 1.4.0)
racoon-20040401a            <  needs updating (port has 20040408a)
squid-2.5.5_1               <  needs updating (port has 2.5.5_2)

気が付くとまたサイト全体が文字化けしたりしていて、原因を追求するとawsだったりする。(後は、perlを5.6.1に上げたせいかな)
で、以前やった修正だと、足りない部分があったのでのまのしわざさんのサイトを参考にもう一度修正する。
すると、サイト自体の文字化けは直ったものの、MTAwsタグの内側に書いた文字列が化けてしまう。awsが持ってくる本のタイトルとかは化けない模様。
良くわからなかったのだけれど、aws.plの203行目あたりを以下のように修正したら、文字化けが直った。

if (ref $detail->{$e} eq 'ARRAY') {
    return Jcode->new(join ", ", @{$detail->{$e}}, 'utf8')->utf8;
    #return join ", ", @{$detail->{$e}};
} else {
    #return $detail->{$e} . Jcode->new($detail->{$e},'utf8')->utf8 || '';
    return Jcode->new($detail->{$e},'utf8')->utf8 || '';
    #return $detail->{$e} || '';
}

しかし、"Jcode->new($hoge,'utf8')->utf8"ってどう言う意味があるんだろう？？