qml: Create VideoGroupsDisplay
[vlc.git] / share / lua / playlist / zapiks.lua
1 --[[
2  $Id$
3
4  Copyright © 2011 the VideoLAN team
5
6  Authors: Konstantin Pavlov (thresh@videolan.org)
7
8  This program is free software; you can redistribute it and/or modify
9  it under the terms of the GNU General Public License as published by
10  the Free Software Foundation; either version 2 of the License, or
11  (at your option) any later version.
12
13  This program is distributed in the hope that it will be useful,
14  but WITHOUT ANY WARRANTY; without even the implied warranty of
15  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16  GNU General Public License for more details.
17
18  You should have received a copy of the GNU General Public License
19  along with this program; if not, write to the Free Software
20  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
21 --]]
22
23 -- Probe function.
24 function probe()
25     local path = vlc.path:gsub("^www%.", "")
26     return vlc.access == "http"
27         and ( string.match( vlc.path, "^zapiks%.fr/(.*)%.html" )
28             or string.match( vlc.path, "^zapiks%.fr/view/.+" )
29             or string.match( vlc.path, "^26in%.fr/videos/.+" ) )
30 end
31
32 -- Parse function.
33 function parse()
34     if string.match ( vlc.path, "zapiks.fr/(.+).html" ) or string.match( vlc.path, "26in.fr/videos/" ) then
35         while true do
36             line = vlc.readline()
37             if not line then break end
38             -- Try to find video id number
39             if string.match( line, "video_src(.+)file=(%d+)\"" ) then
40                 _,_,id = string.find( line, "file=(%d+)")
41             end
42             -- Try to find title
43             if string.match( line, "(.*)</title>" ) then
44                 _,_,name = string.find( line, "(.*)</title>" )
45             end
46         end
47         return { { path = "http://www.zapiks.fr/view/index.php?file=" .. id, name = name } }
48     end
49
50     if string.match ( vlc.path, "zapiks.fr/view/." ) then
51         prefres = vlc.var.inherit(nil, "preferred-resolution")
52         while true do
53             line = vlc.readline()
54             if not line then break end
55             -- Try to find URL of video
56             if string.match( line, "<file>(.*)</file>" ) then
57                 _,_,path = string.find ( line, "<file>(.*)</file>" )
58             end
59             -- Try to find image for arturl
60             if string.match( line, "<image>(.*)</image>" ) then
61                 _,_,arturl = string.find( line, "<image>(.*)</image>" )
62             end
63             if string.match( line, "title=\"(.*)\"" ) then
64                 _,_,name = string.find( line, "title=\"(.*)\"" )
65             end
66             -- Try to find whether video is HD actually
67             if( prefres <0 or prefres >= 720 ) then
68                 if string.match( line, "<hd.file>(.*)</hd.file>" ) then
69                     _,_,path = string.find( line, "<hd.file>(.*)</hd.file>" )
70                 end
71             end
72         end
73         return { { path = path; name = name; arturl = arturl } }
74     end
75     vlc.msg.err( "Could not extract the video URL from zapiks.fr" )
76     return {}
77 end