Subversion Repositories wimsdev

Rev

Rev 5775 | Rev 12190 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5775 Rev 8429
Line 10... Line 10...
10 
 
 10 
 
11 
ticket = !replace internal & by $\
 11 
ticket = !replace internal & by $\
12 
$ in $module_init_parm
 12 
$ in $module_init_parm
13 
module_init_parm=!replace &ticket=.* by in $module_init_parm
 13 
module_init_parm=!replace &ticket=.* by in $module_init_parm
14 
type= !getopt type in $ticket
 14 
type= !getopt type in $ticket
15 
ticket = !getopt ticket in $ticket
15 
ticket = !getopt ticket in $ticket
16 
!if $ticket != $empty
 16 
!if $ticket != $empty
17 
   url = $wims_ref_name?module=adm/class/classes&$module_init_parm
 17 
   url = $wims_ref_name?module=adm/class/classes&$module_init_parm
18 
   !read adm/codeurl $url
 18 
   !read adm/codeurl $url
19 
   !!response = !exec webget $cas_auth/validate?ticket=$ticket&service=$script_out
 19 
   !!response = !exec webget $cas_auth/validate?ticket=$ticket&service=$script_out
20 
   tmpdir=$wims_home/tmp/sessions/$wims_session
 20 
   tmpdir=$wims_home/tmp/sessions/$wims_session
Line 23... Line 23...
23 
   test2 = !line 1 of $response
 23 
   test2 = !line 1 of $response
24 
   !if $test2 = yes
 24 
   !if $test2 = yes
25 
      auth_user=!line 2 of $response
 25 
      auth_user=!line 2 of $response
26 
      auth_user=!lowercase $auth_user
 26 
      auth_user=!lowercase $auth_user
27 
      auth_test=OK
 27 
      auth_test=OK
- 
 
 28 
   !else
- 
 
 29 
      !if authenticationFailure notin $response
- 
 
 30 
!!! answer to serviceValidate (xml)
- 
 
 31 
        !set auth_user=!detag $response
- 
 
 32 
        !set auth_user=!nonempty lines $auth_user
- 
 
 33 
        !set auth_user=!line 1 of  $auth_user
- 
 
 34 
        !set auth_user=!nospace $auth_user
- 
 
 35 
        !set auth_user=!lowercase $auth_user
- 
 
 36 
        !set auth_test=OK
- 
 
 37 
      !else
- 
 
 38 
        error=bad_cas_connexion
- 
 
 39 
        !exit
- 
 
 40 
      !endif
28 
   !endif
 41 
   !endif
29 
!endif
 42 
!endif
30 
auth_user_orig=$auth_user
 43 
auth_user_orig=$auth_user
31 
auth_error=$wims_exec_error
 44 
auth_error=$wims_exec_error
32 
wims_exec_error=
 45 
wims_exec_error=
33 
 
 - 
 
34 
!!serviceValidate
 -