#!/usr/bin/python3

# software for simple digital signage for astabeamer

# based on:

# HBUE, Antonio Ragagnin (2014)
#
# HBUE is an HTTP(S) Browse+Upload+Execute server.
# This tool runs an HTTP (or HTTPS) server, with the optional
# support of Basic Authentication. This server mainly furhishes
# a simple interface to upload, browse end execute files.
# Also, you can remove and download files.
#
# usage info: hbue.py --help
#

from crontab import CronTab
import http.server
import socketserver
import ssl
import os
import urllib.parse
import argparse
import base64
import cgi
import subprocess
import json
import psutil
from PIL import Image
import time

h_on=0
h_off=0
weekdays=""

metadata={}
metadata['sizes'] = []

currentimage=""
currentvideo=""





def set_cron(on,off,days):
	my_cron=CronTab(user=True)
	for job in my_cron:
		if job.comment=="hdmi_on":
			job.dow.clear()
			for i in days:
				job.dow.also.on(i)
			job.hour.on(on)
			print("ON:",job)

		if job.comment=="hdmi_off":
			job.dow.clear()
			for i in days:
				job.dow.also.on(i)
			job.hour.on(off)
			print("OFF:",job)
			
	my_cron.write_to_user(user=True)



def main():
	global metadata 
	chunk = 1024
	folder = '.'
	certificate = None
	parser = argparse.ArgumentParser(description='HBUE is an HTTP(S) Browse+Upload+Execute server.\r\nAntonio Ragagnin (2014)')
	parser.add_argument('--listen', type=str, help='listening mask (default: 0.0.0.0:4443)',default='0.0.0.0:4443')
	parser.add_argument('--execute', type=str,help='command to execute on clicked files.')
	parser.add_argument('--ssl', type=str, help='specify the .pem file to start an HTTPS server')
	parser.add_argument('--credentials', type=str, help='login:password string')
	parser.add_argument('--folder', type=str, help='folder to browse (default is current folder)',default='.')
	parser.add_argument('--chunk', type=str, help='chunk download size in Bytes (default: 1024)')
	args = parser.parse_args()
	listen_t = (args.listen.split(':')[0],int(args.listen.split(':')[1]))
	print ('server running on',listen_t,'...')
	httpd = http.server.HTTPServer(listen_t, MyHandler)
	#let's build an anonymous class and store it in the server
	base64credentials = None
	if(args.credentials!=None):base64credentials =base64.b64encode(bytes(args.credentials,'utf-8'))
	httpd.context = type("", (), dict(
				execute= args.execute, chunk=args.chunk,folder=args.folder,credentials=base64credentials
				))() 
	if(args.ssl):
		httpd.socket = ssl.wrap_socket (httpd.socket, certfile=args.ssl, server_side=True)
	
	with open('meta.json') as json_file:
		metadata = json.load(json_file)

	httpd.serve_forever()

	
class MyHandler(http.server.BaseHTTPRequestHandler):

	def getmetadata(self,fn):
		
		res="doh !"
		for p in metadata['sizes']:
			if p["fname"]==fn:
				res=str(p["x"])+" x "+str(p["y"])
				break
		#print("GETMETA: ",fn,res)
		return res
	



	def make_index(self):	 
		self.send_response(200)
		self.send_header('Content-type','text/html;charset=UTF-8')
		self.end_headers()

		page_tpl ="""<html>
		<head>
		<link rel="stylesheet" type="text/css" href="assets?style.css">
        <link rel="stylesheet" type="text/css" href="assets?mtr-datepicker.min.css">
        <link rel="stylesheet" type="text/css" href="assets?mtr-datepicker.default-theme.min.css"></head>
		
		<body onLoad="javascript:isloaded();">
	    
	        <script src="assets?/mtr-datepicker.min.js"></script>
			<script src="assets?/init.js"></script>
					
			<table><th width="530px" align="left"><h3>Upload a file</h3><th align="left" width="80px"><h3>Manual</h3><th align="left"><h3>Schedule</h3><tr>
			<td valign="top">		
				<b>Free Space: <p id="free">hallo</p></b><br>
				<form method='POST' enctype='multipart/form-data'>
				<input value="choose" type='file' accept="image/png,video/*" name='upfile'/>
				<input type='hidden' name='path' value=''/><br><br>
				<input type=submit value="Start upload"/>
				</form>
				<form method='POST' enctype='multipart/form-data'>
				<input type='hidden' name='fname' value=''/><br/>
				</form>
			<td valign="top"><div onclick="manual('on')" id="m_on" class="mbutton">ON</div>
			<br><div onclick="manual('off')" id="m_off" class="mbutton">OFF</div>

			<td>
				<table><th>ON<th>OFF<tr><td><div id="datepickerOn"></div><td><div id="datepickerOff"></div>
				<td colspan="5"><td><div style="visibility:hidden;" id="setcronbtn" onclick="setcron()" title="set times" class="select">set Times</div>
			<tr>


			<td>
				<div id="d1" class="weekday">MO</div><td>
				<div id="d2" class="weekday">DI</div><td>
				<div id="d3" class="weekday">MI</div><td>
				<div id="d4" class="weekday">DO</div><td>
				<div id="d5" class="weekday">FR</div><td>
				<div id="d6" class="weekday">SA</div><td>
				<div id="d7" class="weekday">SO</div>
			</table>

			</table>		

		<hr/>
		<h3>Select media to show:</h3>

		<!--
		-->

		<table><td><h3>Images</h3><table><td>current Image: <div id="currentimage"></div><td align="right"><div  id="noimage" class="mbutton">None</div></table><br>
		<td width=10><td><h3>Videos</h3><table><td>current Video: <div id="currentvideo"></div><td align="right"><div onclick="novideo()" id="novideo" class="mbutton">None</div></table><br><tr><td valign=top><ul id="images">""" 

		self.wfile.write(bytes(page_tpl, 'UTF-8'))




		page_tpl="""</ul></td><td><td valign=top><ul id="videos">"""
		self.wfile.write(bytes(page_tpl, 'UTF-8'))
		

		page_tpl="""</ul></table></body></html>"""	 
		self.wfile.write(bytes(page_tpl, 'UTF-8'))
	  




	def do_AUTHHEAD(self):
		header = self.headers['Authorization']
		if not self.server.context.credentials:
			return True
		if header == None or header != 'Basic '+str(self.server.context.credentials.decode("utf-8")):
			self.send_response(401)
			self.send_header('WWW-Authenticate', 'Basic realm=\"HBUE login\"')
			self.send_header('Content-type', 'text/html')
			self.end_headers()
			return False	
		else:
			return True

			
	def do_GET(self):
		global currentimage
		global currentvideo
		global h_on
		global h_off

		if not self.do_AUTHHEAD():
			return
		try:

			pages = urllib.parse.unquote(self.path).split('?')

			if(len(pages)==1):
				page = pages[0]
				file = ''
			else:
				page = pages[0]
				file = '?'.join(pages[1:])

			if page == '/' :
				self.make_index()
				return	 
		
			elif page == '/delete' :	 
				filepath = urllib.parse.unquote(file) # remove leading '/'
				if os.path.isdir(filepath):
					print('deleting folder',filepath);
					os.rmdir(filepath)
				else:
					os.remove(filepath)
				self.make_index()
				return	 

			elif page == '/manual':
				print("have manual")
				param = urllib.parse.unquote(file) # remove leading '/'
                                				
				print(param)
				if param=="on":
					print("hdmi on")
					os.system("/home/pi/hdmi_on.sh")
					#pngview output is missing after hdmi off/on, restore previous
					#os.system("pkill -f pngview")
					#time.sleep(.2)
					#current=os.listdir("/home/pi/image/")[0]
					#os.system("/home/pi/raspidmx/pngview/pngview -l 10 "+"/home/pi/image/"+current+" &")

				if param=="off":
					print("hdmi off")
					os.system("/home/pi/hdmi_off.sh")

				self.send_response(200)
				self.send_header('Content-type','text/plain; charset=UTF-8')
				self.end_headers()

				self.wfile.write(bytes('ok',encoding='utf8'))

				return

			elif page == '/getimages':
				print("have get images")
				self.send_response(200)
				self.send_header('Content-type','text/html; charset=UTF-8')
				
				self.end_headers()
				mypath = self.server.context.folder #os.path.abspath(relpath) # ; print abspath
				for dp, dn, filenames in os.walk(mypath):
					for f in sorted(filenames):
						meta=self.getmetadata(f)

						fname=f
						fname,fe = os.path.splitext(fname)
						fthumb="thumbnails?"+os.path.basename(fname)+"_thumbnail.png"
						f = os.path.join(dp, f)

						if f.find(".png")!=-1:
							
							if fname+fe==currentimage:
								self.wfile.write(bytes("\t\t<li class=\"selectmedia\"><table><td align=center width=145><img src=\""+fthumb+"\"><td><a title=\"delete\" class=\"delete\" href=\"/delete?%s\">delete</a><td><a title=\"select\" class=\"selected\" href=\"/execute?%s\">select</a><td width=145><a href=\"/download?%s\">%s</a><br>%s</table></li>\n" % (urllib.parse.unquote(f),urllib.parse.unquote(f),urllib.parse.unquote(f),fname,meta) , 'UTF-8'))
							else:
								self.wfile.write(bytes("\t\t<li class=\"selectmedia\"><table><td align=center width=145><img src=\""+fthumb+"\"><td><a title=\"delete\" class=\"delete\" href=\"/delete?%s\">delete</a><td><a title=\"select\" class=\"select\" href=\"/execute?%s\">select</a><td width=145><a href=\"/download?%s\">%s</a><br>%s</table></li>\n" % (urllib.parse.unquote(f),urllib.parse.unquote(f),urllib.parse.unquote(f),fname,meta) , 'UTF-8'))
				
				return
			elif page == '/novideo':
				print("have novideo")

				os.system("pkill -f omxplayer")
				os.system("rm /home/pi/video/*")

				currentvideo=""
				return

			elif page == '/noimage':
				print("have noimage")
				currentimage=""
				os.system("pkill -f pngview")
				os.system("rm /home/pi/image/*")
				return

			elif page == '/getcurrent':
				print("have get current")
				self.send_response(200)
				self.send_header('Content-type','text/plain; charset=UTF-8')
				self.end_headers()
				currentvideo=""
				currentimage=""
				try:
					currentimage=os.listdir("/home/pi/image")[0]
					currentvideo=os.listdir("/home/pi/video")[0]
				except:
					pass
				
				self.wfile.write(bytes((currentimage+"|"+currentvideo),encoding='utf8'))


				return

			elif page == '/getvideos':
				print("have get videos")
				self.send_response(200)
				self.send_header('Content-type','text/html; charset=UTF-8')
				
				self.end_headers()
				mypath = self.server.context.folder #os.path.abspath(relpath) # ; print abspath

				for dp, dn, filenames in os.walk(mypath):
					for f in sorted(filenames):
						meta=self.getmetadata(f)
						fname=f
						fname,fe = os.path.splitext(fname)
						fthumb="thumbnails?"+os.path.basename(fname)+"_thumbnail.png"
						f = os.path.join(dp, f)
						if f.find(".png")==-1:
							if fname+fe==currentvideo:
								self.wfile.write(bytes("\t\t<li class=\"selectmedia\"><table><td align=center width=145><img src=\""+fthumb+"\"><td><a title=\"delete\" class=\"delete\" href=\"/delete?%s\">delete</a><td><a title=\"select\" class=\"selected\" href=\"/execute?%s\">select</a><td width=145><a href=\"/download?%s\">%s</a><br>%s</table></li>\n" % (urllib.parse.unquote(f),urllib.parse.unquote(f),urllib.parse.unquote(f),fname,meta) , 'UTF-8'))
							else:
								self.wfile.write(bytes("\t\t<li class=\"selectmedia\"><table><td align=center width=145><img src=\""+fthumb+"\"><td><a title=\"delete\" class=\"delete\" href=\"/delete?%s\">delete</a><td><a title=\"select\" class=\"select\" href=\"/execute?%s\">select</a><td width=145><a href=\"/download?%s\">%s</a><br>%s</table></li>\n" % (urllib.parse.unquote(f),urllib.parse.unquote(f),urllib.parse.unquote(f),fname,meta) , 'UTF-8'))


				return

			elif page == '/getfree':
				print("have get free")
				hdd = psutil.disk_usage('/')
				freespace="%.2f" %(hdd.free/(2**30))
				print (freespace)
				self.send_response(200)
				self.send_header('Content-type','text/plain; charset=UTF-8')
				
				self.end_headers()

				self.wfile.write(bytes(freespace,encoding='utf8'))
				return

			elif page == '/getcron':
				print("have get cron")
				my_cron=CronTab(user=True)
	
				for job in my_cron:
					print(job)
					if job.comment=="hdmi_on":
						h_on=str(job.hour)
						weekdays=str(job.dow)

						
					if job.comment=="hdmi_off":
						h_off=str(job.hour)
						weekdays=str(job.dow)

				weekdays_u=weekdays.replace(",","")

				print(h_on,h_off,weekdays_u)				
				r=h_on+","+h_off+","+weekdays_u
				self.send_response(200)
				self.send_header('Content-type','text/plain; charset=UTF-8')
				
				self.end_headers()

				self.wfile.write(bytes(r,encoding='utf8'))
				return


			elif page == '/setcron':
				print("HAVE SET CRON")
				param = urllib.parse.unquote(file) # remove leading '/'
                                				
				print(param)


				set_cron(param.split(",")[0],param.split(",")[1],param.split(",")[2])
				self.make_index()
				return

			elif page == '/execute' :	
				filepath = urllib.parse.unquote(file) # remove leading '/'
				fullname = filepath
				if(not self.server.context.execute):
					print('executing ',' '.join([fullname]));

					if (fullname.find(".png")!=-1) or (fullname.find(".PNG")!=-1):
						os.system("rm /home/pi/image/*")
						subprocess.Popen(['cp',fullname,'/home/pi/image/'])
						currentimage=os.path.split(fullname)[1]
						self.make_index()
		
					else:
						os.system("rm /home/pi/video/*")
						subprocess.Popen(['cp',fullname,'/home/pi/video/'])
						currentvideo=os.path.split(fullname)[1]
						self.make_index()

				else:
					print('executing ',' '.join([ self.server.context.execute,fullname]));
					subprocess.Popen([ self.server.context.execute,fullname])
#				self.make_index()
				return	 

			elif page == '/download' :	 
				filepath = urllib.parse.unquote(file) # remove leading '/'	 
				if self.path == '/favicon.ico' :	 
					f = open( filepath, 'rb' ) 
				else:
					fname=filepath 
					#print(fname)
					f = open( fname, 'rb' ) 

				self.send_response(200)
				self.send_header('Content-type','application/octet-stream')
				self.send_header('Content-Disposition','attachment; filename="%s"' % os.path.basename(filepath))
				
				self.end_headers()
				for piece in MyHandler.read_in_chunks(f,self.server.context.chunk):
					self.wfile.write(bytes(piece))
				f.close()
				return
			elif page == '/assets' :       
				filepath = urllib.parse.unquote(file) # remove leading '/'       
				if self.path == '/favicon.ico' :         
					f = open( filepath, 'rb' ) 
				else:
					fname="/home/pi/assets/"+filepath 
					print(fname)
					f = open( fname, 'rb' ) 

				self.send_response(200)
				self.send_header('Content-type','application/octet-stream')
				self.send_header('Content-Disposition','attachment; filename="%s"' % os.path.basename(filepath))

				self.end_headers()
				for piece in MyHandler.read_in_chunks(f,self.server.context.chunk):
					self.wfile.write(bytes(piece))
				f.close()
				return

			elif page == '/thumbnails' :       
				filepath = urllib.parse.unquote(file) # remove leading '/'       
				if self.path == '/favicon.ico' :         
					f = open( filepath, 'rb' ) 
				else:
					fname="/home/pi/thumbnails/"+filepath 
					print(fname)
					f = open( fname, 'rb' ) 

				self.send_response(200)
				self.send_header('Content-type','application/octet-stream')
				self.send_header('Content-Disposition','attachment; filename="%s"' % os.path.basename(filepath))

				self.end_headers()
				for piece in MyHandler.read_in_chunks(f,self.server.context.chunk):
					self.wfile.write(bytes(piece))
				f.close()
				return

		#	print ('nope: ',self.path)
			return # be sure not to fall into "except:" clause ?	   
				
		except IOError as e :  
			# debug	 
			print (e)
			self.send_error(404,'Error: %s' % str(e))
	 
	def read_in_chunks(file_object, chunk_size):
		while True:
			data = file_object.read(chunk_size)
			if not data:
				break
			yield data

	def do_POST(self):
			global metadata
			if not self.do_AUTHHEAD():
				 return
		# global rootnode ## something remained in the orig. code	 
			ctype, pdict = cgi.parse_header(self.headers['content-type'])	 
			if ctype == 'multipart/form-data' :	 
				# using cgi.FieldStorage instead, see 
				# http://stackoverflow.com/questions/1417918/time-out-error-while-creating-cgi-fieldstorage-object	 
				fs = cgi.FieldStorage( fp = self.rfile, 
									   headers = self.headers, # headers_, 
									   environ={ 'REQUEST_METHOD':'POST' } # all the rest will come from the 'headers' object,	 
									   # but as the FieldStorage object was designed for CGI, absense of 'POST' value in environ	 
									   # will prevent the object from using the 'fp' argument !	 
									 )
				## print 'have fs'	
			else: raise Exception("Unexpected POST request")
			if(fs.getvalue("fname")):		
				new_folder =self.server.context.folder+os.sep+ fs.getvalue("fname")
				if not os.path.isdir(new_folder):
					print ('creating folder '+new_folder)
					os.makedirs(new_folder)
				self.make_index()
				return
					
			fs_up = fs['upfile']
			folder = fs.getvalue("path")
			filename = os.path.split(fs_up.filename)[1] # strip the path, if it presents	 
			fullname = self.server.context.folder
			fullname +=os.sep
			fullname +=folder
			fullname +=os.sep
			fullname +=filename #os.path.join(folder,os.sep+filename)
			fullname=fullname.replace(" ","_")
			print (' uploading',fullname)
			
			# check for copies :	 
			if os.path.exists( fullname ):	 
				fn,fe = os.path.splitext(fullname)
				fullname_test = fn + '.copy'+fe
				i = 2
				while os.path.exists( fullname_test ):
					fullname_test = fn + '.copy(%d)' % i +fe
					i += 1
				fullname = fullname_test
		
			fn,fe = os.path.splitext(fullname)

			if (fe==".png") or (fe==".PNG") or (fe==".mp4") or (fe==".MP4") or (fe==".m4v") or (fe==".M4V") or (fe==".mov") or (fe==".MOV"):

				if not os.path.exists(fullname):
					with open(fullname, 'wb') as o:
						for piece in MyHandler.read_in_chunks(fs_up.file,self.server.context.chunk):
							o.write( piece )

		
				fn = os.path.basename(fn)
				filename = f"{fn}_thumbnail.png"
				print("thumbname: ",filename)

				print("fe:",fe)
				if (fe==".mp4") or (fe==".MP4") or (fe==".m4v") or (fe==".M4V") or (fe==".mov") or (fe==".MOV"):
					cmd="ffprobe -v error -select_streams v:0 -show_entries stream=width,height -of csv=s=x:p=0 "+"uploads/"+fn+fe
					cmdarray=cmd.split(" ")
					result = subprocess.check_output(cmdarray, stderr=subprocess.STDOUT)
					sz=result.decode('UTF-8')
					xs=sz.split("x")[0]
					ys=sz.split("x")[1]

					metadata['sizes'].append({'fname': fn+fe,'x': xs,'y':ys})

					with open('meta.json', 'w') as outfile:
						json.dump(metadata, outfile)

					cmd="ffmpegthumbnailer -s 200 -i uploads/"+fn+fe+" -o thumbnails/"+fn+"_thumbnail.png"
					os.system(cmd)
					#print(cmd)

				if (fe==".png") or (fe==".PNG"):
					image = Image.open(fullname)
					print(image.size)
					metadata['sizes'].append({'fname': fn+fe,'x': image.size[0],'y':image.size[1]})

					image.thumbnail((200,200))
					image.save("/home/pi/thumbnails/"+filename)

					with open('meta.json', 'w') as outfile:
						json.dump(metadata, outfile)

			self.make_index()

if __name__ == "__main__": 
	main()