share/lua/website/blip.lua

   1
   2 -- libquvi-scripts
   3 -- Copyright (C) 2011-2012  Toni Gundogdu <legatvs@gmail.com>
   4 --
   5 -- This file is part of libquvi-scripts <http://quvi.sourceforge.net/>.
   6 --
   7 -- This library is free software; you can redistribute it and/or
   8 -- modify it under the terms of the GNU Lesser General Public
   9 -- License as published by the Free Software Foundation; either
  10 -- version 2.1 of the License, or (at your option) any later version.
  11 --
  12 -- This library 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 GNU
  15 -- Lesser General Public License for more details.
  16 --
  17 -- You should have received a copy of the GNU Lesser General Public
  18 -- License along with this library; if not, write to the Free Software
  19 -- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  20 -- 02110-1301  USA
  21 --
  22
  23 -- Based on get-flash-videos' Blip.pm
  24 -- <https://github.com/monsieurvideo/get-flash-videos/>
  25
  26 local Blip = {} -- Utility functions unique to this script.
  27
  28 -- Identify the script.
  29 function ident(self)
  30     package.path = self.script_dir .. '/?.lua'
  31     local C      = require 'quvi/const'
  32     local r      = {}
  33     r.domain     = "blip%.tv"
  34     r.formats    = "default|best"
  35     r.categories = C.proto_http
  36     local U      = require 'quvi/util'
  37     r.handles    = U.handles(self.page_url, {r.domain},
  38                     -- Paths: Room for improvement.
  39                     {"/file/%d+",
  40                      "/play/%w+",
  41                      "/flash/%d+",
  42                      "/scripts/flash/",
  43                      "%-%d+"})
  44     return r
  45 end
  46
  47 -- Query formats.
  48 function query_formats(self)
  49     local c = Blip.get_config(self)
  50     local formats = Blip.iter_formats(c)
  51
  52     local t = {}
  53     for _,v in pairs(formats) do
  54         table.insert(t, Blip.to_s(v))
  55     end
  56
  57     table.sort(t)
  58     self.formats = table.concat(t, "|")
  59
  60     return self
  61 end
  62
  63 -- Parse media URL.
  64 function parse(self)
  65     self.host_id = "blip"
  66
  67     local c,U = Blip.get_config(self)
  68
  69     self.title = c:match('media:title>(.-)</')
  70                   or error('no match: media title')
  71
  72     self.thumbnail_url = c:match('<blip:smallThumbnail>(.-)<') or ''
  73
  74     local formats = Blip.iter_formats(c)
  75     local format  = U.choose_format(self, formats,
  76                                      Blip.choose_best,
  77                                      Blip.choose_default,
  78                                      Blip.to_s)
  79                         or error("unable to choose format")
  80     self.url      = {format.url or error("no match: media URL")}
  81     return self
  82 end
  83
  84 --
  85 -- Utility functions
  86 --
  87
  88 function Blip.get_config(self)
  89     local U       = require 'quvi/util'
  90     self.page_url = U.unescape(self.page_url)
  91
  92     local id = self.page_url:match('/flash/(%d+)')
  93     if not id then
  94         local r = quvi.resolve(self.page_url)
  95         if #r > 0 then
  96             r = U.unescape(r)
  97             id = r:match('/rss/flash/(%d+)')
  98         end
  99     end
 100
 101     if not id then
 102         local p = quvi.fetch(self.page_url)
 103         id = p:match('data%-posts%-id="(.-)"')
 104     end
 105     self.id = id or error('no match: media ID')
 106
 107     local c_url = 'http://blip.tv/rss/flash/' .. self.id
 108
 109     return quvi.fetch(c_url, {fetch_type='config'}), U
 110 end
 111
 112 function Blip.iter_formats(c)
 113     local p = '<media:content url="(.-)"'
 114            .. '.-blip:role="(.-)"'
 115            .. '.-height="(.-)"'
 116            .. '.-isDefault="(.-)"'
 117            .. '.-width="(.-)"'
 118     local t = {}
 119     for u,r,h,d,w in c:gmatch(p) do
 120         r = string.lower(r)
 121         r = r:gsub(' ','_')
 122         r = r:gsub('[()]','')
 123         w = (w ~= nil) and tonumber(w) or 0 -- Some media do not have 'width'
 124         h = (h ~= nil) and tonumber(h) or 0 -- or 'height', e.g. audio
 125         local s = u:match('%.(%w+)$')
 126         table.insert(t, {width=w, height=h, url=u, default=d,
 127                          role=r,  container=s})
 128     end
 129     return t
 130 end
 131
 132 function Blip.choose_best(formats) -- Highest quality available
 133     local r = {width=0, height=0, url=nil}
 134     local U = require 'quvi/util'
 135     for _,v in pairs(formats) do
 136         if U.is_higher_quality(v,r) then
 137             r = v
 138         end
 139     end
 140 --    for k,v in pairs(r) do print(k,v) end
 141     return r
 142 end
 143
 144 function Blip.choose_default(formats) -- Website sets this flag, reuse it.
 145     for _,v in pairs(formats) do
 146         if v.default == 'true' then
 147 --            for k,_v in pairs(v) do print(k,_v) end
 148             return v
 149         end
 150     end
 151     error('no match: default')
 152 end
 153
 154 function Blip.to_s(t)
 155     return (t.height > 0)
 156         and string.format("%s_%s_%sp", t.container, t.role, t.height)
 157         or  string.format("%s_%s", t.container, t.role)
 158 end
 159
 160 -- vim: set ts=4 sw=4 tw=72 expandtab: