Subversion Repositories wimsdev

login=!word 1 of $login

passwd=!word 1 of $passwd

!if $login=$empty or $passwd=$empty

 !if $login$passwd!=$empty

  error=bad_auth

 !endif

 login=

 !exit

!endif

n=!recordcnt wimshome/log/.developers

!for i=1 to $n

 r=!record $i of wimshome/log/.developers

 passwc=!passcrypt $passwd

 !distribute lines $r into ll,pp,nn,ee

 pp=!passcrypt $pp

 !if $ll=$login and $pp=$passwc

  auth_login=$ll

  auth_passwd=$pp

  auth_name=$nn

  auth_email=$ee

  wims_module_log=auth $login

  sesdir=!translate internal _ to $ $ in $wims_sesdir

  sesdir=!word 1 of $sesdir

        !setdef wims_developer=$login\

        wims_name=$auth_name\

        wims_devfirstname=$(auth_name[1])\

        wims_devlastname=$(auth_name[2])\

        wims_email=$auth_email\

        in wimshome/$sesdir/var.stat

  !if $wims_class!=$empty and $wims_user!=$empty

   !setdef !set wims_developer=$login,$pp in $userdef

  !endif

  devdir=modules/devel/$auth_login

  job=modname

  !changeto $job.proc

 !endif

!next i

error=bad_auth

login=