diff options
| -rw-r--r-- | .local/share/libquvi-scripts/lua/website/zdfmediathek.lua | 219 |
1 files changed, 173 insertions, 46 deletions
diff --git a/.local/share/libquvi-scripts/lua/website/zdfmediathek.lua b/.local/share/libquvi-scripts/lua/website/zdfmediathek.lua index 9e75d4d..d5075ef 100644 --- a/.local/share/libquvi-scripts/lua/website/zdfmediathek.lua +++ b/.local/share/libquvi-scripts/lua/website/zdfmediathek.lua @@ -1,62 +1,126 @@ +local ZDFmediathek = {} -- Utility functions unique to this script. + -- Identify the script. function ident(self) package.path = self.script_dir .. '/?.lua' + local B = require 'quvi/bit' local C = require 'quvi/const' + local U = require 'quvi/util' local r = {} r.domain = "zdf%.de" r.formats = "default|best" - local B = require 'quvi/bit' r.categories = B.bit_or(C.proto_http, C.proto_rtsp) - 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" + local c = ZDFmediathek.get_config(self) + local fmts = ZDFmediathek.iter_formats(c) + local r = {} + + table.sort(fmts, ZDFmediathek.compare_format) + for _,f in pairs(fmts) do + table.insert(r, ZDFmediathek.to_s(f)) + end + self.formats = table.concat(r, "|") return self end -function parse_video(self, c) - local url = c:match('<quality>veryhigh</quality>%s*' .. - '<url>(http://n?rodl%.zdf%.de/[^<]+%.mp4)</url>') - or error("no match: url") - - local meta_url = c:match('<quality>hd</quality>%s*<url>([^>]+%.meta)</url>') - if meta_url then - url = http_mp4_from_meta(meta_url) 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") +-- Parse media URL. +function parse(self) + local U = require 'quvi/util' + + local c = ZDFmediathek.get_config(self) + local fmts = ZDFmediathek.iter_formats(c) + + local f = U.choose_format(self, fmts, + ZDFmediathek.choose_best, + ZDFmediathek.choose_default, + ZDFmediathek.to_s) + or error("unable to match format") + + self.url = { f.url or error("no match: media URL") } + + return self +end + +function ZDFmediathek.merge_format(fmt1, fmt2) + local t = {} + for k,v in pairs(fmt1) do t[k] = v end + for k,v in pairs(fmt2) do t[k] = v end + return t +end + +function ZDFmediathek.table_add_format(t, fmt) + -- Only accessible with HBBTV user agent, lets drop it + -- FIXME: store facets in fmt and match for <facet>hbbtv</facet>? + if fmt.url:match('http://www.metafilegenerator.de/') then + return end + -- The livestream smil URL is not accessible (404) + if fmt.type == "h264_aac_mp4_rtmp_smil_http" then + return + end + + table.insert(t, fmt) + + -- Some URLs/Formats are not explicitly listed but can be derived: - if (c:match('<height>576</height>%s*<width>1024</width>')) then - url = string.gsub(url, "1456k_p13v11", "2256k_p14v11") + -- The "high"-quality f4m file may contain a reference to a file that is + -- of better quality than "veryhigh" classified http streams. + -- Example: 2256k instead of 1496k + if fmt.quality == "high" and fmt.type == "h264_aac_f4f_http_f4m_http" then + local new = { type = "h264_aac_mp4_http_na_na", + container = "mp4", quality = "veryhigh_ext" } + new.url = ZDFmediathek.http_mp4_from_f4m(fmt.url) + if new.url then + table.insert(t, ZDFmediathek.merge_format(fmt, new)) + end end - self.url = { url } + if fmt.quality == "hd" and fmt.type == "h264_aac_mp4_rtmp_zdfmeta_http" then + local new = { type = "h264_aac_mp4_http_na_na", container = "mp4", + proto = "http" } + new.url = ZDFmediathek.http_mp4_from_meta(fmt.url) + if new.url then + table.insert(t, ZDFmediathek.merge_format(fmt, new)) + end + end - return self + return end -function parse_live_video(self, c) - self.url = { c:match("<quality>veryhigh</quality>%s*" .. - "<url>(rtsp://[^<]+)</url>") - or error("no match: rtsp url") } - return self +function ZDFmediathek.iter_formats(c) + local p = { + '<formitaet basetype="((.-)_(.-)_(.-)_(.-)_.-)".->', + '<quality>(.-)</quality>', + '<url>(.-)</url>', + '(.-)', + '</formitaet>' + } + local t = {} + + for type,vcodec,acodec,container,proto,quality,url,data in + c:gmatch(table.concat(p, '%s*')) do + f = { type = type, container = container, url = url, vcodec = vcodec, + acodec = acodec, proto = proto, quality = quality } + -- width and height are not available for live streams -> may be nil + f.width = tonumber(data:match("<width>(.-)</width>")) + f.height = tonumber(data:match("<height>(.-)</height>")) + ZDFmediathek.table_add_format(t, f) + end + + return t end --- Parse media URL. -function parse(self) +function ZDFmediathek.get_config(self) self.host_id = "zdfmediathek" - self.id = self.page_url:match("/ZDFmediathek/#?/?beitrag/video/(%d+)") or - self.page_url:match("/ZDFmediathek/#?/?beitrag/live/(%d+)") + self.id = self.page_url:match('/ZDFmediathek/#?/?beitrag/video/(%d+)') or + self.page_url:match('/ZDFmediathek/#?/?beitrag/live/(%d+)') or error ("no match: media id") local xml = { "http://www.zdf.de/", @@ -64,34 +128,97 @@ function parse(self) 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)) + error(table.concat({'error:', xml_get(c, 'statuscode', false), '-', + xml_get(c, 'debuginfo', false)}, ' ')) end - local type = xml_get(c, 'type', false) self.title = xml_get(c, 'title', false) - self.thumbnail_url = c:match('<teaserimage alt=".-" key="946x532">'.. - '([^<]+)</teaserimage>') - if type == "video" then - return parse_video(self, c) - elseif type == "livevideo" then - return parse_live_video(self, c) - else - error("unknown video type") + self.thumbnail_url = + c:match('<teaserimage alt=".-" key="946x532">([^<]+)</teaserimage>') + + -- Quirks for broken stream descriptors + if xml_get(c, 'type', false) == "livevideo" then + -- The server returns 403 without ?hdcore + c = c:gsub('manifest%.f4m</url>', 'manifest.f4m?hdcore</url>') + + -- Fix incorrect basetype + c = c:gsub('h264_aac_na_rtsp_mov_http', 'h264_aac_3gp_rtsp_na_na') end -end --- utlity + return c +end --- -function http_mp4_from_meta(meta_url) +function ZDFmediathek.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 +function ZDFmediathek.http_mp4_from_f4m(f4m_url) + local c = quvi.fetch(f4m_url, {fetch_type='config'}) + local max_bitrate = 0 + local path = nil + + for p, bitrate in c:gmatch('<media href="(.-)/manifest%.f4m%?hdcore"'.. + ' bitrate="(%d+)"/>') do + if tonumber(bitrate) > max_bitrate then + max_bitrate = tonumber(bitrate) + path = p + end + end + + return path and "http://nrodl.zdf.de/none/" .. path or nil +end + +function ZDFmediathek.rank_type(f) + local rank = { + h264_aac_mp4_http_na_na = 4, + vp8_vorbis_webm_http_na_na = 3, + h264_aac_3gp_rtsp_na_na = 2, + h264_aac_ts_http_m3u8_http = 1 + } + return rank[f.type] and rank[f.type] or 0 +end + +function ZDFmediathek.rank_quality(f) + local r = { + hd = 6, veryhigh_ext = 5, veryhigh = 4, high = 3, med = 2, low = 1 + } + return rank[f.quality] and rank[f.quality] or 0 +end + +function ZDFmediathek.compare_format(f1, f2) + local t1 = ZDFmediathek.rank_type(f1) + local t2 = ZDFmediathek.rank_type(f2) + + if (t1 ~= t2) then + return t1 > t2 + end + + if f1.width and f2.width and f1.height and f2.height then + local U = require 'quvi/util' + return U.is_higher_quality(f1, f2) + end + + return ZDFmediathek.rank_quality(f1) > ZDFmediathek.rank_quality(f2) +end + +function ZDFmediathek.choose_best(t) + table.sort(t, ZDFmediathek.compare_format) + return t[1] +end + +ZDFmediathek.choose_default = ZDFmediathek.choose_best + +function ZDFmediathek.to_s(t) + return string.format("%s%s_%s%s", + t.container, + (t.proto ~= "http") and '_' .. t.proto or '', + t.quality, + (t.height) and '_' .. t.height ..'p' or '') +end + --For very simple XML value extraction. function xml_get(d, e, is_cdata) |