Subversion Repositories wimsdev

!!! 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'hôte répond ???