root/trunk/lua/lib.shardlist.lua @ 2963

-- paths

function GetConfigDirPath               () return gMainWorkingDir.."config/" end
function GetShardListDirPath            () return GetConfigDirPath().."shards/" end
function GetShardMemoryFilePath         () return GetConfigDirPath().."shardmemory.xml" end
function GetCharFilePath                (loginname,charid) return GetConfigDirPath().."chars/"..table.concat({gLoginServerIP,gLoginServerPort,ShardListFileNamePartEncode(loginname or gLoginname),(giGameServerID or 0),(charid or gCharID or 0)},".")..".xml" end
function GetShardConfigFilePath         (shardname) return GetShardListDirPath()..ShardListFileNamePartEncode(shardname)..".xml" end

function ShardListFileNamePartEncode    (x) return string.gsub(x,"[^0-9a-zA-Z_%-%(%) ]",".") end

-- notes

function InitShardList () 
    LoadStoredPasswords()
    LoadShardMemory()
    LoadShardList()
    --~ for shardname,shard in pairs(gShardList) do
        --~ local filepath = GetShardConfigFilePath(shardname)
        --~ print("InitShardList",shardname,shard,filepath)
        --~ SimpleXMLSave(filepath,shard)
    --~ end
    --~ SimpleXML_Test()
    --~ os.exit(0)
end

-- ***** ***** ***** ***** ***** chars

RegisterListener("Hook_Packet_Character_List",function (charlist) 
    local plaincharlist = {serverid=giGameServerID}
    for k,v in pairs(charlist.chars) do plaincharlist[k] = v.name end
    plaincharlist.gLoginServerIP = gLoginServerIP
    plaincharlist.gLoginServerPort = gLoginServerPort
    plaincharlist.gLoginname = gLoginname
    plaincharlist.giGameServerID = giGameServerID
    ShardMemorySet("charlist",table.concat({gLoginServerIP,gLoginServerPort,ShardListFileNamePartEncode(gLoginname),giGameServerID},":"),plaincharlist)
end)

RegisterListener("Hook_Player_Full_equip",function (mobiledata,equipmentdata) 
    if (gShardListPlayerEquipAlreadySaved) then return end
    gShardListPlayerEquipAlreadySaved = true
    ShardListSavePlayerMobile()
    RegisterIntervalStepper(30*1000,ShardListSavePlayerMobile) 
end)

RegisterListener("Hook_Player_Skills",function (skills) 
    if (gShardListPlayerSkillAlreadySaved) then return end
    gShardListPlayerSkillAlreadySaved = true
    ShardListSavePlayerMobile()
end)

-- stores body,equip,mount       todo : skills, but change too often for xml
function ShardListSavePlayerMobile ()
    local mobile = GetPlayerMobile()
    print("###ShardListSavePlayerMobile",mobile,gPlayerSkills)
    if (not mobile) then return end
    if (not gPlayerSkills) then return end
    local charname = gCharName
    
    --[[
    -- calc and check has, no need to save if nothing changed
    local hash = {mobile.artid,mobile.hue}
    for k,layer in pairs(gLayerType) do 
        local item = mobile:GetEquipmentAtLayer(layer) 
        if (item) then table.insert(hash,item.serial) end
    end
    for skillid,skill in pairs(gPlayerSkills) do table.insert(hash,skill.base_value) end
    hash = table.concat(hash,"#")
    if (hash == gShardListSavePlayerMobile_LastHash) then return end
    gShardListSavePlayerMobile_LastHash = hash
    print("saving data...",hash)
    ]]--
    
    -- save the data
    local data = {  charname=charname, artid=mobile.artid, hue=mobile.hue, xloc=mobile.xloc, yloc=mobile.yloc, zloc=mobile.zloc, map=gMapIndex, equip={},skills={} }
    for k,layer in pairs(gLayerType) do 
        local item = mobile:GetEquipmentAtLayer(layer) 
        if (item) then data.equip[layer] = {artid=item.artid,hue=item.hue} end
    end
    for skillid,skill in pairs(gPlayerSkills) do 
        data.skills[skillid] = {value=skill.value,base_value=skill.base_value,lockstate=skill.lockstate,name=glSkillNames[skillid]} 
    end
    data.time = os.time()
    data.timetext = os.date("%d %b %Y %H:%M",data.time) -- 10 Feb 2009 16:14       %H:%M:%S
    SimpleXMLSave(GetCharFilePath(),data)
end

-- ***** ***** ***** ***** ***** shard list 

function LoadShardList () 
    local path_folder = GetShardListDirPath()
    local arr_files = dirlist(path_folder,false,true)
    for k,filename in pairs(arr_files) do
        local ext = string.lower(string.sub(filename,-4))
        local shardname = string.sub(filename,1,-5)
        local filepath = path_folder .. filename
        print("LoadShardList",shardname,filepath,ext) 
        if (ext == ".xml") then 
            gShardList[shardname] = SimpleXMLLoad(filepath)
        end
    end
end
 
-- ***** ***** ***** ***** ***** shard memory 

function LoadShardMemory    () gShardMemory =   SimpleXMLLoad(GetShardMemoryFilePath()) or {} end
function SaveShardMemory    ()                  SimpleXMLSave(GetShardMemoryFilePath(),gShardMemory) end

function ShardMemoryGetList (listname) return gShardMemory[listname] end
function ShardMemoryGet     (listname,key) 
    local list = gShardMemory[listname]
    return list and list[key]
end
function ShardMemorySet     (listname,key,value)
    local list = gShardMemory[listname]
    if (not list) then list = {} gShardMemory[listname] = list end
    list[key] = value
    SaveShardMemory()
end

-- ***** ***** ***** ***** ***** stored passwords

-- store password when login succeeds
RegisterListener("Hook_Packet_Server_List",function ()
    if (not gRememberPassword) then return end
    SetStoredPassword(gLoginServerIP,gLoginServerPort,gLoginname,gPassword)
end)
gStoredPasswords = {}
function GetStoredPasswordsFilePath () return GetConfigDirPath().."passwords.xml" end
function SaveStoredPasswords ()                     SimpleXMLSave(GetStoredPasswordsFilePath(),gStoredPasswords) end
function LoadStoredPasswords () gStoredPasswords =  SimpleXMLLoad(GetStoredPasswordsFilePath()) or {} end

function GetStoredPassword          (host,port,username) return gStoredPasswords[host..":"..port..":"..username] end
function SetStoredPassword          (host,port,username,password) gStoredPasswords[host..":"..port..":"..username] = password SaveStoredPasswords() end
function ClearStoredPassword        (host,port,username) gStoredPasswords[host..":"..port..":"..username] = nil SaveStoredPasswords() end
function ClearAllStoredPasswords    () gStoredPasswords = {} SaveStoredPasswords() end

function TestStoredPasswords ()
        local host,port = "example.org",2593
        local user1 = "weirdguy"
        local user2 = "somedude"
        LoadStoredPasswords()
        --~ SetStoredPassword(host,port,user1,"secret1234")
        --~ SetStoredPassword(host,port,user2,"secret5555")
        print(user1,GetStoredPassword(host,port,user1)) --~ weirdguy        secret1234
        print(user2,GetStoredPassword(host,port,user2)) --~ somedude        secret5555
        os.exit(0)
end