#include <cstdlib>
#include <iostream>
#include <boost/bind.hpp>
#include <boost/asio.hpp>
#include <boost/asio/ssl.hpp>
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#include <assert.h>
#include <boost/thread.hpp>

char * messages[] = 
{
	"This is a test of the emergency broadcast system, this is only a test.",
	"The quick brown fox jumped over the lazy old dog.",
	"Life is like a box of chocolates, you never know what you are going to get."
};

char * messages2[] = 
{
	"Lovely day.",
	"Posted from thread # 2",
	"The moon is made of cheese."
};

enum { max_length = 1024 };

class client
{
public:
	client(boost::asio::io_service& io_service, boost::asio::ssl::context& context,
		boost::asio::ip::tcp::resolver::iterator endpoint_iterator)
		: socket_(io_service, context), handshakeFinished(false)
	{
		boost::asio::ip::tcp::endpoint endpoint = *endpoint_iterator;
		socket_.lowest_layer().async_connect(endpoint,
			boost::bind(&client::handle_connect, this,
			boost::asio::placeholders::error, ++endpoint_iterator));
	}

	void handle_connect(const boost::asio::error& error,
		boost::asio::ip::tcp::resolver::iterator endpoint_iterator)
	{
		if (!error)
		{
			socket_.async_handshake(boost::asio::ssl::stream_base::client,
				boost::bind(&client::handle_handshake, this,
					boost::asio::placeholders::error));
		}
		else if (endpoint_iterator != boost::asio::ip::tcp::resolver::iterator())
		{
			socket_.lowest_layer().close();
			boost::asio::ip::tcp::endpoint endpoint = *endpoint_iterator;
			socket_.lowest_layer().async_connect(endpoint,
				boost::bind(&client::handle_connect, this,
					boost::asio::placeholders::error, ++endpoint_iterator));
		}
		else
		{
			std::cout << "Connect failed: " << error << "\n";
		}
	}

	void handle_handshake(const boost::asio::error& error)
	{
		if (!error)
		{
			handshakeFinished = true;

			//std::cout << "Enter message: ";
			//std::cin.getline(request_, max_length);
			//size_t request_length = strlen(request_);
			int i = rand() % 3;

			boost::asio::async_write(socket_,
				//boost::asio::buffer(request_, request_length),
				boost::asio::buffer(messages[i], strlen(messages[i])),
				boost::bind(&client::handle_write, this,
					boost::asio::placeholders::error,
					boost::asio::placeholders::bytes_transferred));
		}
		else
		{
			std::cout << "Handshake failed: " << error << "\n";
		}
	}

	void handle_write(const boost::asio::error& error, size_t bytes_transferred)
	{
		if (!error)
		{
			boost::asio::async_read(socket_,
			boost::asio::buffer(reply_, bytes_transferred),
			boost::bind(&client::handle_read, this,
				boost::asio::placeholders::error,
				boost::asio::placeholders::bytes_transferred));
		}
		else
		{
			std::cout << "Write failed: " << error << "\n";
		}
	}

	void handle_read(const boost::asio::error& error, size_t bytes_transferred)
	{
		if (!error)
		{
			std::cout << "Reply: ";
			std::cout.write(reply_, bytes_transferred);
			std::cout << "\n";

			int i = rand() % 3;
		      
			boost::asio::async_write(socket_,
				boost::asio::buffer(messages[i], strlen(messages[i])),
				boost::bind(&client::handle_write, this,
					boost::asio::placeholders::error,
					boost::asio::placeholders::bytes_transferred));
		}
		else
		{
			std::cout << "Read failed: " << error << "\n";
		}
	}

	void threadEntry()
	{
		while (1)
		{
			if (handshakeFinished)
			{
				int i = rand() % 3;
				boost::asio::write(socket_, boost::asio::buffer(messages2[i], strlen(messages2[i])));
				Sleep(rand() % 100);
			}
			else
			{
				Sleep(1000);
			}
		}
	}

private:
	boost::asio::ssl::stream<boost::asio::ip::tcp::socket> socket_;
	char request_[max_length];
	char reply_[max_length];
	bool handshakeFinished;
};


void threadEntry(boost::asio::io_service & service)
{
}


int clientmain(int argc, char* argv[])
{
	try
	{
		if (argc != 3)
		{
			std::cerr << "Usage: client <host> <port>\n";
			return 1;
		}

		srand(time(NULL));

		boost::asio::io_service io_service;

		boost::asio::ip::tcp::resolver resolver(io_service);
		boost::asio::ip::tcp::resolver::query query(argv[1], argv[2]);
		boost::asio::ip::tcp::resolver::iterator iterator = resolver.resolve(query);

		boost::asio::ssl::context ctx(io_service, boost::asio::ssl::context::sslv23);
		ctx.set_verify_mode(boost::asio::ssl::context::verify_peer);
		ctx.load_verify_file("ca.pem");

		client c(io_service, ctx, iterator);
		
		boost::thread * mythread = new boost::thread(boost::bind(client::threadEntry, &c));

		io_service.run();
	}
	catch (boost::asio::error& e)
	{
		std::cerr << e << "\n";
	}
	catch (std::exception& e)
	{
		std::cerr << "Exception: " << e.what() << "\n";
	}

	return 0;
}