Namazu-users-ja(旧)

[藤原 誠 / Makoto Fujiwara <makoto@xxxxx>]

>                                            千葉市中央区長洲
>                                                    藤原  誠
山村さんの内容をまだ良く調べていませんが、
僕が使っているものは次のように変更しています。報告しなくて
ごめんなさい。
そうして使う時には添付のように設定しています。

$NetBSD$
Index: scripts/mknmz.in
===================================================================
RCS file: /a/j/tracking/namazu-tar/scripts/mknmz.in,v
retrieving revision 1.3
retrieving revision 1.5
diff -u -r1.3 -r1.5
--- scripts/mknmz.in	2002/02/23 06:15:56	1.3
+++ scripts/mknmz.in	2002/02/25 22:21:14	1.5
@@ -737,6 +737,11 @@
     $$contref = util::readfile($cfile);
 #    $file_size = length($$contref);
 
+#   to enable pre_filter, 
+#   both $conf::pre_filter and conf::pre_filter() should be defined
+    if ( defined($conf::pre_filter)) {
+       conf::pre_filter(\$$contref) ;
+      };
     # Filtering process.
     my $mtype;
     my $called_dt = 0;


---
(藤原)

# -*- Perl -*- 
package conf;

my  $rcsid = q$Id: .mknmzrc-pre-filter,v 1.1 2002/08/13 03:53:07 makoto Exp makoto $;
    $rcsid =~ s/Id: rcsid,v l//;
    $rcsid =~ s/\d+:\d+:\d+ .*//;

print " Reading .mknmzrc-pre-filter: $rcsid\n";
$pre_filter++;
sub pre_filter {
    my($contref) = shift;
    if (defined($$contref)) {
    $$contref   =~ s/<!-- X-Namazu-Ignore-Begin -->.*<!-- X-Namazu-Ignore-End -->//gs;  }}
$DENY_FILE .= '|index.html|threads.html';

$EXCLUDE_PATH  = '\.AppleDouble';
$EXCLUDE_PATH .= '|\/\.[0-9a-zA-Z]+';

$MAX_FIELD_LENGTH = 400 ;