-------- justporno 30 04 2017

function justporno_updatefeed(feed,friendly_name)
	local rc=false
	local feed_url = 'https://de.justporno.sex/'
	local feed_name='justporno'
	if feed:find("tags") then
		feed_name = feed_name .. "_" .. feed:match('tags/(.-)$')
		feed_url = feed_url .. feed .. ".html"
	end
	local data = http.download(feed_url)
	local feed_m3u_path=cfg.feeds_path .. feed_name ..'.m3u'
	local tmp_m3u_path=cfg.tmp_path .. feed_name ..'.m3u'
	local dfd=io.open(tmp_m3u_path,'w+')
	if dfd and data then
		dfd:write('#EXTM3U name=\"',friendly_name or feed_name,'\" type=mp4 plugin=justporno\n')
		local n=0
		if data then
			local video_div = data:match('<div class="thumb%-box">%c+<ul>(.-)</ul>')
			for li in video_div:gmatch("<li>(.-)</li>") do
				local url = li:match('<a href=[\'"](.-)[\'"]')
				local title = li:match('title=[\'"](.-)[\'"]')
				local logo = li:match('<img.-="(.-%.jpg)"')
				if logo and logo:sub(1, 2) == '//' then
					logo = "https:" .. logo
				end
				if #logo+#title > 235 then
					if #logo < 235 then
						local shorttitle = logo .. title
						title =shorttitle:sub(#logo+1, 235)
					else
						title = n .. " : to long title"
					end
				end
				url=url:match("/.-/.-/")
				dfd:write('#EXTINF:0 logo=',logo,' ,',title,'\n',url,'\n')
				n=n+1
				data=nil
			end
		end
		dfd:close()
	end

	if util.md5(tmp_m3u_path)~=util.md5(feed_m3u_path) then
		if os.rename(tmp_m3u_path, feed_m3u_path) then
			rc=true
			if cfg.debug>0 then print('JUST feed \''..feed_name..'\' updated') end
		end
	end
	util.unlink(tmp_m3u_path)
	return rc
end

function justporno_sendurl(justporno_url,range)
	local host = 'https://de.justporno.sex'
	justporno_url = host .. justporno_url .. 'index.html'
	print(justporno_url)
	local data,location=http.download(justporno_url)
	if location then 
		print(data)
		data=http.download(host .. location)
	end
	if data then
		local video_div = data:match('<video (.-)</video>')
		local video_url = video_div:match('<source src="(.-)"')
		if video_url then
			plugin_sendurl(video_url,video_url,range)
		else
			plugin_sendfile('www/corrupted.mp4')
		end
	end
end

plugins['justporno']={}
plugins.justporno.name="JUST"
plugins.justporno.sendurl=justporno_sendurl
plugins.justporno.updatefeed=justporno_updatefeed
plugins.justporno.getvideourl=justporno_get_video_url

-- justporno_updatefeed('justporno',    'home_justporno')