vimeo.lua: Improve URL probe function
[vlc.git] / share / lua / playlist / vimeo.lua
1 --[[
2  $Id$
3
4  Copyright © 2009-2013 the VideoLAN team
5
6  Authors: Konstantin Pavlov (thresh@videolan.org)
7           François Revol (revol@free.fr)
8           Pierre Ynard
9
10  This program is free software; you can redistribute it and/or modify
11  it under the terms of the GNU General Public License as published by
12  the Free Software Foundation; either version 2 of the License, or
13  (at your option) any later version.
14
15  This program is distributed in the hope that it will be useful,
16  but WITHOUT ANY WARRANTY; without even the implied warranty of
17  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18  GNU General Public License for more details.
19
20  You should have received a copy of the GNU General Public License
21  along with this program; if not, write to the Free Software
22  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
23 --]]
24
25 -- Probe function.
26 function probe()
27     local path = vlc.path
28     path = path:gsub("^www%.", "")
29     return ( vlc.access == "http" or vlc.access == "https" )
30         and ( string.match( path, "^vimeo%.com/%d+$" )
31               or string.match( path, "^vimeo%.com/channels/(.-)/%d+$" )
32               or string.match( path, "^player%.vimeo%.com" ) )
33         -- do not match other addresses,
34         -- else we'll also try to decode the actual video url
35 end
36
37 -- Parse function.
38 function parse()
39     if not string.match( vlc.path, "player%.vimeo%.com" ) then -- Web page URL
40         while true do
41             local line = vlc.readline()
42             if not line then break end
43
44             -- Get the appropriate ubiquitous meta tag. It appears twice:
45             -- <meta property="og:video:url" content="https://player.vimeo.com/video/123456789?autoplay=1">
46             -- <meta property="og:video:url" content="https://vimeo.com/moogaloop.swf?clip_id=123456789&amp;autoplay=1">
47             local meta = string.match( line, "(<meta[^>]- property=\"og:video:url\"[^>]->)" )
48             if meta then
49                 local path = string.match( meta, " content=\"(.-)\"" )
50                 -- Exclude moogaloop flash URL
51                 if path and string.match( path, "player%.vimeo%.com" ) then
52                     path = vlc.strings.resolve_xml_special_chars( path )
53                     return { { path = path } }
54                 end
55             end
56         end
57
58         vlc.msg.err( "Couldn't extract vimeo video URL, please check for updates to this script" )
59         return { }
60
61     else -- API URL
62
63         local prefres = vlc.var.inherit(nil, "preferred-resolution")
64         local bestres = nil
65         local line = vlc.readline() -- data is on one line only
66
67         for stream in string.gmatch( line, "{([^}]*\"profile\":[^}]*)}" ) do
68             local url = string.match( stream, "\"url\":\"(.-)\"" )
69             if url then
70                 -- Apparently the different formats available are listed
71                 -- in uncertain order of quality, so compare with what
72                 -- we have so far.
73                 local height = string.match( stream, "\"height\":(%d+)" )
74                 height = tonumber( height )
75
76                 -- Better than nothing
77                 if not path or ( height and ( not bestres
78             -- Better quality within limits
79             or ( ( prefres < 0 or height <= prefres ) and height > bestres )
80             -- Lower quality more suited to limits
81             or ( prefres > -1 and bestres > prefres and height < bestres )
82                 ) ) then
83                     path = url
84                     bestres = height
85                 end
86             end
87         end
88
89         if not path then
90             vlc.msg.err( "Couldn't extract vimeo video URL, please check for updates to this script" )
91             return { }
92         end
93
94         local name = string.match( line, "\"title\":\"(.-)\"" )
95         local artist = string.match( line, "\"owner\":{[^}]-\"name\":\"(.-)\"" )
96         local arturl = string.match( line, "\"thumbs\":{\"[^\"]+\":\"(.-)\"" )
97         local duration = string.match( line, "\"duration\":(%d+)[,}]" )
98
99         return { { path = path; name = name; artist = artist; arturl = arturl; duration = duration } }
100     end
101 end