--[[
	ZDF Nachrichten-App
	Vers.: 0.5
	Copyright (C) 2016, bazi98
        with many hints and codessniplets from SatBaby, big thx. frm my to him

	License: GPL

	This program is free software; you can redistribute it and/or
	modify it under the terms of the GNU General Public
	License as published by the Free Software Foundation; either
	version 2 of the License, or (at your option) any later version.

	This program is distributed in the hope that it will be useful,
	but WITHOUT ANY WARRANTY; without even the implied warranty of
	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
	General Public License for more details.

	You should have received a copy of the GNU General Public
	License along with this program; if not, write to the
	Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
	Boston, MA  02110-1301, USA.

        Copyright (C) for the linked video and for the heute-Logo by the ZDF or the respective owners!
]]

--[[   Bugliste:
       Fehlende Automtik bei Auswahl- und Feiertagsberücksichtigung bei der 12:00 Uhr,17:00 Uhr-Ausgaben von der Seite
       http://www.zdf.de/ZDFmediathek/hauptnavigation/nachrichten/ganze-sendungen?bc=nrt;nrg&gs=166&flash=off
       dort sind sowohl die 12:00 Uhr, 17:00 Uhr und 19:00 Uhr-Ausgaben der Nachrichten gemeinsam aufgeführt,
       die 19:00 Uhr Hauptsendung kann zuverlässig anders ausgelesen werden, die anderen Sendungen nicht
]]

local json = require "json"
basisurl = "http://www.zdf.de"
basisstreamurl = "http://nrodl.zdf.de/none/zdf/"
HD = "3256k_p15v12.mp4"
MD = "2328k_p35v12.mp4"
SD = "1456k_p13v12.mp4"
LD = "436k_p9v12.mp4"
qual = HD


heute=(os.date ("%d.%m.%Y"))
heute2=(os.date ("%y/%m/%y%m%d"))
gestern = (os.date("%d.%m.%Y", os.time() - 3600*24))
gestern2 = (os.date ("%y/%m/%y%m%d", os.time() - 3600*24))

wochentag = (os.date ("%A")) --- Monday, Tuesday, Wednesday, Thursday, Friday, Saturday, Sunday
time = (os.date ("%H%M"))

--Objekte
function script_path()
	local str = debug.getinfo(2, "S").source:sub(2)
	return str:match("(.*/)")
end

function init()
	n = neutrino();
	p = {}
	func = {}
	pmid = 0
	stream = 1
        tmpPath = "/tmp"
	zdf_heute = decodeImage("data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAF0AAAAaCAYAAADVLFAXAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAAYdEVYdFNvZnR3YXJlAHBhaW50Lm5ldCA0LjAuOWwzfk4AAAbESURBVGhD7Vl7bBRFGB8wiKKAqMhDYuIrwVeQqhBBAokQEEFMFfvUICgxkKO3ey20t3tM91oKFUVRElOtJCQQjIhohJDwUEx4CFFERTSEoOFZIMq7tqXs+PvmZu/2rtu7XtvwB7lf8ktnv++bb3Z+M/vdzpalgl3AsuxcVily2TY7j50EG3HdBJ4AvxV5rNzOZ4+p8Aw6ApHPxkLUXRBVpCIWwqYFsHPYCNU9g3RgF7JbIOByEtJL4GREn2b0fd+ewLqrdBmkAoS7E8LtSRQzXSLHVns666nSZtAa1A7f7SViewjht9i+zI5PCohU6yVeR4ic76j0GSRCFLAxECjtGp6KyNmIH+Qn1DAZuIGyst1LtKQsuk+Igzu9eWCbEFtrhCh9nIQ/jvw7PbgZrIF/suCsq7oVKnN3wR6GfaMrNsZ8Nils6m+UG/qvkqa2g3PeQ3W/JrBC/pG4h2lEbuovKnPbYb/ChniKmoolj4qUaLgkRNlQ7/4uQuD19svsZpwJBqB9xCvGIYSfzkP+oGXqQtLQz0L0W9V0rgkwbq0zPhZ+P0xdIp42ApMIe00uJV/vKUT1xJZcPFmI1aVCNNZHhN/9hYzHOA1gIUSdKJnDcnDg+tzJB9ti+CtV7FVcf4pdnR2Nd1jABl0PotOpMl7QzuDe9RHRjx2Q1xjnMu1kNayEmMpugJBblP8U2vtlO4/tc5ecRLQQ3QiMQXsjSk0diWCFtDlYiGh/K1Q03DK1z8pN/RhYT39xvTJsavIkXTNzZjcrpK+B/StJQ3tT2mtgN7S1MbueY5n+5Rjn75jo2gXyWUH/FOqzaNG83riuQMxvuLeLdH8YawfK0DS4I4uDCR6PCtVZnH23EKcOR0Q/uEvavEQnYDfPUH7a3Q2qvUG5PREnuqk3Q5grrmtJbug6xULYQojQnOiXNPTL3PCPXbrU1x05GmO+wAdyHM5visttaPMh4PFYXIwQOcB5cX8swkEvv+LHlJdElxNtFwu7CbFqrhCHfxLi/GkhLv0rRP0FIWw7IjhhRZGMbVX0XDbByYd7uaJiz4D0QxtPLBD1SRCddtsliPEH2rbLtrcy6B8Q8UVs3NDKpTCmNs8V+xeVp7aKzs2ibIz1nct2tHy+XhA2ix7CU+AuO3sqjOL7rdLAU4g5GY0P6eNJ9EZn0mkxv4sQmz9SynqguUmITcsiC4N4iOYteh4b7+R0RG+NyLGQ+sSXF+1qJfdnkR3tNY4dwh7h2OXRa0NvsIKB52lnW6HiKdj9TY7PCgWeQ982iS7H8ajpskRROXHspv4ejUXEwn/j2BGzgiZd5zXBlJxxW+zHsu6QEB/mCcFHCDH/aSGCWfD3jotPIvprrpgm2c5lP2JXT2nBAvYw9Umo6eerS0rkJwfsZDz+0UmfIJGicclIcR0UnfOSgbiOPmmtkZ5AmvT3zqTTYumQiOCEJdneMS56iS5ws7Cvk/48dhH8R8W2vaa73l5Qx11lRzuJ3V4Si9P+w0JYYCiReOTHIaYh1levpXwLysr6oR37PUgqunY7rmPlzdS/TBxH0tBnk+hVbnHaTHOYUhygV8W3+nmTXi0Rj3Hq8Zo4Cu3BRFwPg7iL8bdZ+nPZWrT/VO1OER1vMaMh1FUpgqHZONSMorgKI3Av7CaJgNJicj6LavqZWE7tFHxF6LMulk/apeiwfxKz4zcjqM0Km/5H0P7dZV9Jsbi3ruWmv8gR3SrTn6UfsidpomnTLXoybFji3d9FiL0fh6O+uJdOFR32HpjoZsdGdR2C/UAlyWXbTsJgt69ybHH0Ki+GviguJuILY5FfctuQ+wCetkOumCvhUCDyWQSTTP9zLp00z9WlpL2u6jJErWvBXHaUxgUt+4XIZ2DYdyif3CWtoa2i06vgwtLSPhB6LWwt6i3sm3hxcX/Zd96ce9CH3oAcnw3WQKivo32U6LSrsZino/aILyx9ocBMCH0uzgcivo6bgWyKkcBEo28QnUmIR//WG66G6TRw7uvF+dxBxGBQw6FAyEOH28757IEwRU+KpjnnwXLD/yp2n4/e3XmZPli5osDi3WiFSkbT9xTU6AfIVlVVekcsp6+XDARoQcOmPrTC0J/hQX/WgjJfX+Vi1dUlPXFYmkz1mxYB5WyMz+dr+ZmbdpeXcB0hFnOZSp+BF+g/PRB+n5d47SFybaePWCp9Bq1BTGX9sTt/8RIxHULwnSKf9VFpM0gFvEv3gmirvcRMRfSj7ye1YhK7pt+3rxvgnXoSRPzZS1wvInY3OE51z6C9kCfGfDYSYr5LokLccy6Rz4K7wLfB4RSrumWQFIz9D3Okn7IiMqqOAAAAAElFTkSuQmCC")
end

function add_stream(t,u)
  p[#p+1]={title=t,url=u,access=stream}
end

function getdata(Url,outputfile)
	if Url == nil then return nil end
	if Curl == nil then
		Curl = curl.new()
	end
	local ret, data = Curl:download{url=Url,A="Mozilla/5.0;",followRedir=true,o=outputfile }
	if ret == CURL.OK then
		return data
	else
		return nil
	end
end

-- function from http://lua-users.org/wiki/BaseSixtyFour

-- character table string
local b='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'

-- decode
function dec(data)
	data = string.gsub(data, '[^'..b..'=]', '')
	return (data:gsub('.', function(x)
    	if (x == '=') then return '' end
    	local r,f='',(b:find(x)-1)
    	for i=6,1,-1 do r=r..(f%2^i-f%2^(i-1)>0 and '1' or '0') end
    	return r;
	end):gsub('%d%d%d?%d?%d?%d?%d?%d?', function(x)
    	if (#x ~= 8) then return '' end
    	local c=0
    	for i=1,8 do c=c+(x:sub(i,i)=='1' and 2^(8-i) or 0) end
    	return string.char(c)
	end))
end

function decodeImage(b64Image)
	local imgTyp = b64Image:match("data:image/(.-);base64,")
	local repData = "data:image/" .. imgTyp .. ";base64,"
	local b64Data = string.gsub(b64Image, repData, "");

	local tmpImg = os.tmpname()
	local retImg = tmpImg .. "." .. imgTyp

	local f = io.open(retImg, "w+")
	f:write(dec(b64Data))
	f:close()
	os.remove(tmpImg)

	return retImg
end

function fill_playlist()
--- ZDF heute Express, Kurznachrichten zu wechslenden Uhrzeit, wird jeweils die aktuellste angeboten
	local data = getdata('www.zdf.de/ZDFmediathek/kanaluebersicht/aktuellste/218522?flash=off',nil)
	if data then
		local xpress_seite,h = data:match('"(/ZDFmediathek/beitrag/video/%d+/heute%-Xpress.-flash=off)".- (%d%d:%d%d)<')
		data = getdata('http://www.zdf.de'..xpress_seite,nil)
		if data then
			local xpress = data:match('2000 <a href="(.-_)1456k_p13v12.mp4"')
			if xpress then
				local y,m,t = xpress:match("/(%d%d)(%d%d)(%d%d)_")
				add_stream("heute Express vom " .. t .. "." .. m .. ".20" ..y .. "-"..h.." Uhr",xpress .. qual)
			end
		end
	end

--- ZDF heute am Mittag 12:00 Uhr nicht taeglich, wird nur Mo.-Fr. zwischen 12:30-14:45 angezeigt
	if ( time >= "1230") and ( time <= "1430") and (wochentag ~= "Saturday" ) and  (wochentag ~= "Sunday" ) then
			add_stream("heute am Mittag vom " .. heute .. "-12.00 Uhr",basisstreamurl .. heute2 .. "_h12_" ..qual)
	end

--- ZDF heute in Deutschland 14.00 Uhr, wird nur Montag bis Freitag und nicht an Feiertagen gesendet
	local data = getdata('http://www.zdf.de/ZDFmediathek/kanaluebersicht/aktuellste/1522522?bc=rub;kua884718&flash=off',nil)
	if data then
		local deutschland_seite,h = data:match('"(/ZDFmediathek/beitrag/video/%d+/ZDF%-heute%-in%-Deutschland%-vom-.-?bc=rub;.-flash=off)".- (%d%d:%d%d)<')
		data = getdata('http://www.zdf.de'..deutschland_seite,nil)
		if data then
			local deutschland = data:match('2000 <a href="(.-_)1456k_p13v12.mp4"')
			if deutschland then
				local y,m,t = deutschland:match("/(%d%d)(%d%d)(%d%d)_")
				add_stream("heute in Deutschland vom " .. t .. "." .. m .. ".20" ..y .. "-"..h.." Uhr",deutschland .. qual)
			end
		end
	end

--- ZDF heute in Europa, 16.00 Uhr, wird nur Montag bis Freitag und nicht an Feiertagen gesendet
	local data = getdata('http://www.zdf.de/ZDFmediathek/kanaluebersicht/aktuellste/246?bc=rub;kua884718&flash=off',nil)
	if data then
		local europa_seite,h = data:match('"(/ZDFmediathek/beitrag/video/%d+/heute.-;flash=off)".- (%d%d:%d%d)<')
		data = getdata('http://www.zdf.de'..europa_seite,nil)
		if data then
			local europa = data:match('2000 <a href="(.-_)1456k_p13v12.mp4"')
			if europa then
				local y,m,t = europa:match("/(%d%d)(%d%d)(%d%d)_")
				add_stream("heute in Europa vom " .. t .. "." .. m .. ".20" ..y .. "-"..h.." Uhr",europa .. qual)
			end
		end
	end

--- ZDF heute 17:00 Uhr, wird nur Sonntag bis Freitag, wird nicht immer gesendet, wird nur So.-Fr. zw. 17:30-19:45 angezeigt,
	if ( time >= "1730") and ( time <= "1945") and  (wochentag ~= "Saturday" ) then
			add_stream("heute am Nachmittag vom " .. heute .. "-17.00 Uhr",basisstreamurl .. heute2 .. "_h17_" ..qual)
	end

--- ZDF heute 19:00 Hauptsendung, täglich, es wird immer die letzte Sendung angeboten, keine Feiertagsanpassung nötig
	if ( time >= "1955") then
			add_stream("heute Hauptausgabe vom " .. heute .. "-19.00 Uhr",basisstreamurl .. heute2 .. "_h19_" ..qual)
	else
			add_stream("heute Hauptausgabe vom " .. gestern .. "-19.00 Uhr",basisstreamurl .. gestern2 .. "_h19_" ..qual)
	end

--- ZDF heute journal, täglich ca. 21:45 Uhr
	local data = getdata('http://www.zdf.de/ZDFmediathek/hauptnavigation/nachrichten/ganze-sendungen?bc=nrt;nrg&gs=228&flash=off',nil)
	if data then
		local hjo_seite,h = data:match('"(/ZDFmediathek/beitrag/video/%d+/ZDF%-heute%-journal.-flash=off)">.- (%d%d:%d%d)<')
		data = getdata('http://www.zdf.de'..hjo_seite,nil)
		if data then
			local hjo = data:match('2000 <a href="(.-_)1456k_p13v12.mp4"')
			if hjo then
				local y,m,t = hjo:match("/(%d%d)(%d%d)(%d%d)_")
				add_stream("heute journal vom " .. t .. "." .. m .. ".20" ..y .. "-"..h.." Uhr",hjo .. qual)
			end
		end
	end

-- ZDF heute plus, Montag bis Freitag um ca. 23:30 Uhr, es wird immer die letzte Sendung angeboten
	local data = getdata('http://www.zdf.de/ZDFmediathek/kanaluebersicht/aktuellste/2404436?bc=rub;kua884718&flash=off',nil)
	if data then
		local plus_seite,h = data:match('"(/ZDFmediathek/beitrag/video/%d+/heute.-flash=off)".- (%d%d:%d%d)<')
		data = getdata('http://www.zdf.de'..plus_seite,nil)
		if data then
			local plus = data:match('2000 <a href="(.-_)1456k_p13v12.mp4"')
			if plus then
				local y,m,t = plus:match("/(%d%d)(%d%d)(%d%d)_")
				add_stream("heute plus vom " .. t .. "." .. m .. ".20" ..y .. "-"..h.." Uhr",plus .. qual)
			end
		end
	end
--
--- SRF-Tagesschau
	local data = getdata('http://www.srf.ch/feed/podcast/hd/ff969c14-c5a7-44ab-ab72-14d4c9e427a9.xml',nil)
		if data then
			local srf_news = data:match('url="(.-mp4)"')
			if srf_news then
				local Y,m,d = srf_news:match('ts20_(%d%d%d%d)(%d%d)(%d%d)_') -- date of transmission
			        add_stream("SRF-Tagesschau vom "..d.."."..m.."."..Y.."-19:30 Uhr","" .. srf_news .. "")
			end
	end

--
--- ZDF heute spezial, Sondersendungen
	local data = getdata('http://www.zdf.de/ZDFmediathek/kanaluebersicht/225948?flash=off',nil)
	if data then
		local spezial_seite,h = data:match('"(/ZDFmediathek/beitrag/video/%d+/ZDFspezial.-?bc.-flash=off)".- (%d%d:%d%d)<')
		data = getdata('http://www.zdf.de'..spezial_seite,nil)
		if data then
			local spezial = data:match('2000 <a href="(.-_)1456k_p13v12.mp4"')
			if spezial then
				local y,m,t = spezial:match("/(%d%d)(%d%d)(%d%d)_")
				add_stream("heute spezial vom " .. t .. "." .. m .. ".20" ..y .. "-"..h.." Uhr",spezial .. qual)
			end
		end
	end

end

function set_pmid(id)
  pmid=tonumber(id);
  return MENU_RETURN["EXIT_ALL"];
end

function select_playitem()
  local m=menu.new{name="", icon=zdf_heute} -- Standartanzeige (es wird das heute-Logo in der Titelzeile angezeigt)
--local m=menu.new{name="ZDF: heute Nachrichtensendungen" } -- alternative Textanzeige, wenn kein Iconanzeige dort gewünscht wird
  for i,r in  ipairs(p) do
    m:addItem{type="forwarder", action="set_pmid", id=i, icon="streaming", name=r.title, hint=r.title, hint_icon="hint_reload"}
  end
  repeat
    pmid=0
    m:exec()
    if pmid==0 then
      return
    end


    local vPlay = nil
    local url=func[p[pmid].access](p[pmid].url)
    if url~=nil then
      if  vPlay  ==  nil  then
	vPlay  =  video.new()
      end
 	vPlay:PlayFile("ZDF",url,p[pmid].title,url); -- Standartanzeige (vollständige Anzeige)
--	vPlay:PlayFile(p[pmid].title,url); -- alternative Minimalanzeige: Es wird nur der Sendungstitel auf der Infobar angezeigt
   end
  until false
end

--Main
init()
func={
  [stream]=function (x) return x end,
}
fill_playlist()
select_playitem()
os.execute("rm /tmp/lua*.png");