Mercurial > hgrepos > hgweb.cgi > s4
comparison s4-funcs.sh @ 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 | c064c7d357dc |
| children | dfa90fbc05bd |
comparison
equal
deleted
inserted
replaced
| 580:a9faeb10a33b | 581:8a206c6342a8 |
|---|---|
| 1409 ) | 1409 ) |
| 1410 sendinvitation() ( | 1410 sendinvitation() ( |
| 1411 # $1=email | 1411 # $1=email |
| 1412 iss="invite-`date +%s`-$user" | 1412 iss="invite-`date +%s`-$user" |
| 1413 addsession $iss +${memoplimitdays}days # 1 week due date | 1413 addsession $iss +${memoplimitdays}days # 1 week due date |
| 1414 query "replace into par values('$iss', 'invite', 'string', \"$1\");" | 1414 query "DELETE FROM par WHERE var='invite' AND val='$1';" |
| 1415 query "REPLACE INTO par VALUES('$iss', 'invite', 'string', '$1');" | |
| 1415 gecos=`gecos` | 1416 gecos=`gecos` |
| 1416 name=$user"${gecos:+($gecos)}" | 1417 name=$user${gecos:+"($gecos)"} |
| 1417 regist="$urlbase?reg+$iss" | 1418 regist="$urlbase?reg+$iss" |
| 1418 _m4 -D_URL_="$urlbase" \ | 1419 _m4 -D_URL_="$urlbase" \ |
| 1419 -D_USER_="$name" \ | 1420 -D_USER_="$name" \ |
| 1420 -D_EMAIL_="$1" \ | 1421 -D_EMAIL_="$1" \ |
| 1421 -D_REGIST_="$regist" \ | 1422 -D_REGIST_="$regist" \ |
| 1437 ;; | 1438 ;; |
| 1438 *) echo "正しいメイルアドレスをいれてください"; return 3 ;; | 1439 *) echo "正しいメイルアドレスをいれてください"; return 3 ;; |
| 1439 esac | 1440 esac |
| 1440 } | 1441 } |
| 1441 invite() { | 1442 invite() { |
| 1442 email=`getpar email` | 1443 email=`getpar email | tr '[A-Z]' '[a-z]'` |
| 1443 case "$email" in | 1444 case "$email" in |
| 1444 *@*@*|*\ *) repo="無効なアドレスです" ;; | 1445 *@*@*|*\ *) repo="無効なアドレスです" ;; |
| 1445 *@*) | 1446 *@*) |
| 1446 local=${email%@*} domain=${email#*@} | 1447 local=${email%@*} domain=${email#*@} |
| 1447 if ! repo=`emaildomaincheck $email`; then | 1448 if ! repo=`emaildomaincheck $email`; then |
| 1448 repo="招待アドレスのエラー: $repo" | 1449 repo="招待アドレスのエラー: $repo" |
| 1449 elif [ -n "`query \"select * from user where name='$email';\"`" ]; then | 1450 elif [ -n "`query \"select * from user where name='$email';\"`" ]; then |
| 1450 repo="$email さんは既に加入しています。" | 1451 repo="$email さんは既に加入しています。" |
| 1451 elif sendinvitation $email; then | 1452 elif sendinvitation $email; then |
| 1452 repo="アドレス($email)宛に案内を送信しました。" | 1453 repo="アドレス($email)宛に案内を送信しました。" |
| 1454 else # Cannot be reached here | |
| 1455 repo="自動登録できない状況です。管理者に依頼してください。" | |
| 1453 fi ;; | 1456 fi ;; |
| 1454 "") repo="招待したい人のメイルアドレスを入力してください。" ;; | 1457 "") repo="招待したい人のメイルアドレスを入力してください。" ;; |
| 1455 *) repo="無効なアドレスです" ;; | 1458 *) repo="無効なアドレスです" ;; |
| 1456 esac | 1459 esac |
| 1457 addr=`query "select val from par where sessid like 'invite-%-$user';"` | 1460 addr=`query "select val from par where sessid like 'invite-%-$user';"` |
| 1467 _m4 -D_TITLE_="Invitation" $layout/html.m4.html | 1470 _m4 -D_TITLE_="Invitation" $layout/html.m4.html |
| 1468 if [ -z "$1" ]; then | 1471 if [ -z "$1" ]; then |
| 1469 echo "bye bye" | html p | 1472 echo "bye bye" | html p |
| 1470 reutrn | 1473 reutrn |
| 1471 fi | 1474 fi |
| 1472 email=`session=$1 getpar invite` | 1475 email=`session=$1 getpar invite | tr '[A-Z]' '[a-z]'` # Ensure lower case |
| 1473 if [ -z "$email" ];then | 1476 if [ -z "$email" ];then |
| 1474 cat<<EOF | 1477 cat<<EOF |
| 1475 <p>無効な招待状チケットです。</p> | 1478 <p>無効な招待状チケットです。</p> |
| 1476 <p>招待状の有効期限(1週間)が切れているか、チケット番号が異なっています。 | 1479 <p>招待状の有効期限(1週間)が切れているか、チケット番号が異なっています。 |
| 1477 加入している人に、再度招待してもらいましょう。</p> | 1480 加入している人に、再度招待してもらいましょう。</p> |
