From 9427791ecbcd6fd41879f589f2d69fc5af8b8995 Mon Sep 17 00:00:00 2001
From: Benjamin Franzke <benjaminfranzke@googlemail.com>
Date: Thu, 6 Feb 2014 17:47:39 +0100
Subject: quvi/xvidstage: Implement proper minjs unpacking

Dont try to be to clever and fetch the ip path data from the minified
js. Instead do a proper unpack and parse the url from the result.

Background:
The minified js might look slighty different if there are i.e.
redundacies in the ip (two times the same numerical component).
---
 .local/share/libquvi-scripts/media/xvidstage.lua | 53 ++++++++++++++++++++----
 1 file changed, 44 insertions(+), 9 deletions(-)

diff --git a/.local/share/libquvi-scripts/media/xvidstage.lua b/.local/share/libquvi-scripts/media/xvidstage.lua
index 15396cd..ac8de78 100644
--- a/.local/share/libquvi-scripts/media/xvidstage.lua
+++ b/.local/share/libquvi-scripts/media/xvidstage.lua
@@ -23,24 +23,59 @@ function parse(qargs)
   return qargs
 end
 
+-- http://stackoverflow.com/questions/3554315/lua-base-converter
+function Xvidstage.basen(n,b)
+    n = math.floor(n)
+    if not b or b == 10 then return tostring(n) end
+    local digits = "0123456789abcdefghijklmnopqrstuvwxyz"
+    local t = {}
+    repeat
+        local d = (n % b) + 1
+        n = math.floor(n / b)
+        table.insert(t, 1, digits:sub(d,d))
+    until n == 0
+    return table.concat(t)
+end
+
+function Xvidstage.unpack_minjs(minjs)
+  p,a,c,k = minjs:match("return p}%('(.-\\'%);)',(%d+),(%d+),'(.-)'")
+
+  base = tonumber(a)
+  -- num = tonumber(c) -- not needed
+  code = p:gsub("\\'", "'")
+
+  data = {}
+  for w in (k:gsub("||", "| |")..'|'):gmatch("([^|]+)|") do
+    table.insert(data, w)
+  end
+
+  for i=1,#data do
+    if data[i] ~= " " then
+      local s = Xvidstage.basen(i-1, base)
+      code = code:gsub("([^a-z0-9])"..s.."([^a-z0-9])", "%1"..data[i].."%2")
+    end
+  end
+
+  return code
+end
+
 function Xvidstage.iter_streams(c, qargs)
   local S = require 'quvi/stream'
 
-  local mp3_url = c:match("addVariable%('file','(.-%.mp3)'%)")
+  local mp3_url = c:match("addVariable%('file','(.+/)[^/]+%.mp3'%)")
   if mp3_url then
-    local s = S.stream_new(mp3_url)
+    local s = S.stream_new(table.concat({mp3_url,qargs.title}))
     s.container = "mp3"
     return { s }
   end
 
-  local hash_pattern = string.rep('[a-z0-9]', 56)
-  container, hash, port = c:match('|([^|]-)|(' .. hash_pattern .. ')|(%d-)|')
-  ip4, ip3, ip2, ip1 = c:match('|(%d-)|+(%d-)|+(%d-)|+(%d-)|')
+  local packed = c:match("<div id=\"player_code\"><script[^>]+>([^\n]+)")
+  c = Xvidstage.unpack_minjs(packed)
 
-  local ip = table.concat({ip1,ip2,ip3,ip4},'.')
-  local url = { "http://", ip , ':', port, '/d/', hash, '/', qargs.title }
-  local s = S.stream_new(table.concat(url))
-  s.container = container
+  local id_pattern = string.rep('[a-z0-9]', 56)
+  url,ext = c:match('["\'](http://[^"\']+/d/'..id_pattern..'/)video%.(.-)["\']')
+  local s = S.stream_new(table.concat({url, qargs.title}))
+  s.container = ext
   return { s }
 end
 
-- 
cgit