/*
 *  anytun
 *
 *  The secure anycast tunneling protocol (satp) defines a protocol used
 *  for communication between any combination of unicast and anycast
 *  tunnel endpoints.  It has less protocol overhead than IPSec in Tunnel
 *  mode and allows tunneling of every ETHER TYPE protocol (e.g.
 *  ethernet, ip, arp ...). satp directly includes cryptography and
 *  message authentication based on the methods used by SRTP.  It is
 *  intended to deliver a generic, scaleable and secure solution for
 *  tunneling and relaying of packets of any protocol.
 *
 *
 *  Copyright (C) 2007-2014 Markus Grüneis, Othmar Gsenger, Erwin Nindl,
 *                          Christian Pointner <satp@wirdorange.org>
 *
 *  This file is part of Anytun.
 *
 *  Anytun is free software: you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation, either version 3 of the License, or
 *  any later version.
 *
 *  Anytun is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with Anytun.  If not, see <http://www.gnu.org/licenses/>.
 *
 *  In addition, as a special exception, the copyright holders give
 *  permission to link the code of portions of this program with the
 *  OpenSSL library under certain conditions as described in each
 *  individual source file, and distribute linked combinations
 *  including the two.
 *  You must obey the GNU General Public License in all respects
 *  for all of the code used other than OpenSSL.  If you modify
 *  file(s) with this exception, you may extend this exception to your
 *  version of the file(s), but you are not obligated to do so.  If you
 *  do not wish to do so, delete this exception statement from your
 *  version.  If you delete this exception statement from all source
 *  files in the program, then also delete it here.
 */

#include "syncServer.h"
#include "resolver.h"
#include "log.h"
#include "anytunError.h"

//using asio::ip::tcp;

SyncServer::SyncServer(std::string localaddr, std::string port, ConnectCallback onConnect)
  : onConnect_(onConnect)
{
  gResolver.resolveTcp(localaddr, port, boost::bind(&SyncServer::onResolve, this, _1), boost::bind(&SyncServer::onResolvError, this, _1));
}

SyncServer::~SyncServer()
{
  std::list<AcceptorsElement>::iterator it = acceptors_.begin();
  for(; it != acceptors_.end(); ++it) {
    /// this might be a needed by a running thread, TODO cleanup
    //    delete(it->acceptor_);
  }
}

void SyncServer::onResolve(SyncTcpConnection::proto::resolver::iterator it)
{
  while(it != SyncTcpConnection::proto::resolver::iterator()) {
    SyncTcpConnection::proto::endpoint e = *it;

    AcceptorsElement acceptor;
    acceptor.acceptor_ = new SyncTcpConnection::proto::acceptor(io_service_);
    if(!acceptor.acceptor_) {
      AnytunError::throwErr() << "memory error";
    }

    acceptor.acceptor_->open(e.protocol());
#if !defined(_MSC_VER) && !defined(MINGW)
    if(e.protocol() == boost::asio::ip::tcp::v6()) {
      acceptor.acceptor_->set_option(boost::asio::ip::v6_only(true));
    }
#endif
    acceptor.acceptor_->set_option(boost::asio::socket_base::reuse_address(true));
    acceptor.acceptor_->bind(e);
    acceptor.acceptor_->listen();
    acceptor.started_ = false;

    acceptors_.push_back(acceptor);

    cLog.msg(Log::PRIO_NOTICE) << "sync server listening on " << e;

    it++;
  }

  start_accept();
  ready_sem_.up();
}

void SyncServer::onResolvError(const std::runtime_error& e)
{
  cLog.msg(Log::PRIO_ERROR) << "sync server bind/listen failed: " << e.what();
  // TODO: stop daemon??
}

void SyncServer::run()
{
  ready_sem_.down();
  io_service_.run();
}

void SyncServer::send(std::string message)
{
  Lock lock(mutex_);
  for(std::list<SyncTcpConnection::pointer>::iterator it = conns_.begin() ; it != conns_.end(); ++it) {
    (*it)->Send(message);
  }
}

void SyncServer::start_accept()
{
  Lock lock(mutex_);

  std::list<AcceptorsElement>::iterator it = acceptors_.begin();
  for(; it != acceptors_.end(); ++it) {
    if(!it->started_) {
      SyncTcpConnection::pointer new_connection = SyncTcpConnection::create(it->acceptor_->get_io_service());
      conns_.push_back(new_connection);
      it->acceptor_->async_accept(new_connection->socket(),
                                  boost::bind(&SyncServer::handle_accept, this, new_connection, boost::asio::placeholders::error, it));
      it->started_ = true;
    }
  }
}

void SyncServer::handle_accept(SyncTcpConnection::pointer new_connection, const boost::system::error_code& error, std::list<AcceptorsElement>::iterator it)
{
  if(!error) {
    cLog.msg(Log::PRIO_INFO) << "new sync client connected from " << new_connection->socket().remote_endpoint();

    new_connection->onConnect = onConnect_;
    new_connection->start();
    it->started_ = false;
    start_accept();
  }
}