Subversion Repositories wimsdev

pass=!mexec scripts/getpass.sh log/.wimspass
pass=!word 1 of $pass
!if * notin $pass
  passone=!passcrypt $pass
  !mexec scripts/setpass.sh log/.wimspass
  pass=$passone
  !reset passone
!endif
oncename=tmp/log/.wimspassone

auth=!word 1 of $auth
!if $auth=$empty
  !if $pass=$empty
    chars=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
    n=!charcnt $chars
    len=!randint 8,12
    passone=
    !for i=1 to $len
      t=!randint 1,$n
      c=!char $t of $chars
      passone=$passone$c
    !next i
    !mexec scripts/setpass.sh $oncename
  !endif
  !exit
!endif

!if $pass=$empty
  pass=!mexec scripts/getpass.sh $oncename
  pass=!passcrypt $pass
!endif
pass_check=!passcheck $auth and $pass
!if $pass_check=yes and $pass!=$empty
  !writefile wimshome/$wims_sesdir/.manager yes
  wims_ismanager=2
  job=list
  !readproc geolocoption.proc
!else
  job=wrongpass
!endif
!reset passone