1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
-- Identify the script.
function ident(self)
package.path = self.script_dir .. '/?.lua'
local C = require 'quvi/const'
local r = {}
r.domain = "zdf%.de"
r.formats = "default|best"
r.categories = C.proto_http
local U = require 'quvi/util'
r.handles = U.handles(self.page_url, {r.domain}, {"/ZDFmediathek/"})
return r
end
-- Query available formats.
function query_formats(self)
self.formats = "default|best"
return self
end
-- Parse media URL.
function parse(self)
self.host_id = "zdfmediathek"
self.id = self.page_url:match("/ZDFmediathek/#?/?beitrag/video/(%d+)")
or error ("no match: media id")
local xml = { "http://www.zdf.de/",
"ZDFmediathek/xmlservice/web/beitragsDetails?id=", self.id }
local c = quvi.fetch(table.concat(xml), {fetch_type='config'})
if not(c:match('<statuscode>ok</statuscode>')) then
local msg = { 'error: ', xml_get(c, 'statuscode', false),
' - ', xml_get(c, 'debuginfo', false) }
error(table.concat(msg))
end
self.title = xml_get(c, 'title', false)
self.thumbnail_url = c:match('<teaserimage alt=".-" key="946x532">'..
'([^<]+)</teaserimage>')
local url = c:match('<quality>veryhigh</quality>%s*' ..
'<url>(http://n?rodl%.zdf%.de/[^<]+%.mp4)</url>')
if (c:match('<height>576</height>%s*<width>1024</width>')) then
url = string.gsub(url, "1456k_p13v11", "2256k_p14v11")
end
meta = c:match('<quality>hd</quality>%s*<url>([^>]+%.meta)</url>')
if meta then
url = http_mp4_from_meta(meta) or url
-- OLD code:
-- known replacements from veryhigh mp4 to hd mp4:
-- either: suffix _hd instead of _vh
--url = string.gsub(url, "_vh.mp4", "_hd.mp4")
-- or:
--url = string.gsub(url, "1596k_p13v9", "3056k_p15v9")
end
self.url = { url }
return self
end
-- utlity
--
function http_mp4_from_meta(meta_url)
local c = quvi.fetch(meta_url, {fetch_type='config'})
local path = c:match("mp4:(.-%.mp4)")
return path and "http://nrodl.zdf.de/none/" .. path or nil
end
--For very simple XML value extraction.
function xml_get(d, e, is_cdata)
local p = is_cdata and '.-%w+%[(.-)%].-' or '(.-)'
local t = {'<',e,'>', p, '</',e,'>'}
return d:match(table.concat(t))
or error(table.concat({'no match: element: ',e}))
end
-- vim: set ts=4 sw=4 tw=72 expandtab:
|
