namazu-ml(ring)

[Satoru Takabayashi <satoru-t@xxxxxxxxxxxxxxxxxx>]

"imagine/Shimizu Nariaki" <imagine@xxxxxxxxxxxxxxxxxxxxxxxxxx> wrote:

>そこで、mknmz で インデックスの作成なんですが、~/.hogehoge
>と言うような 隠しディレクト以下を処理しようとしているのですが、
>
> No File to Index.

世の中には思ってもみないような使い方をする方がいるものですね。
おかげで微妙なバグが発見できました。:-)


>と寂しい結果になってしまいました。(^_^;)  1.3.0.11 の環境では問題なく
>隠しディレクトリでもインデックスの作成ができております。

添付のパッチを mknmz.inにあてて makeし直せば解決するはずです。

-- Satoru Takabayashi

Index: mknmz.in
===================================================================
RCS file: /circus/cvsroot/namazu/scripts/mknmz.in,v
retrieving revision 1.23
retrieving revision 1.26
diff -c -r1.23 -r1.26
*** mknmz.in	2000/02/20 13:13:05	1.23
--- mknmz.in	2000/02/21 10:38:37	1.26
***************
*** 636,642 ****
  
  	# Pre code conversion.
  	if ($var::REQUIRE_PRE_CODECONV{$mtype}) {
! 	    codeconv::toeuc($contref);
  	}
  
  	if (! $var::Supported{$mtype} || 
--- 636,642 ----
  
  	# Pre code conversion.
  	if ($var::REQUIRE_PRE_CODECONV{$mtype}) {
! 	    codeconv_document($contref);
  	}
  
  	if (! $var::Supported{$mtype} || 
***************
*** 665,672 ****
  
  	    # Post code conversion.
  	    if ($var::REQUIRE_POST_CODECONV{$mtype}) {
! 		print "post codeconv\n";
! 	    	codeconv::toeuc($contref);
  	    }
  
  	    next if ($var::RECURSIVE_ACTIONS{$mtype});
--- 665,671 ----
  
  	    # Post code conversion.
  	    if ($var::REQUIRE_POST_CODECONV{$mtype}) {
! 		codeconv_document($contref);
  	    }
  
  	    next if ($var::RECURSIVE_ACTIONS{$mtype});
***************
*** 688,693 ****
--- 687,699 ----
      return ($file_size, $text_size, $kanji, $mtype);
  }
  
+ sub codeconv_document ($) {
+     my ($textref) = @_;
+     codeconv::toeuc($textref);
+     $$textref =~ s/\r\n/\n/g;
+     $$textref =~ s/\r/\n/g;
+ }
+ 
  sub prep () {
      my $file_base = 0;
      my $output_dir = shift @_ ;
***************
*** 1221,1232 ****
  	    return;
  	}
      }
!     if ($target =~ m!^.*/(($conf::DENY_FILE)(\.gz|\.Z)?)$!i ) {
          util::vprint(sprintf(_("Denied:	%s"), $target));
  	$counts_ref->{'denied'}++; 
  	return;
      }
!     if ($target !~ m!^.*/(($conf::ALLOW_FILE)(\.gz|\.Z|\?.*)?)$!i) {
          util::vprint(sprintf(_("Not allowed:	%s"), $target));
  	$counts_ref->{'not_allowed'}++; 
  	return;
--- 1227,1243 ----
  	    return;
  	}
      }
! 
!     # Extract the file name of the target.
!     $target =~ m!^.*/([^/]+)$!;
!     my $fname = $1;
! 
!     if ($fname =~ m!^($conf::DENY_FILE)(\.gz|\.Z|\.bz2)?$!i ) {
          util::vprint(sprintf(_("Denied:	%s"), $target));
  	$counts_ref->{'denied'}++; 
  	return;
      }
!     if ($fname !~ m!^($conf::ALLOW_FILE)(\.gz|\.Z|\.bz2)?$!i) {
          util::vprint(sprintf(_("Not allowed:	%s"), $target));
  	$counts_ref->{'not_allowed'}++; 
  	return;