Subversion Repositories wimsdev

Rev

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

Rev 5034 Rev 5045
Line 42... Line 42...
42 
!! !endif
 42 
!! !endif
43 
!endif
 43 
!endif
44 
##### end of EXTERNAL connection - part 1 #####
 44 
##### end of EXTERNAL connection - part 1 #####
45 
# now we can run the script
 45 
# now we can run the script
46 
!if $auth_method isitemof $auth_method_list and $auth_user!=supervisor
 46 
!if $auth_method isitemof $auth_method_list and $auth_user!=supervisor
47 
  FIXME regarder aussi dans .teacherlist_external
 - 
 
48 
  auth_user=!lookup $auth_user_orig in wimshome/log/classes/$superclass/.userlist_external
 47 
  auth_user=!lookup $auth_user_orig in wimshome/log/classes/$superclass/.userlist_external
49 
  !if $auth_user=$empty
 48 
  !if $auth_user=$empty
50 
    auth_user=!lookup $auth_user_orig in wimshome/log/classes/$superclass/.teacherlist_external
 49 
    auth_user=!lookup $auth_user_orig in wimshome/log/classes/$superclass/.teacherlist_external
51 
  !endif
 50 
  !endif
52 
!endif
 51 
!endif
Line 114... Line 113...
114 
##### end of final test of external connection #####
 113 
##### end of final test of external connection #####
115 
:wimsauth
 114 
:wimsauth
116 
 
 115 
 
117 
pass=!passcrypt $pass
 116 
pass=!passcrypt $pass
118 
!if $pass=$empty
 117 
!if $pass=$empty
- 
 
 118 
  !if $auth_user_orig=$empty
- 
 
 119 
    !exit
- 
 
 120 
  !endif
119 
 passwd=????
 121 
 passwd=????
120 
 !appendfile $logfile $logline
 122 
 !appendfile $logfile $logline
121 
 auth_user=$auth_user_orig
 123 
 auth_user=$auth_user_orig
122 
 error=bad_password
 124 
 error=bad_password
123 
 !exit
 125 
 !exit
Line 136... Line 138...
136 
	($auth_user=$wims_user and $class isitemof $wims_participate) or \
 138 
	($auth_user=$wims_user and $class isitemof $wims_participate) or \
137 
	($auth_user=supervisor and $wims_user=supervisor and \
 139 
	($auth_user=supervisor and $wims_user=supervisor and \
138 
		(../$wims_class/ isin ../$class/ or $superclass=$wims_class)) or \
 140 
		(../$wims_class/ isin ../$class/ or $superclass=$wims_class)) or \
139 
	($auth_user=supervisor and $class isitemof $wims_supervise)
 141 
	($auth_user=supervisor and $class isitemof $wims_supervise)
140 
 !goto auth_ok
 142 
 !goto auth_ok
141 
!endif
 143 
!endif
142 
 
 144 
 
143 
!if $auth_password=$empty
 145 
!if $auth_password=$empty
144 
 !exit
 146 
 !exit
145 
!endif
 147 
!endif
146 
 
 148 
 
147 
!read adm/class/authdelay
 149 
!read adm/class/authdelay
148 
!if $auth_password notwordof $pass
 150 
!if $auth_password notwordof $pass
- 
 
 151 
  !if $auth_user_orig=$empty and $auth_password=$empty
- 
 
 152 
    !exit
- 
 
 153 
  !endif
149 
 passwd=??????
 154 
 passwd=??????
150 
 !appendfile $logfile $logline
 155 
 !appendfile $logfile $logline
151 
 auth_user=$auth_user_orig
 156 
 auth_user=$auth_user_orig
152 
 error=bad_password
 157 
 error=bad_password
153 
 !exit
 158 
 !exit