Subversion Repositories wimsdev

Rev

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

Rev 20 Rev 10469
Line 1... Line 1...
1 
# Add a level under the current superclass.
 1 
# Add a level under the current gateway.
2 
# Calling parameter: supervisor_account,title,...
 2 
# Calling parameter: supervisor_account,title,...
3 
 
 3 
 
4 
!if $wims_superclass=$empty or $wims_user!=supervisor or \
 4 
!if $wims_superclass=$empty or $wims_user!=supervisor or \
5 
	$wims_class!=$wims_superclass
 5 
	$wims_class!=$wims_superclass
6 
 !exit
 6 
 !exit
Line 20... Line 20...
20 
!if $newlevels=$empty or $avcnt<$newcnt
 20 
!if $newlevels=$empty or $avcnt<$newcnt
21 
 error=level_full
 21 
 error=level_full
22 
 !exit
 22 
 !exit
23 
!endif
 23 
!endif
24 
 
 24 
 
- 
 
 25 
 
- 
 
 26 
!! no superivor password needed in a gateway for level (auth by useraccount)
25 
!if $passs!=$empty
 27 
!!!if $passs!=$empty
26 
 passs=!text select $char_passwd in $passs
 28 
!! passs=!text select $char_passwd in $passs
27 
 passlen=!charcnt $passs
 29 
!! passlen=!charcnt $passs
28 
 !if $passlen<$passwd_min or $passlen>$passwd_max or $passs != $passs2
 30 
!! !if $passlen<$passwd_min or $passlen>$passwd_max or $passs != $passs2
29 
  error=bad_password
 31 
!!  error=bad_password
30 
  !exit
 32 
!!  !exit
31 
 !endif
 33 
!! !endif
32 
!else
 34 
!!!else
33 
 passs=!defof user_password in wimshome/log/classes/$wims_superclass/supervisor
 35 
!! passs=!defof user_password in wimshome/log/classes/$wims_superclass/supervisor
34 
!endif
 36 
!!!endif
35 
 
 37 
 
36 
1=!defof user_exists in $userdir/$s_
 38 
1=!defof user_exists in $userdir/$s_
37 
ac_su_list=
 39 
ac_su_list=
38 
sup_save=$s_
 40 
sup_save=$s_
39 
!if $1!=yes
 41 
!if $1!=yes
Line 48... Line 50...
48 
 !endif
 50 
 !endif
49 
 ac_su_level=yes
 51 
 ac_su_level=yes
50 
!endif
 52 
!endif
51 
!read adm/class/userdef classes,$wims_superclass,$s_
 53 
!read adm/class/userdef classes,$wims_superclass,$s_
52 
cadd_Supervisor=$s_
 54 
cadd_Supervisor=$s_
- 
 
 55 
!debug tmp=!defof user_firstname,user_lastname,user_email,user_password in $userdef
- 
 
 56 
!distribute item $tmp into sadd_firstname,sadd_lastname,sadd_email,sadd_password
53 
sadd_firstname=!defof user_firstname in $userdef
 57 
!!sadd_firstname=!defof user_firstname in $userdef
54 
sadd_lastname=!defof user_lastname in $userdef
 58 
!!sadd_lastname=!defof user_lastname in $userdef
55 
sadd_email=!defof user_email in $userdef
 59 
!!sadd_email=!defof user_email in $userdef
- 
 
 60 
!!sadd_password=$passs
- 
 
 61 
 
56 
cadd_email=$sadd_email
 62 
cadd_email=$sadd_email
57 
cadd_level=$alevel
 63 
cadd_level=$alevel
58 
cadd_password=
 64 
!!cadd_password=
59 
sadd_password=$passs
 - 
 
60 
cadd_secure=$sechost
 65 
cadd_secure=$sechost
61 
cadd_superclass=$wims_superclass
 66 
cadd_superclass=$wims_superclass
62 
cadd_parent=$wims_superclass
 67 
cadd_parent=$wims_superclass
63 
cadd_type=3
 68 
cadd_type=3
64 
cadd_typename=level
 69 
cadd_typename=level