Subversion Repositories wimsdev

Rev

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

Rev 12191 Rev 12555
Line 26... Line 26...
26 
    auth_test=OK
 26 
    auth_test=OK
27 
  !else
 27 
  !else
28 
    response=!sh export wims_exec_parm="$cas_auth/serviceValidate?ticket=$ticket&service=$script_out" ;\
 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 
    bin/webget > $tmpdir/getcas ; gunzip -c -f $tmpdir/getcas
30 
    !if authenticationFailure notin $response
 30 
    !if authenticationFailure notin $response
31 
!!! answer to serviceValidate (xml)
 31 
      !!! answer to serviceValidate (xml)
32 
      !set auth_user=!detag $response
 32 
      !set auth_user=!detag $response
33 
      !set auth_user=!nonempty lines $auth_user
 33 
      !set auth_user=!nonempty lines $auth_user
34 
      !set auth_user=!line 1 of  $auth_user
 34 
      !set auth_user=!line 1 of  $auth_user
35 
      !set auth_user=!nospace $auth_user
 35 
      !set auth_user=!nospace $auth_user
36 
      !set auth_user=!lowercase $auth_user
 36 
      !set auth_user=!lowercase $auth_user