# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1587506959 -32400
# Node ID 74c0c2ed8ff599fb20f0c5c3e4a565923d874406
# Parent  64c84bc00700a81e1bdf679876ea5830b1611851
New variable WHATSNEWDAYS limits the number of days of new article.

diff -r 64c84bc00700 -r 74c0c2ed8ff5 s4-funcs.sh
--- a/s4-funcs.sh	Tue Apr 21 12:27:02 2020 +0900
+++ b/s4-funcs.sh	Wed Apr 22 07:09:19 2020 +0900
@@ -48,6 +48,7 @@
 [編集]リンクから修正してください。"
 blogreadflagrowid=0
 blogcutoffflagrowid=-1
+whatsnewdays=${WHATS_NEW_DAYS:-14}
 querylog=$tmpdir/query.log
 searchlog=$tmpdir/search.log
 
@@ -1772,12 +1773,17 @@
 EOF
 }
 listnewblogsql() { # $1=user
+  newdays=${WHATS_NEW_DAYS##*[!0-9]}	# Shave non-digits
+  newdays=${newdays%%[!0-9]*}
+  newdays=${newdays:-14}
+  basetime="datetime('now', 'localtime', '-${newdays} days')"
   deftime=`query "SELECT coalesce((SELECT max(time) FROM acclog
 		  	 	   WHERE user='$user'
 				    AND tblrowid IN
 				      ($blogreadflagrowid,
 				       $blogcutoffflagrowid)),
-				  "0");"`
+				  $basetime		-- "0"
+				  );"`
   cat<<EOF
 `sql4interestblogs`
 WITH article_ctime as (