User vhLib.Macro,ErrorVHCNTs cache %CSP.Page 0 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