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

[alex82]

Tiny Hublist

Версия: 1.01
Платформа: Win32
Автор: alex82

Описание:
Для демонстрации работы этого пингера, я решил написать небольшую программу для создания хаблиста. Программа работает следующим образом: хабы из списка проверяются на работоспособность, после чего результат сохраняется в HTML-файл. Соответственно, для создания хаблиста требуется только сама программа, и любой Web-сервер.

Скриншоты

 tinyhublist_1.02.rar ( 833.81 килобайт ) Кол-во скачиваний: 337


Старые версии:
 tinyhublist_1.01.zip ( 940.54 килобайт ) Кол-во скачиваний: 147
 tinyhublist_1.00.zip ( 224.45 килобайт ) Кол-во скачиваний: 84

[STIVAN]

А как сделать что-бы хабы сами добавлялись? Или как сделать статистику типо этой? Хабов в списке: 161. Из них онлайн: 150, полностью проверено: 147.
Пользователи оставили комментариев: 36.

да,да...

[Saymon21]

открываем самый обычный текстовый редактор и пишем такие функции.

UPD: Поделюсь всётаки своим куском, не жадный.
Возможно не лучшая реализация но...
В tinyhublist.lua находим кусок:

Раскрывающийся текст

Код

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

Итог, если мы ничего не накосячили - будет что-то вроде:
 _______4.png ( 193.95 килобайт ) Кол-во скачиваний: 572

PS. Среднее число юзеров и шары в процессе допиливания.

[STIVAN]

А как сделать что-бы хабы сами добавлялись?
Тоесть нажать "Добавить хаб",и хаб на проверку становится админ проверяет и добавляет....

[Saymon21]

открываем самый обычный текстовый редактор и пишем такие функции.

Напиши мол чтобы добавить хаб скиньте адрес на мыло, и оставь своё мыло...

[STIVAN]

Попробую, но не силен в этом.... :(

[Saymon21]

Что может быть проще, чем открыть шаблон, который у тебя использован и написать что-то вроде:

Код

<b>Для добавления хаба в этот список пришлите нам на E-Mail его адрес:</b> <a href="mailto:мыло@домен.ру">мыло<at>домен<dot>ру</a>

????????

[Damaks]

Что может быть проще, чем открыть шаблон, который у тебя использован и написать что-то вроде:

Неважно, главное есть Хаблист.

Вот такой скромный пиринг у меня

 2011_04_17_205345.png ( 46.02 килобайт ) Кол-во скачиваний: 604

[Hammer]

Как сделать что-бы статистика была слева? А то уже всё перепробовал, а текст по середине остается.

[Damaks]

Как сделать что-бы статистика была слева? А то уже всё перепробовал, а текст по середине остается.

Смотри, где у тебя в стилях выравнивание по центру.

[Hammer]

Вроде всё ок. А статистика стоит по середине.

Раскрывающийся текст

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

Кстати есть ещё вопрос. Можно ли сделать рекомендуем хабы? И как сделать что-бы они были отделены от других хабов.

[Saymon21]

ну так ты не код копай, а шаблон, .tpl

>>Можно ли сделать рекомендуем хабы?
А почему нет? Только переведи слово "tiny"

[Sinsei]

В разных браузерах статистика по разному отображается.

Раскрывающийся текст

Опера

IE

Сообщение отредактировал Saymon21 - 18.4.2011, 16:27

Причина редактирования: Прятать под спойлер нужно такие вещи!

[Saymon21]

Ну верстайте, верстайте. У нас во всех браузерах всё нормально.

Раскрывающийся текст

открываем самый обычный текстовый редактор и пишем такие функции.

UPD: Поделюсь всётаки своим куском, не жадный.
Возможно не лучшая реализация но...
В tinyhublist.lua находим кусок:

Раскрывающийся текст

Код

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

Добавляем стату среднее число юзеров и шары:
Например, после:

Код

'<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>'..

Делаем отображение иконок софта:

Раскрывающийся текст

Например в начале tinyhublist.lua создаём табличку, типа:

Код

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",
}

В tinyhublist.lua находим:

Код

: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")))

В той дериктории, где у нас будет сохранение странички хаблиста создаём папки style и soft_img, после чего в soft_img кладём изображения ptokax.png,rushub.png,ynhub.png,verlihub.png, eximius.png, hexhub.png,flexhub.png после открываем шаблон, и в нужном месте добавляем {HubSoft}

PS. Пример, как это всё выглядит у нас в посте № 43

[Sinsei]

Что еще верстать, как было написано так и сделал.

Вот кусок кода как я сделал.

Раскрывающийся текст

Код

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

[Saymon21]

причём тут это????? Есть шаблон в папке themes, вот там и разбирайся!

[alex82]

А как сделать что-бы хабы сами добавлялись? Или как сделать статистику типо этой? Хабов в списке: 161. Из них онлайн: 150, полностью проверено: 147.
Пользователи оставили комментариев: 36.

да,да...

Я понимаю что вам нравится хаблист BCETI, и Вы хотите чтобы этот имел такой же функционал - самостоятельное добавление хабов, статистика, комментарии, блекджек, шлюхи, и.т.д. Но извините, тот движок работает под управлением MySQL, а страницы генерируются cgi-скриптами. Здесь же выложен простейший хаблист, требующий для работы только вебсервер. Вы слишком много от него хотите.

И кстати, если бы я выложил движок хаблиста BCETI, вы бы с ним все равно не справились, поскольку вы и с этим, простейшим хаблистом справляетесь с трудом.

Sinsei
А что мешает засунуть эту фигню в блок, и явно указать, по какой стороне выравнивать его содержимое?

Код

<div style="text-align: left">
    <!-- Тут какая-то фигня -->
</div>

PS.

Код

                    '<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>

О боже . Не показывайте мне это - иначе мои глаза вытекут, и я больше не смогу выпускать новые версии.

[AltSide]

И кстати, если бы я выложил движок хаблиста BCETI, вы бы с ним все равно не справились, поскольку вы и с этим, простейшим хаблистом справляетесь с трудом.

Ну выложите, те, кому нужно это действительно, они смогут понять, что и к чему. А кому нужно, пусть начинают осваивать такие небольшие вещи.
Согласитесь, ведь вам с этой части когда-то было тоже много не понятно. Но прошло время, и вы ведь научились. Тоже самое и они.
И да,

В последнее время появились нехорошие тенденции - рекламировать коммерческие проекты на некоммерческих ресурсах, выкладывать софт с закрытым кодом и встроенными шеллами, пытаться завлечь бесплатных лохов бетатестеров в закрытые собственнические проекты, и.т.д. И я решил слегка ударить по этой шняге нехорошим тенденциям выкладыванием софта с аналогичным функционалом, но открытого и бесплатного.

Тем самым удар будет самый мощьный, и это хорошо, я думаю вам многие люди были бы благодарны.

[Alexey]

Ну выложите, те, кому нужно это действительно, они смогут понять, что и к чему.

Те, кто сможет понять — они и свой хаблист, не сильно вспотев, напишут или из этого слепят. Большинство-же будет мозг выносить нубскими вопросами.

А кому нужно, пусть начинают осваивать такие небольшие вещи.

Пусть начинают, никто-же не против. Пусть берут и дописывают этот хаблист. Лучшая школа — практика. Зачем лишать их возможности учиться?

[Ksan]

Много хаблистов - к чему? Скоро народ начнёт гасить пингеров, не разбираясь, где чей айпи..

Те, кто сможет понять — они и свой хаблист не сильно вспотев напишут или из этого слепят. Большинство-же будет мозг выносить нубскими вопросами.

....и вдобавок заменят авторскую подпись своими, "}{AI<Ep"-скими..
Даже на этот Tiny уже новые "авторы" есть...

Не надо выкладывать полную версию!

[Sinsei]

Сделал чтобы статистика была по левому краю во всех браузерах.

Раскрывающийся текст

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('<div style="text-align: left"><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></div><br>')
end