Rev 5027 | Rev 5042 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 5027 | Rev 5028 | ||
---|---|---|---|
Line 2... | Line 2... | ||
2 | !!!INPUT = number of a class |
2 | !!!INPUT = number of a class |
3 | !!!OUTPUT= superclass, auth_method_list, aut_idp_method_list, auth_method, aut_idp_method, type_class |
3 | !!!OUTPUT= superclass, auth_method_list, aut_idp_method_list, auth_method, aut_idp_method, type_class |
4 | !if $wims_read_parm=$empty |
- | |
5 | !exit |
- | |
6 | !endif |
- | |
7 | 4 | ||
8 | !distribute items $wims_read_parm into class,option |
5 | !distribute items $wims_read_parm into class,option |
- | 6 | !set class=!text select 1234567890/ in $class |
|
- | 7 | !if $class=$empty |
|
- | 8 | !exit |
|
- | 9 | !endif |
|
- | 10 | ||
9 | !if $option=auth |
11 | !if $option=auth |
10 | !goto auth |
12 | !goto auth |
11 | !endif |
13 | !endif |
12 | 14 | ||
13 | !set superclass=!text remove . in $class |
15 | !set superclass=!text remove . in $class |
14 | !set superclass=!replace internal / by , in $superclass |
16 | !set superclass=!replace internal / by , in $superclass |
15 | !set superclass=$(superclass[1]) |
17 | !set superclass=$(superclass[1]) |
16 | 18 | ||
17 | :auth |
19 | :auth |
18 | !set ssclass=!text remove . in $class |
20 | !set ssclass=!text remove . in $class |
19 | !set ssclass=!replace internal / by , in $ssclass |
21 | !set ssclass=!replace internal / by , in $ssclass |
20 | !set ssclass=$(ssclass[1]) |
22 | !set ssclass=$(ssclass[1]) |
21 | !set type_class=!defof class_type in wimshome/log/classes/$class/.def |
23 | !set type_class=!defof class_type in wimshome/log/classes/$class/.def |
Line 24... | Line 26... | ||
24 | !set auth_method=!defof class_auth in wimshome/log/classes/$ssclass/.def |
26 | !set auth_method=!defof class_auth in wimshome/log/classes/$ssclass/.def |
25 | !set idp_method=!defof class_idp in wimshome/log/classes/$ssclass/.def |
27 | !set idp_method=!defof class_idp in wimshome/log/classes/$ssclass/.def |
26 | !set class_auth=$auth_method |
28 | !set class_auth=$auth_method |
27 | !bound auth_method within $auth_method_list default $ |
29 | !bound auth_method within $auth_method_list default $ |
28 | !bound idp_method within $idp_method_list default $ |
30 | !bound idp_method within $idp_method_list default $ |
- | 31 | ||
- | 32 | !!FIXME tester si l'hôte répond ??? |