chalowでChangeLogのエントリを書いた時間をRSSフィードに反映するhack

chalowユーザの方以外には通じない話題ですが、
chalowが出力するRSSフィードは、午前1時に書いたエントリでも、
午後18時に書いたエントリでも、
普通は無条件で23:59:59に書かれたことになります。

23:59:59という時間がエントリを書いた時間と一致しないために、
何とかならないか、と思った人もいると思います。

ということでchalow hack。すごく簡単ですが。

はじめに、エントリの記述時刻をChangeLogに書くときのルールや実装方針を
決めました。たつをさんに相談しました。


これなら、普段のChangeLogを書いていている流れで時間が書けそうです。

では、ChangeLogReader.pmとchalowを書き換えます。
+の文字が先頭についている行を新たに書いています。
上手いこと挿入してください。
-の文字が先頭についている行は消すか、コメントアウトしてください。

・ChangeLogReader.pmのstore_itemサブルーチン

 $entp->{curid}++;
+
+###
+# write time for rss feed & item pages
+###
+my $writetime;
+if ($ih =~ s|\[\s*(\d\d:\d\d)\s*\]\s*:\s*$|:|) {
+    $writetime = $1.":59";
+}
+elsif($ih =~ s|\[\s*(\d\d:\d\d:\d\d)\s*\]\s*:\s*$|:|) {
+    $writetime = $1;
+}
+ $entp->{$entp->{curid}}{wt} = $writetime;
+
 # Processing item header

-my $item_dcdate = # ($dcdate =~ /^$ymd/) ? $dcdate :
-   $ymd."T23:59:59+09:00";
+my $item_dcdate;
+if ($e->{$i}{wt}){
+    $item_dcdate = $ymd."T".$e->{$i}{wt}."+09:00";
+}
+else{
+    $item_dcdate = $ymd."T23:59:59+09:00";
+}

 my $ymdi = "$ymd-$i";
+
+my $writetime;
+unless($ent->{$i}{wt}){$writetime = '23:59:59';}
+else{$writetime = $ent->{$i}{wt};}

 $t->param(url => $item_url); # 2001-01-01-1.html
+$t->param(write_time => $writetime); #hh:mm:59 or hh:mm:ss
 my $ostr = $t->output();

 (my $item_id = $ymd.$i) =~ s/-//g; # Ex. "200309241"
+
+my $writetime;
+unless($e->{$i}{wt}){$writetime = '23:59:59'}
+else{$writetime = $e->{$i}{wt};}
+
 ### item の組み上げ

 $t->param(url => $item_url);
+$t->param(write_time => $writetime); #23:25
 my $this_item = $t->output();