peak script

[kEwL]

i want a script which records the peaks of the hub
+peaks
   =-=-=-=-= Right Now =-=-=-=-=
    - Users : 65
    - OPs : 2
    - Sharing : 1.82 TiB (2001290665599 bytes)
   =-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=

   =-=-=-=-= This Session =-=-=-=-=
    - Uptime : 1 hours, 41 minutes
    - Peak users : 71
    - Peak OPs : 3
    - Peak shared : 2.07 TiB (2279051135628 bytes)
   =-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=

   =-=-=-=-= All-Time Peaks =-=-=-=-=
    - Combined uptime of all sessions since Thursday, July 14, 2005 : 1 days, 5 hours, 10 minutes
    - Peak users : 145
    - Peak OPs : 7
    - Peak shared : 3.73 TiB (3003427593145 bytes)
   =-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=

[Yahoo]

this script is available in DDCH (DEV DIRECT CONNECT HUB) . if anyone can convert it into .lua then plzzz go a ahead. i am posting the script which is available for DDCH (.script format)

[Stormbringer]

True, this script could be realy nice, with the ideas of kEwL
+ Few requests:

1) A timer to send this list of records in main chat with possibility to set the time of timer by cmd and RC.
2) Cmd + RC to switch between pm or main chat advertising or disable
2) In more of the request done add another record: the best sharer, with date,nick,and share size of this peak user.
3) RC for all commands
4) Possibility to send the list of records on login by pm or main chat

I hope that a good scripter could make this perfectly. Thx to this one

[Yahoo]

i would like to have such a script because this script not all records all time peaks but also records sessions peaks and current peaks. it would be great if someone make an attempt to create such a script for lua 5.1

[Cêñoßy†ê]

Here is start for it, this only saves and updates all time records

Code: (lua) [Select]

--[[

]]--

Records = {}
local f,e = io.open("Record.tbl", "a+" )
if f then
f:write("" )
f:close()
end
dofile("Record.tbl")

Main =function()
SetTimer(10*1000)
StartTimer()
end

OnTimer = function()
if Records.share then -- if table found
if tonumber(Records.share or 0) < frmHub:GetCurrentShareAmount() then -- is current total share bigger than in table
Records["share"] = frmHub:GetCurrentShareAmount() -- if it was we write it
SaveToFile("Record.tbl",Records, "Records") -- and save it
end
if tonumber(Records.users or 0) < frmHub:GetUsersCount() then -- is current usercount bigger than in table
Records["users"] = frmHub:GetUsersCount() -- if it was we write it
SaveToFile("Record.tbl",Records, "Records") -- and save it
end
if tonumber(Records.uptime or 0) < frmHub:GetUpTime() then -- is current uptime bigger than in table
Records["uptime"] = frmHub:GetUpTime() -- if it was we write it
SaveToFile("Record.tbl",Records, "Records") -- and save it
end
else -- if table was not found
Records = {uptime = frmHub:GetUpTime(),share = frmHub:GetCurrentShareAmount(),users = frmHub:GetUsersCount()} -- we do table
SaveToFile("Record.tbl",Records, "Records") -- and save it
end
collectgarbage("collect")
end

Serialize = function(tTable,sTableName,hFile,sTab)
sTab = sTab or ""
hFile:write(sTab..sTableName.." = {\n")
for key,value in pairs(tTable) do
if (type(value) ~= "function") then
local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key)
if(type(value) == "table") then
Serialize(value,sKey,hFile,sTab.."\t")
else
local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value)
hFile:write(sTab.."\t"..sKey.." = "..sValue)
end
hFile:write(",\n")
end
end
hFile:write(sTab.."}")
end

SaveToFile = function(file,table,tablename)
local hFile = io.open(file,"w+")
Serialize(table,tablename,hFile)
hFile:close()
end

[Yahoo]

good attempt Cêñoßy†e, can someone try to complete this script.