/**
 * @file Master.cpp
 * @brief The master sockets class which receive each incomming new client.
 * @author Narnaud
 * @version 0.1
 * @date 2023-01-12
 */
#include "webserv.hpp"

/**
 * @brief Destructor Close master socket descriptor.
 */
Master::~Master(void) {
	close(_fd);
	if (DEBUG) cout << "Destroyed master socket\n";
}

/**
 * @brief Constructor
 * Try to create a socket listening to ip and port defined by input.
 * If no exception if thrown, the creation success and the socket is then ready
 * to listen for new clients.
 *
 * @param list An ip_port_t struct which contain the ip and the port the master
 * listen.
 */
Master::Master(ip_port_t list) : _listen(list) {
	int		 x = 1, port = _listen.port;
	string ip = _listen.ip;

	_fd = socket(AF_INET, SOCK_STREAM, 0);
	if (_fd == 0) throw std::runtime_error("socket() error" + string(strerror(errno)));
	if (setsockopt(_fd, SOL_SOCKET, SO_REUSEADDR, (char *)&x, sizeof(x)) < 0 && close(_fd) <= 0)
		throw std::runtime_error("setsockopt() error: " + string(strerror(errno)));
	_address.sin_family = AF_INET;
	_address.sin_addr.s_addr = inet_addr(ip.c_str());
	_address.sin_port = htons(port);
	if (bind(_fd, (struct sockaddr *)&_address, sizeof(_address)) && close(_fd) <= 0)
		throw std::runtime_error("bind() error: " + string(strerror(errno)));
	if (listen(_fd, 3) < 0 && close(_fd) <= 0) throw std::runtime_error("listen() error: " + string(strerror(errno)));
#ifdef __APPLE__
	fcntl(socket, F_SETFL, O_NONBLOCK);
#endif
	cout << "New master socket with fd " << _fd << " which listen " << ip << ":" << port << "\n";
	_pollfds[_poll_id_amount].fd = _fd;
	_pollfds[_poll_id_amount].events = POLLIN | POLLPRI;
	_poll_id = _poll_id_amount;
	_poll_id_amount++;
}

/**
 * @brief Check master and his clients sockets after poll performed.
 */
void Master::check_socket(void) {
	int addrlen = sizeof(_address);

	if (_pollfds[_poll_id].revents & POLLIN) { /// < incomming master request
		int new_socket = accept(_fd, (struct sockaddr *)&_address, (socklen_t *)&addrlen);
		if (new_socket < 0) throw std::runtime_error("accept() error:" + string(strerror(errno)));
#ifdef __APPLE__
		fcntl(new_socket, F_SETFL, O_NONBLOCK);
#endif
		ip_port_t cli_listen = get_ip_port_t(inet_ntoa(_address.sin_addr), ntohs(_address.sin_port));
		Client	 *new_cli = new Client(new_socket, cli_listen, this);
		if (_poll_id_amount > MAX_CLIENTS) {
			new_cli->send_error(503);
			delete new_cli;
		} else {
			_childs.push_back(new_cli);
			for (int i = _first_cli_id; i < MAX_CLIENTS; i++) {
				if (_pollfds[i].fd != 0) continue;
				_pollfds[i].fd = new_socket;
				_pollfds[i].events = POLLIN | POLLPRI;
				new_cli->_poll_id = i;
				_poll_id_amount++;
				break;
			}
		}
	}
}

/**
 * @brief Handle master's childs.
 * Loop along _childs
 *  if poll even incomming on the child socket:
 *   - give 1023 next sockets bits to Client methods to handle.
 *   - if Request is fully received, does the answer and flag the socket for
 * outcomming event.
 *   - if request isn't fully received, flag the socket for incomming event.
 *   - if read returned 0, delete client.
 * @param env The environment object.
 */
void Master::check_childs(Env *env) {
	int child_fd;
	for (std::vector<Client *>::iterator it = _childs.begin(); it < _childs.end(); it++) {
		child_fd = (*it)->_fd;
		int i = (*it)->_poll_id;
		if (_pollfds[i].fd > 0 && _pollfds[i].revents & POLLIN) {
			char buffer[1024];
			int	 valread = read(child_fd, buffer, 1023);
			buffer[valread] = '\0';
			if (valread == 0) {
				delete (*it);
				_childs.erase(it);
			} else if ((*it)->getRequest(env, buffer)) {
				(*it)->debug(true);
				(*it)->handleRequest();
				_pollfds[i].events = POLLIN | POLLPRI | POLLOUT;
				(*it)->debug(false);
				if ((*it)->_finish) {
					delete (*it);
					_childs.erase(it);
				}
			} else _pollfds[i].events = POLLIN | POLLPRI;
		}
	}
}

/**
 *
 * @brief Choose the server which must handle a request
 * Each server can lsiten multiple range_ip:port and each range_it:port can be
 * listen by multiple servers. So for each request, we must look at the socket
 * which given us the client to know how the client came. If multiple servers
 * listen the range from where the client came, ones with exact correspondance
 * are prefered. If there are multiples servers listening exactly the ip the
 * client try to reach or which listen a range which contain it, the first one
 * which have the same server_name as the host the client used to reach server
 * is used, else it's the first one of exact correspondance or first one which
 * have the ip requested in his listen range.
 *
 * @param env The environment object.
 * @param host The host the client used to reached the server.
 *
 * @return The server object choosen to handle the request.
 */
Server *Master::choose_server(Env *env, string host) {
	std::vector<Server *> exact, inrange;
	vec_string						ip_listen, ip_required;

	ip_required = split(_listen.ip, ".");
	for (std::vector<Server *>::iterator server = env->_servers.begin(); server < env->_servers.end(); server++) {
		std::vector<ip_port_t> serv_listens = (*server)->_listens;
		for (std::vector<ip_port_t>::iterator it = serv_listens.begin(); it < serv_listens.end(); it++) {
			if (_listen.port != (*it).port) continue;
			if (_listen.ip == (*it).ip) {
				exact.push_back(*server);
				continue;
			}
			bool is_inrange = true;
			ip_listen = split((*it).ip, ".");
			vec_string::iterator r = ip_required.end();
			vec_string::iterator l = ip_listen.end();
			while (r > ip_required.begin()) {
				if (*(--l) != *(--r) && *l != "0") is_inrange = false;
			}
			if (is_inrange) inrange.push_back(*server);
		}
	}
	if (DEBUG) std::cout << "req: " << _listen.ip << ":" << _listen.port << "\n";
	if (exact.size() == 0) {
		for (std::vector<Server *>::iterator server = inrange.begin(); server < inrange.end(); server++) {
			if (host == (*server)->getName()) return *server;
		}
		return inrange.front();
	} else {
		for (std::vector<Server *>::iterator server = exact.begin(); server < exact.end(); server++) {
			if (host == (*server)->getName()) return *server;
		}
		return exact.front();
	}
}