Subversion Repositories wimsdev

# Variable calculations should be done in this file.
# It is read and interpreted by wims for all valid calls to the module.
wims_form_method=post
wims_prefix=mb user
wims_helper=chapter=3

!if $forum=$empty
  error=no_forum
  !exit
!endif
!if $wims_class=
  !read adm/language lang/names.phtml
!else
  !read adm/class/classlang names.phtml
  !set modu_lang=$moduclass_lang
!endif
!read adm/class/authchars
!if $forume=$empty
  !defread wimshome/log/forums/$forum/.def
  !if $mb_defined!=yes
    error=bad_forum
    !exit
  !endif
  !if * isin $mb_password
    error=no_register
    !exit
  !endif
  !if $mb_password=+mail
    mailverif=yes
  !endif
  participants=!recordcnt wimshome/log/forums/$forum/.userlist
  forume=$mb_password\
$mb_title\
$mb_description\
$mb_supervisor\
$mb_email
  !distribute lines $forume into password,title,description,supervisor,smail
  passverify=
  !exit
!else
  !distribute lines $forume into password,title,description,supervisor,smail
!endif

# forum password verification.
!if $step=1
  forumpass=!text remove +-*/= in $forumpass
  !if $forumpass=$password or $mailverif=yes
    passverify=ok
  !else
    error=bad_forumpass
  !endif
  !exit
!endif

!if $step=2
  !for i in lastn,firstn
    $i=!translate internal ,!$$<>" to $         $ in $($i)
    $i=!trim $($i)
    $i=!singlespace $($i)
    $i=!char 1 to 20 of $($i)
  !next i
  !if $lastn=$empty
    error=no_real
    !exit
  !endif
  email=!translate internal ',|!<>"$$ to $          $ in $email
  email=!word -1 of $email
  email=!char 1 to 60 of $email
  !if $email!=$empty and (@ notin $email or . notin $email)
    email=
  !endif
  !if $mailverif=yes and $email=$empty
    error=no_email
    !exit
  !endif
  tmail=$email
  n=!charcnt $login
  !if $n<$login_min or $n>$login_max
    error=login_size
    !exit
  !endif
  test=!text select $char_login in $login
  !if $test!=$login
    error=bad_login
    !exit
  !endif
  n=!charcnt $pass
  !if $n<$passwd_min or $n>$passwd_max
    error=pass_size
    !exit
  !endif
  test=!text select $char_passwd in $pass
  !if $test!=$pass
    error=bad_pass
    !exit
  !endif
  user_exists=
  !defread wimshome/log/forums/$forum/.users/$login
  !if $user_exists=yes
    error=login_double
    !exit
  !endif
  !exit
!endif

!if $step=3
  !if $pass!=$pass2
    error=pass_error
    !exit
  !endif
  user_exists=
  !defread wimshome/log/forums/$forum/.users/$login
  !if $user_exists=yes
    error=login_double
    !exit
  !endif
  !if $mailverif=yes
    secode=!randint 10^5,10^8-1
    !read lang/mail.proc.$modu_lang
    !exit
  !endif
  !if $mailverif=next and $vericode!=$secode
    error=auth_fail
    !exit
  !endif
  pass=!passcrypt $pass
  !writefile wimshome/log/forums/$forum/.users/$login !set user_lastname=$lastn\
!set user_firstname=$firstn\
!set user_password=$pass\
!set user_email=$tmail\
!set user_exists=yes
  user_exists=
  !defread wimshome/log/forums/$forum/.users/$login
  !if $user_exists!=yes
    error=insert_fail
    !exit
  !endif
  !mexec mkuserlist.sh
  wims_module_log=registered $login in $forum
  !exit
!endif