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 |