#include "stdafx.h"
#include "http_transfer.h"

http_transfer::http_transfer(acl::http_method_t method, request_t& req,
	response_t& res, int port)
: port_(port)
, method_(method)
, req_(req)
, res_(res)
, client_(NULL)
{}

http_transfer::~http_transfer(void) {
	delete client_;
}

void http_transfer::wait(bool* keep_alive) {
	bool* res = box_.pop();
	assert(res);
	*keep_alive = *res;
	delete res;
}

void http_transfer::run(void) {
	bool* res = new bool;
	switch (method_) {
	case acl::HTTP_METHOD_GET:
		*res = transfer_get();
		break;
	case acl::HTTP_METHOD_POST:
		*res = transfer_post();
		break;
	default:
		logger_error("not support method: %d", (int) method_);
		*res = false;
		break;
	}

	box_.push(res);
}

bool http_transfer::open_peer(request_t& req, acl::socket_stream& conn)
{
	const char* host = req.getRemoteHost();
	if (host == NULL || *host == 0) {
		logger_error("no Host in request head");
		return false;
	}

	acl::string buf(host);

	char* ptr = strrchr(buf.c_str(), ':');
	if (ptr != NULL && *(ptr + 1) != 0) {
		*ptr++ = 0;
		int port = atoi(ptr);
		if (port > 0 && port < 65535) {
			port_ = port;
		}
	}

	acl::string addr;
	addr.format("%s|%d", buf.c_str(), port_);

	if (conn.open(addr, 0, 0)) {
		logger("connect %s ok", addr.c_str());
		return true;
	}

	logger_error("connect %s error %s", addr.c_str(), acl::last_serror());
	return false;
}

bool http_transfer::transfer_request_head(acl::socket_stream& conn) {
	acl::string header;
	req_.sprint_header(header, NULL);
	if (header.empty()) {
		logger_error("http request head empty");
		return false;
	}

	header += "\r\n";

	if (conn.write(header) == -1) {
		logger_error("write request header error");
		return false;
	}

	printf(">>>send head: [%s]\r\n", header.c_str());
	client_ = new acl::http_client(&conn, true);
	return true;
}

bool http_transfer::transfer_request_body(acl::socket_stream& conn) {
	long long length = req_.getContentLength();
	if (length <= 0) {
		return true;
	}

	acl::istream& in = req_.getInputStream();
	long long n = 0;
	char buf[8192];

	while (n < length) {
		int ret = in.read(buf, sizeof(buf), false);
		if (ret == -1) {
			logger_error("read request body error");
			return false;
		}

		if (conn.write(buf, ret) == -1) {
			logger_error("send request body error");
			return false;
		}

		n += ret;
	}

	return true;
}

bool http_transfer::transfer_get(void) {
	if (!open_peer(req_, conn_)) {
		logger_error("open server error");
		return false;
	}

	if (!transfer_request_head(conn_)) {
		logger_error("transfer_request_head error");
		return false;
	} else {
		return transfer_response();
	}
}

bool http_transfer::transfer_post(void) {
	if (!open_peer(req_, conn_)) {
		logger_error("open server error");
		return false;
	}

	if (!transfer_request_head(conn_)) {
		logger_error("transfer_request_head error");
		return false;
	} else if (!transfer_request_body(conn_)) {
		logger_error("transfer_request_body error");
		return false;
	} else {
		return transfer_response();
	}
}

bool http_transfer::transfer_response(void) {
	assert(client_);
	if (!client_->read_head()) {
		logger_error("read response head error");
		return false;
	}

	acl::string header;
	client_->sprint_header(header, NULL);
	if (header.empty()) {
		logger_error("response header empty");
		return false;
	}

	header += "\r\n";

	printf("response head:\r\n[%s]\r\n", header.c_str());

	acl::ostream& out = res_.getOutputStream();
	if (out.write(header) == -1) {
		logger_error("send response head error");
		return false;
	}

	long long length = client_->body_length();
	if (length == 0) {
		return client_->is_server_keep_alive();
	}

	char buf[8192];
	while (true) {
		int ret = client_->read_body(buf, sizeof(buf));
		if (ret <= 0) {
			break;
		} else if (out.write(buf, ret) == -1) {
			logger_error("send response body error");
			return false;
		}
	}


	if (length < 0) {
		return false;
	}

	return client_->is_server_keep_alive();
}