Namazu-users-ja(旧)
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
msword.pl
- From: SAKAI Kiyotaka <ksakai@xxxxxxxxxxxxxxxxxxxxxx>
- Date: Fri, 28 Dec 2001 16:50:03 +0900 (JST)
- X-ml-name: namazu-users-ja
- X-mail-count: 02321
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)