lua_sd: add an sd for magnatune (proof of concept for the moment).

share/lua/sd/magnatune.lua

+--[[
+ $Id$
+
+ Copyright © 2010 VideoLAN and AUTHORS
+
+ Authors: Rémi Duraffort  <ivoire at videolan dot org>
+
+ 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.
+--]]
+
+require "simplexml"
+
+function descriptor()
+    return { title="Magnatune" }
+end
+
+function main()
+    add_top_albums()
+end
+
+function add_top_albums()
+    local fd = vlc.stream( "http://magnatune.com/genres/m3u/ranked_all.xspf" )
+    if not fd then return end
+    local file = ''
+    local line = ''
+    while line ~= nil do
+        line = fd:readline()
+        if line ~= nil then
+            -- repair the XML stream if needed
+            file = file .. string.gsub(line, ' & ', ' &amp; ')
+        end
+    end
+
+    local node = vlc.sd.add_node( {title = "Most popular albums"} )
+
+    local tree = simplexml.parse_string( file )
+    simplexml.add_name_maps( tree )
+    local track_list = tree.children_map['trackList'][1]
+    for _, track in ipairs( track_list.children ) do
+        simplexml.add_name_maps( track )
+        local track_item = node:add_subitem(
+                { path     = string.gsub(track.children_map['location'][1].children[1], ' ', '%%20'),
+                  title    = track.children_map['annotation'][1].children[1],
+                  arturl   = track.children_map['image'][1].children[1] })
+    end
+end
+