<?xml version="1.0" encoding="utf-8" standalone="yes" ?>
<?vlc --[[
vim:syntax=lua
<!--  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - >
<  playlist.xml: VLC media player web interface
< - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - >
<  Copyright (C) 2005-2006 the VideoLAN team
<
<  Authors: Antoine Cellerier <dionoea -at- videolan -dot- org>
<  Authors: Rob Jonson <rob -at- hobbyistsoftware -dot- 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.
< - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -->
]] ?>

<?vlc

--package.loaded.httprequests = nil --uncomment to debug changes
local httprequests = require "httprequests"

local printleaf = function(item)
	print ("\n<leaf")

	for k,v in pairs(item) do

		if (k~="type") then
			print(" "..httprequests.xmlString(k).."=\""..httprequests.xmlString(v).."\"")
		end
    end

	print ("/>")
end

local printnode = function(item)
	local children=NULL

	print ("\n<node")

	for k,v in pairs(item) do

		if (k=="type") then

		elseif (k=="children") then
			children=v._array
		else
			print(" "..httprequests.xmlString(k).."=\""..httprequests.xmlString(v).."\"")
		end
    end

	print (">")

	return children
end

printitem = function(item)
	local children=NULL

	if item.type=="node" then
		children=printnode(item)
		if (children) then
			for i,v in ipairs(children) do
				printitem(v)
			end
		end
		print ("</node>")
	else
		printleaf(item)
	end

end

httprequests.processcommands()

local pt=httprequests.playlisttable()

printitem(pt)


?>
