「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('shiftjis', $decoder->decode($l)) if ref($decoder);
        return encode('shiftjis', decode('shiftjis', $l)) if $decoder =~ /shiftjis/;
        return "(removed because the encoding could not be identified)";
}

　のようなものを付け加え、Guessしているところは全てこれを使うように変更してとりあえず凌ぎました。

2. Maildirはそのユーザからしか読めないため、おそらくhttpdにmod_suexecを組み込まないとパーミッションの関係でうまく動かないものと思われます。あるいは別の方法があるのかもしれませんが、いずれにせよそのあたりの記載がほしいところです。なおsuexecを使う場合chmod go-w . *.cgiなどをしておかないと動きません(makeしたときのumask次第)。

3. .htpasswdはデフォルトのパーミッションのままだとhttpdが読めないものと思われます。chmod 604 .htpasswdが必要です。

4. とりあえず.forwardの設定などは後回しにしてchk.cgiにアクセスしてみると一応正常に表示されました。しかし、そこでAddGIPなどの選択を行って実行ボタンをクリックするとInternal Server Errorとなります。error_logを見ると

/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 [example.jp]

　といった記録がありました。

　このあたりで今日はリタイアしました。

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としておいて置きました．
ありがとうございます．