#include "Websocket.h"
#include "Log.h"

#include <set>

#include <websocketpp/config/asio_no_tls.hpp>
#include <websocketpp/server.hpp>
#include <boost/property_tree/ini_parser.hpp>
#define GCC47_BOOST149 ((BOOST_VERSION == 104900) && (__GNUC__ == 4) && (__GNUC_MINOR__ >= 7))
#if !GCC47_BOOST149
#include <boost/property_tree/json_parser.hpp>
#endif

#include <stdexcept>

namespace i2p
{
  namespace event
  {

    typedef websocketpp::server<websocketpp::config::asio> ServerImpl;
    typedef websocketpp::connection_hdl ServerConn;
    
    class WebsocketServerImpl : public EventListener
    {
    private:
      typedef ServerImpl::message_ptr MessagePtr;
    public:

      WebsocketServerImpl(const std::string & addr, int port) : m_run(false), m_thread(nullptr)
      {
        m_server.init_asio();
        m_server.set_open_handler(std::bind(&WebsocketServerImpl::ConnOpened, this, std::placeholders::_1));
        m_server.set_close_handler(std::bind(&WebsocketServerImpl::ConnClosed, this, std::placeholders::_1));
        m_server.set_message_handler(std::bind(&WebsocketServerImpl::OnConnMessage, this, std::placeholders::_1, std::placeholders::_2));
        
        m_server.listen(boost::asio::ip::address::from_string(addr), port);
      }

      ~WebsocketServerImpl()
      {
      }
      
      void Start() {
        m_run = true;
        m_server.start_accept();
        m_thread = new std::thread([&] () {
            while(m_run) {
              try { 
                m_server.run();
              } catch (std::exception & e ) {
                LogPrint(eLogError, "Websocket server: ", e.what());
              }
            }
          });
      }

      void Stop() {
        m_run = false;
        m_server.stop();
        if(m_thread) {
          m_thread->join();
          delete m_thread;
        }
        m_thread = nullptr;
      }

      void ConnOpened(ServerConn c)
      {
        std::lock_guard<std::mutex> lock(m_connsMutex);
        m_conns.insert(c);
      }
      
      void ConnClosed(ServerConn c)
      {
        std::lock_guard<std::mutex> lock(m_connsMutex);
        m_conns.erase(c);
      }

      void OnConnMessage(ServerConn conn, ServerImpl::message_ptr msg)
      {
        (void) conn;
        (void) msg;
      }
      
      void HandleEvent(const EventType & ev)
      {
        std::lock_guard<std::mutex> lock(m_connsMutex);
        LogPrint(eLogDebug, "websocket event");
        boost::property_tree::ptree event;
        for (const auto & item : ev) {
          event.put(item.first, item.second);
        }
        std::ostringstream ss;
        write_json(ss, event);
        std::string s = ss.str();

         ConnList::iterator it;
         for (it = m_conns.begin(); it != m_conns.end(); ++it) {
           ServerImpl::connection_ptr con = m_server.get_con_from_hdl(*it);
           con->send(s);
         }
      }
      
    private:
      typedef std::set<ServerConn, std::owner_less<ServerConn> > ConnList;
      bool m_run;
      std::thread * m_thread;
      std::mutex m_connsMutex;
      ConnList m_conns;
      ServerImpl m_server;
    };


    WebsocketServer::WebsocketServer(const std::string & addr, int port) : m_impl(new WebsocketServerImpl(addr, port)) {}
    WebsocketServer::~WebsocketServer()
    {
      delete m_impl;
    }

    
    void WebsocketServer::Start()
    {
      m_impl->Start();
    }

    void WebsocketServer::Stop()
    {
      m_impl->Stop();
    }
    
    EventListener * WebsocketServer::ToListener()
    {
      return m_impl;
    }
  }
}