namazu-ml(avocado)

[Satoru Takabayashi <ccsatoru@xxxxxxxxxxxxxxxxxx>]

NISHIDA Keisuke <knishida@xxxxxxxxxxxxxx> wrote:

>> # <a href=".../namazu.cgi/name1/name2/name3?key=hoge"> みたいなこ
>> # ともやろうと思えば可能なのかな?
>
>いや、そうやられると、サブディレクトリが辿れないので困ります(^^;
>
>複数同時の場合は、従来通りに dbname を並べる形でよいでしょう。
># ていうか、そうでないと checkbox が使えなくなる。

そう言われてみればそうですね。

ところで、 v1.2.0 の mknmz にはコマンドラインオプションの扱いがお
かしくなるのと、出力される NMZ.{body,mgs}.ja が EUC-JP でエンコー
ディングされているという不具合が見つかりました。一応このメールの末
尾にパッチをつけておきます。

そろそろ新しいヴァージョンに取り組みたいと思っています。今のところ 
Subject: From: Message-ID: といったフィールド指定の検索機能をつけ
るつもりでいますが、他に何かアイディアまたは要望があればお申し付け
ください (インデックスからの文書の削除機能は次回に取り組む予定です)。

--
高林 哲 Satoru Takabayashi
<URL:http://x13.dejanews.com/getdoc.xp?AN=365375542&CONTEXT=899536571.1163526282&hitnum=9> 
に挑戦してみよう :-)。

*** mknmz.pl.orig	Sat Jul  4 16:22:01 1998
--- mknmz.pl	Sat Jul  4 15:34:00 1998
***************
*** 1140,1156 ****
  	    $output_dir = $ARGV[0];
  	    $output_dir =~ s|/$||;
   	    print "Index output directory: $ARGV[0]\n";
!  	}
! 	if ($ARGV[0] =~ /I$/) {
  	    shift @ARGV;
  	    require $ARGV[0];
  	    print "Included: $ARGV[0]\n";
! 	}
! 	if ($ARGV[0] =~ /l$/) { # small letter of 'L'
  	    shift @ARGV;
  	    $LANGUAGE = $ARGV[0];
! 	}
! 	if ($ARGV[0] =~ /F$/) {
  	    shift @ARGV;
  	    &load_target_list($ARGV[0]);
  	    print "Loaded: $ARGV[0]\n";
--- 1140,1153 ----
  	    $output_dir = $ARGV[0];
  	    $output_dir =~ s|/$||;
   	    print "Index output directory: $ARGV[0]\n";
!  	} elsif ($ARGV[0] =~ /I$/) {
  	    shift @ARGV;
  	    require $ARGV[0];
  	    print "Included: $ARGV[0]\n";
! 	} elsif ($ARGV[0] =~ /l$/) { # small letter of 'L'
  	    shift @ARGV;
  	    $LANGUAGE = $ARGV[0];
! 	} elsif ($ARGV[0] =~ /F$/) {
  	    shift @ARGV;
  	    &load_target_list($ARGV[0]);
  	    print "Loaded: $ARGV[0]\n";
***************
*** 1311,1322 ****
  	if (-e $template) {
  	    my ($buf);
  	    open(TEMPLATE, $template) || die "$template: $!\n";
! 	    open(OUTPUT, ">$full_path_name") || die "$full_path_name: $!\n";
  	    $buf = join('', <TEMPLATE>);
  	    $buf =~ s/"/\\"/g;
  	    $buf =~ s/\@/\\@/g;
  	    $buf = eval("\"$buf\"");  # set the variables
  	    print OUTPUT $buf;
  	    close(TEMPLATE);
  	    close(OUTPUT);
  	}
--- 1308,1327 ----
  	if (-e $template) {
  	    my ($buf);
  	    open(TEMPLATE, $template) || die "$template: $!\n";
! 	    if ($LANGUAGE eq "ja") {
! 		open(OUTPUT ,"|$NKF -j >$full_path_name") 
! 		    || die "$full_path_name: $!\n";
! 	    } else {
! 		open(OUTPUT ,">$full_path_name") 
! 		    || die "$full_path_name: $!\n";
! 	    }
  	    $buf = join('', <TEMPLATE>);
  	    $buf =~ s/"/\\"/g;
  	    $buf =~ s/\@/\\@/g;
  	    $buf = eval("\"$buf\"");  # set the variables
+ 
  	    print OUTPUT $buf;
+ 
  	    close(TEMPLATE);
  	    close(OUTPUT);
  	}
***************
*** 2066,2071 ****
--- 2071,2077 ----
  sub Rename($$) {
      my ($from, $to) = @_;
  
+     return unless -e $from;
      unlink $to if ($SYSTEM eq "OS2") && (-f $from) && (-f $to);
      if (0 == rename($from, $to)) {
  	die "rename($from, $to): $!\n";