1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
!!! init some parameters of a class
!!!INPUT = number of a class
!!!OUTPUT= superclass, auth_method_list, aut_idp_method_list, auth_method,
!!! aut_idp_method, type_class, theme_class, regvars_class
!distribute items $wims_read_parm into pclass,option
!set pclass=!text select 1234567890/ in $pclass
!if $pclass=$empty
!exit
!endif
!if $option=auth
!goto auth
!endif
!set superclass=!text remove . in $pclass
!set superclass=!replace internal / by , in $superclass
!set superclass=$(superclass[1])
:auth
!reset host_auth
!!FIXME should be in wims.conf
!set auth_method_list=ldap,cas,php
!set idp_method_list=ldap,php
!! idp method used for someone else than the user so without identification before
!set idp_method_list2=ldap
!set ssclass=!text remove . in $pclass
!set ssclass=!replace internal / by , in $ssclass
!set ssclass=$(ssclass[1])
!set type_class=!defof class_type in wimshome/log/classes/$pclass/.def
!set theme_class=!defof class_theme in wimshome/log/classes/$pclass/.def
!set regvars_class=!defof class_regvars in wimshome/log/classes/$ssclass/.def
!set authidp_method=!defof class_authidp in wimshome/log/classes/$ssclass/.def
!set class_authidp=$authidp_method
!set auth_method=$(authidp_method[1;])
!set idp_method =$(authidp_method[2;])
!set idp_method2=!listintersect $idp_method and $idp_method_list2
!bound auth_method within $auth_method_list default $
!bound idp_method within $idp_method_list default $
!set class_auth=$auth_method
!!!FIXME : change the name ($ldap_auth in another place)
!set host_auth=!defof class_$(auth_method)_auth in wimshome/log/classes/$ssclass/.def
!default authdef=wimshome/log/classes/$ssclass/.def
!!FIXME tester si l'hte rpond ???
|
