「NNIPF0.06-releaseを作りました．」記事へのコメント

レポートなど

[gnaka (17369)]

　こんばんは。release版ということで早速ダウンロードしてインストールさせて頂きました。
　…が、こちらの環境では正常に動作させることができませんでした。当方はpostfix + Courier-IMAPの組み合わせです。

1. chk.cgiでdecode('Guess',$Sfrm{$i})での判別がうまく行かずshiftjis or euc-jpといったメッセージを吐いて止まってしまいます。これは

sub to_sjis {
 
        my($l) = @_;
 
        my $decoder = Encode::Guess->guess($l);
 
        return encode('s

Re:レポートなど

[twada (33858)]

ご連絡ありがとうございます．下記の点以外は修正したものを用意してます．

/home/username/Maildir/trash/1177386685.11538_0.mail.example.jp:2,S: No such file or dir
ectory at PERL/header.pl line 157., referer: http://mail.example.jp/~username/NNIPF/chk.cgi

これは，そのファイルが実際にないか，パーミッションがおかしいか，変な文字列がくっついているか，ですが最後のパターンはなさそうです．また，詳しいことが分かったら教えてください．
和田

Re:レポートなど

[gnaka (17369)]

　お世話様です。再度ダウンロードさせて頂きました。結構直ってきていますね。

　最後の点はやはり直っていませんでしたが、若干ソースを眺め、chk.cgiの99行目付近の

$RCV=HEADER::rvf("$TRASH/$name");

を

$RCV=HEADER::rvf("$MAILDIR/$dir/$name");

に書き換えると一応それらしい動きをするようになった気がします。しかし正しいかわかりません。

Re:レポートなど

[kicchy (4711)]

>$RCV=HEADER::rvf("$TRASH/$name");
ですが、うちでは
$RCV=HEADER::rvf("$CUR/$name");
に書き換えました。
画面上の、curの処理から来ているようでしたので。

あと、IPv6のIPv4マッピング対応に
PERL/header.pl
の112~113行を
    if ($str =~ /.*\[(::ffff:)?([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)\].*/) {
        $OIP =$2;
に変えてみました。
正式には、これで良いのかどうかは分かりませんが・・・
本当にIPv6で運用してたらアウトなんでしょうけどウチではこれで動いているようです。

Re:レポートなど

[twada (33858)]

仰るとおりです．chk.cgiが汚すぎて，混乱してました．$CUR/$nameで合ってます． この修正をしたものを0.07-fixfixとしておいて置きました．
ありがとうございます．