560 lines
16 KiB
Lua
560 lines
16 KiB
Lua
--[==========================================================================[
|
|
httprequests.lua: code for processing httprequests commands and output
|
|
--[==========================================================================[
|
|
Copyright (C) 2007 the VideoLAN team
|
|
$Id$
|
|
|
|
Authors: Antoine Cellerier <dionoea at videolan dot org>
|
|
Rob Jonson <rob at hobbyistsoftware.com>
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
|
|
--]==========================================================================]
|
|
|
|
module("httprequests",package.seeall)
|
|
|
|
local common = require ("common")
|
|
local dkjson = require ("dkjson")
|
|
|
|
|
|
|
|
--Round the number to the specified precision
|
|
function round(what, precision)
|
|
if type(what) == "string" then
|
|
what = common.us_tonumber(what)
|
|
end
|
|
if type(what) == "number" then
|
|
return math.floor(what*math.pow(10,precision)+0.5) / math.pow(10,precision)
|
|
end
|
|
return nil
|
|
end
|
|
|
|
--split text where it matches the delimiter
|
|
function strsplit(text, delimiter)
|
|
local strfind = string.find
|
|
local strsub = string.sub
|
|
local tinsert = table.insert
|
|
local list = {}
|
|
local pos = 1
|
|
if strfind("", delimiter, 1) then -- this would result in endless loops
|
|
error("delimiter matches empty string!")
|
|
end
|
|
local i=1
|
|
while 1 do
|
|
local first, last = strfind(text, delimiter, pos)
|
|
if first then -- found?
|
|
tinsert(list,i, strsub(text, pos, first-1))
|
|
pos = last+1
|
|
else
|
|
tinsert(list,i, strsub(text, pos))
|
|
break
|
|
end
|
|
i = i+1
|
|
end
|
|
return list
|
|
end
|
|
|
|
--main function to process commands sent with the request
|
|
|
|
processcommands = function ()
|
|
|
|
local input = _GET['input']
|
|
local command = _GET['command']
|
|
local id = tonumber(_GET['id'] or -1)
|
|
local val = _GET['val']
|
|
local options = _GET['option']
|
|
local band = tonumber(_GET['band'])
|
|
local name = _GET['name']
|
|
local duration = tonumber(_GET['duration'])
|
|
if type(options) ~= "table" then -- Deal with the 0 or 1 option case
|
|
options = { options }
|
|
end
|
|
|
|
if command == "in_play" then
|
|
--[[
|
|
vlc.msg.err( "<options>" )
|
|
for a,b in ipairs(options) do
|
|
vlc.msg.err(b)
|
|
end
|
|
vlc.msg.err( "</options>" )
|
|
--]]
|
|
vlc.playlist.add({{path=vlc.strings.make_uri(input),options=options,name=name,duration=duration}})
|
|
elseif command == "addsubtitle" then
|
|
vlc.input.add_subtitle (val)
|
|
elseif command == "in_enqueue" then
|
|
vlc.playlist.enqueue({{path=vlc.strings.make_uri(input),options=options,name=name,duration=duration}})
|
|
elseif command == "pl_play" then
|
|
if id == -1 then
|
|
vlc.playlist.play()
|
|
else
|
|
vlc.playlist.gotoitem(id)
|
|
end
|
|
elseif command == "pl_pause" then
|
|
if vlc.playlist.status() == "stopped" then
|
|
if id == -1 then
|
|
vlc.playlist.play()
|
|
else
|
|
vlc.playlist.gotoitem(id)
|
|
end
|
|
else
|
|
vlc.playlist.pause()
|
|
end
|
|
elseif command == "pl_forcepause" then
|
|
if vlc.playlist.status() == "playing" then
|
|
vlc.playlist.pause()
|
|
end
|
|
elseif command == "pl_forceresume" then
|
|
if vlc.playlist.status() == "paused" then
|
|
vlc.playlist.pause()
|
|
end
|
|
elseif command == "pl_stop" then
|
|
vlc.playlist.stop()
|
|
elseif command == "pl_next" then
|
|
vlc.playlist.next()
|
|
elseif command == "pl_previous" then
|
|
vlc.playlist.prev()
|
|
elseif command == "pl_delete" then
|
|
vlc.playlist.delete(id)
|
|
elseif command == "pl_empty" then
|
|
vlc.playlist.clear()
|
|
elseif command == "pl_sort" then
|
|
vlc.playlist.sort( val, id > 0 )
|
|
elseif command == "pl_move" then
|
|
vlc.playlist.move( id, tonumber(val) or -1)
|
|
elseif command == "pl_random" then
|
|
vlc.playlist.random()
|
|
elseif command == "pl_loop" then
|
|
--if loop is set true, then repeat needs to be set false
|
|
if vlc.playlist.loop() then
|
|
vlc.playlist.repeat_("off")
|
|
end
|
|
elseif command == "pl_repeat" then
|
|
--if repeat is set true, then loop needs to be set false
|
|
if vlc.playlist.repeat_() then
|
|
vlc.playlist.loop("off")
|
|
end
|
|
elseif command == "pl_sd" then
|
|
if vlc.sd.is_loaded(val) then
|
|
vlc.sd.remove(val)
|
|
else
|
|
vlc.sd.add(val)
|
|
end
|
|
elseif command == "fullscreen" then
|
|
if vlc.object.vout() then
|
|
vlc.video.fullscreen()
|
|
end
|
|
elseif command == "snapshot" then
|
|
common.snapshot()
|
|
elseif command == "volume" then
|
|
common.volume(val)
|
|
elseif command == "seek" then
|
|
common.seek(val)
|
|
elseif command == "key" then
|
|
common.hotkey("key-"..val)
|
|
elseif command == "audiodelay" then
|
|
if vlc.object.input() and val then
|
|
val = common.us_tonumber(val)
|
|
vlc.var.set(vlc.object.input(),"audio-delay",val * 1000000)
|
|
end
|
|
elseif command == "rate" then
|
|
val = common.us_tonumber(val)
|
|
if vlc.object.input() and val >= 0 then
|
|
vlc.var.set(vlc.object.input(),"rate",val)
|
|
end
|
|
elseif command == "subdelay" then
|
|
if vlc.object.input() then
|
|
val = common.us_tonumber(val)
|
|
vlc.var.set(vlc.object.input(),"spu-delay",val * 1000000)
|
|
end
|
|
elseif command == "aspectratio" then
|
|
if vlc.object.vout() then
|
|
vlc.var.set(vlc.object.vout(),"aspect-ratio",val)
|
|
end
|
|
elseif command == "preamp" then
|
|
val = common.us_tonumber(val)
|
|
vlc.equalizer.preampset(val)
|
|
elseif command == "equalizer" then
|
|
val = common.us_tonumber(val)
|
|
vlc.equalizer.equalizerset(band,val)
|
|
elseif command == "enableeq" then
|
|
if val == '0' then vlc.equalizer.enable(false) else vlc.equalizer.enable(true) end
|
|
elseif command == "setpreset" then
|
|
vlc.equalizer.setpreset(val)
|
|
elseif command == "title" then
|
|
vlc.var.set(vlc.object.input(), "title", val)
|
|
elseif command == "chapter" then
|
|
vlc.var.set(vlc.object.input(), "chapter", val)
|
|
elseif command == "audio_track" then
|
|
vlc.var.set(vlc.object.input(), "audio-es", val)
|
|
elseif command == "video_track" then
|
|
vlc.var.set(vlc.object.input(), "video-es", val)
|
|
elseif command == "subtitle_track" then
|
|
vlc.var.set(vlc.object.input(), "spu-es", val)
|
|
end
|
|
|
|
local input = nil
|
|
local command = nil
|
|
local id = nil
|
|
local val = nil
|
|
|
|
end
|
|
|
|
--utilities for formatting output
|
|
|
|
function xmlString(s)
|
|
if (type(s)=="string") then
|
|
return vlc.strings.convert_xml_special_chars(s)
|
|
elseif (type(s)=="number") then
|
|
return common.us_tostring(s)
|
|
else
|
|
return tostring(s)
|
|
end
|
|
end
|
|
|
|
--dkjson outputs numbered tables as arrays
|
|
--so we don't need the array indicators
|
|
function removeArrayIndicators(dict)
|
|
local newDict=dict
|
|
|
|
for k,v in pairs(dict) do
|
|
if (type(v)=="table") then
|
|
local arrayEntry=v._array
|
|
if arrayEntry then
|
|
v=arrayEntry
|
|
end
|
|
|
|
dict[k]=removeArrayIndicators(v)
|
|
end
|
|
end
|
|
|
|
return newDict
|
|
end
|
|
|
|
printTableAsJson = function (dict)
|
|
dict=removeArrayIndicators(dict)
|
|
|
|
local output=dkjson.encode (dict, { indent = true })
|
|
print(output)
|
|
end
|
|
|
|
local printXmlKeyValue = function (k,v,indent)
|
|
print("\n")
|
|
for i=1,indent do print(" ") end
|
|
if (k) then
|
|
print("<"..k..">")
|
|
end
|
|
|
|
if (type(v)=="table") then
|
|
printTableAsXml(v,indent+2)
|
|
else
|
|
print(xmlString(v))
|
|
end
|
|
|
|
if (k) then
|
|
xs=xmlString(k)
|
|
space_loc=string.find(xs," ")
|
|
if space_loc == nil then
|
|
print("</"..xs..">")
|
|
else
|
|
xs=string.sub(xs,1,space_loc)
|
|
print("</"..xs..">")
|
|
end
|
|
end
|
|
end
|
|
|
|
printTableAsXml = function (dict,indent)
|
|
for k,v in pairs(dict) do
|
|
printXmlKeyValue(k,v,indent)
|
|
end
|
|
end
|
|
|
|
--[[
|
|
function logTable(t,pre)
|
|
local pre = pre or ""
|
|
for k,v in pairs(t) do
|
|
vlc.msg.err(pre..tostring(k).." : "..tostring(v))
|
|
if type(v) == "table" then
|
|
a(v,pre.." ")
|
|
end
|
|
end
|
|
end
|
|
--]]
|
|
|
|
--main accessors
|
|
|
|
getplaylist = function ()
|
|
local p
|
|
|
|
if _GET["search"] then
|
|
if _GET["search"] ~= "" then
|
|
_G.search_key = _GET["search"]
|
|
else
|
|
_G.search_key = nil
|
|
end
|
|
local key = vlc.strings.decode_uri(_GET["search"])
|
|
p = vlc.playlist.search(key)
|
|
else
|
|
p = vlc.playlist.get()
|
|
end
|
|
|
|
--logTable(p) --Uncomment to debug
|
|
|
|
return p
|
|
end
|
|
|
|
parseplaylist = function (item)
|
|
if item.flags.disabled then return end
|
|
|
|
if (item.children) then
|
|
local result={}
|
|
local name = (item.name or "")
|
|
|
|
result["type"]="node"
|
|
result.id=tostring(item.id)
|
|
result.name=tostring(name)
|
|
result.ro=item.flags.ro and "ro" or "rw"
|
|
|
|
--store children in an array
|
|
--we use _array as a proxy for arrays
|
|
result.children={}
|
|
result.children._array={}
|
|
|
|
for _, child in ipairs(item.children) do
|
|
local nextChild=parseplaylist(child)
|
|
table.insert(result.children._array,nextChild)
|
|
end
|
|
|
|
return result
|
|
else
|
|
local result={}
|
|
local name, path = item.name or ""
|
|
local path = item.path or ""
|
|
local current_item_id = vlc.playlist.current()
|
|
|
|
-- Is the item the one currently played
|
|
if(current_item_id ~= nil) then
|
|
if(current_item_id == item.id) then
|
|
result.current = "current"
|
|
end
|
|
end
|
|
|
|
result["type"]="leaf"
|
|
result.id=tostring(item.id)
|
|
result.uri=tostring(path)
|
|
result.name=name
|
|
result.ro=item.flags.ro and "ro" or "rw"
|
|
result.duration=math.floor(item.duration)
|
|
|
|
return result
|
|
end
|
|
|
|
end
|
|
|
|
playlisttable = function ()
|
|
|
|
local basePlaylist=getplaylist()
|
|
|
|
return parseplaylist(basePlaylist)
|
|
end
|
|
|
|
getbrowsetable = function ()
|
|
|
|
--paths are returned as an array of elements
|
|
local result = { element = { _array = {} } }
|
|
|
|
local dir
|
|
--uri takes precedence, but fall back to dir
|
|
if _GET["uri"] then
|
|
if _GET["uri"] == "file://~" then
|
|
dir = "~"
|
|
else
|
|
local uri = string.gsub(_GET["uri"], "[?#].*$", "")
|
|
if not string.match(uri, "/$") then
|
|
uri = uri.."/"
|
|
end
|
|
dir = vlc.strings.make_path(common.realpath(uri))
|
|
end
|
|
elseif _GET["dir"] then
|
|
dir = _GET["dir"]
|
|
|
|
-- "" dir means listing all drive letters e.g. "A:\", "C:\"...
|
|
--however the opendir() API won't resolve "X:\.." to that behavior,
|
|
--so we offer this resolution as "backwards compatibility"
|
|
if string.match(dir, '^[a-zA-Z]:[\\/]*%.%.$') or
|
|
string.match(dir, '^[a-zA-Z]:[\\/]*%.%.[\\/]') then
|
|
dir = ""
|
|
end
|
|
|
|
if dir ~= "" and dir ~= "~" then
|
|
dir = dir.."/" --luckily Windows accepts '/' as '\'
|
|
end
|
|
end
|
|
if not dir then
|
|
return result
|
|
end
|
|
|
|
if dir == "~" then
|
|
dir = vlc.config.homedir().."/"
|
|
end
|
|
|
|
local d = vlc.net.opendir(dir)
|
|
table.sort(d)
|
|
|
|
--FIXME: this is the wrong place to do this, but this still offers
|
|
--some useful mitigation: see #25021
|
|
if #d == 0 and dir ~= "" then
|
|
table.insert(d, "..")
|
|
end
|
|
|
|
for _,f in pairs(d) do
|
|
if f == ".." or not string.match(f,"^%.") then
|
|
local path = dir..f
|
|
local element={}
|
|
|
|
local s = vlc.net.stat(path)
|
|
if (s) then
|
|
for k,v in pairs(s) do
|
|
element[k]=v
|
|
end
|
|
else
|
|
element["type"]="unknown"
|
|
end
|
|
element["path"]=path
|
|
element["name"]=f
|
|
|
|
local uri=vlc.strings.make_uri(path)
|
|
if uri then
|
|
element["uri"]=common.realpath(uri)
|
|
end
|
|
|
|
table.insert(result.element._array,element)
|
|
end
|
|
end
|
|
|
|
return result;
|
|
end
|
|
|
|
|
|
getstatus = function (includecategories)
|
|
|
|
|
|
local input = vlc.object.input()
|
|
local item = vlc.input.item()
|
|
local playlist = vlc.object.playlist()
|
|
local vout = vlc.object.vout()
|
|
local aout = vlc.object.aout()
|
|
|
|
local s ={}
|
|
|
|
--update api version when new data/commands added
|
|
s.apiversion=3
|
|
s.version=vlc.misc.version()
|
|
s.volume=vlc.volume.get()
|
|
|
|
if input then
|
|
s.time=math.floor(vlc.var.get(input,"time") / 1000000)
|
|
s.position=vlc.var.get(input,"position")
|
|
s.currentplid=vlc.playlist.current()
|
|
s.audiodelay=vlc.var.get(input,"audio-delay") / 1000000
|
|
s.rate=vlc.var.get(input,"rate")
|
|
s.subtitledelay=vlc.var.get(input,"spu-delay") / 1000000
|
|
else
|
|
s.time=0
|
|
s.position=0
|
|
s.currentplid=-1
|
|
s.audiodelay=0
|
|
s.rate=1
|
|
s.subtitledelay=0
|
|
end
|
|
|
|
if item then
|
|
s.length=math.floor(item:duration())
|
|
else
|
|
s.length=0
|
|
end
|
|
|
|
if vout then
|
|
s.fullscreen=vlc.var.get(vout,"fullscreen")
|
|
s.aspectratio=vlc.var.get(vout,"aspect-ratio");
|
|
if s.aspectratio=="" then s.aspectratio = "default" end
|
|
else
|
|
s.fullscreen=0
|
|
end
|
|
|
|
if aout then
|
|
local filters=vlc.var.get(aout,"audio-filter")
|
|
local temp=strsplit(filters,":")
|
|
s.audiofilters={}
|
|
local id=0
|
|
for i,j in pairs(temp) do
|
|
s.audiofilters['filter_'..id]=j
|
|
id=id+1
|
|
end
|
|
end
|
|
|
|
s.videoeffects={}
|
|
s.videoeffects.hue=round(vlc.config.get("hue"),2)
|
|
s.videoeffects.brightness=round(vlc.config.get("brightness"),2)
|
|
s.videoeffects.contrast=round(vlc.config.get("contrast"),2)
|
|
s.videoeffects.saturation=round(vlc.config.get("saturation"),2)
|
|
s.videoeffects.gamma=round(vlc.config.get("gamma"),2)
|
|
|
|
s.state=vlc.playlist.status()
|
|
s.random=vlc.var.get(playlist,"random")
|
|
s.loop=vlc.var.get(playlist,"loop")
|
|
s["repeat"]=vlc.var.get(playlist,"repeat")
|
|
|
|
s.equalizer={}
|
|
s.equalizer.preamp=round(vlc.equalizer.preampget(),2)
|
|
s.equalizer.bands=vlc.equalizer.equalizerget()
|
|
if s.equalizer.bands ~= null then
|
|
for k,i in pairs(s.equalizer.bands) do s.equalizer.bands[k]=round(i,2) end
|
|
s.equalizer.presets=vlc.equalizer.presets()
|
|
end
|
|
|
|
if (includecategories and item) then
|
|
s.information={}
|
|
s.information.category={}
|
|
s.information.category.meta=item:metas()
|
|
|
|
local info = item:info()
|
|
for k, v in pairs(info) do
|
|
local streamTable={}
|
|
for k2, v2 in pairs(v) do
|
|
local tag = string.gsub(k2," ","_")
|
|
streamTable[tag]=v2
|
|
end
|
|
|
|
s.information.category[k]=streamTable
|
|
end
|
|
|
|
s.stats={}
|
|
|
|
local statsdata = item:stats()
|
|
for k,v in pairs(statsdata) do
|
|
local tag = string.gsub(k,"_","")
|
|
s.stats[tag]=v
|
|
end
|
|
|
|
s.information.chapter=vlc.var.get(input, "chapter")
|
|
s.information.title=vlc.var.get(input, "title")
|
|
|
|
s.information.chapters=vlc.var.get_list(input, "chapter")
|
|
s.information.titles=vlc.var.get_list(input, "title")
|
|
|
|
end
|
|
return s
|
|
end
|
|
|