/*
 * Copyright (c) 2011, Peter Thorson. All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met:
 *     * Redistributions of source code must retain the above copyright
 *       notice, this list of conditions and the following disclaimer.
 *     * Redistributions in binary form must reproduce the above copyright
 *       notice, this list of conditions and the following disclaimer in the
 *       documentation and/or other materials provided with the distribution.
 *     * Neither the name of the WebSocket++ Project nor the
 *       names of its contributors may be used to endorse or promote products
 *       derived from this software without specific prior written permission.
 * 
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
 * ARE DISCLAIMED. IN NO EVENT SHALL PETER THORSON BE LIABLE FOR ANY
 * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 * 
 */

#include "../../src/endpoint.hpp"
#include "../../src/roles/client.hpp"
#include "../../src/md5/md5.hpp"

#include <boost/thread.hpp>

#include <iostream>

// PLATFORM SPECIFIC STUFF
#include <unistd.h>
#include <sys/resource.h>

typedef websocketpp::endpoint<websocketpp::role::client,websocketpp::socket::plain> plain_endpoint_type;
typedef plain_endpoint_type::handler_ptr plain_handler_ptr;
typedef plain_endpoint_type::connection_ptr connection_ptr;

class echo_client_handler : public plain_endpoint_type::handler {
public:
	typedef echo_client_handler type;
	typedef plain_endpoint_type::connection_ptr connection_ptr;
	
    void on_open(connection_ptr connection) {
        //std::cout << "on_open: " << std::endl;
        if (!m_timer) {
			m_timer.reset(new boost::asio::deadline_timer(connection->get_io_service(),boost::posix_time::seconds(0)));
			m_timer->expires_from_now(boost::posix_time::milliseconds(1000));
			m_timer->async_wait(boost::bind(&type::on_timer,this,connection,boost::asio::placeholders::error));
		}
    }
    
	void on_message(connection_ptr connection, websocketpp::message::data_ptr msg) {		
		// SHA1 or MD5 the message and 
        
        //std::cout << "got message: " << websocketpp::md5_hash_hex(msg->get_payload()) << std::endl;
        
        m_total++;
        m_msg_stats[websocketpp::md5_hash_hex(msg->get_payload())]++;
        
        /*if (connection->get_resource() == "/getCaseCount") {
			std::cout << "Detected " << msg->get_payload() << " test cases." << std::endl;
			m_case_count = atoi(msg->get_payload().c_str());
		} else {
			connection->send(msg->get_payload(),(msg->get_opcode() == websocketpp::frame::opcode::BINARY));
		}*/
		
		connection->recycle(msg);
	}
	
	void http(connection_ptr connection) {
		//connection->set_body("HTTP Response!!");
	}
	
	void on_fail(connection_ptr connection) {
		std::cout << "connection failed" << std::endl;
	}
	
    void on_timer(connection_ptr connection,const boost::system::error_code& error) {
        if (error) {
            std::cout << "on_timer error" << std::endl;
            return;
        }
        
        //std::cout << "on_timer: " << m_total << std::endl;
        std::stringstream foo;
        foo << "{\"type\":\"acks\",\"messages\":[";
        
        std::map<std::string,size_t>::iterator it;
        std::map<std::string,size_t>::iterator last = m_msg_stats.end();
        if (m_msg_stats.size() > 0) {
            last--;
        }
        
        for (it = m_msg_stats.begin(); it != m_msg_stats.end(); it++) {
            foo << "{\"" << (*it).first << "\":" << (*it).second << "}" << (it != last ? "," : "");
        }
        foo << "]}";
        
        //std::cout << "Sending " << foo.str() << std::endl;
        
        connection->send(foo.str(),false);
                
        m_timer->expires_from_now(boost::posix_time::milliseconds(1000));
		m_timer->async_wait(boost::bind(&type::on_timer,this,connection,boost::asio::placeholders::error));
    }
    
    void on_close(connection_ptr connection) {
        m_timer->cancel();
    }
    
    size_t                          m_total;
    std::map<std::string,size_t>    m_msg_stats;
    boost::shared_ptr<boost::asio::deadline_timer> m_timer;
};


int main(int argc, char* argv[]) {
	std::string uri = "ws://localhost:9002/";
	int num_batches = 1;
	int batch_size = 1;
	
	if (argc != 4) {
		std::cout << "Usage: `echo_client test_url num_batches batch_size`" << std::endl;
	} else {
		uri = argv[1];
		num_batches = atoi(argv[2]);
		batch_size = atoi(argv[3]);
	}
	
	int num_connections = num_batches*batch_size;
	
	// 12288 is max OS X limit without changing kernal settings
    const rlim_t ideal_size = 200+num_connections;
    rlim_t old_size;
	rlim_t old_max;
    
    struct rlimit rl;
    int result;
    
    result = getrlimit(RLIMIT_NOFILE, &rl);
    if (result == 0) {
        //std::cout << "System FD limits: " << rl.rlim_cur << " max: " << rl.rlim_max << std::endl;
        
        old_size = rl.rlim_cur;
        old_max = rl.rlim_max;
		
        if (rl.rlim_cur < ideal_size) {
            std::cout << "Attempting to raise system file descriptor limit from " << rl.rlim_cur << " to " << ideal_size << std::endl;
			rl.rlim_cur = ideal_size;
            
			if (rl.rlim_max < ideal_size) {
				rl.rlim_max = ideal_size;
			}
			
			result = setrlimit(RLIMIT_NOFILE, &rl);
            
            if (result == 0) {
                std::cout << "Success" << std::endl;
			} else if (result == EPERM) {
				std::cout << "Failed. This server will be limited to " << old_size << " concurrent connections. Error code: Insufficient permissions. Try running process as root. system max: " << old_max << std::endl;
			} else {
				std::cout << "Failed. This server will be limited to " << old_size << " concurrent connections. Error code: " << errno << " system max: " << old_max << std::endl;
			}
        }
    }
	
	try {
		plain_handler_ptr handler(new echo_client_handler());
		plain_endpoint_type endpoint(handler);
		
		endpoint.alog().unset_level(websocketpp::log::alevel::ALL);
		endpoint.elog().set_level(websocketpp::log::elevel::ALL);
		
		std::set<connection_ptr> connections;
		
		
		connections.insert(endpoint.connect(uri));
		
		boost::thread t(boost::bind(&plain_endpoint_type::run, &endpoint));
		
		std::cout << "launching " << num_connections << " connections to " << uri << " in batches of " << batch_size << std::endl;
		
		for (int i = 0; i < num_connections-1; i++) {
			if (i % batch_size == 0) {
				sleep(1);
			}
			connections.insert(endpoint.connect(uri));
		}
		
		std::cout << "complete" << std::endl;
		
		//endpoint.run();
		
		/*char line[512];
		while (std::cin.getline(line, 512)) {
			std::iterator
			
			c->send(line);
		}*/
		
		t.join();
		
		
		std::cout << "done" << std::endl;
		
	} catch (std::exception& e) {
		std::cerr << "Exception: " << e.what() << std::endl;
	}
	
	return 0;
}