]> git.plutz.net Git - serve0/blob - cgilite/users.sh
improved yaw calculation
[serve0] / cgilite / users.sh
1 #!/bin/sh
2
3 # Copyright 2021 - 2023 Paul Hänsch
4
5 # Permission to use, copy, modify, and/or distribute this software for any
6 # purpose with or without fee is hereby granted, provided that the above
7 # copyright notice and this permission notice appear in all copies.
8
9 # THE SOFTWARE IS PROVIDED “AS IS” AND THE AUTHOR DISCLAIMS ALL WARRANTIES
10 # WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
11 # MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
12 # SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
13 # WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
14 # ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR
15 # IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
16
17 [ -n "$include_users" ] && return 0
18 include_users="$0"
19
20 . "${_EXEC}/cgilite/session.sh"
21 . "${_EXEC}/cgilite/storage.sh"
22
23 SENDMAIL=${SENDMAIL-sendmail}
24
25 USER_REGISTRATION="${USER_REGISTRATION-true}"
26 USER_REQUIREEMAIL="${USER_REQUIREEMAIL-true}"
27 USER_ACCOUNTPAGE="${USER_ACCOUNTPAGE}"
28
29 USER_ACCOUNTEXPIRE="${USER_ACCOUNTEXPIRE:-$((86400 * 730))}"
30 USER_CONFIRMEXPIRE="${USER_CONFIRMEXPIRE:-86400}"
31
32 MAILFROM="${MAILDOMAIN-noreply@${HTTP_HOST%:*}}"
33
34 HTTP_HOST="$(HEADER Host)"
35
36 [ "$HTTPS" ] && SCHEMA=https || SCHEMA=http
37
38 # == FILE FORMAT ==
39 # UID   UNAME   STATUS  EMAIL   PWSALT  PWHASH  EXPIRE  DEVICES FUTUREUSE
40 #               (pending|active|deleted)
41
42 # == GLOBALS ==
43 UNSET_USER='unset \
44   USER_ID USER_NAME USER_STATUS USER_EMAIL USER_PWSALT USER_PWHASH \
45   USER_EXPIRE USER_DEVICES USER_FUTUREUSE
46 '
47
48 LOCAL_USER='local \
49   USER_ID USER_NAME USER_STATUS USER_EMAIL USER_PWSALT USER_PWHASH \
50   USER_EXPIRE USER_DEVICES USER_FUTUREUSE
51 '
52
53 # == TRANSLATIONS ==
54 # override all functions marked with "TRANSLATION"
55 # sed -n '/TRANSLATION$/,/^}/p;' <cgilite/users.sh
56
57 unset USER_IDMAP
58 eval "$UNSET_USER"
59
60 user_db="${user_db:-${_DATA}/users.db}"
61
62 read_user() {
63   local user="$1"
64
65   # Global exports
66   USER_ID='' USER_NAME='' USER_STATUS='' USER_EMAIL='' USER_PWSALT=''
67   USER_PWHASH='' USER_EXPIRE='' USER_DEVICES='' USER_FUTUREUSE=''
68
69   if [ $# -eq 0 ]; then
70     read -r USER_ID USER_NAME USER_STATUS USER_EMAIL USER_PWSALT USER_PWHASH \
71             USER_EXPIRE USER_DEVICES USER_FUTUREUSE
72   elif [ "$user" -a -f "$user_db" -a -r "$user_db" ]; then
73     read -r USER_ID USER_NAME USER_STATUS USER_EMAIL USER_PWSALT USER_PWHASH \
74             USER_EXPIRE USER_DEVICES USER_FUTUREUSE <<-EOF
75         $(grep "^${user}        " "${user_db}")
76         EOF
77   fi
78   if [ "$USER_ID" -a "${USER_EXPIRE:-0}" -gt "$_DATE" ]; then
79        USER_NAME="$(UNSTRING "$USER_NAME")"
80       USER_EMAIL="$(UNSTRING "$USER_EMAIL")"
81     USER_DEVICES="$(UNSTRING "$USER_DEVICES")"
82     unset USER_PWSALT USER_PWHASH
83   else
84     eval "$UNSET_USER"
85     return 1
86   fi
87 }
88
89 update_user() {
90   # internal function for user update
91   local uid="$1" uname status email pwsalt pwhash expire devices futureuse
92   local UID_ UNAME STATUS EMAIL PWSALT PWHASH EXPIRE DEVICES FUTUREUSE
93   local arg
94
95   for arg in "$@"; do case $arg in
96     uname=*) uname="${arg#*=}";;
97     status=*) status="${arg#*=}";;
98     email=*) email="${arg#*=}";;
99     password=*) pwsalt="$(randomid)"; pwhash="$(user_pwhash "$pwsalt" "${arg#*=}")";;
100     expire=*) expire="${arg#*=}";;
101     devices=*) devices="${arg#*=}";;
102   esac; done
103
104   if LOCK "$user_db"; then
105     while read -r UID_ UNAME STATUS EMAIL PWSALT PWHASH EXPIRE DEVICES \
106                   FUTUREUSE; do
107     if [ "$UID_" = "$uid" ]; then
108       printf '%s        %s      %s      %s      %s      %s      %i      %s      %s\n' \
109              "$uid" "$(STRING "${uname-$(UNSTRING "$UNAME")}")" \
110              "${status:-${status-${STATUS}}${status+\\}}" \
111              "${email:-${email-${EMAIL}}${email+\\}}" \
112              "${pwsalt:-${PWSALT}}" "${pwhash:-${PWHASH}}" \
113              "${expire:-$((_DATE + USER_ACCOUNTEXPIRE))}" \
114              "$(STRING "${devices-$(UNSTRING "$DEVICES")}")" \
115              "${FUTUREUSE:-\\}"
116     elif [ "$STATUS" = pending -a ! "$EXPIRE" -ge "$_DATE" ]; then
117       # omit expired invitations from output
118       :
119     else
120       printf '%s        %s      %s      %s      %s      %s      %i      %s      %s\n' \
121              "$UID_" "$UNAME" "$STATUS" "$EMAIL" "$PWSALT" "$PWHASH" \
122              "$EXPIRE" "$DEVICES" "$FUTUREUSE"
123     fi
124     done <"$user_db" >"${user_db}.$$"
125     mv -- "${user_db}.$$" "$user_db"
126     RELEASE "$user_db"
127   else
128     return 1
129   fi
130 }
131
132 new_user(){
133   local user="${1:-$(timeid)}"
134   shift 1
135
136   if LOCK "$user_db"; then
137     if grep -q "^${user}        " "$user_db"; then
138       RELEASE "$user_db"
139       return 1
140     fi
141     printf '%s  \\      %s      \\      \\      \\      %i      \\      \\\n' \
142            "$user" "pending" "$(( _DATE + USER_CONFIRMEXPIRE ))" >>"$user_db"
143   else
144     return 1
145   fi
146
147   if [ $# -eq 0 ]; then
148     RELEASE "$user_db"
149     return 0
150   elif update_user "$user" "$@"; then
151     return 0
152   else
153     RELEASE "$user_db"
154     return 1
155   fi
156 }
157
158 user_idmap(){
159   local uid="$1" ret
160   eval "$LOCAL_USER"
161
162   if [ ! "$USER_IDMAP" ]; then
163     while read_user; do
164       USER_IDMAP="${USER_IDMAP}${USER_ID}       ${USER_NAME}${BR}"
165     done <"$user_db"
166   fi
167   if [ "$uid" -a "$USER_IDMAP" != "${USER_IDMAP##*${uid}        }" ]; then
168     ret="${USER_IDMAP##*${uid}  }"; ret="${ret%%${BR}*}";
169     printf '%s\n' "$ret"
170     return 0
171   elif [ "$uid" ]; then
172     return 1
173   else
174     printf '%s' "$USER_IDMAP"
175     return 0
176   fi
177 }
178
179 user_idof(){
180   local name="$(STRING "$1")" ret
181   [ "$USER_IDMAP" ] || user_idmap >/dev/null
182
183   if [ "${name%\\}" -a "$USER_IDMAP" != "${USER_IDMAP%  ${name}${BR}*}" ]; then
184     ret="${USER_IDMAP%  ${name}${BR}*}"; ret="${ret##*${BR}}"
185     printf '%s\n' "$ret"
186     return 0
187   else
188     return 1
189   fi
190 }
191
192 user_checkname(){
193   { [ $# -gt 0 ] && printf %s "$*" || cat; } \
194   | sed -nE '
195     :X; $!{N;bX;}
196     s;[ \t\r\n]+; ;g;
197     s;^ ;;; s; $;;;
198     /@/d;
199     /^[a-zA-Z][a-zA-Z0-9 -~]{2,127}$/!d;
200     p;
201     '
202 }
203
204 user_checkemail(){
205   { [ $# -gt 0 ] && printf %s "$*" || cat; } \
206   | sed -nE '
207     # W3C recommended email regex
208     # https://html.spec.whatwg.org/multipage/input.html#email-state-(type=email)
209     /^[a-zA-Z0-9.!#$%&'\''*+\/=?^_`{|}~-]+@[a-zA-Z0-9]([a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?(\.[a-zA-Z0-9]([a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?)*$/p;
210     '
211 }
212
213 user_nameexist(){
214   local uname="$(STRING "$1")"
215   local UID_    UNAME   STATUS  EMAIL   PWSALT  PWHASH  EXPIRE  DEVICES FUTUREUSE
216   [ -f "$user_db" -a -r "$user_db" ] \
217   && while read -r UID_ UNAME   STATUS  EMAIL   PWSALT  PWHASH  EXPIRE  DEVICES FUTUREUSE; do
218     [ "$EXPIRE" -gt "$_DATE" -a "$UNAME" = "$uname" ] && return 0
219   done <"$user_db"
220   return 1
221 }
222
223 user_emailexist(){
224   local email="$(STRING "$1")"
225   local UID_    UNAME   STATUS  EMAIL   PWSALT  PWHASH  EXPIRE  DEVICES FUTUREUSE
226   [ -f "$user_db" -a -r "$user_db" ] \
227   && while read -r UID_ UNAME   STATUS  EMAIL   PWSALT  PWHASH  EXPIRE  DEVICES FUTUREUSE; do
228     [ "$EXPIRE" -gt "$_DATE" -a "$EMAIL" = "$email" ] && return 0
229   done <"$user_db"
230   return 1
231 }
232
233 user_pwhash(){
234   local salt="$1" secret="$2" hash
235   hash="$(printf '%s\n%s\n' "$secret" "$salt" |sha256sum)"
236   printf '%s\n' "${hash%% *}"
237 }
238
239 user_register_email() {  # TRANSLATION
240   "$SENDMAIL" -t -f "$MAILFROM" <<-EOF
241         From: ${MAILFROM}
242         To: ${email}
243         Subject: Your account registration at ${HTTP_HOST%:*}
244
245         Someone tried to sign up for a user account using this email address.
246
247         You can activate your account using this link:
248
249             ${SCHEMA}://${HTTP_HOST}${_BASE}${PATH_INFO}?user_confirm=${uid}+$(session_mac "$uid")
250
251         This registration link will expire after $((USER_CONFIRMEXPIRE / 3600)) hours.
252
253         If you did not request an account at ${HTTP_HOST%:*}, then someone else
254         probably entered your email address by accident. In this case you shoud
255         simply ignore this message and we will remove your email address from
256         our database within the next day.
257
258         This is an automatic email. Any direct reply will not be received.
259         Your Account Registration Robot.
260         EOF
261 }
262
263 user_register(){
264   # reserve account, send registration mail
265   # preliminary uid, expiration, signature
266   local uid="$(timeid)"
267   local uname="$(POST uname |user_checkname)"
268   local email="$(POST email |user_checkemail)"
269   local pwsalt="$(randomid)"
270   local pw="$(POST pw |grep -m1 -xE '.{6,}' )" pwconfirm="$(POST pwconfirm)"
271
272   if [ "$USER_REGISTRATION" != true -a -s "$user_db" ]; then
273     REDIRECT "${_BASE}${PATH_INFO}#ERROR_REGISTRATION_DISABLED"
274   fi
275
276   if   [ "$USER_REQUIREEMAIL" = true ]; then
277     if [ ! "email" ]; then
278       REDIRECT "${_BASE}${PATH_INFO}#ERROR_EMAIL_INVALID"
279     elif user_emailexist "$email"; then
280       REDIRECT "${_BASE}${PATH_INFO}#ERROR_EMAIL_EXISTS"
281     elif new_user "$uid" status=pending email="$email" expire="$((_DATE + USER_CONFIRMEXPIRE))"; then
282       debug "Sending Activation Link:" \
283             "${SCHEMA}://${HTTP_HOST}${_BASE}${PATH_INFO}?user_confirm=${uid}+$(session_mac "$uid")"
284       user_register_email
285       REDIRECT "${_BASE}${PATH_INFO}#USER_REGISTER_CONFIRM"
286     else
287       REDIRECT "${_BASE}${PATH_INFO}#ERROR_USER_NOLOCK"
288     fi
289
290   elif [ "$USER_REQUIREEMAIL" != true ]; then
291     if [ ! "$uname" ]; then
292       REDIRECT "${_BASE}${PATH_INFO}#ERROR_UNAME_INVALID"
293     elif user_nameexist "$uname"; then
294       REDIRECT "${_BASE}${PATH_INFO}#ERROR_UNAME_EXISTS"
295     elif [ ! "$pw" ]; then
296       REDIRECT "${_BASE}${PATH_INFO}#ERROR_PW_EMPTYTOOSHORT"
297     elif [ "$pw" != "$pwconfirm" ]; then
298       REDIRECT "${_BASE}${PATH_INFO}#ERROR_PW_MISMATCH"
299     elif new_user "$uid" uname="$uname" status=active email="$email" password="$pw" expire="$((_DATE + USER_ACCOUNTEXPIRE))"; then
300       SESSION_COOKIE new
301       SESSION_BIND user_id "$uid"
302
303       if [ "$USER_ACCOUNTPAGE" ]; then
304         REDIRECT "${USER_ACCOUNTPAGE}"
305       else
306         REDIRECT "${_BASE}${PATH_INFO}#USER_REGISTER_CONFIRM"
307       fi
308     else
309       REDIRECT "${_BASE}${PATH_INFO}#ERROR_USER_NOLOCK"
310     fi
311   fi
312 }
313
314 user_invite_email(){  # TRANSLATION
315   "$SENDMAIL" -t -f "$MAILFROM" <<-EOF
316         From: ${MAILFROM}
317         To: ${email}
318         Subject: You have been invited to ${HTTP_HOST%:*}
319
320         ${USER_NAME:-Someone} has offered an invitation to this email address.
321
322         ${message}
323
324         You can create your account using this link:
325
326             ${SCHEMA}://${HTTP_HOST}${_BASE}${PATH_INFO}?user_confirm=${uid}+$(session_mac "$uid")
327
328         This registration link will expire after $((USER_CONFIRMEXPIRE / 3600)) hours.
329
330         If you do not know what this is about, then someone else probably
331         entered your email address by accident. In this case you shoud
332         simply ignore this message and we will remove your email address from
333         our database within the next day.
334
335         This is an automatic email. Any direct reply will not be received.
336         Your Account Registration Robot.
337         EOF
338 }
339
340 user_invite(){
341   local uid="$(timeid)"
342   local email="$(POST email |user_checkemail)"
343   local message="$(POST message)"
344
345   if [ ! "email" ]; then
346     REDIRECT "${_BASE}${PATH_INFO}#ERROR_EMAIL_INVALID"
347   elif user_emailexist "$email"; then
348     REDIRECT "${_BASE}${PATH_INFO}#ERROR_EMAIL_EXISTS"
349   elif new_user "$uid" status=pending email="$email" expire="$((_DATE + USER_CONFIRMEXPIRE))"; then
350     debug "Sending Invitation Link:" \
351           "${SCHEMA}://${HTTP_HOST}${_BASE}${PATH_INFO}?user_confirm=${uid}+$(session_mac "$uid")"
352     user_invite_email
353     REDIRECT "${_BASE}${PATH_INFO}#USER_REGISTER_CONFIRM"
354   else
355     REDIRECT "${_BASE}${PATH_INFO}#ERROR_USER_NOLOCK"
356   fi
357 }
358
359 user_confirm(){
360   # enable account
361   eval "$LOCAL_USER"
362   local uid="$(POST uid |checkid || printf invalid)"
363   local signature="$(POST signature)"
364   local uname="$(POST uname |user_checkname)"
365   local pwsalt="$(randomid)"
366   local pw="$(POST pw |grep -m1 -xE '.{6,}' )" pwconfirm="$(POST pwconfirm)"
367
368   read_user "${uid}"
369
370   if [ "$signature" != "$(session_mac "$uid")" ]; then
371     REDIRECT "${_BASE}${PATH_INFO}?${QUERY_STRING}#ERROR_LINK_INVALID"
372   elif [ ! "$uname" ]; then
373     REDIRECT "${_BASE}${PATH_INFO}?${QUERY_STRING}#ERROR_UNAME_INVALID"
374   elif user_nameexist "$uname"; then
375     REDIRECT "${_BASE}${PATH_INFO}?${QUERY_STRING}#ERROR_UNAME_EXISTS"
376   elif [ ! "$pw" ]; then
377     REDIRECT "${_BASE}${PATH_INFO}?${QUERY_STRING}#ERROR_PW_EMPTYTOOSHORT"
378   elif [ "$pw" != "$pwconfirm" ]; then
379     REDIRECT "${_BASE}${PATH_INFO}?${QUERY_STRING}#ERROR_PW_MISMATCH"
380   elif [ "$USER_STATUS" != pending -o \! "$USER_EXPIRE" -gt "$_DATE" ]; then
381     REDIRECT "${_BASE}${PATH_INFO}?${QUERY_STRING}#ERROR_LINK_INVALID"
382   elif update_user "$USER_ID" uname="$uname" status=active password="$pw"; then
383     SESSION_COOKIE new
384     SESSION_BIND user_id "$USER_ID"
385     if [ "$USER_ACCOUNTPAGE" ]; then
386       REDIRECT "${USER_ACCOUNTPAGE}"
387     else
388       REDIRECT "${_BASE}${PATH_INFO}?user_register=confirm#USER_REGISTER_CONFIRM"
389     fi
390   else
391     REDIRECT "${_BASE}${PATH_INFO}#ERROR_USER_NOLOCK"
392   fi
393 }
394
395 user_login(){
396   # set cookie
397   # keep logged in - device cookie?
398   # initialize new session!
399   local UID_    UNAME   STATUS  EMAIL   PWSALT  PWHASH  EXPIRE  DEVICES FUTUREUSE
400   local uname="$(POST uname |STRING)" pw="$(POST pw)"
401
402   [ -f "$user_db" -a -r "$user_db" ] \
403   && while read -r UID_ UNAME   STATUS  EMAIL   PWSALT  PWHASH  EXPIRE  DEVICES FUTUREUSE; do
404     if [ "$UNAME" = "$uname" -o "$EMAIL" = "$uname" ]; then
405       if [ "$STATUS" = active -a "$EXPIRE" -gt "$_DATE" -a "$PWHASH" = "$(user_pwhash "$PWSALT" "$pw")" ]; then
406         SESSION_COOKIE new
407         SESSION_BIND user_id "$UID_"
408         REDIRECT "${_BASE}${PATH_INFO}#USER_LOGGED_IN"
409       fi
410     fi
411   done <"$user_db"
412   REDIRECT "${_BASE}${PATH_INFO}#ERROR_INVALID_LOGIN"
413 }
414
415 user_logout(){
416   # destroy cookie, destroy session
417   # keep device cookie
418   new_session
419   SESSION_COOKIE new
420   SET_COOKIE 0 user_id="" Path="/${_BASE#/}" SameSite=Strict HttpOnly
421   REDIRECT "${_BASE}${PATH_INFO}#USER_LOGGED_OUT"
422 }
423
424 user_update(){
425   # todo: username update, email update / email confirm
426   local UID_    UNAME   STATUS  EMAIL   PWSALT  PWHASH  EXPIRE  DEVICES FUTUREUSE
427   # local uname="$(POST uname |STRING)"
428   local uid oldpw pw pwconfirm
429
430         uid="$(POST uid)"
431       oldpw="$(POST oldpw)"
432          pw="$(POST pw |grep -xE '.{6}')"
433   pwconfirm="$(POST pwconfirm)"
434
435
436   read -r UID_  UNAME   STATUS  EMAIL   PWSALT  PWHASH  EXPIRE  DEVICES FUTUREUSE <<-EOF
437         $(grep "^${uid} " "$user_db")
438         EOF
439
440   if [ "$UID_" = "$USER_ID" -a "$PWHASH" = "$(user_pwhash "$PWSALT" "$oldpw")" ]; then
441     if [ "$pw" -a "$pw" = "$pwconfirm" ]; then
442       update_user "${uid}" password="$pw"
443       REDIRECT "${_BASE}${PATH_INFO}#UPDATE_SUCCESS"
444     else
445       REDIRECT "${_BASE}${PATH_INFO}#ERROR_PWMISMATCH"
446     fi
447   elif [ "$UID_" = "$USER_ID" ]; then
448     REDIRECT "${_BASE}${PATH_INFO}#ERROR_INVALID_AUTH_PASSWORD"
449   else
450     REDIRECT "${_BASE}${PATH_INFO}#ERROR_NOTLOGGEDIN"
451   fi
452 }
453
454 user_recover(){
455   # send recover link
456   :
457 }
458 user_disable(){
459   :
460 }
461
462 read_user "$(SESSION_VAR user_id)"
463 [ "$USER_STATUS" -a "$USER_STATUS" != active ] && eval $UNSET_USER
464
465 [ "$REQUEST_METHOD" = POST ] && case "$(POST action)" in
466   user_register) user_register ;;
467   user_confirm)  user_confirm ;;
468   user_invite)   user_invite ;;
469   user_login)    user_login ;;
470   user_logout)   user_logout ;;
471   user_update)   user_update ;;
472   user_recover)
473     :;;
474   user_disable)
475     :;;
476 esac
477
478 export USER_ID USER_NAME USER_STATUS USER_EMAIL USER_PWSALT USER_PWHASH \
479        USER_EXPIRE USER_DEVICES USER_FUTUREUSE
480
481
482 w_user_update(){
483   if [ ! "$USER_ID" ]; then
484     cat <<-EOF
485         [div #user_update .nouser
486         This page can only be used by registered users
487         ]
488         EOF
489   else
490     cat <<-EOF
491         [form #user_update method=POST
492           [hidden "uid" "$USER_ID"]
493           [p .username Logged in as $USER_NAME]
494           [input type=password name=oldpw placeholder="Current Passphrase"]
495           [input type=password name=pw placeholder="New Passphrase" pattern=".{6,}"]
496           [input type=password name=pwconfirm placeholder="Confirm New Passphrase" pattern=".{6,}"]
497           [submit "action" "user_update" Update Passphrase]
498         ]
499         EOF
500   fi
501 }
502
503 w_user_register_disabled(){  # TRANSLATION
504   cat <<-EOF
505         [div #user_register .disabled
506         User Registration is disabled.
507         ]
508         EOF
509 }
510 w_user_register_sendmail(){  # TRANSLATION
511   cat <<-EOF
512         [form #user_register .registeremail method=POST
513           [p We will send an activation mail to your email address.
514             You can continue the signup process when you click on the
515             activation link in this email.]
516           [input type=email name=email placeholder="Email"]
517           [submit "action" "user_register" Sign Up]
518         ]
519         EOF
520 }
521 w_user_register_direct(){  # TRANSLATION
522   cat <<-EOF
523         [form #user_register .registername method=POST
524           [input name=uname placeholder="Choose Username" tooltip="Your username may contain any character but the @ sign. It must be at least 3 characters long, and it must start with a letter." pattern="^\[\\\\p{L}\]\[\\\\p{L}0-9 -~\]{2,127}$" autocomplete=off]
525           [input type=password name=pw placeholder="Choose Passphrase" pattern=".{6,}"]
526           [input type=password name=pwconfirm placeholder="Confirm Passphrase" pattern=".{6,}"]
527           [submit "action" "user_register" Sign Up]
528         ]
529         EOF
530 }
531
532 w_user_register(){
533   if [ "$(GET user_confirm)" ]; then
534     w_user_confirm
535   elif [ "$USER_REGISTRATION" != true -a -s "$user_db" ]; then
536     w_user_register_disabled
537   elif [ "$USER_REQUIREEMAIL" = true ]; then
538     w_user_register_sendmail
539   elif [ "$USER_REQUIREEMAIL" != true ]; then
540     w_user_register_direct
541   fi
542 }
543
544 w_user_confirm_proceed(){  # TRANSLATION
545   cat <<-EOF
546         [form #user_confirm method=POST
547           [input type=hidden name=uid value="${uid}"]
548           [input type=hidden name=signature value="${signature}"]
549           $([ "$EMAIL" != '\' ] && printf \
550             '[input disabled=disabled value="%s" placeholder="Email"]' "$(UNSTRING "$EMAIL" |HTML)"
551           )
552           [input name=uname placeholder="Choose Username" tooltip="Your username may contain any character but the @ sign. It must be at least 3 characters long, and it must start with a letter." pattern="^\[\\\\p{L}\]\[\\\\p{L}0-9 -~\]{2,127}$" autocomplete=off]
553           [input type=password name=pw placeholder="Choose Passphrase" pattern=".{6,}"]
554           [input type=password name=pwconfirm placeholder="Confirm Passphrase" pattern=".{6,}"]
555           [submit "action" "user_confirm" Finish Registration]
556         ]
557         EOF
558 }
559 w_user_confirm_expired(){  # TRANSLATION
560   cat <<-EOF
561         [div #user_confirm .expired
562           [p This activation link is not valid anymore.]
563         ]
564         EOF
565 }
566 w_user_confirm_invalid(){  # TRANSLATION
567   cat <<-EOF
568         [div #user_confirm .invalid
569           [p This activation link is invalid. Make sure you copied the whole activation link from your email and be careful not to include any line breaks.]
570         ]
571         EOF
572 }
573
574 w_user_confirm(){
575   local UID_    UNAME   STATUS  EMAIL   PWSALT  PWHASH  EXPIRE  DEVICES FUTUREUSE
576   local user_confirm="$(GET user_confirm)"
577   local uid="${user_confirm% *}" signature="${user_confirm#* }"
578
579   if [ "$signature" = "$(session_mac "$uid")" ]; then
580     read -r UID_        UNAME   STATUS  EMAIL   PWSALT  PWHASH  EXPIRE  DEVICES FUTUREUSE <<-EOF
581         $(grep "^${uid} " "$user_db")
582         EOF
583     if [ "$STATUS" = pending -a "$EXPIRE" -gt "$_DATE" ]; then
584       w_user_confirm_proceed
585     else
586       w_user_confirm_expired
587     fi
588   else
589     w_user_confirm_invalid
590   fi
591 }
592
593 w_user_invite_email(){  # TRANSLATION
594   cat <<-EOF
595         [form #user_invite method=POST
596           [input placeholder="Email Recipient" name=email autocomplete=off]
597           [textarea name="message" placeholder="Message to recipient" . ]
598           [submit "action" "user_invite" Send Invitation]
599         ]
600         EOF
601 }
602 w_user_invite_link(){  # TRANSLATION
603   cat <<-EOF
604         [div #user_invite .link
605           [p An anonymous user account has been set up. Send the following link to the intended user, so they may claim their account. The link will remain valid for $((USER_CONFIRMEXPIRE / 3600)) hours.]
606           [a href="$(HTML "$invlink")" . $(HTML "$invlink")]
607
608           [p [a href="#" . Set up another account]]
609         ]
610         EOF
611 }
612 w_user_invite_deny(){  # TRANSLATION
613   cat <<-EOF
614         [div #user_invite .notallowed
615           Only registered users may send an invitation to another user.
616         ]
617         EOF
618 }
619
620 w_user_invite(){
621   local uid invlink
622
623   if [ "$(GET user_confirm)" ]; then
624     w_user_confirm
625   elif [ "$USER_ID" -a "$SENDMAIL" ]; then
626     w_user_invite_email
627   elif [ "$USER_ID" ]; then
628     uid="$(timeid)"
629     new_user "$uid" status=pending expire="$((_DATE + USER_CONFIRMEXPIRE))"
630     invlink="${SCHEMA}://${HTTP_HOST}${_BASE}${PATH_INFO}?user_confirm=${uid}+$(session_mac "$uid")"
631     debug "New Invitation Link: $invlink"
632     w_user_invite_link
633   else
634     w_user_invite_deny
635   fi
636 }
637
638 w_user_login_logon(){  # TRANSLATION
639   cat <<-EOF
640         [form #user_login .login method=POST
641           [input name=uname placeholder="Username or Email" autocomplete=off]
642           [input type=password name=pw placeholder="Passphrase"]
643           [submit "action" "user_login" Login]
644         ]
645         EOF
646 }
647 w_user_login_logoff(){  # TRANSLATION
648   cat <<-EOF
649         [form #user_login .logout method=POST
650           [p Logged in as [span . $(HTML ${USER_NAME})]]
651           [submit "action" "user_logout" Logout]
652         ]
653         EOF
654 }
655
656 w_user_login(){
657   if [ ! "$USER_ID" ]; then
658     w_user_login_logon
659   elif [ "$USER_ID" ]; then
660     w_user_login_logoff
661   fi
662 }