Subversion Repositories wimsdev

Rev

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 
	$wims_class/ notin $wims_superclass/$ac_prog/ $wims_superclass/$ac_class/
 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 
	exo,sheet,exam,doc,vote,livret,seq
 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 
	rm -f .userlist\
 125 
  rm -f .userlist\
126 
	ln -s ../.userlist .
 126 
  ln -s ../.userlist .
127 
!endif
 127 
!endif
128 
 
 128