root/lang/perl/chalow/branches/perlnews/lib/App/Chalow/Template.pm @ 12538

package App::Chalow::Template;
use strict;
use warnings;

use Template;

# 超適当
use FindBin;
my $assets_dir = $FindBin::Bin . 'assets';
my $template = Template->new({ INCLUDE_PATH => "$assets_dir/template" });

### インデックスページ(index.html)を作る
sub index {
    my($class, $cl, $opt_topn, $month_page, $changelog_name, $changelog_description, $css_file, $what_time_is_it_now, $signature, $month_page_list, $latest_item_list, $category_list, $rss_filename, $outputdir, $replace_once, $update_by_size, $utf8_mode, $quiet_mode, 
     $calendar_style,
     $index_page_template
    ) = @_;

#index_page_template

    ### 最近の何日かだけインデックスページに載せるための処理
    my @recent = (reverse sort keys %{$cl->{all}})[0..$opt_topn];

    my @top_n_entries;

    for (my $i = 0; $i < $opt_topn and $recent[$i]; $i++) {
        my $ymd = $recent[$i];
        my ($ym, $d) = ($ymd =~ /^(\d{4}-\d\d)-(\d\d)$/);
#       $top_n_str .= $month_page->{$ym}{$ymd}{str};
        push @top_n_entries, {content => $month_page->{$ym}{$ymd}{str}};
    }
    my ($ymd, $ym, $d) = ($recent[0] =~ /^((\d{4}-\d\d)-(\d\d))$/);

    # 日付リンク一覧
    my $day_list = make_day_list_str($ym, $calendar_style, $cl);

    ### ページの組み上げ
    my $ostr;
    $template->process('index.tt', {
        cl_name               => $changelog_name,
        changelog_description => $changelog_description,
        css_file              => $css_file,
        lastupdate            => $what_time_is_it_now,
        signature             => $signature,
        ymd                   => $ymd,
        ym                    => $ym,
        ndays                 => $opt_topn,
        day_list              => $day_list,
        month_page_list       => $month_page_list,
        latest_item_list      => $latest_item_list,
        category_list         => $category_list,
        rss_file              => $rss_filename,
        entries               => \@top_n_entries,
    }, \$ostr);

=pod

    my $t = HTML::Template->new(scalarref => \$index_page_template,
                                loop_context_vars => 1,
                                die_on_bad_params => 0);
    $t->param(cl_name => $changelog_name);
    $t->param(changelog_description => $changelog_description);
    $t->param(css_file => $css_file);
    $t->param(lastupdate => $what_time_is_it_now);
    $t->param(signature => $signature);

    $t->param(ymd => $ymd);     # 最新エントリの日付
    $t->param(ym => $ym);       # 最新エントリの月
    $t->param(ndays => $opt_topn);
    $t->param(day_list => $day_list);
    $t->param(month_page_list => $month_page_list);
    $t->param(latest_item_list => $latest_item_list);
    $t->param(category_list => $category_list);
    $t->param(rss_file => $rss_filename); # 050821
    $t->param(entries => \@top_n_entries);

    my $ostr = $t->output();

=cut

    $ostr ||= '';
    output_to_file("$outputdir/index.html", \$ostr,
        $replace_once,
        $update_by_size,
        $utf8_mode,
        $quiet_mode,
    );
}


sub item {
    my($class, $cl, $opt_topn, $month_page, $changelog_name, $changelog_description, $css_file, $what_time_is_it_now, $signature, $month_page_list, $latest_item_list, $category_list, $rss_filename, $outputdir, $replace_once, $update_by_size, $utf8_mode, $quiet_mode, 
     $clog_url,
     $calendar_style,
     $output_cat_pages,
     $cat_page_cgi,
     $inside_ref,
     $page_mode, $day_page_mode,
     $item_page_template
    ) = @_;

    my @day_list = reverse sort keys %{$cl->{all}};

    for (my $idx = 0; $idx < @day_list; $idx++) {
        my ($ymd, $ym) = ($day_list[$idx] =~ /^((\d+-\d+)-\d+)/);
        my $ent = $cl->{all}->{$ymd};

        for (my $i = $ent->{curid}; $i >= 1; $i--) {
            my $item = $ent->{$i};
            my $ymdi = "$ymd-$i";

            ### カテゴリ
            my $catstr = make_cat_link_html($ent->{$i}{cat}, $output_cat_pages, $cat_page_cgi);

            ### 日付リンクによるリファラー
            my @inside_refs = get_inside_ref("$ymdi", $inside_ref);

            ### item の基礎情報
            my $item_url = datestr2url("$ymdi", $page_mode, $day_page_mode);
            my $item_ymdi = $ymdi; 
            my $item_id = $ymdi; $item_id =~ s/-//g; # Ex. "200309241"

            # 前後のページ
            my $ymdi_before;
            my $ymdi_after;
            if ($i > 1) {
                $ymdi_before = $ymd."-".($i-1);
            } elsif ($idx < @day_list - 1) {
                my $day_b = $day_list[$idx + 1];
                $ymdi_before = $day_b."-".$cl->{all}->{$day_b}{curid};
            }
            if ($i != $ent->{curid}) {
                $ymdi_after = $ymd."-".($i+1);
            } elsif ($idx > 0) {
                my $day_a = $day_list[$idx - 1];
                $ymdi_after = $day_a."-1";
            }

            ### ページの組み上げ
            my $ccc = $item->{c}; $ccc =~ s!^<br>!!g;# ad hoc
            my $ostr;
            $template->process('item.tt', {
                cl_name               => $changelog_name,
                changelog_description => $changelog_description,
                css_file              => $css_file,
                lastupdate            => $what_time_is_it_now,
                signature             => $signature,
                ymd                   => $ymd,
                ym                    => $ym,

                month_page_list       => $month_page_list,
                latest_item_list      => $latest_item_list,
                category_list         => $category_list,

                back => $ymdi_before,
                next => $ymdi_after,

                content     => $ccc,
                header_text => $item->{ho},
                cat         => $catstr,
                author      => $item->{a},
                referrer    => join(" ", @inside_refs),
                id          => $item_id,
                ymdi        => $item_ymdi,
                url         => $item_url,
                rss_file    => $rss_filename,
                title       => $ent->{$i}->{ho},
                clog_url    => $clog_url,
            }, \$ostr);


=pod

            my $t = HTML::Template->new(scalarref => \$item_page_template,
                                        loop_context_vars => 1,
                                        die_on_bad_params => 0);

            $t->param(cl_name => $changelog_name);
            $t->param(changelog_description => $changelog_description);
            $t->param(css_file => $css_file);
            $t->param(lastupdate => $what_time_is_it_now);
            $t->param(signature => $signature);

            $t->param(ymd => $ymd);
            $t->param(ym => $ym);

            $t->param(month_page_list => $month_page_list);
            $t->param(latest_item_list => $latest_item_list);
            $t->param(category_list => $category_list);
            $t->param(back => $ymdi_before);
            $t->param(next => $ymdi_after);

            my $ccc = $item->{c}; $ccc =~ s!^<br>!!g;# ad hoc
            $t->param(content => $ccc);
            $t->param(header_text => $item->{ho});
            $t->param(header => $item->{h});
            $t->param(cat => $catstr);
            $t->param(author => $item->{a});
            $t->param(referrer => join(" ", @inside_refs));
            $t->param(id => $item_id); # 200101011
            $t->param(ymdi => $item_ymdi); # 2001-01-01-1
            $t->param(url => $item_url); # 2001-01-01-1.html
            $t->param(rss_file => $rss_filename); # 050821
            $t->param(title => $ent->{$i}->{ho});
            $t->param(clog_url => $clog_url);
            
            my $ostr = $t->output();

=cut

            ### ファイルに出力
            $ostr ||= '';
            output_to_file("$outputdir/$ymdi.html", \$ostr,
                $replace_once,
                $update_by_size,
                $utf8_mode,
                $quiet_mode,
            );
        }
    }
}


### 日付リンク一覧を作成 - 文字列を返す
sub make_day_list_str { 
    my ($ym, $calendar_style, $cl) = @_;
    if ($calendar_style == 1) {
        return make_calendar_table($ym, make_day_list($ym, $cl));
    } else {
        return join(" ", @{make_day_list($ym)});
    }
}

# 日付リンク一覧を作成 - リストへのポインタを返す
my %daylist;
sub make_day_list {     
    my ($ym, $cl) = @_;
    my $lday = get_last_day_of_month($ym);
    return $daylist{$ym} if (defined $daylist{$ym}); # cache
    for (my $d = 1; $d <= $lday; $d++) {
        my $day = ($d < 10) ? "0".$d : $d;
        if (defined $cl->{all}->{$ym."-".$day}) {
            my $day_url = datestr2url($ym."-".$day);
            push @{$daylist{$ym}}, qq(<a href="$day_url">$day</a>);
        } else {
            push @{$daylist{$ym}}, $day;
        }
    }
    return $daylist{$ym};
}

### 年月を入力としその月の最終日を出力する関数 since 030105
# EXAMPLES
#     get_last_day_of_month(12, 2002), get_last_day_of_month("2002-12")
sub get_last_day_of_month {
    my ($m, $y) = @_;
    ($y, $m) = split("-", $m) unless (defined $y);
    return (31, ((($y % 4 == 0) and ($y % 100)) or ($y % 400 == 0)) ? 29 : 28,
            31, 30, 31, 30, 31, 31, 30, 31, 30, 31)[$m - 1];
}


### 指定されたファイルへ文字列を出力
sub output_to_file {
    my ($fname, $contp,
        $replace_once,
        $update_by_size,
        $utf8_mode,
        $quiet_mode,
    ) = @_;
    $$contp =~ s/<!-- ReplaceOnce -->/$replace_once/;

    if (($update_by_size || 0 == 1) && -s $fname == length($$contp)) {
        return;
    }

    if ($utf8_mode) {           # ad hoc 050821
        $$contp =~ s/;charset=EUC-JP">/;charset=UTF-8">/;
    }

    print "output to \"$fname\"\n" if (!defined $quiet_mode);
    open(F, "> $fname") || die "$fname: $!\n";
    binmode(F);
    print F $$contp;
    close(F);
}

### make category link(anchor) string for item header
sub make_cat_link_html {
    my ($catp, $output_cat_pages, $cat_page_cgi) = @_;
    my $catstr;
    if (defined $catp) {
        if ($output_cat_pages) {
            $catstr = 
                join("", map 
                     {"[<a href=\"".get_category_filename($_)."\">$_</a>]"}
                     @$catp);
        } elsif ($cat_page_cgi eq "") {
            $catstr = join("", map {"[".$_."]"} @$catp);
        } else {
            $catstr = 
                join("", map 
                     {my $tmp = $cat_page_cgi;
                      $tmp =~ s/%%CAT%%/urlencode($_)/ge;
                      "[<a href=\"$tmp\">$_</a>]"}
                     @$catp);
        }
        
    }
    return $catstr;
}    

### inside referrer のリンク作成
sub get_inside_ref {
    my ($id, $inside_ref) = @_;
    if (defined $inside_ref->{"$id"}) {
        return map {datestr2anchor("[".$_."]")} 
        (sort {$b cmp $a} keys %{$inside_ref->{"$id"}});
    }
    return ();
}

sub datestr2url {
    my ($d, $page_mode, $day_page_mode) = @_;
    if ($page_mode == 2) {      # アイテムモード
        $d =~ s!(\d{4}-\d\d-\d\d(-\d+)?)!$1.html!;
    } elsif ($day_page_mode or $page_mode ==1) { # 日モード
        unless ($d =~ s!((\d{4}-\d\d-\d\d)-\d+)!$2.html\#$1!) {
            $d =~ s!(\d{4}-\d\d-\d\d)!$1.html!;
        }
    } else {                    # 月モード
        $d =~ s!((\d{4}-\d\d)-\d\d(-\d+)?)!$2.html#$1!;
    }
    return $d;
}

1;