course updating support

This commit is contained in:
relaxtakenotes 2023-08-28 23:49:47 +05:00
parent 0c1eaf7ca0
commit b526f71f80

View file

@ -69,3 +69,31 @@ end
concommand.Add("Beatrun_LoadCode", function(ply, cmd, args, argstr) concommand.Add("Beatrun_LoadCode", function(ply, cmd, args, argstr)
GetCourse(args[1]) GetCourse(args[1])
end) end)
function UpdateCourse(course_code)
if Course_Name == "" or Course_ID == "" then return print("Can't upload in Freeplay") end
local url = domain:GetString() .. "/updatecourse.php"
local data = file.Open("beatrun/courses/" .. game.GetMap() .. "/" .. Course_ID .. ".txt", "rb", "DATA")
local filedata = util.Decompress(data:Read(data:Size()))
http.Post(url, {
key = apikey:GetString(),
map = string.Replace(game.GetMap(), " ", "-"),
course_data = util.Base64Encode(filedata, true),
code = course_code
},
function(body, length, headers, code) -- onSuccess function
if code == 200 then
print("Response: " .. body)
else
print("Error (" .. code .. "): " .. body)
end
end,
function(message) -- onFailure function
print("Unexpected error: " .. message)
end)
end
concommand.Add("Beatrun_UpdateCourse", function(ply, cmd, args, argstr)
UpdateCourse(args[1])
end)