Mercurial > hgrepos > hgweb.cgi > s4

changeset 581:8a206c6342a8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Translate email address to all lower cases. Fix parameter expansion.
author HIROSE Yuuji <yuuji@gentei.org>
date Tue, 02 Jul 2019 12:29:06 +0900
parents a9faeb10a33b
children b37776054ba7
files s4-funcs.sh
diffstat 1 files changed, 7 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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>

yatex.org