%RegisteredObject,%XML.Adaptor 0 1 Site 1 Site 1 Site %List 1800 Do ... $$$SetSession(RS.Data("ID"),1) ... Set SessID=RS.Data("ID") ... $$$SetSessionID(RS.Data("ID"),SessID) .. Else Do ... $$$SetSession(RS.Data("ID"),0) ... $$$SetSessionID(RS.Data("ID"),SessID) .. Set OldSecs=NewSecs . Else Do .. $$$SetSession(RS.Data("ID"),1) .. Set SessID=RS.Data("ID") .. $$$SetSessionID(RS.Data("ID"),SessID) .. Set IP=RS.Data("IP") .. Set OldSecs=(RS.Data("Datum")*86400)+RS.Data("Tijd") Quit $LB(1) ]]> 1 IpAdres:%String %String "_FileName) /// Textfile uitlezen en naam van host uitlezen. Set TextFile=##class(%FileCharacterStream).%New(FileName) Do TextFile.LinkToFile(FileName) New FileLen,TextLine,HostName Set FileLen=TextFile.Size Set HostName="Onbekend" For Quit:TextFile.AtEnd Set TextLine=TextFile.ReadLine(FileLen) Do . If TextLine["Name:" Set HostName=$P(TextLine," ",2) Quit HostName ]]> Om statistieken te updaten Eerst worden de globals met statische gegevens verwijderd Daarna worden de gegevens bijgewerkt 1