s4

changeset 581:8a206c6342a8

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 diff
     1.1 --- a/s4-funcs.sh	Wed Jun 19 09:13:57 2019 +0900
     1.2 +++ b/s4-funcs.sh	Tue Jul 02 12:29:06 2019 +0900
     1.3 @@ -1411,9 +1411,10 @@
     1.4    # $1=email
     1.5    iss="invite-`date +%s`-$user"
     1.6    addsession $iss +${memoplimitdays}days # 1 week due date
     1.7 -  query "replace into par values('$iss', 'invite', 'string', \"$1\");"
     1.8 +  query "DELETE FROM par WHERE var='invite' AND val='$1';"
     1.9 +  query "REPLACE INTO par VALUES('$iss', 'invite', 'string', '$1');"
    1.10    gecos=`gecos`
    1.11 -  name=$user"${gecos:+($gecos)}"
    1.12 +  name=$user${gecos:+"($gecos)"}
    1.13    regist="$urlbase?reg+$iss"
    1.14    _m4 -D_URL_="$urlbase" \
    1.15        -D_USER_="$name" \
    1.16 @@ -1439,7 +1440,7 @@
    1.17    esac
    1.18  }
    1.19  invite() {
    1.20 -  email=`getpar email`
    1.21 +  email=`getpar email | tr '[A-Z]' '[a-z]'`
    1.22    case "$email" in
    1.23      *@*@*|*\ *)  repo="無効なアドレスです" ;;
    1.24      *@*)
    1.25 @@ -1450,6 +1451,8 @@
    1.26  	repo="$email さんは既に加入しています。"
    1.27        elif sendinvitation $email; then
    1.28  	repo="アドレス($email)宛に案内を送信しました。"
    1.29 +      else	# Cannot be reached here
    1.30 +	repo="自動登録できない状況です。管理者に依頼してください。"
    1.31        fi ;;
    1.32      "") repo="招待したい人のメイルアドレスを入力してください。" ;;
    1.33      *)  repo="無効なアドレスです" ;;
    1.34 @@ -1469,7 +1472,7 @@
    1.35      echo "bye bye" | html p
    1.36      reutrn
    1.37    fi
    1.38 -  email=`session=$1 getpar invite`
    1.39 +  email=`session=$1 getpar invite | tr '[A-Z]' '[a-z]'`	# Ensure lower case
    1.40    if [ -z "$email" ];then
    1.41      cat<<EOF
    1.42  <p>無効な招待状チケットです。</p>