a323249f08807b52989fa953bb20b524da8bb994
[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     return ( vlc.access == "http" or vlc.access == "https" )
28         and ( string.match( vlc.path, "vimeo%.com/%d+$" )
29               or string.match( vlc.path, "vimeo%.com/channels/(.-)/%d+$" )
30               or string.match( vlc.path, "player%.vimeo%.com" ) )
31         -- do not match other addresses,
32         -- else we'll also try to decode the actual video url
33 end
34
35 -- Parse function.
36 function parse()
37     if not string.match( vlc.path, "player%.vimeo%.com" ) then -- Web page URL
38         while true do
39             local line = vlc.readline()
40             if not line then break end
41
42             -- Get the appropriate ubiquitous meta tag. It appears twice:
43             -- <meta property="og:video:url" content="https://player.vimeo.com/video/123456789?autoplay=1">
44             -- <meta property="og:video:url" content="https://vimeo.com/moogaloop.swf?clip_id=123456789&amp;autoplay=1">
45             local meta = string.match( line, "(<meta[^>]- property=\"og:video:url\"[^>]->)" )
46             if meta then
47                 local path = string.match( meta, " content=\"(.-)\"" )
48                 -- Exclude moogaloop flash URL
49                 if path and string.match( path, "player%.vimeo%.com" ) then
50                     path = vlc.strings.resolve_xml_special_chars( path )
51                     return { { path = path } }
52                 end
53             end
54         end
55
56         vlc.msg.err( "Couldn't extract vimeo video URL, please check for updates to this script" )
57         return { }
58
59     else -- API URL
60
61         local prefres = vlc.var.inherit(nil, "preferred-resolution")
62         local bestres = nil
63         local line = vlc.readline() -- data is on one line only
64
65         for stream in string.gmatch( line, "{([^}]*\"profile\":[^}]*)}" ) do
66             local url = string.match( stream, "\"url\":\"(.-)\"" )
67             if url then
68                 -- Apparently the different formats available are listed
69                 -- in uncertain order of quality, so compare with what
70                 -- we have so far.
71                 local height = string.match( stream, "\"height\":(%d+)" )
72                 height = tonumber( height )
73
74                 -- Better than nothing
75                 if not path or ( height and ( not bestres
76             -- Better quality within limits
77             or ( ( prefres < 0 or height <= prefres ) and height > bestres )
78             -- Lower quality more suited to limits
79             or ( prefres > -1 and bestres > prefres and height < bestres )
80                 ) ) then
81                     path = url
82                     bestres = height
83                 end
84             end
85         end
86
87         if not path then
88             vlc.msg.err( "Couldn't extract vimeo video URL, please check for updates to this script" )
89             return { }
90         end
91
92         local name = string.match( line, "\"title\":\"(.-)\"" )
93         local artist = string.match( line, "\"owner\":{[^}]-\"name\":\"(.-)\"" )
94         local arturl = string.match( line, "\"thumbs\":{\"[^\"]+\":\"(.-)\"" )
95         local duration = string.match( line, "\"duration\":(%d+)[,}]" )
96
97         return { { path = path; name = name; artist = artist; arturl = arturl; duration = duration } }
98     end
99 end