Subversion Repositories wimsdev

Rev

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

Rev 2497 Rev 15334
Line 2... Line 2...
2
pass=!mexec scripts/getpass.sh log/.wimspass
2
pass=!mexec scripts/getpass.sh log/.wimspass
3
pass=!word 1 of $pass
3
pass=!word 1 of $pass
-
 
4
!if * notin $pass
-
 
5
  passone=!passcrypt $pass
-
 
6
  !mexec scripts/setpass.sh log/.wimspass
-
 
7
  pass=$passone
-
 
8
  !reset passone
-
 
9
!endif
4
oncename=tmp/log/.wimspassone
10
oncename=tmp/log/.wimspassone
5
 
11
 
6
auth=!word 1 of $auth
12
auth=!word 1 of $auth
7
!if $auth=$empty
13
!if $auth=$empty
8
 !if $pass=$empty
14
  !if $pass=$empty
9
  chars=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
15
    chars=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
10
  n=!charcnt $chars
16
    n=!charcnt $chars
11
  len=!randint 8,12
17
    len=!randint 8,12
12
  passone=
18
    passone=
13
  !for i=1 to $len
19
    !for i=1 to $len
14
   t=!randint 1,$n
20
      t=!randint 1,$n
15
   c=!char $t of $chars
21
      c=!char $t of $chars
16
   passone=$passone$c
22
      passone=$passone$c
17
  !next i
23
    !next i
18
  !mexec scripts/setpass.sh $oncename
24
    !mexec scripts/setpass.sh $oncename
19
 !endif
25
  !endif
20
 !exit
26
 !exit
21
!endif
27
!endif
22
 
28
 
23
!if $pass=$empty
29
!if $pass=$empty
24
 pass=!mexec scripts/getpass.sh $oncename
30
  pass=!mexec scripts/getpass.sh $oncename
-
 
31
  pass=!passcrypt $pass
25
!endif
32
!endif
-
 
33
pass_check=!passcheck $auth and $pass
26
!if $auth=$pass and $pass!=$empty
34
!if $pass_check=yes and $pass!=$empty
27
 !writefile wimshome/$wims_sesdir/.manager yes
35
  !writefile wimshome/$wims_sesdir/.manager yes
28
 wims_ismanager=2
36
  wims_ismanager=2
29
 job=list
37
  job=list
30
!else
38
!else
31
 job=wrongpass
39
  job=wrongpass
32
!endif
40
!endif
33
!reset passone
41
!reset passone
34
 
-