--!movie
--!encoding=utf-8
global $
global gCh
----------------------------------------
-- Send data with HTTP PUT method (synchronous or blocking mode)
----------------------------------------
on startMovie
_player.debugPlaybackEnabled = 1
-- libs
$.import("curl")
$.import("file")
-- config
tLocalFile = $.PATH & "downloaded.mp3"
-- get a CURL handle (xtra instance)
gCh = $.curl.init()
-- specify options
gCh.setOption($.curl.CURLOPT.URL, "http://valentin.dasdeck.com/xtras/curl_xtra/.test/put.php")
gCh.setOption($.curl.CURLOPT.UPLOAD, 1)
gCh.setOption($.curl.CURLOPT.NOPROGRESS, 0)
-- required for HTTP PUT upload with progress callback
-- otherwise progressCallback isn't called!
gCh.setOption($.curl.CURLOPT.INFILESIZE, $.file.size(tLocalFile))
-- upload this script file
gCh.setSourceFile(tLocalFile)
-- set callbacks
gCh.setProgressCallback(#slotCurlProgress)
-- returnMode: 0=return error code (=default), 1=return data, 2=return chunks immediately
$.curl.execAsyncDetached(gCh, #slotCurlResult)
end
----------------------------------------
-- @callback
----------------------------------------
on slotCurlResult (res)
put "ERROR:" && curl_error(res) -- if returnMode=0, res is ALWAYS an error code
-- put "SPEED_UPLOAD:" && gCh.getInfo($.curl.CURLINFO.SPEED_UPLOAD)
-- put "TOTAL_TIME:" && gCh.getInfo($.curl.CURLINFO.TOTAL_TIME)
gCh = VOID
end
----------------------------------------
-- @callback
----------------------------------------
on slotCurlProgress (dltotal, dlnow, ultotal, ulnow)
-- put dltotal, dlnow, ultotal, ulnow
if ultotal>0 then
put (ulnow*100/ultotal) && "%"
end if
end