Tiny Hublist, Программа для создания хаблистов

if f then
            local header,row,footer
            local f2 = io.open(path.."themes/"..tCfg.Theme..".tpl")
            if f2 then
                header,row,footer = f2:read("*a"):gsub("{SITENAME}",
                (tCfg.SiteName:gsub("%%","%%%%"))):match("(.*){ROW_BEGIN}(.*){ROW_END}(.*)")
                f2:close()
            end
            
            if header then
                f:write(header)
            end
            
            local even = false

local total_users_count,total_share_size=0,0
            local hubs_count,online_hubs_count = 0,0
            for _,hubid in ipairs(hubs) do
                total_users_count = total_users_count + (hubid.Info.Users or 0)
                total_share_size = total_share_size + (hubid.Info.Share or 0)
                hubs_count = hubs_count + 1
                online_hubs_count = online_hubs_count + (hubid.Info.Online and 1 or 0)
            end
            if header then
                f:write('<b>Краткая статистика:</b><br> '..
                    '<ul><li>Всего хабов: '..hubs_count..'</li>'..
                    '<li>Онлайн хабов: '..online_hubs_count..'</li>'..
                    '<li>Общее число юзеров на хабах сети: '..total_users_count..'</li>'..
                    '<li>Общий размер шары: '..FormatSize(tonumber(total_share_size),true)..'</li>'..
                    '<li>Обновление информации происходит один раз в час.</li>'..
                    '</ul><br><b>Список хабов:</b><br>')
            end

local total_users_count,total_share_size=0,0
            local hubs_count,online_hubs_count = 0,0
            for _,hubid in ipairs(hubs) do
                total_users_count = total_users_count + (hubid.Info.Users or 0)
                total_share_size = total_share_size + (hubid.Info.Share or 0)
                hubs_count = hubs_count + 1
                online_hubs_count = online_hubs_count + (hubid.Info.Online and 1 or 0)
            end
            if header then
                f:write('<b>Краткая статистика:</b><br> '..
                    '<ul><li>Всего хабов: '..hubs_count..'</li>'..
                    '<li>Онлайн хабов: '..online_hubs_count..'</li>'..
                    '<li>Общее число юзеров на хабах сети: '..total_users_count..'</li>'..
                    '<li>Общий размер шары: '..FormatSize(tonumber(total_share_size),true)..'</li>'..
                    '<li>Обновление информации происходит один раз в час.</li>'..
                    '</ul><br><b>Список хабов:</b><br>')
            end

tSoftWare = {
    ["PtokaX"] = "<a href=\"http://www.ptokax.org\" target=\"_blank\" title=\"Перейти на домашную страницу\"> <img src=\"/style/soft_img/"..
                "ptokax.png\" border=\"0\"></a>  PtokaX DC Hub",
    ["RusHub"] = "<a href=\"http://rushub.org\" target=\"_blank\" title=\"Перейти на домашную страницу\"> <img src=\"/style/soft_img/"..
                "rushub.png\" border=\"0\"></a>  RusHub",
    ["YnHub"] = "<a href=\"http://ynhub.org/\" target=\"_blank\" title=\"Перейти на домашную страницу\"> <img src=\"/style/soft_img/"..
                "ynhub.png\" border=\"0\"</a>  YnHub",
    ["VerliHub"] = "<a href=\"http://www.verlihub-project.org/doku.php?id=start\" target=\"_blank\" title=\"Перейти на домашную страницу\">"..
                    "<img src=\"/style/soft_img/verlihub.png\" border=\"0\"></a>  VerliHub",
    ["Eximius"] = "<a href=\"http://eximius.rs2soft.nl/\" target=\"_blank\" title=\"Перейти на домашную страницу\"> <img src=\"/style/soft_img/"..
                    "eximius.png\" border=\"0\"></a>  Eximius",
    ["HexHub"] = "<a href=\"http://nemesis.te-home.net/HeXHub/\" target=\"_blank\" title=\"Перейти на домашную страницу\">"..
                    "<img src=\"/style/soft_img/hexhub.png\" border=\"0\"></a>  HexHub",
    ["FlexHubBeta 0.1"] = "<a href=\"http://www.flexhub.org/forum/\" target=\"_blank\" title=\"Перейти на домашную страницу\">"..
                        "<img src=\"/style/soft_img/flexhub.png\" border=\"0\"></a>  FlexHub",
}

:gsub("{FLAG}",v.Country == "??" and "unknown" or v.Country:lower())

:gsub("{HubSoft}",(tSoftWare[v.Info.HubSoft]   or (v.Info.HubSoft and v.Info.HubSoft or "n/a")))

if header then f:write(header) end
            
            local even = false
                       local total_users_count,total_share_size=0,0
            local hubs_count,online_hubs_count = 0,0
            for _,hubid in ipairs(hubs) do
                total_users_count = total_users_count + (hubid.Info.Users or 0)
                total_share_size = total_share_size + (hubid.Info.Share or 0)
                hubs_count = hubs_count + 1
                online_hubs_count = online_hubs_count + (hubid.Info.Online and 1 or 0)
            end
            if header then
                f:write('<b>Краткая статистика:</b><br> '..
                    '<ul><li>Всего хабов: '..hubs_count..'</li>'..
                    '<li>Онлайн хабов: '..online_hubs_count..'</li>'..
                    '<li>Общее число юзеров на хабах сети: '..total_users_count..'</li>'..
                    '<li>Общий размер шары: '..FormatSize(tonumber(total_share_size),true)..'</li>'..
                    '<li>В среднем на каждом хабе '..math.floor(total_users_count/online_hubs_count)..' юзеров и '..FormatSize(tonumber(total_share_size/online_hubs_count),true)..' шары</li>'..
                    '<li>Обновление информации происходит один раз в час.</li>'..
                    '</ul><br><b>Список хабов:</b><br>')
            end
            for _,v in ipairs(hubs) do
                if tCfg.HTMLFilter == 1 or (tCfg.HTMLFilter == 2 and hub.Info.Online) or (tCfg.HTMLFilter == 3 and hub.Info.State >= 9) then    
                    f:write((row
                        :gsub("{ROWSTYLE}",even and "even" or "odd")
                        :gsub("{STATE}",v.Info.Online and "online" or "offline")
                        :gsub("{STATE_STRING}",v.Info.Online and "Онлайн" or "Оффлайн")
                        :gsub("{DESCRIPTION}",v.Info.Descr and v.Info.Descr:htmlescape():gsub("%%","%%%%") or "")
                        :gsub("{NAME}",v.Info.Name and v.Info.Name:htmlescape():gsub("%%","%%%%") or v.Addr)
                        :gsub("{ADDRESS}",v.Addr)
                        :gsub("{USERS}",v.Info.Users or "?")
                        :gsub("{SHARE}",v.Info.Share and FormatSize(tonumber(v.Info.Share),true) or "?")
                        :gsub("{MAXUSERS}",v.Info.MaxUsers or "?")
                        :gsub("{MINSHARE}",v.Info.MinShare and (v.Info.MinShare > 0 and FormatSize(tonumber(v.Info.MinShare)) or "не ограничено") or "?")
                        :gsub("{MINSLOTS}",v.Info.MinSlots and (v.Info.MinSlots > 0 and v.Info.MinSlots or  "не ограничено") or "?")
                        :gsub("{MAXHUBS}",v.Info.MaxHubs and (v.Info.MaxHubs > 0 and v.Info.MaxHubs or  "не ограничено") or "?")
                        :gsub("{PINGDATE}",os.date("%H:%M:%S",v.Time))
                        :gsub("{PINGDATE_([^}]+)}",function(fstr) return os.date(fstr,v.Time) end)
                        :gsub("{COUNTRY_CODE}",v.Country)
                        :gsub("{COUNTRY}",tCountry[v.Country] or "Неизвестно")
                        :gsub("{FLAG}",v.Country == "??" and "unknown" or v.Country:lower())
                    ))
                    even = not even
                end
            end
            
            if footer then f:write(footer,"\n<!-- Tiny Hublist ",_version," by alex82 -->") end
            
            if tFtp.Enable then
                f:seek("set")
                local r,e = ftp.put{host = tFtp.Host, port = tFtp.Port, user = tFtp.User, password = tFtp.Pass, path = tCfg.File, source = ltn12.source.file(f)}
                os.remove(path.."tempfile")
            else
                f:close()
            end
        end
    end
    
    if ThreadWait and tCfg.RestartTime then
        collectgarbage("collect")
        ThreadWait(tCfg.RestartTime*60000)
    else
        bStop = true
    end
end