From 177b143355538ee8485e87bcc09d87e56fac751e Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Wed, 12 Nov 2003 02:30:48 +0000
Subject: add week counter

git-svn-id: http://opensvn.csie.org/pttbbs/trunk/pttbbs@1323 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 blog/blog.pl | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'blog/blog.pl')

diff --git a/blog/blog.pl b/blog/blog.pl
index dcb272c7..49b30fd8 100755
--- a/blog/blog.pl
+++ b/blog/blog.pl
@@ -142,13 +142,15 @@ sub main
 
     # topBlogs
     my($t);
-    foreach $t ( ['loadTopBlogs', 'v', 'topBlogs'],
-		 ['loadRandomBlogs', 'RAND()', 'randomBlogs'] ){
+    foreach $t ( ['loadTopBlogs', 'v', 'topBlogs', 'counter'],
+		 ['loadTopWeekBlogs', 'v', 'topWeekBlogs', 'wcounter'],
+		 ['loadRandomBlogs', 'RAND()', 'randomBlogs', 'counter'],
+		 ){
 	if( $attr{"$fn.$t->[0]"} ){
 	    dodbi(sub {
 		my($dbh) = @_;
 		my($sth);
-		$sth = $dbh->prepare("select k, v from counter ".
+		$sth = $dbh->prepare("select k, v from $t->[3] ".
 				     "order by $t->[1] desc ".
 				     ($attr{"$fn.$t->[0]"} eq 'all' ? '' :
 				      'limit 0,'. $attr{"$fn.$t->[0]"}));
@@ -169,13 +171,15 @@ sub main
 	    $time = time();
 	    $dbh->do("update counter set v = v + 1, mtime = $time ".
 		     "where k = '$brdname' && mtime < ". ($time - 2));
+	    $dbh->do("update wcounter set v = v + 1, mtime = $time ".
+		     "where k = '$brdname' && mtime < ". ($time - 2));
 	    $sth = $dbh->prepare("select v from counter where k='$brdname'");
 	    $sth->execute();
 	    $t = $sth->fetchrow_hashref();
 	    return $t->{v} if( $t->{v} );
 
-	    $dbh->do("insert into counter (k, v) ".
-		     "values ('$brdname', 1)");
+	    $dbh->do("insert into counter (k, v) values ('$brdname', 1)");
+	    $dbh->do("insert into wcounter (k, v) values ('$brdname', 1)");
 	    return 1;
 	});
     }
-- 
cgit v1.2.3