share/media/canalplus.lua

   1 -- libquvi-scripts
   2 -- Copyright (C) 2013  Mohamed El Morabity <melmorabity@fedoraproject.org>
   3 -- Copyright (C) 2012  Paul Kocialkowski <contact@paulk.fr>
   4
   5 -- This file is part of libquvi-scripts <http://quvi.sourceforge.net/>.
   6 --
   7 -- This program is free software: you can redistribute it and/or
   8 -- modify it under the terms of the GNU Affero General Public
   9 -- License as published by the Free Software Foundation, either
  10 -- version 3 of the License, or (at your option) any later version.
  11 --
  12 -- This program is distributed in the hope that it will be useful,
  13 -- but WITHOUT ANY WARRANTY; without even the implied warranty of
  14 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 -- GNU Affero General Public License for more details.
  16 --
  17 -- You should have received a copy of the GNU Affero General
  18 -- Public License along with this program.  If not, see
  19 -- <http://www.gnu.org/licenses/>.
  20 --
  21
  22 local CanalPlus = {} -- Utility functions unique to to this script.
  23
  24 -- Identify the media script.
  25 function ident(qargs)
  26   return {
  27     can_parse_url = CanalPlus.can_parse_url(qargs),
  28     domains = table.concat({'canalplus.fr', 'd8.tv', 'd17.tv'}, ',')
  29   }
  30 end
  31
  32 -- Parse media properties.
  33 function parse(qargs)
  34   local J = require 'json'
  35
  36   local p = quvi.http.fetch(qargs.input_url).data
  37
  38   -- Make mandatory: needed to fetch the video data JSON.
  39   qargs.id = p:match('videoId%s*=%s*"?(%d+)"?')
  40                or error('no match: media ID')
  41
  42   -- Get the channel ID.
  43   local channel = p:match('src="http://player%.canalplus%.fr/common/js/'
  44                            .. 'canalPlayer%.js%?param=(.-)"')
  45                                  or error('no match: channel ID')
  46
  47   -- Fetch the video data JSON.
  48   local t = {
  49      'http://service.canal-plus.com/video/rest/getVideos/', channel, '/',
  50      qargs.id, '?format=json'
  51   }
  52
  53   local c = quvi.http.fetch(table.concat(t)).data
  54   j = J.decode(c)
  55
  56   qargs.thumb_url = j['MEDIA']['IMAGES']['GRAND']
  57
  58   qargs.title = j['INFOS']['TITRAGE']['TITRE']
  59
  60   qargs.streams = CanalPlus.iter_streams(j)
  61
  62   return qargs
  63 end
  64
  65 --
  66 -- Utility functions
  67 --
  68
  69 function CanalPlus.can_parse_url(qargs)
  70   local U = require 'socket.url'
  71   local t = U.parse(qargs.input_url)
  72   if t and t.scheme and t.scheme:lower():match('^http$')
  73        and t.host   and (t.host:lower():match('canalplus%.fr$')
  74                          or t.host:lower():match('d8%.tv$')
  75                          or t.host:lower():match('d17%.tv$'))
  76        and t.path   and t.path:lower():match('/pid%d+') then
  77     return true
  78   else
  79     return false
  80   end
  81 end
  82
  83 function CanalPlus.iter_streams(j)
  84   local S = require 'quvi/stream'
  85
  86   local d = j['MEDIA']['VIDEOS']
  87   local r = {}
  88
  89   for q, v in pairs(d) do
  90     if v ~= ''
  91       -- Some streams have denied accessed, just ignore them.
  92       and q ~= 'HDS' and q ~= 'HLS' and q ~= 'IPHONE' and q ~= 'IPAD' then
  93       local t = S.stream_new(v)
  94       t.nostd = { quality = q }  -- Ignored by libquvi.
  95       t.id = CanalPlus.to_id(t)
  96       table.insert(r, t)
  97     end
  98   end
  99
 100   if #r >1 then
 101     CanalPlus.ch_best(S, r)
 102   end
 103
 104   return r
 105 end
 106
 107 function CanalPlus.ch_best(S, t)
 108   -- Available video qualities.
 109   -- HD         -> High definition
 110   -- HAUT_DEBIT -> Broadband access
 111   -- BAS_DEBIT  -> Dial-up access
 112   -- MOBILE     -> Mobile access
 113   local q = { HD = 4, HAUT_DEBIT = 3, BAS_DEBIT = 2, MOBILE = 1 }
 114   local r = t[1]
 115   r.flags.best = true
 116   for _,v in pairs(t) do
 117     if q[v.nostd.quality] > q[r.nostd.quality] then
 118       r = S.swap_best(r, v)
 119     end
 120   end
 121 end
 122
 123 function CanalPlus.to_id(t)
 124   return t.nostd.quality:lower()
 125 end
 126
 127 -- vim: set ts=2 sw=2 tw=72 expandtab: