summaryrefslogtreecommitdiffstats
path: root/blog/blog.pl
diff options
context:
space:
mode:
authorin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-05-26 12:01:40 +0800
committerin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-05-26 12:01:40 +0800
commit648817f7b2957819f2854e7ee223ea9f7ed32619 (patch)
tree4262142843c9a7a4e6cdf7f0aff287bc3f5c3c24 /blog/blog.pl
parentbfd6de6d5620942d300a93d3229358c48beaf576 (diff)
downloadpttbbs-648817f7b2957819f2854e7ee223ea9f7ed32619.tar
pttbbs-648817f7b2957819f2854e7ee223ea9f7ed32619.tar.gz
pttbbs-648817f7b2957819f2854e7ee223ea9f7ed32619.tar.bz2
pttbbs-648817f7b2957819f2854e7ee223ea9f7ed32619.tar.lz
pttbbs-648817f7b2957819f2854e7ee223ea9f7ed32619.tar.xz
pttbbs-648817f7b2957819f2854e7ee223ea9f7ed32619.tar.zst
pttbbs-648817f7b2957819f2854e7ee223ea9f7ed32619.zip
for XHTML
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@902 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'blog/blog.pl')
-rwxr-xr-xblog/blog.pl19
1 files changed, 12 insertions, 7 deletions
diff --git a/blog/blog.pl b/blog/blog.pl
index 135bf63d..69e039b1 100755
--- a/blog/blog.pl
+++ b/blog/blog.pl
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: blog.pl,v 1.7 2003/05/26 03:31:28 in2 Exp $
+# $Id: blog.pl,v 1.8 2003/05/26 04:01:40 in2 Exp $
use CGI qw/:standard/;
use LocalVars;
use DB_File;
@@ -125,8 +125,7 @@ sub main
# Counter ----------------------------------------------------------------
if( $attr{"$fn.loadCounter"} ){
- my($c);
- $c = dodbi(sub {
+ $th{counter} = dodbi(sub {
my($dbh) = @_;
my($sth, $t);
$dbh->do("update counter set v = v + 1 where k = '$brdname'");
@@ -139,13 +138,12 @@ sub main
"values ('$brdname', 1)");
return 1;
});
- $th{counter} = $c;
}
# Calendar ---------------------------------------------------------------
if( $attr{"$fn.loadCalendar"} ){
# 沒有合適的 module , 自己寫一個 |||b
- my($c, $week, $day, $t, $link);
+ my($c, $week, $day, $t, $link, $newtr);
$c = ("<table border=\"0\" cellspacing=\"4\" cellpadding=\"0\">\n".
"<caption class=\"calendarhead\">$emonth[$m] $y</caption>\n".
"<tr>\n");
@@ -168,6 +166,8 @@ sub main
foreach( 1..$week );
}
foreach( 1..31 ){
+ last if( !check_date($y, $m, $_) );
+ $c .= "<tr>\n" if( $newtr );
$c .= "<th abbr=\"$_\" align=\"center\"><span class=\"calendar\">";
$t = packdate($y, $m, $_);
@@ -182,12 +182,17 @@ sub main
$c .= "</span></th>\n";
if( ++$week == 7 ){
- $c .= "</tr>\n\n<tr>\n";
+ $c .= "</tr>\n\n";
$week = 0;
+ $newtr = 1;
+ }
+ else{
+ $newtr = 0;
}
}
- $c .= "</tr>\n</table>\n";
+ $c .= "</tr>\n" if( !$newtr );
+ $c .= "</table>\n";
$th{calendar} = $c;
#my $cal = HTML::Calendar::Simple->new({month => $m, year => $y});
#$th{calendar} = $cal->calendar_month;