Namazu-users-ja(旧)


[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

msword.pl



wv-0.7.0 から wvHtml コマンドが

  wvHtml /usr/local/var/namazu/index/NMZ.word /usr/local/var/namazu/index/NMZ.word2

という書式では駄目で、

  * * * Better to use '--targetdir' for writing in another directory * * *

というエラーが発生して何も実行されません。

代わりに、

  wvHtml --targetdir=/usr/local/var/namazu/index /usr/local/var/namazu/index/NMZ.word NMZ.word2

と指定しなければいけなくなりました。そのため、wv-0.7.0 を使用する場合
には以下のように msword.pl を修正する必要があるかと思います。

ただし、この修正をそのまま入れてしまうと、wv-0.7.0 より前のバージョン
の wvHtml を使っている人や、doccat を使っている人は問題が出ますので、
その対応は必要だとは思いますが。


*** msword.pl.org	Fri Dec 28 16:43:29 2001
--- msword.pl	Fri Dec 28 16:43:32 2001
***************
*** 95,100 ****
--- 95,102 ----
  
      my $tmpfile  = util::tmpnam('NMZ.word');
      my $tmpfile2 = util::tmpnam('NMZ.word2');
+     my $tmpdir = $tmpfile2;
+     $tmpdir =~ s|/[^/]+$||;
  
  
      if (util::islang("ja")) {
***************
*** 108,114 ****
      }
  
      if (!util::islang("ja")) {
! 	system("$wordconvpath $tmpfile $tmpfile2");
      } else {
  	my $version = "unknown";
  	my $supported = undef;
--- 110,117 ----
      }
  
      if (!util::islang("ja")) {
! 	#system("$wordconvpath $tmpfile $tmpfile2");
! 	system("$wordconvpath --targetdir=$tmpdir $tmpfile NMZ.word2");
      } else {
  	my $version = "unknown";
  	my $supported = undef;
***************
*** 125,131 ****
  	    }
  	}
  	return _("Unsupported format: ") .  $version unless $supported;
! 	system("$wordconvpath $tmpfile $tmpfile2");
          system("$utfconvpath -Iu8 -Oej $tmpfile2 > $tmpfile");
  	unlink($tmpfile2);
  	rename($tmpfile, $tmpfile2);
--- 128,135 ----
  	    }
  	}
  	return _("Unsupported format: ") .  $version unless $supported;
! 	#system("$wordconvpath $tmpfile $tmpfile2");
! 	system("$wordconvpath --targetdir=$tmpdir $tmpfile NMZ.word2");
          system("$utfconvpath -Iu8 -Oej $tmpfile2 > $tmpfile");
  	unlink($tmpfile2);
  	rename($tmpfile, $tmpfile2);

-- 
酒井 清隆 (E-mail: ksakai@xxxxxxxxxxxxxxxxxxxxxx)