Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
 
2
login=!word 1 of $login
3
passwd=!word 1 of $passwd
4
!if $login=$empty or $passwd=$empty
5
 !if $login$passwd!=$empty
6
  error=bad_auth
7
 !endif
8
 login=
9
 !exit
10
!endif
11
 
12
n=!recordcnt wimshome/log/.developers
13
!for i=1 to $n
14
 r=!record $i of wimshome/log/.developers
15
 passwc=!passcrypt $passwd
16
 !distribute lines $r into ll,pp,nn,ee
17
 pp=!passcrypt $pp
18
 !if $ll=$login and $pp=$passwc
19
  auth_login=$ll
20
  auth_passwd=$pp
21
  auth_name=$nn
22
  auth_email=$ee
23
  wims_module_log=auth $login
24
  sesdir=!translate internal _ to $ $ in $wims_sesdir
25
  sesdir=!word 1 of $sesdir
26
  !setdef wims_developer=$login in wimshome/$sesdir/var.stat
27
  !if $wims_class!=$empty and $wims_user!=$empty
28
   !setdef !set wims_developer=$login,$pp in $userdef
29
  !endif
30
  devdir=modules/devel/$auth_login
31
  job=modname
32
  !changeto $job.proc
33
 !endif
34
!next i
35
 
36
error=bad_auth
37
login=
38