Namazu-win32-users-ja(旧)


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

olepowerpoint.plの編集について



kodeと申します。

当方、以下の環境で namazu を使用しています。

Windows2000 server+SP3
Namazu:2.0.12
Perl:5.6.1
MS-Office:2000 SR-1

普通に.pptを検索対象にし、結果を表示させると、
その.pptファイルのプロパティ部分を参照し、
例えば「PowerPoint プレゼンテーション」等の
ファイル名とは違う名前で検索結果に表示されると思います。

これを、ファイル名にするには、olepowerpoint.plの編集を
行うことで解決するのでしょうか?
もし、現状はそれが仕様であればその旨をどなたかお知らせ頂けますでしょうか?

解決方法があるのであれば、olepowerpoint.pl中の以下(*1)あたりを
編集するのかと思っております。

すみませんが、ご助言いただけますでしょうか?
よろしくお願い致します。

(*1)-----------

sub getProperties ($$$) {
    my ($cfile, $fields, $weighted_str) = @_;

    # See VBA online help using Microsoft PowerPoint in detail.
    # Topic item: 'DocumentProperty Object'.

    my $title = $cfile->BuiltInDocumentProperties('Title')->{Value};
    $title = $cfile->BuiltInDocumentProperties('Subject')->{Value}
 unless (defined $title);
    undef $title if $title eq # which has no slide title
 "\xbd\xd7\xb2\xc4\xde\x20\xc0\xb2\xc4\xd9\x82\xc8\x82\xb5";
    $fields->{'title'} = codeconv::shiftjis_to_eucjp($title)
 if (defined $title);

    my $weight = $conf::Weight{'html'}->{'title'};
    $$weighted_str .= "\x7f$weight\x7f$fields->{'title'}\x7f/$weight\x7f\n";

    my $author = $cfile->BuiltInDocumentProperties('Author')->{Value};
    $author = $cfile->BuiltInDocumentProperties('Last Author')->{Value}
 unless (defined $author);
    $fields->{'author'} = codeconv::shiftjis_to_eucjp($author)
 if (defined $author);

#    my $date = $cfile->BuiltInDocumentProperties('Last Save
Time')->{Value};
#    $date = $cfile->BuiltInDocumentProperties('Creation Date')->{Value}
# unless (defined $date);
#    $fields->{'date'} = codeconv::shiftjis_to_eucjp($date) if (defined
$date);

    my $keyword = $cfile->BuiltInDocumentProperties('keywords')->{Value};
    $keyword = codeconv::shiftjis_to_eucjp($keyword);
    $weight = $conf::Weight{'metakey'};
    $$weighted_str .= "\x7f$weight\x7f$keyword\x7f/$weight\x7f\n";

    return undef;
}

(*1)-----------