User vhLib.Macro,ErrorVHCNTs cache 0 %CSP.Page Externe gebruikers kunnen csp pagina's enkel via www ophalen en niet via cache01 rechstreeks Deze csp pagina op www is een doorgeefluik van csp pagina's op cache01 bijv op 01: http://cache01/csp/Admin1/test.csp is gelijk aan op www: http://res.vanhoecke.be/csp/Admin1/getpage.csp?code=gnlfksdùo4gdf325sdgdfhkjfsqdmfsdklfqmsdlgjfdklg de code is verkregen adhv EncryptURL("csp/Admin1/test.csp"), een class method omschreven in deze class (de code is dit voorbeeld wel verzonnen) LET WEL: Admin1 werd met hoofdletter geschreven !!!!! Dit lijkt belangrijk te zijn voor het onderhouden van het licentieverbruiken adhv sessieskeys vhgetpage ========================================================================================================================================================= 1 lbErrTypes ",$LB($$$EmailTo),"CSP - Error - "_$ZDT($H,4),"§DFL_HTML§",,1) Set %cspEHandler($$$etPageLoadError,"ACTIONS","ErrPage")=$LB("%CSP.Error","OnPage") ; $LB("","OnPageMinimum") Quit ]]> ========================================================================================================================================================= 1 %Status CSPSESSIONID=00110001000118ccy9h9000770789346; path=/csp/Admin1/; . ;00110001000118ccy9h9000770789346 is hetgeen we nodig hebben, vissen we uit de string op ahdv een between macro . Set HttpReqGetSessionId=$$$TextBetween($G(HTTPReq.HttpResponse.Headers("SET-COOKIE")),"CSPSESSIONID=",";") . Set:(HttpReqGetSessionId'="") %session.Data("HttpReqGetSessionId")=HttpReqGetSessionId Quit HTTPReq.HttpResponse.Data.OutputToDevice() ]]> ========================================================================================================================================================= 1 URL:%String %String