Update NEWS for v0.9.20131130
[libquvi-scripts.git] / share / lua / website / xhamster.lua
1
2 -- libquvi-scripts
3 -- Copyright (C) 2012 Toni Gundogdu <legatvs@gmail.com>
4 -- Copyright (C) 2010 Paul Kocialkowski <contact@paulk.fr>
5 --
6 -- This file is part of libquvi-scripts <http://quvi.sourceforge.net/>.
7 --
8 -- This library is free software; you can redistribute it and/or
9 -- modify it under the terms of the GNU Lesser General Public
10 -- License as published by the Free Software Foundation; either
11 -- version 2.1 of the License, or (at your option) any later version.
12 --
13 -- This library is distributed in the hope that it will be useful,
14 -- but WITHOUT ANY WARRANTY; without even the implied warranty of
15 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 -- Lesser General Public License for more details.
17 --
18 -- You should have received a copy of the GNU Lesser General Public
19 -- License along with this library; if not, write to the Free Software
20 -- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
21 -- 02110-1301 USA
22 --
23
24 -- Identify the script.
25 function ident(self)
26 package.path = self.script_dir .. '/?.lua'
27 local C = require 'quvi/const'
28 local r = {}
29 r.domain = "xhamster%.com"
30 r.formats = "default"
31 r.categories = C.proto_http
32 local U = require 'quvi/util'
33 r.handles = U.handles(self.page_url, {r.domain}, {"/movies/%d+/"})
34 return r
35 end
36
37 -- Query available formats.
38 function query_formats(self)
39 self.formats = 'default'
40 return self
41 end
42
43 -- Parse media URL.
44 function parse(self)
45 self.host_id = "xhamster"
46
47 local p = quvi.fetch(self.page_url)
48
49 self.title = p:match('class="mTitle">.-<h1?.>(.-)</h1>')
50 or error("no match: media title")
51
52 self.id = self.page_url:match("/movies/(.-)/")
53 or error("no match: media ID")
54
55 local U = require 'quvi/util'
56 local f = p:match("'file': '(.-)'") or error("no match: file")
57
58 f = U.unescape(f)
59
60 local u = ''
61 if not f:match('^http') then
62 u = p:match("'srv': '(.-)'") or error("no match: server")
63 u = u .."/key="
64 end
65
66 self.url = {u..f}
67
68 return self
69 end
70
71 -- vim: set ts=4 sw=4 tw=72 expandtab: