Rev 5060 | Rev 5070 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
5013 | bpr | 1 | !!! init some parameters of a class |
2 | !!!INPUT = number of a class |
||
5019 | bpr | 3 | !!!OUTPUT= superclass, auth_method_list, aut_idp_method_list, auth_method, aut_idp_method, type_class |
5028 | bpr | 4 | |
5 | !distribute items $wims_read_parm into class,option |
||
6 | !set class=!text select 1234567890/ in $class |
||
7 | !if $class=$empty |
||
5013 | bpr | 8 | !exit |
9 | !endif |
||
5015 | bpr | 10 | |
5027 | bpr | 11 | !if $option=auth |
12 | !goto auth |
||
13 | !endif |
||
14 | |||
5013 | bpr | 15 | !set superclass=!text remove . in $class |
16 | !set superclass=!replace internal / by , in $superclass |
||
17 | !set superclass=$(superclass[1]) |
||
18 | |||
5027 | bpr | 19 | :auth |
5069 | bpr | 20 | !reset host_auth |
21 | !!FIXME should be in wims.conf |
||
22 | !set auth_method_list=ldap,cas,php |
||
23 | !set idp_method_list=ldap,php |
||
24 | |||
5027 | bpr | 25 | !set ssclass=!text remove . in $class |
26 | !set ssclass=!replace internal / by , in $ssclass |
||
27 | !set ssclass=$(ssclass[1]) |
||
28 | !set type_class=!defof class_type in wimshome/log/classes/$class/.def |
||
5069 | bpr | 29 | |
30 | !set authidp_method=!defof class_authidp in wimshome/log/classes/$ssclass/.def |
||
31 | !set auth_method=$(authidp_method[1;]) |
||
32 | !set idp_method =$(authidp_method[2;]) |
||
5013 | bpr | 33 | !bound auth_method within $auth_method_list default $ |
34 | !bound idp_method within $idp_method_list default $ |
||
5042 | bpr | 35 | !set class_auth=$auth_method |
5060 | bpr | 36 | !!!FIXME : change the name ($ldap_auth in another place) |
5042 | bpr | 37 | !set host_auth=!defof class_$(auth_method)_auth in wimshome/log/classes/$ssclass/.def |
5060 | bpr | 38 | !default authdef=wimshome/log/classes/$ssclass/.def |
5042 | bpr | 39 | !!FIXME tester si l'hôte répond ??? |