# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1587508500 -32400
# Node ID 99863f97dee63f35bcf0c376826a3ea8096d24e9
# Parent  74c0c2ed8ff599fb20f0c5c3e4a565923d874406
Add "heavy load" error message(for test)

diff -r 74c0c2ed8ff5 -r 99863f97dee6 examples/common/msg/login-fail-4.m4.html
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/common/msg/login-fail-4.m4.html	Wed Apr 22 07:35:00 2020 +0900
@@ -0,0 +1,3 @@
+<h2>混雑中</h2>
+<p>アクセスが集中しているようです。時間を置いて繋いでください。</p>
+<p>_ADMIN_</p>
diff -r 74c0c2ed8ff5 -r 99863f97dee6 s4-funcs.sh
--- a/s4-funcs.sh	Wed Apr 22 07:09:19 2020 +0900
+++ b/s4-funcs.sh	Wed Apr 22 07:35:00 2020 +0900
@@ -1279,10 +1279,13 @@
   # putheader; echo; echo user=$user, db=$dbpswd, enc=$encpswd
   if pwcheck "$pswd"; then
     newsession=`genrandom 50`
-    dbsetbyid user "$user" skey "$newsession"
-    dbsetbyid user "$user" login "`date '+%F %T'`"
-    gencookie "user=$user" "skey=$newsession"
-    return 0
+    if dbsetbyid user "$user" skey "$newsession" &&
+	dbsetbyid user "$user" login "`date '+%F %T'`"; then
+      gencookie "user=$user" "skey=$newsession"
+      return 0
+    else
+      return 4
+    fi
   fi
   return 2		# Password mismatch
 }