Subversion Repositories wimsdev

Rev

Rev 15280 | Rev 15324 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 15280 Rev 15295
Line 89... Line 89...
89 
!if $wims_developer!=$empty and $auth_login=$empty
 89 
!if $wims_developer!=$empty and $auth_login=$empty
90 
  n=!recordcnt wimshome/log/.developers
 90 
  n=!recordcnt wimshome/log/.developers
91 
  !for i=1 to $n
 91 
  !for i=1 to $n
92 
    r=!record $i of wimshome/log/.developers
 92 
    r=!record $i of wimshome/log/.developers
93 
    !distribute lines $r into ll,pp,nn,ee
 93 
    !distribute lines $r into ll,pp,nn,ee
- 
 
 94 
    !if $ll=$wims_developer
94 
    pp=!passcrypt $pp
 95 
      pp=!passcrypt $pp
95 
    !if $devpass!=$empty
 96 
      !if $devpass!=$empty
96 
      devpass=!passcrypt $devpass
 97 
        devpass=!passcrypt $devpass
97 
    !endif
 - 
 
98 
    !if $ll=$wims_developer and ($devpass=$empty or $devpass=$pp)
 - 
 
99 
      auth_login=$ll
 - 
 
100 
      auth_passwd=$pp
 - 
 
101 
      auth_name=$nn
 - 
 
102 
      auth_email=$ee
 - 
 
103 
      login=$wims_developer
 - 
 
104 
      sesdir=!translate internal _ to $ $ in $wims_sesdir
 - 
 
105 
      sesdir=!word 1 of $sesdir
 - 
 
106 
      !setdef wims_developer=$login in wimshome/$sesdir/var.stat
 - 
 
107 
      !if $original!=$empty and $job=$empty
 - 
 
108 
        job=copy
 - 
 
109 
      !endif
 98 
      !endif
- 
 
 99 
      !if ($devpass=$empty or $devpass=$pp)
- 
 
 100 
        auth_login=$ll
- 
 
 101 
        auth_passwd=$pp
- 
 
 102 
        auth_name=$nn
- 
 
 103 
        auth_email=$ee
- 
 
 104 
        login=$wims_developer
- 
 
 105 
        sesdir=!translate internal _ to $ $ in $wims_sesdir
- 
 
 106 
        sesdir=!word 1 of $sesdir
- 
 
 107 
        !setdef wims_developer=$login in wimshome/$sesdir/var.stat
- 
 
 108 
        !if $original!=$empty and $job=$empty
- 
 
 109 
          job=copy
- 
 
 110 
        !endif
110 
      !if $wims_developer!=$empty and $modreq!=$empty
 111 
        !if $wims_developer!=$empty and $modreq!=$empty
111 
        !default job=flist
 112 
          !default job=flist
- 
 
 113 
        !endif
- 
 
 114 
        !default job=modname
- 
 
 115 
        !break
112 
      !endif
 116 
      !endif
113 
      !default job=modname
 - 
 
114 
      !break
 - 
 
115 
    !endif
 117 
    !endif
116 
  !next i
 118 
  !next i
117 
  !if $auth_login=$empty
 119 
  !if $auth_login=$empty
118 
    wims_developer=
 120 
    wims_developer=
119 
    job=auth
 121 
    job=auth