use std::{
	error::Error,
	path::PathBuf,
	sync::Arc,
	time::Duration,
};

use futures::FutureExt;
use handlebars::Handlebars;
use hyper::{
	StatusCode,
};
use reqwest::Client;
use serde::Deserialize;
use tokio::{
	sync::oneshot,
	time::delay_for,
};
use tracing::{debug, error, info};

use crate::{
	http_serde,
	prefix_match,
};

pub mod file_server;

struct ServerState {
	config: Config,
	handlebars: Handlebars <'static>,
	client: Client,
}

fn status_reply (c: http_serde::StatusCode, body: &str) -> http_serde::Response 
{
	let mut r = http_serde::Response::default ();
	r.status_code (c)
	.body_bytes (body.as_bytes ().to_vec ());
	r
}

async fn handle_req_resp <'a> (
	state: &Arc <ServerState>,
	req_resp: reqwest::Response
) {
	//println! ("Step 1");
	
	if req_resp.status () != StatusCode::OK {
		// TODO: Error handling
		error! ("http_listen didn't respond with 200 OK");
		return;
	}
	
	let body = req_resp.bytes ().await.unwrap ();
	let wrapped_reqs: Vec <http_serde::WrappedRequest> = match rmp_serde::from_read_ref (&body)
	{
		Ok (x) => x,
		Err (e) => {
			error! ("Can't parse wrapped requests: {:?}", e);
			return;
		},
	};
	
	debug! ("Unwrapped {} requests", wrapped_reqs.len ());
	
	for wrapped_req in wrapped_reqs.into_iter () {
		let state = state.clone ();
		
		tokio::spawn (async move {
			let (req_id, parts) = (wrapped_req.id, wrapped_req.req);
			
			debug! ("Handling request {}", req_id);
			
			let response = if let Some (uri) = prefix_match (&parts.uri, "/files") {
				let default_root = PathBuf::from ("./");
				let file_server_root: &std::path::Path = state.config.file_server_root
				.as_ref ()
				.unwrap_or (&default_root);
				
				file_server::serve_all (
					&state.handlebars, 
					file_server_root,
					parts.method, 
					uri, 
					&parts.headers
				).await
			}
			else {
				debug! ("404 not found");
				status_reply (http_serde::StatusCode::NotFound, "404 Not Found")
			};
			
			let mut resp_req = state.client
			.post (&format! ("{}/http_response/{}", state.config.relay_url, req_id))
			.header (crate::PTTH_MAGIC_HEADER, base64::encode (rmp_serde::to_vec (&response.parts).unwrap ()));
			
			if let Some (length) = response.content_length {
				resp_req = resp_req.header ("Content-Length", length.to_string ());
			}
			if let Some (body) = response.body {
				resp_req = resp_req.body (reqwest::Body::wrap_stream (body));
			}
			
			let req = resp_req.build ().unwrap ();
			
			debug! ("{:?}", req.headers ());
			
			//println! ("Step 6");
			match state.client.execute (req).await {
				Ok (r) => {
					let status = r.status ();
					let text = r.text ().await.unwrap ();
					debug! ("{:?} {:?}", status, text);
				},
				Err (e) => error! ("Err: {:?}", e),
			}
			
		});
	}
}

#[derive (Default, Deserialize)]
pub struct ConfigFile {
	pub name: String,
	pub api_key: String,
	pub relay_url: String,
	pub file_server_root: Option <PathBuf>,
}

#[derive (Default)]
pub struct Config {
	pub relay_url: String,
	pub file_server_root: Option <PathBuf>,
}

pub async fn run_server (
	config_file: ConfigFile,
	shutdown_oneshot: oneshot::Receiver <()>
)
-> Result <(), Box <dyn Error>> 
{
	use std::convert::TryInto;
	
	if crate::password_is_bad (config_file.api_key.clone ()) {
		panic! ("API key is too weak, server can't use it");
	}
	
	let tripcode = base64::encode (blake3::hash (config_file.api_key.as_bytes ()).as_bytes ());
	
	info! ("Our tripcode is {}", tripcode);
	
	let mut headers = reqwest::header::HeaderMap::new ();
	headers.insert ("X-ApiKey", config_file.api_key.try_into ().unwrap ());
	
	let client = Client::builder ()
	.default_headers (headers)
	.timeout (Duration::from_secs (30))
	.build ().unwrap ();
	let handlebars = file_server::load_templates ()?;
	
	let state = Arc::new (ServerState {
		config: Config {
			relay_url: config_file.relay_url,
			file_server_root: config_file.file_server_root,
		},
		handlebars,
		client,
	});
	
	let mut backoff_delay = 0;
	let mut shutdown_oneshot = shutdown_oneshot.fuse ();
	
	loop {
		if backoff_delay > 0 {
			let mut delay = delay_for (Duration::from_millis (backoff_delay)).fuse ();
			
			if futures::select! (
				_ = delay => false,
				_ = shutdown_oneshot => true,
			) {
				info! ("Received graceful shutdown");
				break;
			}
		}
		
		debug! ("http_listen");
		
		let req_req = state.client.get (&format! ("{}/http_listen/{}", state.config.relay_url, config_file.name)).send ();
		
		let err_backoff_delay = std::cmp::min (30_000, backoff_delay * 2 + 500);
		
		let req_req = futures::select! {
			r = req_req.fuse () => r,
			_ = shutdown_oneshot => {
				info! ("Received graceful shutdown");
				break;
			},
		};
		
		let req_resp = match req_req {
			Err (e) => {
				error! ("Err: {:?}", e);
				backoff_delay = err_backoff_delay;
				continue;
			},
			Ok (r) => {
				backoff_delay = 0;
				r
			},
		};
		
		if req_resp.status () != StatusCode::OK {
			error! ("{}", req_resp.status ());
			let body = req_resp.bytes ().await.unwrap ();
			let body = String::from_utf8 (body.to_vec ()).unwrap ();
			error! ("{}", body);
			backoff_delay = err_backoff_delay;
			continue;
		}
		
		// Unpack the requests, spawn them into new tasks, then loop back
		// around.
		
		handle_req_resp (&state, req_resp).await;
	}
	
	info! ("Exiting");
	
	Ok (())
}