vlc | branch: master | Konstantin Pavlov <thr...@altlinux.org> | Mon Jul 19 14:01:46 2010 +0400| [8970ff6d495ee362098545b8f4a075ebda5d8099] | committer: Konstantin Pavlov
Fix MPORA lua playlist script. > http://git.videolan.org/gitweb.cgi/vlc.git/?a=commit;h=8970ff6d495ee362098545b8f4a075ebda5d8099 --- share/lua/playlist/mpora.lua | 31 +++++++++++++++++++++++++++---- 1 files changed, 27 insertions(+), 4 deletions(-) diff --git a/share/lua/playlist/mpora.lua b/share/lua/playlist/mpora.lua index 1144685..8282f76 100644 --- a/share/lua/playlist/mpora.lua +++ b/share/lua/playlist/mpora.lua @@ -42,11 +42,34 @@ function parse() if string.match( line, "filmID" ) then _,_,video = string.find( line, "var filmID = \'(.*)\';") - table.insert( p, { path = "http://cdn0.mpora.com/play/video/"..video.."/mp4/";; name = name; arturl = arturl } ) - end - if string.match( line, "definitionLink hd" ) then - table.insert( p, { path = "http://cdn0.mpora.com/play/video/"..video.."_hd/mp4/";; name = name.." (HD)", arturl = arturl } ) end + end + + if not name or not arturl or not video then return nil end + + -- Try and get URL for SD video. + sd = vlc.stream("http://api.mpora.com/tv/player/playlist/vid/"..video.."/";) + if not sd then return nil end + page = sd:read( 65653 ) + sdurl = string.match( page, "url=\"(.*)\" />") + page = nil + + table.insert( p, { path = sdurl; name = name; arturl = arturl; } ) + + -- Try and check if HD video is available. + checkhd = vlc.stream("http://api.mpora.com/tv/player/load/vid/"..video.."/platform/video/domain/video.mpora.com/"; ) + if not checkhd then return nil end + page = checkhd:read( 65653 ) + hashd = tonumber( string.match( page, "<has_hd>(%d)</has_hd>" ) ) + page = nil + + if hashd then + hd = vlc.stream("http://api.mpora.com/tv/player/playlist/vid/"..video.."/hd/true/";) + page = hd:read( 65653 ) + hdurl = string.match( page, "url=\"(.*)\" />") + table.insert( p, { path = hdurl; name = name.." (HD)"; arturl = arturl } ) + end + return p end _______________________________________________ vlc-commits mailing list vlc-commits@videolan.org http://mailman.videolan.org/listinfo/vlc-commits
