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

  !if $ll=$login

    pp=!passcrypt $pp

    !if $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

  !endif

!next i

error=bad_auth

login=