"""
Starting from syncronized race start (as per reviews),
cut a single racer's stream to disk.

Database info:

matches maps to multiple races via match_races (on match_id)
matches links to racers and cawmentator:
	matches.racer_{1,2}_id
	matches.cawmentator_id
races contains start time:
	races.timestamp
races maps to multiple runs via race_runs
race_runs contains time for each racer
	race_runs.time: centiseconds
	race_runs.rank: 1 for fastest time

"""

import datetime
import logging
import os
import re
import subprocess
import tempfile
import shutil
from getpass import getpass
from uuid import uuid4

import argh
import mysql.connector

from common.segments import get_best_segments, full_cut_segments



def ts(dt):
	return dt.strftime("%FT%T")


class NoSegments(Exception):
	pass


def cut_to_file(filename, base_dir, stream, start, end, variant='source', frame_counter=False, fast_encode=False):
	logging.info("Cutting {}".format(filename))
	segments = get_best_segments(
		os.path.join(base_dir, stream, variant).lower(),
		start, end,
	)
	if None in segments:
		logging.warning("Cutting {} ({} to {}) but it contains holes".format(filename, ts(start), ts(end)))
	if not segments or set(segments) == {None}:
		raise NoSegments("Can't cut {} ({} to {}): No segments".format(filename, ts(start), ts(end)))
	filter_args = []
	# standardize resolution
	filter_args += ["-vf", "scale=-2:720"]
	if frame_counter:
		filter_args += [
			"-vf", "scale=-2:480, drawtext="
				"fontfile=DejaVuSansMono.ttf"
				":fontcolor=white"
				":text='%{e\:t}'"
				":x=(w-tw)/2+100"
				":y=h-(2*lh)",
		]
	if fast_encode:
		encoding_args = ['-c:v', 'libx264', '-preset', 'ultrafast', '-crf', '0', '-f', 'mp4']
	else:
		encoding_args = ['-f', 'mp4']
	with open(filename, 'w') as f:
		for chunk in full_cut_segments(segments, start, end, filter_args + encoding_args):
			f.write(chunk)


def add_range(base, range):
	return [base + datetime.timedelta(seconds=n) for n in range]


@argh.arg('--time-offset', type=float)
def main(match_id, race_number, output_path,
	host='condor.live', user='necrobot-read', password='necrobot-read', database='condor_xii',
	base_dir='/srv/wubloader',
	start_range="0,10", non_interactive=False, racer=0,
	time_offset=None,
):
	logging.basicConfig(level=logging.INFO)

	match_id = int(match_id)
	race_number = int(race_number)
	start_range = map(int, start_range.split(","))

	if password is None:
		password = getpass("Password? ")
	conn = mysql.connector.connect(
		host=host, user=user, password=password, database=database,
	)

	cur = conn.cursor()
	cur.execute("""
		SELECT
			match_info.racer_1_name as racer_1,
			match_info.racer_2_name as racer_2,
			races.timestamp as start,
			race_runs.time as duration,
			match_races.winner as winner
		FROM match_info
		JOIN match_races ON (match_info.match_id = match_races.match_id)
		JOIN races ON (match_races.race_id = races.race_id)
		JOIN race_runs ON (races.race_id = race_runs.race_id)
		WHERE race_runs.rank = 1
			AND match_info.match_id = %(match_id)s
			AND match_races.race_number = %(race_number)s
	""", {'match_id': match_id, 'race_number': race_number})

	data = cur.fetchall()
	data = [
		[item.encode('utf-8') if isinstance(item, unicode) else item for item in row]
		for row in data
	]

	if not data:
		raise Exception("No such race")
	assert len(data) == 1, repr(data)

	(racer1, racer2, start, duration, winner), = data
	if racer == 0:
		racer = winner
	racer = [racer1, racer2][racer - 1]
	if racer == 'smokepipe_':
		racer = 'smokepipetwitch'

	temp_dir = tempfile.mkdtemp()
	try:
		cut_race(base_dir, output_path, temp_dir, racer, start, duration, start_range=start_range, non_interactive=non_interactive, time_offset=time_offset)
	finally:
		shutil.rmtree(temp_dir, ignore_errors=True)

def cut_race(
	base_dir, output_path, temp_dir, racer, start, duration,
	start_range=(0, 10), non_interactive=False, output_range=(-1, 5),
	time_offset=None
):
	start_path = os.path.join(temp_dir, "start-{}.mp4".format(uuid4()))
	end = start + datetime.timedelta(seconds=duration/100.)
	output_range = [datetime.timedelta(seconds=n) for n in output_range]
	start_start, start_end = add_range(start, start_range)

	if time_offset is None:
		cut_to_file(start_path, base_dir, racer, start_start, start_end, fast_encode=True)

		args = [
			'ffmpeg', '-hide_banner',
			'-i', start_path,
			'-vf', 'blackdetect=d=0.1',
			'-f', 'null', '/dev/null'
		]
		proc = subprocess.Popen(args, stderr=subprocess.PIPE)
		out, err = proc.communicate()
		if proc.wait() != 0:
			raise Exception("ffmpeg exited {}\n{}".format(proc.wait(), err))
		lines = [
			line for line in re.split('[\r\n]', err.strip())
			if line.startswith('[blackdetect @ ')
		]
		if len(lines) > 0:
			line = lines[0] # take first
			black_end = line.split(' ')[4]
			assert black_end.startswith('black_end:')
			time_offset = float(black_end.split(':')[1])
			os.remove(start_path) # clean up
		elif non_interactive:
			raise Exception("Unable to detect start (expected 1 black interval, but found {}).".format(len(lines)))
		else:
			print "Unable to detect start (expected 1 black interval, but found {}).".format(len(lines))
			print "Cutting file {} for manual detection.".format(start_path)
			cut_to_file(start_path, base_dir, racer, start_start, start_end, frame_counter=True, fast_encode=True)
			time_offset = float(raw_input("What timestamp of this video do we start at? "))

	time_offset = datetime.timedelta(seconds=time_offset)
	output_start = start_start + time_offset + output_range[0]
	cut_to_file(output_path, base_dir, racer, output_start, end + output_range[1], fast_encode=False)

	print "Cut to file {}".format(output_path)


if __name__ == '__main__':
	argh.dispatch_command(main)