Subversion Repositories wimsdev

Rev

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

Rev 7148 Rev 14332
Line 7... Line 7...
7
wims_helper=chapter=3
7
wims_helper=chapter=3
8
 
8
 
9
!read tabletheme
9
!read tabletheme
10
 
10
 
11
!if $wims_user!=supervisor
11
!if $wims_user!=supervisor
12
 !bound job within user,none default none
12
  !bound job within user,none default none
13
!else
13
!else
14
 !bound job within class,user,part,none default none
14
  !bound job within class,user,part,none default none
15
!endif
15
!endif
16
 
16
 
17
!defread wimshome/log/classes/$wims_class/.def
17
!defread wimshome/log/classes/$wims_class/.def
18
!if $class_expiration=$empty
18
!if $class_expiration=$empty
19
 error=bad_class
19
  error=bad_class
20
 !exit
20
  !exit
21
!endif
21
!endif
22
 
22
 
23
part=!trim $part
23
part=!trim $part
24
!if $part=$empty and $job=part
24
!if $part=$empty and $job=part
25
 job=none
25
  job=none
26
!endif
26
!endif
27
 
27
 
28
pw1=!items2words $pw1
28
pw1=!items2words $pw1
29
pw2=!items2words $pw2
29
pw2=!items2words $pw2
30
pw1=!trim $pw1
30
pw1=!trim $pw1
31
pw2=!trim $pw2
31
pw2=!trim $pw2
32
pw1=!singlespace $pw1
32
pw1=!singlespace $pw1
33
pw2=!singlespace $pw2
33
pw2=!singlespace $pw2
34
 
34
 
35
!if $job=none or ($old=$empty and $job notwordof class part) or\
35
!if $job=none or ($old=$empty and $job notwordof class part) or\
36
 ($pw1=$empty or $pw2=$empty)
36
    ($pw1=$empty or $pw2=$empty)
37
 !exit
37
  !exit
38
!endif
38
!endif
39
 
39
 
40
!if $pw1!=$pw2
40
!if $pw1!=$pw2
41
 error=discord
41
  error=discord
42
 !exit
42
  !exit
43
!endif
43
!endif
44
 
44
 
45
pw=!char 1 of $pw1
45
pw=!char 1 of $pw1
46
!if $pw=+ and $job=user
46
!if $pw=+ and $job=user
47
 pw1=!char 2 to -1 of $pw1
47
  pw1=!char 2 to -1 of $pw1
48
 pw1=!trim $pw1
48
  pw1=!trim $pw1
49
 once=true
49
  once=true
50
!endif
50
!endif
51
t=!wordcnt $pw1
51
t=!wordcnt $pw1
52
!if $t>1 and $job!=user
52
!if $t>1 and $job!=user
53
 error=bad_pass
53
  error=bad_pass
54
 !exit
54
  !exit
55
!endif
55
!endif
56
 
56
 
57
n=!charcnt $pw1
57
n=!charcnt $pw1
58
!if $n>$max_addition
58
!if $n>$max_addition
59
 error=too_long
-
 
60
 !exit
-
 
61
!endif
-
 
62
!for i=1 to $t
-
 
63
 pw=!word $i of $pw1
-
 
64
 n=!charcnt $pw
-
 
65
 !if $n>$passwd_max
-
 
66
  error=too_long
59
  error=too_long
67
  !exit
60
  !exit
-
 
61
!endif
-
 
62
!for i=1 to $t
-
 
63
  pw=!word $i of $pw1
-
 
64
  n=!charcnt $pw
-
 
65
  !if $n>$passwd_max
-
 
66
    error=too_long
-
 
67
    !exit
68
 !endif
68
  !endif
69
 !if $n>0 and $n<$passwd_min
69
  !if $n>0 and $n<$passwd_min
70
  error=too_short
70
    error=too_short
71
  !exit
71
    !exit
72
 !endif
72
  !endif
73
 !if $once!=true and $pw=$old
73
  !if $once!=true and $pw=$old
74
  error=nothing_to_do
74
    error=nothing_to_do
75
  !exit
75
    !exit
76
 !endif
76
  !endif
77
 test=!text select $char_passwd in $pw
77
  test=!text select $char_passwd in $pw
78
 !if $test!=$pw
78
  !if $test!=$pw
79
   error=bad_pass
79
    error=bad_pass
80
   !exit
80
    !exit
81
 !endif
81
  !endif
82
!next i
82
!next i
83
 
83
 
84
!if $job=part
84
!if $job=part
85
 !read adm/class/userdef classes,$wims_class,$part
85
  !read adm/class/userdef classes,$wims_class,$part
86
 !defread $userdef
86
  !defread $userdef
87
 !if $user_exists!=yes
87
  !if $user_exists!=yes
88
  error=bad_user
88
    error=bad_user
-
 
89
    !exit
-
 
90
  !endif
-
 
91
  pw1=!passcrypt $pw1
-
 
92
  !setdef !set user_password=$pw1 in $userdef
-
 
93
  pass=!getdef user_password in $userdef
-
 
94
  !if $pass=$pw1
-
 
95
    error=success
-
 
96
    wims_module_log=Change participant password: $part by $wims_realuser in $wims_class
-
 
97
    wims_class_log=change password: $part by $wims_realuser
-
 
98
  !else
-
 
99
    error=fail
-
 
100
  !endif
-
 
101
  !exit
-
 
102
!endif
-
 
103
 
-
 
104
!if $job=user
-
 
105
  !read adm/class/userdef classes,$wims_class,$wims_user
-
 
106
  !if $wims_user=supervisor
-
 
107
    !read var.auth
-
 
108
    !if $error!=$empty
-
 
109
      !exit
-
 
110
    !endif
-
 
111
  !endif
-
 
112
  !defread $userdef
-
 
113
  anc=!word 1 of $user_password
-
 
114
  anc=!passcrypt $anc
-
 
115
  old=!passcrypt $old
-
 
116
  !if $old!=$anc
-
 
117
    error=bad_user_password
-
 
118
    !exit
-
 
119
  !endif
-
 
120
  !if $once=true
-
 
121
    pw1=$anc $pw1
-
 
122
  !endif
-
 
123
  pw1=!passcrypt $pw1
-
 
124
  !setdef !set user_password=$pw1 in $userdef
-
 
125
  pass=!getdef user_password in $userdef
-
 
126
  !if $pass=$pw1
-
 
127
    error=success
-
 
128
    wims_module_log=Change user password: $wims_user $wims_realuser in $wims_class
-
 
129
    !if $wims_user=supervisor
-
 
130
      wims_class_log=change password by $wims_realuser
-
 
131
      !read lang/mail.proc.$moduclass_lang
-
 
132
    !endif
-
 
133
  !else
-
 
134
    error=fail
-
 
135
  !endif
89
  !exit
136
  !exit
90
 !endif
-
 
91
 pw1=!passcrypt $pw1
-
 
92
 !setdef !set user_password=$pw1 in $userdef
-
 
93
 pass=!getdef user_password in $userdef
-
 
94
 !if $pass=$pw1
-
 
95
  error=success
-
 
96
  wims_module_log=Change participant password: $part by $wims_realuser in $wims_class
-
 
97
  wims_class_log=change password: $part by $wims_realuser
-
 
98
 !else
-
 
99
  error=fail
-
 
100
 !endif
-
 
101
 !exit
-
 
102
!endif
137
!endif
103
 
138
 
104
!if $job=user
139
!if $job=class
105
 !read adm/class/userdef classes,$wims_class,$wims_user
140
  !if $wims_user!=supervisor
106
 !if $wims_user=supervisor
141
    error=not_supervisor
-
 
142
    !exit
-
 
143
  !endif
107
  !read var.auth
144
  !read var.auth
108
  !if $error!=$empty
145
  !if $error!=$empty
109
   !exit
146
    !exit
110
  !endif
147
  !endif
111
 !endif
-
 
112
 !defread $userdef
-
 
113
 anc=!word 1 of $user_password
-
 
114
 anc=!passcrypt $anc
-
 
115
 old=!passcrypt $old
-
 
116
 !if $old!=$anc
-
 
117
  error=bad_user_password
-
 
118
  !exit
-
 
119
 !endif
-
 
120
 !if $once=true
-
 
121
  pw1=$anc $pw1
-
 
122
 !endif
-
 
123
 pw1=!passcrypt $pw1
-
 
124
 !setdef !set user_password=$pw1 in $userdef
148
  !setdef !set class_password=$pw1 in wimshome/log/classes/$wims_class/.def
125
 pass=!getdef user_password in $userdef
149
  class_pass=!getdef class_password in wimshome/log/classes/$wims_class/.def
126
 !if $pass=$pw1
150
  !if $class_pass=$pw1
127
  error=success
151
    error=success
128
  wims_module_log=Change user password: $wims_user $wims_realuser in $wims_class
152
    wims_module_log=Change class password $wims_class by $wims_realuser in $wims_class.
129
  !if $wims_user=supervisor
-
 
130
   wims_class_log=change password by $wims_realuser
153
    wims_class_log=change class password by $wims_realuser
-
 
154
  !else
131
   !read lang/mail.proc.$moduclass_lang
155
    error=fail
132
  !endif
156
  !endif
133
 !else
-
 
134
  error=fail
-
 
135
 !endif
-
 
136
 !exit
-
 
137
!endif
157
!endif
138
 
-
 
139
!if $job=class
-
 
140
 !if $wims_user!=supervisor
-
 
141
  error=not_supervisor
-
 
142
  !exit
-
 
143
 !endif
-
 
144
 !read var.auth
-
 
145
 !if $error!=$empty
-
 
146
  !exit
-
 
147
 !endif
-
 
148
 !setdef !set class_password=$pw1 in wimshome/log/classes/$wims_class/.def
-
 
149
 class_pass=!getdef class_password in wimshome/log/classes/$wims_class/.def
-
 
150
 !if $class_pass=$pw1
-
 
151
  error=success
-
 
152
  wims_module_log=Change class password $wims_class by $wims_realuser in $wims_class.
-
 
153
  wims_class_log=change class password by $wims_realuser
-
 
154
 !else
-
 
155
  error=fail
-
 
156
 !endif
-
 
157
!endif
-
 
158
 
-