Namazu-win32-users-ja(旧)

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx>]

From: Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxxxxxxxx> 曰く
Subject: [namazu-win32-users-ja] Re: mknmz に関する質問
Message-ID: <20000321.135837.126688857.shirai@xxxxxxxxxxxxxxxxxxx>
Date: Tue, 21 Mar 2000 13:58:37 +0900 (JST)

広瀬>  <shirai@xxxxxxxxxxxxxxxxxxx> wrote.
広瀬> /~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
広瀬> >> namazu2.02 for win32でmknmzの質問です。
広瀬> >> 1.xlsファイルがpowerpointで開かれてしまう。
広瀬> >> これは正常なのでしょうか？
広瀬> >2.0.2 はこういうことが無いようになっていると思うのですけども。^^;;;
広瀬> 
広瀬> FileExts はファイル名が全角だと間違うみたいです。。 ;-(
広瀬> ＃最近気がつきましたが

白井> ひぇ〜〜〜〜、知りませんでした。"ワード.doc" がダメなの？

仕事にあきたので debug したのですが、mknmz で

    my $shelter_cfile = "";
    if ($SYSTEM eq "MSWin32" 
	&& $cfile =~ /[\x81-\x9f\xe0-\xef][\x40-\x7e\x80-\xfc]|[\x20\xa1-\xdf]/) 
    {
	$shelter_cfile = $cfile;
	$cfile = util::tmpnam("NMZ.win32");
        copy($shelter_cfile, $cfile);
    }

って言うふうに 『NMZ.win32.tmp』って名前で copy した file をその
後で

  $mtype_n = $Magic->checktype_byfilename($cfile);

と調べているからですね。(だいたい mknmz の 700行目以降)

こんなパッチをあてると動くのですが、如何でしょうか？ > 広瀬さん

--- mknmz.in.orig	Fri Mar 17 12:41:31 2000
+++ mknmz.in	Tue Mar 21 17:19:33 2000
@@ -716,7 +716,13 @@
 	if (defined $MediaType) {
 	    $mtype = $MediaType;
 	} else {
-	    my $mtype_n = $Magic->checktype_byfilename($cfile);
+	    my $mtype_n;
+	    if ($shelter_cfile ne "") {
+		$mtype_n = $Magic->checktype_byfilename($shelter_cfile);
+	    }
+	    else {
+		$mtype_n = $Magic->checktype_byfilename($cfile);
+	    }
 	    my $mtype_c = $Magic->checktype_data($$contref);
 	    my $mtype_m;
 	    $mtype_m = $Magic->checktype_magic($$contref) 

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxxxxxxxx)