chalow 1.0rc4 に更新

- はまったところ
  cl.conf の item のテンプレート ($item_template) に <TMPL_VAR name=cat> を
  書かないと，カテゴリ [...] がアイテムヘッダに追加されない．

- 自分用のパッチ

--- chalow-orig 2004-12-24 13:09:50.000000000 +0100
+++ chalow      2005-01-05 21:51:41.070033000 +0100
@@ -302,7 +302,9 @@
 my $replace_once = "";

 ### chalow 普及のため HTML の一番下にリンクを表示する。できれば消さないで。
-my $signature = qq(<p class="footer">Powered by
+my $signature = qq(<p class="footer"><a href="http://nais.to/~yto/tools/chalow/">
+<img src="./chalow88x31.png" width="83" height="31" alt="Powered by chalow"></a><br>
+Powered by
 <a href="http://nais.to/~yto/tools/chalow/">chalow</a></p>);

 ### コマンドライン引数
@@ -601,7 +603,7 @@
 #    s/>/&gt;/go;              # > が &.. になると、URL とか引用のマッチ狂う
 #    s/"/&quot;/go;            # ";
     ### "<" は置き換える。
-    s|<(/?[a-z!]+)|&lt;$1|gio;
+    s|<(/?[a-z\?!]+)|&lt;$1|gio;
 #    s|<(/?[a-z]+)|&lt;$1|gio; # コメント (<!-- -->) をのこしたい場合はこれ
     # カスタマイズのヒント: <s></s> を残す→
     # s|<(/?[a-rt-z]+)|&lt;$1|gi; <b> を残す→
@@ -680,7 +682,7 @@
         my @ents = sort {$b->{eh} cmp $a->{eh}} @{$category_item{$catname}};

         my $n = $cat_page_entry_max;
-        my $num_of_old_pages = int(@ents / $n);
+        my $num_of_old_pages = int($#ents / $n);

         my @fnames;
         for (my $i = 0; $i <= $num_of_old_pages; $i++) {
@@ -952,13 +954,13 @@
     my ($end_year) = ($month_list[$#month_list] =~ /^(\d\d\d\d)/);
     my $month_page_list = "";
     for (my $y = $end_year; $y >= $start_year; $y--) { # year loop
-       $month_page_list .= "$y : ";
+       $month_page_list .= "'" . substr($y, 2, 2) . ": ";
        for (my $m = 1; $m <= 12; $m++) { # month loop
            my $m0 = sprintf "%02d", $m;
            if (defined $month_page->{"$y-$m0"}) {
-               $month_page_list .= "<a href=\"$y-$m0.html\">$m0</a> ";
+               $month_page_list .= "<a href=\"$y-$m0.html\">$m</a> ";
            } else {
-               $month_page_list .= "$m0 ";
+               $month_page_list .= "$m ";
            }
        }
        $month_page_list .= "<br>\n";
@@ -1013,7 +1015,7 @@
        $week++ if (($i + 1) % 7 == 0);
     }

-    my @wn = ("S", "M", "T", "W", "T", "F", "S");
+    my @wn = ("日", "月", "火", "水", "木", "金", "土");
 #    my @wn = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");

     my $rv = << "CAL"
@@ -1171,7 +1173,7 @@

     my $ostr = join("\n", map {s/\'/&\#x27;/g; "document.writeln('".$_."');"}
                    @lines);
-    output_to_file("$outputdir/cl.js", \$ostr);
+#    output_to_file("$outputdir/cl.js", \$ostr);

     $latest_item_list = join("\n", @lines);

@@ -1201,7 +1203,7 @@

     my $ostr = join("\n", map {s/\'/&\#x27;/g; "document.writeln('".$_."');"}
                 @lines);
-    output_to_file("$outputdir/cl-cat.js", \$ostr);
+#    output_to_file("$outputdir/cl-cat.js", \$ostr);

     $category_list = join("\n", @lines);
 }
@@ -1354,7 +1356,7 @@
     my ($eh, $ymd) = @_;
     if ($show_day_of_week == 1) { ### 日付の後ろをどうするか?
        # 曜日(Mon, Tue, ...)を追加: "2000-10-19" --> "2000-10-19 Thu"
-       $eh .= " ".get_day_of_week($ymd);
+       $eh .= " (".get_day_of_week($ymd).")";
     }
     return qq(<a name="$ymd" href="@{[datestr2url($ymd)]}">$eh</a>);
 }