戯術者の日記

--- chalow.5.latest_h2_ul	2006-07-30 20:21:35.000000000 +0900
+++ chalow.6.continue_day_page	2006-07-31 01:45:15.000000000 +0900
@@ -386,6 +386,8 @@
 # http://nais.to/~yto/clog            -> http://nais.to/~yto/clog/
 
 my %month_page;			# 月別のページ
+my %month_page_full;            # 月別のページ(続きあり)
+
 my %category_item;		# カテゴリ別ページ用 item
 my %inside_ref;			# 日付リンクによるリファラー
 
@@ -434,10 +436,21 @@
     my @items;
     foreach my $i (sort {$b <=> $a} keys %{$e}) {
 	next if ($i !~ /^\d/);
-	push @items, make_item_html($e, $ymd, $i);
+	push @items, make_item_html($e, $ymd, $i, 0);
     }
     my ($y, $m, $d) = ($ymd =~ /^(\d{4})-(\d\d)-(\d\d)$/);
     $month_page{"$y-$m"}{$ymd}{str} = make_entry_html($e, $ymd, \@items);
+
+    if ($readmore_mode) {
+      @items = ();
+      foreach my $i (sort {$b <=> $a} keys %{$e}) {
+ 	next if ($i !~ /^\d/);
+ 	push @items, make_item_html($e, $ymd, $i, 1);
+      }
+      my ($y, $m, $d) = ($ymd =~ /^(\d{4})-(\d\d)-(\d\d)$/);
+      $month_page_full{"$y-$m"}{$ymd}{str} = make_entry_html($e, $ymd, \@items);
+    }
+
 }
 
 ### 生成(2) HTML ファイルの出力
@@ -557,7 +570,7 @@
 
 ### アイテムをHTMLに変換
 sub make_item_html {
-    my ($e, $ymd, $i) = @_;
+    my ($e, $ymd, $i, $more_flg) = @_;
 
     ### item header
     my $ih = make_item_header_html($e->{$i}{h}, $ymd."-".$i);
@@ -577,7 +590,7 @@
     my $t = HTML::Template->new(scalarref => \$item_template,
 				die_on_bad_params => 0);
     my $ccc = $e->{$i}{c};
-    if ($page_mode == 2 and $readmore_mode) {
+    if ($page_mode >= 1 and $readmore_mode and !$more_flg) {
 	if ($ccc =~ s!(<div class="readmore">.*</div>)$!!sm) {
 	    my $readmore_str = $1;
 	    $t->param(readmore => $readmore_str);
@@ -594,7 +607,7 @@
     $t->param(rss_file => $rss_filename); # 050821
     my $this_item = $t->output();
 
-    if ($output_cat_pages == 1) { # カテゴリ別ページを出すときの処理
+    if ($output_cat_pages == 1 and !$more_flg) { # カテゴリ別ページを出すときの処理
 	my $ent_h = make_entry_header_html($e->{eh}, $ymd);
 	foreach (@{$e->{$i}{cat}}) {
 	    # カテゴリ別ページは --stop-date と相性が悪いので注意
@@ -829,7 +842,12 @@
 	$t->param(rss_file => $rss_filename); # 050821
 	$t->param(back => $day_before);
 	$t->param(next => $day_after);
-	$t->param(content => $month_page{$ym}{$ymd}{str});
+	if ($readmore_mode) {
+	  $t->param(content => $month_page_full{$ym}{$ymd}{str});
+	}
+	else {
+	  $t->param(content => $month_page{$ym}{$ymd}{str});
+	}
 
 	my $ostr = $t->output();
 

月別のページ用のハッシュ %month_page に加え %month_page_full を用意。どちらにも sub make_item_html で生成htmlが格納されるが、サブルーチンにフラグ変数を1個追加して、「続きを読む」以降の表示/非表示の切替え処理を追加。
month_page には「続きを読む」までのデータをセットして、month_page_full に続きまで全部をセット。
で、日毎のファイル生成の sub write_day_page で、グローバルの readmore_mode を見て処理振り分け、と。

カテゴリ別ページからの「続きを読む」で日毎のページにリンクするのはちょっと不自然かなぁ。ま、しょうがないか。