Rev 12981 | Rev 15485 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 12981 | Rev 14336 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | 1 | ||
2 | !if $wims_superclass=$empty or $wims_user!=supervisor or $wims_read_parm=$empty |
2 | !if $wims_superclass=$empty or $wims_user!=supervisor or $wims_read_parm=$empty |
3 | !exit |
3 | !exit |
4 | !endif |
4 | !endif |
5 | 5 | ||
6 | !distribute item $wims_read_parm into ac_prog, ac_class |
6 | !distribute item $wims_read_parm into ac_prog, ac_class |
7 | !if $ac_prog= or $ac_class= or \ |
7 | !if $ac_prog= or $ac_class= or \ |
8 |
|
8 | $wims_class/ notin $wims_superclass/$ac_prog/ $wims_superclass/$ac_class/ |
9 | !exit |
9 | !exit |
10 | !endif |
10 | !endif |
11 | ac_Level=$wims_superclass |
11 | ac_Level=$wims_superclass |
12 | ac_Level_=wimshome/log/classes/$ac_Level |
12 | ac_Level_=wimshome/log/classes/$ac_Level |
13 | ac_course=!translate internal / to , in $ac_prog |
13 | ac_course=!translate internal / to , in $ac_prog |
Line 45... | Line 45... | ||
45 | !endif |
45 | !endif |
46 | :recourse |
46 | :recourse |
47 | 47 | ||
48 | 1=!defof user_exists in $userdir/$sup_ |
48 | 1=!defof user_exists in $userdir/$sup_ |
49 | !if $1!=yes |
49 | !if $1!=yes |
50 | s_=supervisor |
50 | s_=supervisor |
51 | !else |
51 | !else |
52 | 1=!defof user_supervisable in $userdir/$sup_ |
52 | 1=!defof user_supervisable in $userdir/$sup_ |
53 | !if $1!=yes |
53 | !if $1!=yes |
54 | name=$sup_ |
54 | name=$sup_ |
55 | error=not_supervisable |
55 | error=not_supervisable |
56 | !exit |
56 | !exit |
57 | !endif |
57 | !endif |
58 | slist=!defof user_supervise in $userdir/$sup_ |
58 | slist=!defof user_supervise in $userdir/$sup_ |
59 | slist=!listunion $slist and $ac_Level/$ac_class/$ac_course |
59 | slist=!listunion $slist and $ac_Level/$ac_class/$ac_course |
60 | !setdef !set user_supervise=$slist in $userdir/$sup_ |
60 | !setdef !set user_supervise=$slist in $userdir/$sup_ |
61 | !endif |
61 | !endif |
62 | 62 | ||
63 | !readdef $ac_Level_/$ac_prog/.def |
63 | !readdef $ac_Level_/$ac_prog/.def |
64 | cadd_dc=!defof class_description in $ac_Level_/$ac_class/.def |
64 | cadd_dc=!defof class_description in $ac_Level_/$ac_class/.def |
65 | cadd_dc=!word 1 of $cadd_dc |
65 | cadd_dc=!word 1 of $cadd_dc |
66 | !for t in supervisor Supervisor, email, password, expiration, level |
66 | !for t in supervisor Supervisor, email, password, expiration, level |
67 | cadd_$t=$(class_$t) |
67 | cadd_$t=$(class_$t) |
68 | !next t |
68 | !next t |
69 | cadd_secure=$sechost |
69 | cadd_secure=$sechost |
70 | !default cadd_secure=$class_secure |
70 | !default cadd_secure=$class_secure |
71 | cadd_description=$cadd_dc-$class_description |
71 | cadd_description=$cadd_dc-$class_description |
72 | !if $ac_tt!=$empty |
72 | !if $ac_tt!=$empty |
73 | cadd_description=$cadd_description-$ac_tt |
73 | cadd_description=$cadd_description-$ac_tt |
74 | !endif |
74 | !endif |
75 | class_password= |
75 | class_password= |
76 | cadd_password= |
76 | cadd_password= |
77 | cadd_superclass=$wims_superclass |
77 | cadd_superclass=$wims_superclass |
78 | cadd_parent=$wims_superclass/$ac_class |
78 | cadd_parent=$wims_superclass/$ac_class |
79 | cadd_type=1 |
79 | cadd_type=1 |
80 | cadd_typename=course |
80 | cadd_typename=course |
81 | !readdef $ac_Level_/$ac_prog/supervisor |
81 | !readdef $ac_Level_/$ac_prog/supervisor |
82 | !for t in lastname, firstname, password, email |
82 | !for t in lastname, firstname, password, email |
83 | sadd_$t=$(user_$t) |
83 | sadd_$t=$(user_$t) |
84 | !next t |
84 | !next t |
85 | 85 | ||
86 | !if $passs!=$empty |
86 | !if $passs!=$empty |
87 | c=!char 1 of $passs |
87 | c=!char 1 of $passs |
88 | !if $c=* |
88 | !if $c=* |
89 | passs=!text select */$char_passwd in $passs |
89 | passs=!text select */$char_passwd in $passs |
90 | !else |
90 | !else |
91 | passs=!text select $char_passwd in $passs |
91 | passs=!text select $char_passwd in $passs |
92 | !endif |
92 | !endif |
93 | passlen=!charcnt $passs |
93 | passlen=!charcnt $passs |
94 | !if $passlen<$passwd_min or $passlen>$passwd_max or $passs != $passs2 |
94 | !if $passlen<$passwd_min or $passlen>$passwd_max or $passs != $passs2 |
95 | error=bad_password |
95 | error=bad_password |
96 | !exit |
96 | !exit |
97 | !endif |
97 | !endif |
98 | sadd_password=$passs |
98 | sadd_password=$passs |
99 | !endif |
99 | !endif |
100 | 100 | ||
101 | !read adm/class/addclass $ac_Level/$ac_class/$ac_course |
101 | !read adm/class/addclass $ac_Level/$ac_class/$ac_course |
102 | 102 | ||
103 | !setdef n_part=$ac_Level/$ac_class\ |
103 | !setdef n_part=$ac_Level/$ac_class\ |
Line 112... | Line 112... | ||
112 | 112 | ||
113 | n_sup=!defof n_sup in $ac_Level_/$ac_prog/neighbors |
113 | n_sup=!defof n_sup in $ac_Level_/$ac_prog/neighbors |
114 | n_sup=!listunion $n_sup and $ac_Level/$ac_class/$ac_course |
114 | n_sup=!listunion $n_sup and $ac_Level/$ac_class/$ac_course |
115 | !setdef n_sup=$n_sup in $ac_Level_/$ac_prog/neighbors |
115 | !setdef n_sup=$n_sup in $ac_Level_/$ac_prog/neighbors |
116 | !read adm/class/addshare $ac_Level/$ac_prog, $ac_Level/$ac_class/$ac_course\ |
116 | !read adm/class/addshare $ac_Level/$ac_prog, $ac_Level/$ac_class/$ac_course\ |
117 |
|
117 | exo,sheet,exam,doc,vote,livret,seq |
118 | 118 | ||
119 | ac_style=!defof class_progstyle in $ac_Level_/$ac_prog/.def |
119 | ac_style=!defof class_progstyle in $ac_Level_/$ac_prog/.def |
120 | !if mandatory iswordof $ac_style |
120 | !if mandatory iswordof $ac_style |
121 | ocourses=!defof class_ocourses in $ac_Level_/$ac_class/.def |
121 | ocourses=!defof class_ocourses in $ac_Level_/$ac_class/.def |
122 | ocourses=!listunion $ocourses and $ac_class/$ac_course |
122 | ocourses=!listunion $ocourses and $ac_class/$ac_course |
123 | !setdef !set class_ocourses=$ocourses in $ac_Level_/$ac_class/.def |
123 | !setdef !set class_ocourses=$ocourses in $ac_Level_/$ac_class/.def |
124 | !sh cd $wims_home/log/classes/$ac_Level/$ac_class/$ac_course\ |
124 | !sh cd $wims_home/log/classes/$ac_Level/$ac_class/$ac_course\ |
125 |
|
125 | rm -f .userlist\ |
126 |
|
126 | ln -s ../.userlist . |
127 | !endif |
127 | !endif |
128 | 128 |