Subversion Repositories wimsdev

pass=!mexec scripts/getpass.sh log/.wimspass
pass=!word 1 of $pass
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
!endif
!if $auth=$pass and $pass!=$empty
 !writefile wimshome/$wims_sesdir/.manager yes
 wims_ismanager=2
 job=list
!else
 job=wrongpass
!endif
!reset passone