Change character encoding of perl scripts in www/bin/ from EUC-JP to UTF-8.

[linuxjm/jm.git] / www / bin / list.perl

diff --git a/www/bin/list.perl b/www/bin/list.perl
index 60bc62c..d48584a 100755 (executable)
--- a/www/bin/list.perl
+++ b/www/bin/list.perl
@@ -2,8 +2,8 @@
 # $Id: list.perl,v 1.4 2001/03/14 14:20:15 uchida Exp $
 #
 #
-# $MANROOT ¤Ï CVS ¥ê¥Ý¥¸¥È¥ê¤Î JM/manual,
-# $WWWROOT ¤Ï¥¤¥ó¥¹¥È¡¼¥ëÀè¥Ç¥£¥ì¥¯¥È¥ê.
+# $MANROOT は CVS リポジトリの JM/manual,
+# $WWWROOT はインストール先ディレクトリ.
 #
 BEGIN{
     my $epath = `dirname $0`; chomp $epath;
@@ -26,7 +26,7 @@ my $ROFF = "$WWWROOT/manual";
 my $PKGLIST = $ARGV[2];
 
 #
-# ¥Ñ¥Ã¥±¡¼¥¸Æ⥻¥¯¥·¥ç¥óʬ³ä¤ÎïçÃÍ
+# パッケージ内セクション分割の閾値
 #
 my $splitmin = 40;
 
@@ -40,7 +40,7 @@ while (<PL>){
 
 my $j;
 
-print "<H2>Ìܼ¡</H2>\n";
+print "<H2>ç\9b®æ¬¡</H2>\n";
 print "<UL>\n";
 for $j (0 .. $#pl){
     my $dir = $pl[$j]; $dir =~ s/ /_/eg;
@@ -64,7 +64,7 @@ for $j (0 .. $#pl){
        my $sec  = $ti{'sec'};
        $version = $ti{'over'};
 
-       # so ¥Õ¥¡¥¤¥ëÍѤˡ¢ roff ¥Õ¥¡¥¤¥ë¤Î status ¤ò store.
+       # so ファイル用に、 roff ファイルの status を store.
        #
        if ($ti{'kind'} eq 'roff') {
            $ps{"$name.$sec"} = $ti{'stat'};
@@ -77,7 +77,7 @@ for $j (0 .. $#pl){
     print "<H3><A NAME=\"$dir\">$pkg</A> <SMALL>(Version $version)</SMALL></H3>\n";
 
     foreach $sec (sort keys %tl){
-#      print "<H4>¥»¥¯¥·¥ç¥ó $sec</H4>\n";
+#      print "<H4>セクション $sec</H4>\n";
        print "<P CLASS=\"noindent\">\n";
 
        foreach my $i (0 .. $#{$tl{$sec}}){