# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1590905222 -32400
# Node ID 78cc4ba7bf42ddb7037e7a48699f54f9d5219088
# Parent  fce9d5977822e8980a84ad9b32d419384367579b
Debug code and preparation of Path parameter added

diff -r fce9d5977822 -r 78cc4ba7bf42 s4-funcs.sh
--- a/s4-funcs.sh	Sun May 31 10:42:15 2020 +0900
+++ b/s4-funcs.sh	Sun May 31 15:07:02 2020 +0900
@@ -1173,9 +1173,12 @@
   query "delete from session where expire < '$now';"
 }
 gencookie() (
+  path=${URL#*:/}
+  path=${URL%/*}
+  expire="`expire '' '%a, %d-%b-%Y %H:%M:%S GMT'`"
   for kv; do
-    expire="`expire '' '%a, %d-%b-%Y %H:%M:%S GMT'`"
-    echo "Set-Cookie: $kv; expires=$expire"
+    # echo "Set-Cookie: $kv; expires=$expire; Path=$path"
+    echo "Set-Cookie: $kv; expires=$expire;"
   done
 )
 contenttype() {
@@ -1410,6 +1413,7 @@
 		# cat > $tmpf		# too much?
 		head -c $CONTENT_LENGTH > $tmpf	# safe?
       		(echo CL=$CONTENT_LENGTH; ls -lF $tmpf) 1>&3
+		cp tmp/stream /tmp	# 2020-0531
 		s="`cat tmp/stream`"
 		tmpfiles=$tmpfiles"${tmpfiles+ }$tmpf"
 		;;