Namazu-devel-ja(旧)

[藤原 誠 / Makoto Fujiwara <makoto@xxxxx>]

>                                            千葉市中央区長洲
>                                                    藤原  誠
こっちの方が情報があって親切かな、commit してもいいですか ?
ttyp3:makoto@harry  8:33:12/030908(~...stable-2-0/namazu)> env pkgdatadir=`pwd` scripts/mknmz -C
...
Supported media types: (27)
Unsupported types:     (7) marked with minus (-) probably for missing in your $path.
  application/excel: excel.pl
  application/ichitaro5: taro56.pl
  application/ichitaro6: taro56.pl
  application/macbinary: macbinary.pl
  application/msword: msword.pl
- application/oasys: oasys.pl
  application/pdf: pdf.pl
- application/postscript: postscript.pl
  application/powerpoint: powerpoint.pl
- application/rtf: rtf.pl
  application/vnd.sun.xml.calc: ooo.pl
  application/vnd.sun.xml.draw: ooo.pl
  application/vnd.sun.xml.impress: ooo.pl
  application/vnd.sun.xml.writer: ooo.pl
  application/x-apache-cache: apachecache.pl
  application/x-bzip2: bzip2.pl
  application/x-compress: compress.pl
- application/x-deb: deb.pl
  application/x-dvi: dvi.pl
  application/x-gzip: gzip.pl
- application/x-js-taro: taro7_10.pl
- application/x-lotus-wordpro: wordpro.pl
  application/x-rpm: rpm.pl
  application/x-tex: tex.pl
- audio/mpeg: mp3.pl
  message/news: mailnews.pl
  message/rfc822: mailnews.pl
  text/hnf: hnf.pl
  text/html: html.pl
  text/html; x-type=mhonarc: mhonarc.pl
  text/plain
  text/plain; x-type=rfc: rfc.pl
  text/x-hdml: hdml.pl
  text/x-roff: man.pl
ttyp3:makoto@harry  8:33:21/030908(~...stable-2-0/namazu)> 
---
(藤原)

Index: scripts/mknmz.in
===================================================================
RCS file: /storage/cvsroot/namazu/scripts/mknmz.in,v
retrieving revision 1.85.4.34
diff -u -r1.85.4.34 mknmz.in
--- scripts/mknmz.in	6 Sep 2003 09:48:29 -0000	1.85.4.34
+++ scripts/mknmz.in	7 Sep 2003 23:33:10 -0000
@@ -1212,11 +1212,17 @@
     print _("FILTERDIR: ") . "$FILTERDIR\n";
     print _("TEMPLATEDIR: ") . "$TEMPLATEDIR\n";
 
-    my @supported = sort grep { $var::Supported{$_} eq "yes" }
-    keys %var::Supported;
-    print _("Supported media types: \n");
-    for my $mtype (@supported) {
-       print "  $mtype";
+    my @all_types =     keys %var::Supported;
+    my @supported = sort grep { $var::Supported{$_} eq "yes" } @all_types;
+
+    my $num_supported = @supported;
+    my $num_unsupported = @all_types - @supported;
+    print _("Supported media types: ($num_supported)\n");
+    print _("Unsupported types:     ($num_unsupported) marked with minus (-) probably for missing in your \$path.\n");
+    for my $mtype (sort keys %var::Supported) {
+	my $yn = $var::Supported{$mtype};
+	if ($yn eq 'yes') { $yn = ' ' } else {$yn = '-'};
+       print "$yn $mtype";
        if ($var::REQUIRE_ACTIONS{$mtype}){
            print ": $var::REQUIRE_ACTIONS{$mtype}.pl";
        }