Index: cspBasis/Library.mac.rou =================================================================== diff -u -r96 -r100 --- cspBasis/Library.mac.rou (.../Library.mac.rou) (revision 96) +++ cspBasis/Library.mac.rou (.../Library.mac.rou) (revision 100) @@ -37,6 +37,15 @@ ;Set %response.ServerSideRedirect=RedirURL Quit +RedirectSpamRobots(IPAdres) + Set RedirectSpamRobots=(IPAdres?1(1"87.249.110.180")) ; IP-addresses worden manueel onderhouden door WimV (last modified on 16/11/2011) + If RedirectSpamRobots { + Do %response.Reset() + Set %response.Status="400 Bad Request" + } + Quit RedirectSpamRobots + + SesDataFromRq(SesKey,RqKey,DflVal) Set RqKey=$G(RqKey,SesKey) Quit $$SetSesData^cspBasis.Library($Name(%session.Data(SesKey)),$Name(%request.Data(RqKey,1)),.DflVal)