update for tokens

This commit is contained in:
george 2011-01-06 22:23:53 +00:00
parent c0531287c4
commit e4c0e0fd48
1 changed files with 2 additions and 1 deletions

View File

@ -40,10 +40,11 @@ GET(ZRTN,ZTOKEN,NOKILL) ; RETRIEVE A STORED ARRAY INDEXED BY ZTOKEN
Q
;
URLTOKEN(sessid) ; EXTRINSIC WHICH RETRIEVES THE TOKEN PASSED ON THE URL
; IN EWD EXAMPLE: https://example.com/ewd/myApp/index.ewd&token="12345"
; IN EWD EXAMPLE: https://example.com/ewd/myApp/index.ewd?token="12345"
N token
S token=""
s token=$$getRequestValue^%zewdAPI("token",sessid)
s token=$tr(token,"""") ; strip out quotes
Q token
;
cbTestMethod(prefix,seedValue,lastSeedValue,optionNo,options)