<% function in_array(domain,domainArray) for _,tempdomain in pairs(domainArray) do if tempdomain == domain then return true end end return false end function GetOwnDomainList() local xml = "" xml = xml.."\r\n" xml = xml.."\r\n" local id = 1 local domainArray = Split(_SESSION["admin_domainlist"],",") local bContinue = false for _,domain in pairs(c_GetDomainList()) do bContinue = false if _SESSION["admin_domainadmin"] == 1 and in_array(domain,domainArray) == false then bContinue = true end if bContinue == false then xml = xml.."\r\n" xml = xml.."" xml = xml..id xml = xml.."" xml = xml.."" xml = xml.."" xml = xml..c_GetSessionCount(domain) xml = xml.."" xml = xml.."" xml = xml..tostring(c_IsDomainOnline(domain)) xml = xml.."\r\n" xml = xml.."\r\n" id = id+1 end end xml = xml.."\r\n" return xml end if _SESSION["logined"] ~= nil then setContentType("text/xml; charset=UTF-8") local liststr = GetOwnDomainList() print(liststr) end %>