User cache %CSP.Page,cspBasis.GAProdTBox 1 code lbErrTypes cache 1 code %Status 1 code %Boolean " Write !,$c(9)_"
",! Write $c(9) Write "" Write "ShowCookie.csp" Write "" Write !,$c(9)_"
",! Write $c(9) If '((Flow="REF") || (Flow="SUBMIT")) Goto %csp00001 ;{ Write !,$c(9) Write !,$c(9,9),! Write $c(9,9)_"
",!
     Write $c(9)_"URL IN       : "_($G(UrlIn)),!
     Write $c(9)_"REF          : "_($G(decRef)),!
     Write $c(9)_"URL Out      : "_($G(UrlOut)),!
     Write $c(9)_"URL Out Enc  : "_($G(UrlOutEnc)),!
     Write $c(9)_"URL Out Dec  : "_($G(UrlOutDec)),!
     Write !,$c(9)_"encPSW (TBX-PSW) : "_($G(encPSW)),!
     Write $c(9)_"PSW Dec          : "_($G(DPSW)),!
     Write $c(9)_"cookPSW (TBX-PSW): "_($G(cookPSW)),!
     Write !,$c(9)_"URL Redir    : "_($G(msgRedir)),!
     Write $c(9)_"LoginState   : "_($G(LoginState)),!
     Write $c(9),!
     Write $c(9)_"Domain       : "_($G(sDomain)),!
     Write $c(9)_"DomainCVTed  : "_($G(sDomCVT)),!
     Write $c(9)_"DomLU        : "_($$LCVT^vhLib($G(lbDomLU))),!
     Write !,$c(9)_"UserType     : "_($G(UserType)_" - "_$G(UserTypeTxt)),!
     Write $c(9,9)_"
",! Write !,$c(9,9) Set msgLogin=$S(LoginState="ASK_AGAIN":..WebTextValue("Foutief paswoord",Taal,"L")_". "_..WebTextValue("Probeer opnieuw",Taal,"L"), 1:..WebTextValue("Geef paswoord",Taal,"L")) Write !,$c(9,9) Write "
" Write !,$c(9,9) Write "
" Write !,..InsertHiddenFields("DecodeURL.csp"),! Write !,$c(9,9,9) Write "" Write !,$c(9,9,9) Write "" Write !,$c(9,9,9)_"",! Write $c(9,9)_" "_$c(9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9)_" "_$c(9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9)_"
",! Write $c(9,9,9,9,9,9) Write "
" Write "Login" Write "
" Write !,$c(9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9)_(msgLogin)_":
",! Write $c(9,9,9,9,9,9) Write "" Write !,$c(9,9,9,9,9)_"
",! Write $c(9,9,9,9,9,9) Write "" Write !,$c(9,9,9,9,9,9)_" ",! Write $c(9,9,9,9,9,9) Write "" Write $c(9,9,9,9,9,9),! Write $c(9,9,9,9,9)_"
",! Write $c(9,9) Write "
" Write !,$c(9,9) Write "" Write !,$c(9,9) Write "
" Write !,$c(9,9) Write "" Write !,!,$c(9,9)_"
",!
     Write $c(9)_"CSP:IF CONDITION='(LoginState=""NO"") || (LoginState=""OK"")' ",!
     Write $c(9,9)_"Deze URL wordt verwerkt ... ",!
     Write $c(9)_"CSP:ELSEIF CONDITION='($E(LoginState,1,3)=""ASK"")'",!
     Write $c(9,9)_"$$$ Show Login Form $$$",!
     Write $c(9)_"CSP:ELSEIF CONDITION='(LoginState=""TRY_LATER"")'",!
     Write $c(9,9)_"Unable to login. Try again later. You are not allowed to access this data. Contact administrator.",!
     Write $c(9)_"CSP:ELSE",!
     Write $c(9,9)_"Unknown status to log in. It may be possible that the URL is invalid.",!
     Write $c(9)_"/CSP:IF",!
     Write $c(9,9)_"
",! Write "" Write !,$c(9,9)_"

"_$c(9,9),! Write $c(9,9,9) Write !,"

",! Write " ",! Write "
",! Write !,"" Write !,$c(9,9)_"

",! Write $c(9,9),! Write $c(9) Goto %csp00002 ;} %csp00001 ;{ Write !,$c(9,9)_"This is not a valid URL.",! Write $c(9) %csp00002 ;} Write !,$c(9),! Write $c(9) Set %response.TraceDump=($G(%request.Data("DBG",1))'="" && $G(%request.Data("DBG",1))'="0") Write !,!,"" ]]> 1 code %Boolean 1 code %Boolean " Write !,$c(9)_"TBox Decode URL",! Write $c(9) Write "" Write !,$c(9) Write "" Write !,"" ]]> 1 code %Boolean " Write !,!,! Do ..Include("PRGACNTs.INC") Write ! Set %session.AppTimeout = 905 // Session Data is set in the OnPreHTTP-method /* Do TestSet^cspBasis.Library Do SesDataFromLocal^cspBasis.Library("TEST",.Loca,"X") Set Taal=$$SesDataFromRq^cspBasis.Library("Taal",,"N") */ Write !,!,!,!,!,! Do ..OnPageHEAD() Write ! Do ..OnPageBODY() Write !,"" ]]> 1 code cache %Boolean c:\cachesys\csp\vhisie\TBX\DecodeURL.csp /vhisie/TBX/DecodeURL.csp 0 61409,65144 0