Subversion Repositories wimsdev

Rev

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 ???