Namazu-devel-ja(旧)

[SATOH Fumiyasu <fumiya@xxxxxxxxxxx>]

DocCat を利用しているフィルターで、DocCat がサポート
しているファイルを認識するようにするためのパッチです。

あと、拡張子の正規表現に「(?i)」が含まれていましたが、
File::MMagic のほうの m//i になっているので不要かと。

filter/doccat.pl を作るのがよい気がしてきた…。
それはさておき、ある MIME タイプに複数のフィルタが
対応している場合、どちらを優先させるかを設定できないのですね。

diff -u filter/oasys.pl.dist filter/oasys.pl
--- filter/oasys.pl.dist	Fri Apr  7 04:05:34 2000
+++ filter/oasys.pl	Thu Apr 12 16:51:55 2001
@@ -56,7 +56,7 @@
 sub add_magic ($) {
     my ($magic) = @_;
 
-    $magic->addFileExts('(?i)\\.oa2', 'application/oasys');
+    $magic->addFileExts('\\.oa[23]$', 'application/oasys');
     return;
 }
 
diff -u filter/taro.pl.dist filter/taro.pl
--- filter/taro.pl.dist	Fri Apr  7 10:48:22 2000
+++ filter/taro.pl	Thu Apr 12 16:42:24 2001
@@ -56,7 +56,10 @@
 sub add_magic ($) {
     my ($magic) = @_;
 
-    $magic->addFileExts('(?i)\\.jtd', 'application/x-js-taro');
+    # Ichitaro 6, 7
+    $magic->addFileExts('\\.j[bf]w$', 'application/x-js-taro');
+    # Ichitaro 8, 9, 10
+    $magic->addFileExts('\\.jt[dt]$', 'application/x-js-taro');
     return;
 }
 
diff -u filter/wordpro.pl.dist filter/wordpro.pl
--- filter/wordpro.pl.dist	Fri Apr 14 09:11:12 2000
+++ filter/wordpro.pl	Thu Apr 12 16:52:33 2001
@@ -56,7 +56,7 @@
 sub add_magic ($) {
     my ($magic) = @_;
 
-    $magic->addFileExts('(?i)\\.lwp', 'application/x-lotus-wordpro');
+    $magic->addFileExts('\\.lwp$', 'application/x-lotus-wordpro');
     return;
 }

# DocCat がらみばかりでごめんなさい…
 
-- 
SATOH Fumiyasu - <fumiya@xxxxxxxxxxxxxx>, <fumiya@xxxxxxxxxxx>
THRUST Co., Ltd. @ Fujisawa, Kanagawa, Japan - http://www.net-thrust.com/
Samba-JP, aka `Samba Users Group Japan'      - http://www.samba.gr.jp/
Apache-JP(?), aka `Japan Apache Users Group' - http://www.apache.or.jp/