share/media/sevenload.lua

   1 -- libquvi-scripts
   2 -- Copyright (C) 2010-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 -- Identify the script.
  22 function ident(self)
  23     package.path = self.script_dir .. '/?.lua'
  24     local C      = require 'quvi/const'
  25     local r      = {}
  26     r.domain     = "sevenload%.com"
  27     r.formats    = "default"
  28     r.categories = C.proto_http
  29     local U      = require 'quvi/util'
  30     r.handles    = U.handles(self.page_url, {r.domain}, {'/videos/'})
  31     return r
  32 end
  33
  34 -- Query available formats.
  35 function query_formats(self)
  36     self.formats = 'default'
  37     return self
  38 end
  39
  40 -- Parse media URL.
  41 function parse(self)
  42     self.host_id = "sevenload"
  43
  44     local p = quvi.fetch(self.page_url):gsub('&quot;','"')
  45
  46     self.thumbnail_url = p:match('"og:image" content="(.-)"') or ''
  47
  48     self.title = p:match('"og:title" content="(.-)"')
  49                   or error('no match: media title')
  50
  51     self.id = p:match('videoid":"(.-)"') or error("no match: media id")
  52
  53     self.url = {p:match('src.+"(http://.+%.mp4)"')
  54                 or error("no match: media stream URL")}
  55
  56     return self
  57 end
  58
  59 -- vim: set ts=4 sw=4 tw=72 expandtab: