home *** CD-ROM | disk | FTP | other *** search
/ mail.altrad.com / 2015.02.mail.altrad.com.tar / mail.altrad.com / TEST / vlc-2-0-5-win32.exe / lua / http / requests / vlm.xml < prev   
Extensible Markup Language  |  2012-12-12  |  4KB  |  158 lines
  1. <?xml version="1.0" encoding="utf-8" standalone="yes" ?<?vlc print '>'
  2. --[[
  3. vim:syntax=lua
  4. <!--  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - >
  5. <  vlm.xml: VLC media player web interface
  6. < - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - >
  7. <  Copyright (C) 2005-2006 the VideoLAN team
  8. <  $Id$
  9. < 
  10. <  Authors: Antoine Cellerier <dionoea -at- videolan -dot- org>
  11. < 
  12. <  This program is free software; you can redistribute it and/or modify
  13. <  it under the terms of the GNU General Public License as published by
  14. <  the Free Software Foundation; either version 2 of the License, or
  15. <  (at your option) any later version.
  16. < 
  17. <  This program is distributed in the hope that it will be useful,
  18. <  but WITHOUT ANY WARRANTY; without even the implied warranty of
  19. <  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20. <  GNU General Public License for more details.
  21. < 
  22. <  You should have received a copy of the GNU General Public License
  23. <  along with this program; if not, write to the Free Software
  24. <  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
  25. < - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
  26. ]]
  27.  
  28. local function insert_children(c,t)
  29.   print(c.children)
  30.     if c.children then
  31.       for _, d in ipairs(c.children) do
  32.         table.insert(t,d.value or d.name)
  33.         if d.value then
  34.         print("V"..d.value.."|")
  35.         end
  36.         if d.name then
  37.         print("N"..d.name.."|")
  38.         end
  39.       end
  40.     end
  41. end
  42. local function print_table(name,t)
  43.   print("<"..name.."s>")
  44.   if #t ~= 0 then
  45.     for _,v in ipairs(t) do
  46.       print("<"..name..">")
  47.         print(v)
  48.       print("</"..name..">")
  49.     end
  50.   end
  51.   print("</"..name.."s>")
  52. end
  53. local function print_media(m)
  54.   local name = m.name
  55.   local type_, enabled, output
  56.   local loop = ""
  57.   local inputs = {}
  58.   local options = {}
  59.   local instances = {}
  60.   for _,c in ipairs(m.children) do
  61.     if c.name=="type" then
  62.       type_ = c.value
  63.     elseif c.name=="enabled" then
  64.       enabled = c.value
  65.     elseif c.name=="loop" then
  66.       loop = c.value
  67.     elseif c.name=="output" then
  68.       output = c.value
  69.     elseif c.name=="inputs" then
  70.       insert_children(c,inputs)
  71.     elseif c.name=="options" then
  72.       insert_children(c,options)
  73.     elseif c.name=="instances" then
  74.       if c.children then
  75.         for _, d in ipairs(c.children) do
  76.           local instance = "<instance "
  77.           for _,e in ipairs(d.children) do
  78.             instance = instance .. e.name .. "=\"" .. e.value .. "\" "
  79.           end
  80.           instance = instance .. "/>"
  81.           table.insert(instances,instance)
  82.         end
  83.       end
  84.     end
  85.   end
  86.   print("<"..type_.." name=\""..name.."\" enabled=\""..enabled.."\" loop=\""..loop.."\">\n")
  87.   print("<output>"..output.."</output>\n")
  88.   print_table("input",inputs)
  89.   print_table("option",options)
  90.   print "<instances>\n"
  91.   if #instances ~= 0 then
  92.     print(table.concat(instances))
  93.   end
  94.   print "</instances>\n"
  95.   print("</"..type_..">\n")
  96. end
  97.  
  98. local function print_schedule(m)
  99.   local name = m.name
  100.   local enabled, date, period, repeat_ = "", "", "", ""
  101.   local commands = {}
  102.   for _,c in ipairs(m.children) do
  103.     if c.name=="enabled" then
  104.       enabled = c.value
  105.     elseif c.name=="date" then
  106.       date = c.value
  107.     elseif c.name=="period" then
  108.       period = c.value
  109.     elseif c.name=="repeat" then
  110.       repeat_ = c.value
  111.     elseif c.name=="commands" then
  112.       insert_children(c,commands)
  113.     end
  114.   end
  115.   print("<schedule name=\""..name.."\" enabled=\""..enabled.."\" period=\""..period.."\" repeat=\""..repeat_.."\">\n")
  116.   print_table("command",commands)
  117.   print("</schedule>\n")
  118. end
  119.  
  120. local function print_xml(m)
  121.   print "<vlm>"
  122.   if m then
  123.     for _, c in ipairs(m.children) do
  124.       if c.name=="media" and c.children then
  125.         for _, d in ipairs(c.children) do
  126.           print_media(d)
  127.         end
  128.       elseif c.name=="schedule" and c.children then
  129.         for _, d in ipairs(c.children) do
  130.           print_schedule(d)
  131.         end
  132.       end
  133.     end
  134.   else
  135.     print "oops"
  136.   end
  137.   print "</vlm>"
  138. end
  139.  
  140. local function print_msg(m)
  141.   if not m then return end
  142.   print("<"..m.name..">\n")
  143.   if m.children then
  144.     for _, child in ipairs(m.children) do
  145.       print_msg(child)
  146.     end
  147.   elseif m.value then
  148.     print(m.value)
  149.   end
  150.   print("</"..m.name..">\n")
  151. end
  152.  
  153. local msg = vlm:execute_command("show")
  154. print_xml(msg)
  155. --print_msg(msg)
  156.  
  157. ?>
  158.