#!/usr/bin/perl use CGI qw/:standard/; use LocalVars; use DB_File; use strict; use Data::Dumper; use Date::Calc qw(:all); use Template; use HTML::Calendar::Simple; use vars qw/@emonth @cnumber %config %attr %article %th/; sub main { my($brdname, $fn, $y, $m, $d); my($tmpl); @emonth = ('', 'January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December'); @cnumber = ('零', '一', '二', '三', '四', '五', '六', '七', '八', '九', '十', '十一', '十二'); if( !$ENV{PATH_INFO} ){ print header(-status => 400); return; } if( !(($brdname, $fn) = $ENV{PATH_INFO} =~ m|/(\w+?)/([\.,\w]*)|) || !( ($fn, $y, $m, $d) = parsefn($fn) ) || !(-e "$BLOGDATA/$brdname/$fn") || !(tie %config, 'DB_File', "$BLOGDATA/$brdname/config.db", O_RDONLY, 0666, $DB_HASH) || !(tie %attr, 'DB_File', "$BLOGDATA/$brdname/attr.db", O_RDONLY, 0666, $DB_HASH) ){ print header(-status => 404); return; } charset(''); print header(-type => GetType($fn)); $fn ||= 'index.html'; # first, import all settings in %config %th = %config; # loadBlog --------------------------------------------------------------- tie %article, 'DB_File', "$BLOGDATA/$brdname.db", O_RDONLY, 0666, $DB_HASH; if( $attr{"$fn.loadBlog"} =~ /article/i ){ AddArticle('blog', $attr{"$fn.loadBlogFields"}, packdate($y, $m, $d)); } elsif( $attr{"$fn.loadBlog"} =~ /month/i ){ my($s, $y1, $m1, $d1); for( ($y1, $m1, $d1) = ($y, $m, 32) ; $d1 > 0 ; --$d1 ){ AddArticle('blog', $attr{"$fn.loadBlogFields"}, packdate($y1, $m1, $d1)); } } if( $attr{"$fn.loadBlogPrevNext"} ){ my $s = packdate($y, $m, $d); AddArticle('next', $attr{"$fn.loadBlogPrevNext"}, $article{"$s.next"}); AddArticle('prev', $attr{"$fn.loadBlogPrevNext"}, $article{"$s.prev"}); } # loadArchives ----------------------------------------------------------- if( $attr{"$fn.loadArchives"} =~ /^monthly/i ){ # 找尋 +-1 year 內有資料的月份 my($c, $y1, $m1); for( $c = 0, ($y1, $m1) = ($y + 1, $m) ; $c < 48 ; ++$c, --$m1 ) { if( $m1 == 0 ){ $m1 = 12; --$y1; } if( $article{ sprintf('%04d%02d', $y1, $m1) } ){ push @{$th{Archives}}, {year => $y1, month => $m1, emonth => $emonth[$m1], cmonth => $cnumber[$m1], key => packdate($y1, $m1, 1)}; } } } # loadRecentEntries ------------------------------------------------------ if( $attr{"$fn.loadRecentEntries"} ){ my($i, $ptr, $y, $m, $d); print $attr{"$fn.loadRecentEntries:"}; for( $i = 0, $ptr = $article{'last'} ; $ptr && $i < $attr{"$fn.loadRecentEntries"} ; ++$i, $ptr = $article{"$ptr.prev"} ){ ($y, $m, $d) = unpackdate($ptr); push @{$th{RecentEntries}}, {year => $y, month => $m, emonth => $emonth[$m], cmonth => $cnumber[$m], title => $article{"$ptr.title"}, key => $ptr}; } } # Calendar --------------------------------------------------------------- if( $attr{"$fn.loadCalendar"} ){ # 沒有合適的 module , 自己寫一個 |||b my($c, $week, $day, $t, $link); $c = ("\n". "\n". "\n"); $c .= ("\n") foreach( ['Sunday', 'Sun'], ['Monday', 'Mon'], ['Tuesday', 'Tue'], ['Wednesday', 'Wed'], ['Thursday', 'Thu'], ['Friday', 'Fri'], ['Saturday', 'Sat'] ); $week = Day_of_Week($y, $m, 1); $c .= "\n\n"; if( $week == 7 ){ $week = 0; } else{ $c .= ("\n") foreach( 1..$week ); } foreach( 1..31 ){ $c .= "\n"; if( ++$week == 7 ){ $c .= "\n\n\n"; $week = 0; } } $c .= "\n
$emonth[$m] $y
[0]\" align=\"center\">". "$_->[1]
". " "; $t = packdate($y, $m, $_); if( !$article{"$t.title"} ){ $c .= "$_"; } else{ my $link = $attr{"$fn.loadCalendar"}; $link =~ s/\[\% key \%\]/,$t/g; $c .= "$_"; } $c .= "
\n"; $th{calendar} = $c; #my $cal = HTML::Calendar::Simple->new({month => $m, year => $y}); #$th{calendar} = $cal->calendar_month; } # 用 Template Toolkit 輸出 $tmpl = Template->new({INCLUDE_PATH => '.', ABSOLUTE => 0, RELATIVE => 0, RECURSION => 0, EVAL_PERL => 0, }); chdir "$BLOGDATA/$brdname/"; $tmpl->process($fn, \%th) || print "
template error: ". $tmpl->error();
}

sub AddArticle($$$)
{
    my($cl, $fields, $s) = @_;
    my $content = '';
    if( $fields =~ /content/i ){
	$content = $article{"$s.content"};
	if( $config{outputfilter} == 1 ){
	    $content =~ s/\n/
\n/gs; } } my($y, $m, $d) = unpackdate($s); push @{$th{$cl}}, {year => $y, month => $m, emonth => $emonth[$m], cmonth => $cnumber[$m], day => $d, key => $s, title => (($fields !~ /title/i) ? '' : $article{"$s.title"}), content=> $content, author => (($fields !~ /author/i) ? '' : $article{"$s.author"}), short => (($fields !~ /short/i) ? '' : $article{"$s.short"}), } if( $article{"$s.title"} ); } sub parsefn($) { my($fs) = @_; return ("$1.$3", unpackdate($2)) if( $fs =~ /^(.*),(\w+)\.(.*)$/ ); return ($fs, Today()); } sub GetType($) { my($f) = @_; return 'text/css' if( $f =~ /.css$/i ); return 'text/html'; } sub packdate($$$) { return $_[0] * 10000 + $_[1] * 100 + $_[2]; } sub unpackdate($) { return (int($_[0] / 10000), (int($_[0] / 100)) % 100, $_[0] % 100); } main(); 1;