Update video streams

Removed note about VLC 3.0

README.md

@@ -1,4 +1,4 @@
-# vlc-mediaklikk
+# vlc-mediaklikk-video
 VLC playlist parser for MédiaKlikk videos and video streams
 
 ## Installation
@@ -22,11 +22,14 @@ Copy [mediaklikk-video.lua](mediaklikk-video.lua) to [VLC Lua playlist scripts](
 * [mediaklikk.hu](https://www.mediaklikk.hu/)
 
 ### Video streams
-* [M1](https://www.mediaklikk.hu/m1-elo)
+* [M1](https://hirado.hu/elo/m1)
 * [M2](https://www.mediaklikk.hu/m2-elo)
-* [M4](https://www.mediaklikk.hu/m4-elo)
+* [M4 Sport](https://m4sport.hu/elo/mtv4live)
+* [M4 Sport +](https://m4sport.hu/elo/mtv4plus)
 * [M5](https://www.mediaklikk.hu/m5-elo)
 * [Duna](https://www.mediaklikk.hu/duna-elo)
 * [Duna World](https://www.mediaklikk.hu/duna-world-elo)
 
-Video streams require VLC 3.0+ (currently available from [nightly builds](https://nightlies.videolan.org/)).
+## On addons.videolan.org
+
+This playlist parser is also [available on addons.videolan.org](https://addons.videolan.org/p/1190582/).

mediaklikk-video.lua

@@ -1,189 +1,88 @@
-local tables
-local streams
-local urls
-local log
+local dkjson = require('dkjson')
+local log = {}
+local openGraph = {}
+local streams = {}
+local tables = {}
 
-local function noPlaylist(reason)
-  log.err('Failed to create playlist:', reason)
-end
-
-local Object = {}
-
-function Object:new(overrides)
-  return setmetatable(overrides or {}, {__index = self})
-end
-
-local Parser = Object:new()
-local VideoParser = Parser:new()
-local LiveStreamParser = Parser:new()
-
-local parsers = {
-  LiveStreamParser:new{urlPattern = 'mediaklikk%.hu/m1%-elo'},
-  LiveStreamParser:new{urlPattern = 'mediaklikk%.hu/m2%-elo'},
-  LiveStreamParser:new{urlPattern = 'mediaklikk%.hu/m4%-elo'},
-  LiveStreamParser:new{urlPattern = 'mediaklikk%.hu/m5%-elo'},
-  LiveStreamParser:new{urlPattern = 'mediaklikk%.hu/duna%-elo'},
-  LiveStreamParser:new{urlPattern = 'mediaklikk%.hu/duna%-world%-elo'},
-  VideoParser:new{urlPattern = 'hirado%.hu'},
-  VideoParser:new{urlPattern = 'm4sport%.hu'},
-  VideoParser:new{urlPattern = 'mediaklikk%.hu'}
+local urlPatterns = {
+  'hirado%.hu',
+  'm4sport%.hu',
+  'mediaklikk%.hu'
 }
 
 function probe()
-  return tables.some(Parser.probe, parsers)
+  return vlc.access:match('https?') and tables.find(urlPatterns, function(pattern)
+    return vlc.path:match(pattern)
+  end)
 end
 
 function parse()
-  local parser = tables.find(Parser.probe, parsers)
-  if not parser then
-    return noPlaylist('could not find Parser')
-  end
-
-  return parser:parse()
-end
-
-local protocol = vlc.access .. '://'
-
-function Parser:probe()
-  return vlc.access:match('https?') and vlc.path:match(self.urlPattern) and not vlc.path:match('player%.mediaklikk%.hu')
-end
-
-function Parser:parse()
   local pageSource = streams.readAll(vlc)
 
-  log.dbg('Extracting Player URLs...')
+  if vlc.path:match('player%.mediaklikk%.hu') then
+    log.dbg('Player loaded, finding player options json')
 
-  local playerUrls = self:playerUrls(pageSource)
-  if #playerUrls == 0 then
-    return noPlaylist('could not find any Player URL')
-  end
-
-  log.dbg('Player URLs:', unpack(playerUrls))
-  log.dbg('Extracting Paths...')
-
-  local function findPath(playerUrl)
-    local path = self:path(playerUrl)
-    if not path then
-      log.warn('could not extract Path from', playerUrl)
+    local playerOptionsJson = pageSource:match('pl.setup%( (%b{}) %);')
+    if not playerOptionsJson then
+      log.warn('Cannot find player options json')
+      return nil
     end
 
-    return path
+    log.dbg('Finding playlist items of type hls')
+
+    local playerOptions = dkjson.decode(playerOptionsJson)
+    local playlistItems = tables.filter(playerOptions.playlist, function(playlistItem)
+      return playlistItem.type == 'hls'
+    end)
+
+    log.dbg('Number of playlist items:', #playlistItems)
+
+    local params = tables.map(tables.toMap(vlc.path:gmatch('[?&]([^=]+)=([^&]*)')), function(param)
+      return vlc.strings.decode_uri(param)
+    end)
+
+    return tables.map(playlistItems, function(playlistItem)
+      return {
+        path = playlistItem.file:gsub('^//', vlc.access .. '://'),
+        title = params.title,
+        arturl = params.bgimage
+      }
+    end)
   end
 
-  local paths = tables.map(findPath, playerUrls)
-  if #paths == 0 then
-    return noPlaylist('could not find any Path')
-  end
+  log.dbg('Finding embedded players');
 
-  log.dbg('Paths:', unpack(paths))
+  local playerSetupJsons = tables.toArray(pageSource:gmatch('mtva_player_manager%.player%(document%.getElementById%("player_%d+_%d+"%), (%b{})%);'));
 
-  local function playListItem(path)
-    return self:playListItem(path, pageSource)
-  end
+  log.dbg('Number of players:', #playerSetupJsons)
 
-  return tables.map(playListItem, paths)
-end
+  return tables.map(playerSetupJsons, function(playerSetupJson)
+    local playerSetup = dkjson.decode(playerSetupJson)
+    local video = playerSetup.streamId or playerSetup.token
 
-function Parser:path(playerUrl)
-  local playerPageSource = streams.readAll(vlc.stream(playerUrl))
-  local path = playerPageSource:match('"file":%s*"(.-)"')
-  if path then
-    return urls.normalize(path)
-  end
-end
-
-function VideoParser:playerUrls(pageSource)
-  local function playerUrl(token)
-    return protocol .. 'player.mediaklikk.hu/player/player-external-vod-full.php?hls=1&token=' .. token
-  end
-
-  local tokens = tables.collect(pageSource:gmatch('"token":%s*"(.-)"'))
-  return tables.map(playerUrl, tokens)
-end
-
-function VideoParser:playListItem(path, pageSource)
-  local function findProperty(property)
-    return pageSource:match('<meta%s+property=["\']og:' .. property .. '["\']%s+content=["\'](.-)["\']%s*/?>')
-  end
-
-  return {
-    path = path,
-    title = findProperty('title'),
-    description = findProperty('description'),
-    arturl = urls.normalize(findProperty('image'))
-  }
-end
-
-function LiveStreamParser:playerUrls(pageSource)
-  local streamId = pageSource:match('"streamId":%s*"(.-)"')
-  if not streamId then
-    return {}
-  end
-
-  return {protocol .. 'player.mediaklikk.hu/playernew/player.php?noflash=yes&video=' .. streamId}
-end
-
-function LiveStreamParser:playListItem(path, pageSource)
-  return {
-    path = path,
-    title = pageSource:match('<title>(.-)</title>')
-  }
-end
-
-tables = {
-  find = function(predicate, values)
-    for key, value in ipairs(values) do
-      if predicate(value, key, values) then
-        return value, key
-      end
+    if not video then
+      log.warn('Cannot find either streamId or token in player setup json:', playerSetupJson)
+      return nil
     end
-  end,
 
-  some = function(predicate, values)
-    local value, key = tables.find(predicate, values)
-    return key
-  end,
+    local title = playerSetup.title or openGraph.property(pageSource, 'title')
+    local arturl = (playerSetup.bgImage and vlc.access .. ':' .. playerSetup.bgImage) or openGraph.property(pageSource, 'image')
+    local playerUrl = vlc.access .. '://player.mediaklikk.hu/playernew/player.php?video=' .. video ..
+      ((title and '&title=' .. vlc.strings.encode_uri_component(title)) or '') ..
+      ((arturl and '&bgimage=' .. vlc.strings.encode_uri_component(arturl)) or '')
 
-  collect = function(iterator, state, initialValue)
-    local result = {}
-    for value in iterator, state, initialValue do
-      table.insert(result, value)
-    end
-    return result
-  end,
+    log.dbg('Loading player:', playerUrl)
 
-  map = function(transform, values)
-    local result = {}
-    for key, value in ipairs(values) do
-      result[key] = transform(value, i, values)
-    end
-    return result
-  end
-}
-
-streams = {
-  lines = function(s)
-    return s.readline, s, nil
-  end,
-
-  readAll = function(s)
-    return table.concat(tables.collect(streams.lines(s)), '\n')
-  end
-}
-
-urls = {
-  normalizations = {
-    {pattern = '\\(.)', replacement = '%1'},
-    {pattern = '^//', replacement = protocol}
-  },
-
-  normalize = function(url)
-    for i, normalization in ipairs(urls.normalizations) do
-      url = url:gsub(normalization.pattern, normalization.replacement)
-    end
-    return url
-  end
-}
+    return {
+      path = playerUrl,
+      title = title,
+      arturl = arturl,
+      options = {
+        'http-referrer=' .. vlc.access .. '://' .. vlc.path
+      }
+    }
+  end)
+end
 
 local function logger(vlcLog)
   return function(...)
@@ -191,9 +90,66 @@ local function logger(vlcLog)
   end
 end
 
-log = {
-  dbg = logger(vlc.msg.dbg),
-  warn = logger(vlc.msg.warn),
-  err = logger(vlc.msg.err),
-  info = logger(vlc.msg.info)
-}
+log.dbg = logger(vlc.msg.dbg)
+log.warn = logger(vlc.msg.warn)
+log.err = logger(vlc.msg.err)
+log.info = logger(vlc.msg.info)
+
+function openGraph.property(source, property)
+  return source:match('<meta property="og:' .. property .. '" content="(.-)"/>')
+end
+
+function streams.readAll(s)
+  local function iterator(size)
+    if s == vlc then
+      return s.read(size)
+    else
+      return s:read(size)
+    end
+  end
+
+  return table.concat(tables.toArray(iterator, 1024, nil));
+end
+
+function tables.find(values, predicate)
+  for key, value in pairs(values) do
+    if predicate(value, key, values) then
+      return value, key
+    end
+  end
+end
+
+function tables.toArray(iterator, state, initialValue)
+  local result = {}
+  for value in iterator, state, initialValue do
+    table.insert(result, value)
+  end
+  return result
+end
+
+function tables.toMap(iterator, state, initialValue)
+  local result = {}
+  for key, value in iterator, state, initialValue do
+    result[key] = value
+  end
+  return result
+end
+
+function tables.map(values, transform)
+  local result = {}
+  for key, value in pairs(values) do
+    result[key] = transform(value, key, values)
+  end
+  return result
+end
+
+
+function tables.filter(values, predicate)
+  local result = {}
+  for key, value in pairs(values) do
+    if predicate(value, key, values) then
+      result[key] = value
+    end
+  end
+  return result
+end