2006-07 / 2006-07-31

前のエントリ: 続きを読…めない [chalow]
次のエントリ: 動画コーデックいろいろ [ubuntu]

日毎のファイルで「続きを読む」(タイトル修正)
2006-07-31-1 / カテゴリ: [perl][programming][changelog][chalow] / [permlink]

(タイトル間違えた… デフォルトの「アイテム毎で続きを読む」を改造、だ)
できた^^;
というか、かなり無理矢理；

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
--- 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 を見て処理振り分け、と。

カテゴリ別ページからの「続きを読む」で日毎のページにリンクするのはちょっと不自然かなぁ。ま、しょうがないか。
[ コメント ]
前のエントリ: 続きを読…めない [chalow]
次のエントリ: 動画コーデックいろいろ [ubuntu]

2013 : 01 02 03 04 05 06 07 08 09 10 11 12
2012 : 01 02 03 04 05 06 07 08 09 10 11 12
2011 : 01 02 03 04 05 06 07 08 09 10 11 12
2010 : 01 02 03 04 05 06 07 08 09 10 11 12
2009 : 01 02 03 04 05 06 07 08 09 10 11 12
2008 : 01 02 03 04 05 06 07 08 09 10 11 12
2007 : 01 02 03 04 05 06 07 08 09 10 11 12
2006 : 01 02 03 04 05 06 07 08 09 10 11 12
2005 : 01 02 03 04 05 06 07 08 09 10 11 12
2004 : 01 02 03 04 05 06 07 08 09 10 11 12

最終更新時間: 2013-05-02 16:12

Loading...