# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1562038146 -32400
# Node ID 8a206c6342a8a09c3a21cbaa3d3c25fe2cf184be
# Parent  a9faeb10a33bc1e428c0e203bd09b7828a65e0a2
Translate email address to all lower cases.  Fix parameter expansion.

diff -r a9faeb10a33b -r 8a206c6342a8 s4-funcs.sh
--- a/s4-funcs.sh	Wed Jun 19 09:13:57 2019 +0900
+++ b/s4-funcs.sh	Tue Jul 02 12:29:06 2019 +0900
@@ -1411,9 +1411,10 @@
   # $1=email
   iss="invite-`date +%s`-$user"
   addsession $iss +${memoplimitdays}days # 1 week due date
-  query "replace into par values('$iss', 'invite', 'string', \"$1\");"
+  query "DELETE FROM par WHERE var='invite' AND val='$1';"
+  query "REPLACE INTO par VALUES('$iss', 'invite', 'string', '$1');"
   gecos=`gecos`
-  name=$user"${gecos:+($gecos)}"
+  name=$user${gecos:+"($gecos)"}
   regist="$urlbase?reg+$iss"
   _m4 -D_URL_="$urlbase" \
       -D_USER_="$name" \
@@ -1439,7 +1440,7 @@
   esac
 }
 invite() {
-  email=`getpar email`
+  email=`getpar email | tr '[A-Z]' '[a-z]'`
   case "$email" in
     *@*@*|*\ *)  repo="無効なアドレスです" ;;
     *@*)
@@ -1450,6 +1451,8 @@
 	repo="$email さんは既に加入しています。"
       elif sendinvitation $email; then
 	repo="アドレス($email)宛に案内を送信しました。"
+      else	# Cannot be reached here
+	repo="自動登録できない状況です。管理者に依頼してください。"
       fi ;;
     "") repo="招待したい人のメイルアドレスを入力してください。" ;;
     *)  repo="無効なアドレスです" ;;
@@ -1469,7 +1472,7 @@
     echo "bye bye" | html p
     reutrn
   fi
-  email=`session=$1 getpar invite`
+  email=`session=$1 getpar invite | tr '[A-Z]' '[a-z]'`	# Ensure lower case
   if [ -z "$email" ];then
     cat<<EOF
 <p>無効な招待状チケットです。</p>