namazu-ml(ring)

[masao@xxxxxxxxxx (Masao Takaku)]

たかくまさお＠図書館情報大です。
バグの報告です。

$DENY_FILE 指定の内、NMZ.* を除外できていないようです。

以下のようにNMZ.*ファイルがインデックスに追加されてしまいます。

‥‥‥
21058 /home/masao/Mail/inbox/.mh_sequences
21059 /home/masao/Mail/NMZ.err
21060 /home/masao/Mail/NMZ.fi
21061 /home/masao/Mail/NMZ.field.newsgroups
21062 /home/masao/Mail/NMZ.field.url
21063 /home/masao/Mail/NMZ.foot.en
21064 /home/masao/Mail/NMZ.foot.ja
21065 /home/masao/Mail/NMZ.head.en
21066 /home/masao/Mail/NMZ.head.ja
21067 /home/masao/Mail/NMZ.keys
21068 /home/masao/Mail/NMZ.log
21069 /home/masao/Mail/NMZ.pi
21070 /home/masao/Mail/NMZ.r
21071 /home/masao/Mail/NMZ.t
21072 /home/masao/Mail/NMZ.total
[Append]
Date: Mon Apr 12 03:07:54 1999
Added Files: 142 files
Updated Files: 15 files
Total Files: 20,534 files
Size: 2,119,210 bytes
Added Keywords: 2,392 words
Total Keywords: 675,998 words
Wakati: module_chasen1 -j -F '%m '
ARGV: '-ahucs' '-O' '/home/masao/Mail' '/home/masao/Mail'
Perl Version: 5.00404
Namazu Version: 1.4.0.0-beta-6
System: irix
Time: 473 sec.

一応、手元でソースを見たところ、
namazu::wanted() の $name はファイル名ではなくて、
pathを含んでいるためのようでした。
とりあえず、mknmzを以下のように変更してしのいでます。

--- mknmz.org   Tue Apr 13 18:54:26 1999
+++ mknmz       Tue Apr 13 20:04:07 1999
@@ -846,7 +846,7 @@
 sub wanted ($$){
     my ($name, $rarray) = @_;
     push(@{$rarray}, $name) if 
-       ($name !~ /^(($conf::DENY_FILE)(\.gz|\.Z)?)$/i &&
+       ($name !~ /(($conf::DENY_FILE)(\.gz|\.Z)?)$/i &&
         $name =~ /^(($conf::TARGET_FILE)(\.gz|\.Z|\?.*)?)$/i && -f $name && -r $name);
 }

--
高久 雅生  // ULIS : University of Library and Information Science
    図書館情報大学大学院 図書館情報学研究科 修士 2 年次  石塚研究室
    masao@xxxxxxxxxx , http://www.ulis.ac.jp/~masao/