Subversion Repositories wimsdev

Rev

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

Rev 5417 Rev 5775
Line 21... Line 21...
21 
   response=!sh export wims_exec_parm="$cas_auth/validate?ticket=$ticket&service=$script_out" ;\
 21 
   response=!sh export wims_exec_parm="$cas_auth/validate?ticket=$ticket&service=$script_out" ;\
22 
      bin/webget > $tmpdir/getcas ; gunzip -c -f $tmpdir/getcas
 22 
      bin/webget > $tmpdir/getcas ; gunzip -c -f $tmpdir/getcas
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_test=OK
 27 
      auth_test=OK
27 
   !endif
 28 
   !endif
28 
!endif
 29 
!endif
29 
auth_user_orig=$auth_user
 30 
auth_user_orig=$auth_user
30 
auth_error=$wims_exec_error
 31 
auth_error=$wims_exec_error