Subversion Repositories wimsdev

Rev

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

Rev 12190 Rev 12191
Line 14... Line 14...
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
 - 
 
20 
  tmpdir=$wims_home/tmp/sessions/$wims_session
 19 
  tmpdir=$wims_home/tmp/sessions/$wims_session
21 
  response=!sh export wims_exec_parm="$cas_auth/validate?ticket=$ticket&service=$script_out" ;\
 20 
  response=!sh export wims_exec_parm="$cas_auth/validate?ticket=$ticket&service=$script_out" ;\
22 
      bin/webget > $tmpdir/getcas ; gunzip -c -f $tmpdir/getcas
 21 
      bin/webget > $tmpdir/getcas ; gunzip -c -f $tmpdir/getcas
23 
  test2 = !line 1 of $response
 22 
  test2 = !line 1 of $response
24 
  !if $test2 = yes
 23 
  !if $test2 = yes
25 
    auth_user=!line 2 of $response
 24 
    auth_user=!line 2 of $response
26 
    auth_user=!lowercase $auth_user
 25 
    auth_user=!lowercase $auth_user
27 
    auth_test=OK
 26 
    auth_test=OK
28 
  !else
 27 
  !else
- 
 
 28 
    response=!sh export wims_exec_parm="$cas_auth/serviceValidate?ticket=$ticket&service=$script_out" ;\
- 
 
 29 
    bin/webget > $tmpdir/getcas ; gunzip -c -f $tmpdir/getcas
29 
    !if authenticationFailure notin $response
 30 
    !if authenticationFailure notin $response
30 
!!! answer to serviceValidate (xml)
 31 
!!! answer to serviceValidate (xml)
31 
    !set auth_user=!detag $response
 32 
      !set auth_user=!detag $response
32 
      !set auth_user=!nonempty lines $auth_user
 33 
      !set auth_user=!nonempty lines $auth_user
33 
      !set auth_user=!line 1 of  $auth_user
 34 
      !set auth_user=!line 1 of  $auth_user
34 
      !set auth_user=!nospace $auth_user
 35 
      !set auth_user=!nospace $auth_user
35 
      !set auth_user=!lowercase $auth_user
 36 
      !set auth_user=!lowercase $auth_user
36 
      !set auth_test=OK
 37 
      !set auth_test=OK