Family Historian User Group

Code: Select all

function updatePlugin(id)
    -- Get Plugin down and upgrade it
    local http = luacom.CreateObject("winhttp.winhttprequest.5.1")
    local url = "https://www.family-historian.co.uk/lnk/fetchlatestpluginversion.php?id="..id
    http:Open("GET",url,false)
    http:Send()
    http:WaitForResponse(30)
    local status = http.StatusText
    print('Status = '..status)
    print(http:getAllResponseHeaders())
    if status == 'Moved Temporarily' then
       url = http:GetResponseHeader('Location')
       print(url)
       http:Open("GET",url,false)
       http:Send()
       http:WaitForResponse(30)
        status = http.StatusText
        print('Status = '..status)
    end
    if status == 'OK' then
        length = http:GetResponseHeader('Content-Length')
        print(http:GetResponseHeader('Content-Disposition'))
        filename = string.match(http:GetResponseHeader('Content-Disposition'),'="(.*)"')
        print(filename)
        data = http.ResponseBody
        data = data:gsub("\r\n","\n")  -- Remove CR characters at end of line
        SaveStringToFile(data,pluginDir..'\\'..filename)
        print('Data Size :'..#data)
        print('Content-Length:'..length)
        print(http:getAllResponseHeaders())
    else
        fhMessageBox('An error occurred in Download please try later')
    end
end