share/media/tvlux.lua

   1 -- libquvi-scripts
   2 -- Copyright (C) 2011,2013  Toni Gundogdu <legatvs@gmail.com>
   3 --
   4 -- This file is part of libquvi-scripts <http://quvi.sourceforge.net/>.
   5 --
   6 -- This program is free software: you can redistribute it and/or
   7 -- modify it under the terms of the GNU Affero General Public
   8 -- License as published by the Free Software Foundation, either
   9 -- version 3 of the License, or (at your option) any later version.
  10 --
  11 -- This program is distributed in the hope that it will be useful,
  12 -- but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 -- GNU Affero General Public License for more details.
  15 --
  16 -- You should have received a copy of the GNU Affero General
  17 -- Public License along with this program.  If not, see
  18 -- <http://www.gnu.org/licenses/>.
  19 --
  20
  21 local TVLux = {} -- Utility functions unique to to this script.
  22
  23 -- Identify the media script.
  24 function ident(qargs)
  25   return {
  26     can_parse_url = TVLux.can_parse_url(qargs),
  27     domains = table.concat({'tvlux.be'}, ',')
  28   }
  29 end
  30
  31 -- Parse the media properties.
  32 function parse(qargs)
  33   local C = require 'quvi/const'
  34   local o = { [C.qoo_fetch_from_charset] = 'iso-8859-1' }
  35   local p = quvi.http.fetch(qargs.input_url, o).data
  36
  37   qargs.id = qargs.input_url:match('/video/.-(%d+)%.html$') or ''
  38
  39   qargs.title = p:match('<title>(.-)%s+%-%s+TV') or ''
  40
  41   qargs.thumb_url = p:match('"og:image" content="(.-)"') or ''
  42
  43   qargs.streams = TVLux.iter_streams(p)
  44
  45   return qargs
  46 end
  47
  48 --
  49 -- Utility functions
  50 --
  51
  52 function TVLux.can_parse_url(qargs)
  53   local U = require 'socket.url'
  54   local t = U.parse(qargs.input_url)
  55   if t and t.scheme and t.scheme:lower():match('^http$')
  56        and t.host   and t.host:lower():match('^www%.tvlux%.be$')
  57        and t.path   and t.path:lower():match('^/video/.-_%d+%.html$')
  58   then
  59     return true
  60   else
  61     return false
  62   end
  63 end
  64
  65 function TVLux.iter_streams(p)
  66   local d = p:match('setup%((.-)%)') or error('no match: setup')
  67
  68   local J = require 'json'
  69   local j = J.decode(d)
  70
  71   local u = {'http://www.tvlux.be'}
  72   table.insert(u, j['file'] or error('no match: media stream URL path'))
  73
  74   local S = require 'quvi/stream'
  75   local s = S.stream_new(table.concat(u,''))
  76
  77   s.video.height = tonumber(j['height'] or 0)
  78   s.video.width = tonumber(j['width'] or 0)
  79
  80   return {s}
  81 end
  82
  83 -- vim: set ts=2 sw=2 tw=72 expandtab: