// -*- mode:C++; tab-width:8; c-basic-offset:2; indent-tabs-mode:t -*-
	// vim: ts=8 sw=2 smarttab
	
	#include "include/stringify.h"
	#include "common/Cond.h"
	#include "common/Timer.h"
	#include "common/debug.h"
	#include "common/errno.h"
	#include "librbd/Utils.h"
	#include "ImageReplayer.h"
	#include "InstanceReplayer.h"
	#include "ServiceDaemon.h"
	#include "Threads.h"
	
	#define dout_context g_ceph_context
	#define dout_subsys ceph_subsys_rbd_mirror
	#undef dout_prefix
	#define dout_prefix *_dout << "rbd::mirror::InstanceReplayer: " \
	                           << this << " " << __func__ << ": "
	
	namespace rbd {
	namespace mirror {
	
	namespace {
	
	const std::string SERVICE_DAEMON_ASSIGNED_COUNT_KEY("image_assigned_count");
	const std::string SERVICE_DAEMON_WARNING_COUNT_KEY("image_warning_count");
	const std::string SERVICE_DAEMON_ERROR_COUNT_KEY("image_error_count");
	
	} // anonymous namespace
	
	using librbd::util::create_async_context_callback;
	using librbd::util::create_context_callback;
	
	template <typename I>
	InstanceReplayer<I>::InstanceReplayer(
	    librados::IoCtx &local_io_ctx, const std::string &local_mirror_uuid,
	    Threads<I> *threads, ServiceDaemon<I>* service_daemon,
	    journal::CacheManagerHandler *cache_manager_handler)
	  : m_local_io_ctx(local_io_ctx), m_local_mirror_uuid(local_mirror_uuid),
	    m_threads(threads), m_service_daemon(service_daemon),
	    m_cache_manager_handler(cache_manager_handler),
	    m_lock(ceph::make_mutex("rbd::mirror::InstanceReplayer " +
	        stringify(local_io_ctx.get_id()))) {
	}
	
	template <typename I>

	InstanceReplayer<I>::~InstanceReplayer() {
	  ceph_assert(m_image_state_check_task == nullptr);

	  ceph_assert(m_async_op_tracker.empty());
	  ceph_assert(m_image_replayers.empty());
	}
	
	template <typename I>
	int InstanceReplayer<I>::init() {
	  C_SaferCond init_ctx;
	  init(&init_ctx);
	  return init_ctx.wait();
	}
	
	template <typename I>
	void InstanceReplayer<I>::init(Context *on_finish) {
	  dout(10) << dendl;
	
	  Context *ctx = new LambdaContext(
	    [this, on_finish] (int r) {
	      {
	        std::lock_guard timer_locker{m_threads->timer_lock};
	        schedule_image_state_check_task();
	      }
	      on_finish->complete(0);
	    });
	
	  m_threads->work_queue->queue(ctx, 0);
	}
	
	template <typename I>
	void InstanceReplayer<I>::shut_down() {
	  C_SaferCond shut_down_ctx;
	  shut_down(&shut_down_ctx);
	  int r = shut_down_ctx.wait();
	  ceph_assert(r == 0);
	}
	
	template <typename I>
	void InstanceReplayer<I>::shut_down(Context *on_finish) {
	  dout(10) << dendl;
	
	  std::lock_guard locker{m_lock};
	
	  ceph_assert(m_on_shut_down == nullptr);
	  m_on_shut_down = on_finish;
	
	  Context *ctx = new LambdaContext(
	    [this] (int r) {
	      cancel_image_state_check_task();
	      wait_for_ops();
	    });
	
	  m_threads->work_queue->queue(ctx, 0);
	}
	
	template <typename I>
	void InstanceReplayer<I>::add_peer(std::string peer_uuid,
	                                   librados::IoCtx io_ctx) {
	  dout(10) << peer_uuid << dendl;
	
	  std::lock_guard locker{m_lock};
	  auto result = m_peers.insert(Peer(peer_uuid, io_ctx)).second;
	  ceph_assert(result);
	}
	
	template <typename I>
	void InstanceReplayer<I>::release_all(Context *on_finish) {
	  dout(10) << dendl;
	
	  std::lock_guard locker{m_lock};
	
	  C_Gather *gather_ctx = new C_Gather(g_ceph_context, on_finish);
	  for (auto it = m_image_replayers.begin(); it != m_image_replayers.end();
	       it = m_image_replayers.erase(it)) {
	    auto image_replayer = it->second;
	    auto ctx = gather_ctx->new_sub();
	    ctx = new LambdaContext(
	      [image_replayer, ctx] (int r) {
	        image_replayer->destroy();
	        ctx->complete(0);
	      });
	    stop_image_replayer(image_replayer, ctx);
	  }
	  gather_ctx->activate();
	}
	
	template <typename I>
	void InstanceReplayer<I>::acquire_image(InstanceWatcher<I> *instance_watcher,
	                                        const std::string &global_image_id,
	                                        Context *on_finish) {
	  dout(10) << "global_image_id=" << global_image_id << dendl;
	
	  std::lock_guard locker{m_lock};
	
	  ceph_assert(m_on_shut_down == nullptr);
	
	  auto it = m_image_replayers.find(global_image_id);
	  if (it == m_image_replayers.end()) {
	    auto image_replayer = ImageReplayer<I>::create(
	        m_local_io_ctx, m_local_mirror_uuid, global_image_id,
	        m_threads, instance_watcher, m_cache_manager_handler);
	
	    dout(10) << global_image_id << ": creating replayer " << image_replayer
	             << dendl;
	
	    it = m_image_replayers.insert(std::make_pair(global_image_id,
	                                                 image_replayer)).first;
	
	    // TODO only a single peer is currently supported
	    ceph_assert(m_peers.size() == 1);
	    auto peer = *m_peers.begin();
	    image_replayer->add_peer(peer.peer_uuid, peer.io_ctx);
	    start_image_replayer(image_replayer);
	  } else {
	    // A duplicate acquire notification implies (1) connection hiccup or
	    // (2) new leader election. For the second case, restart the replayer to
	    // detect if the image has been deleted while the leader was offline
	    auto& image_replayer = it->second;
	    image_replayer->set_finished(false);
	    image_replayer->restart();
	  }
	
	  m_threads->work_queue->queue(on_finish, 0);
	}
	
	template <typename I>
	void InstanceReplayer<I>::release_image(const std::string &global_image_id,
	                                        Context *on_finish) {
	  dout(10) << "global_image_id=" << global_image_id << dendl;
	
	  std::lock_guard locker{m_lock};
	  ceph_assert(m_on_shut_down == nullptr);
	
	  auto it = m_image_replayers.find(global_image_id);
	  if (it == m_image_replayers.end()) {
	    dout(5) << global_image_id << ": not found" << dendl;
	    m_threads->work_queue->queue(on_finish, 0);
	    return;
	  }
	
	  auto image_replayer = it->second;
	  m_image_replayers.erase(it);
	
	  on_finish = new LambdaContext(
	    [image_replayer, on_finish] (int r) {
	      image_replayer->destroy();
	      on_finish->complete(0);
	    });
	  stop_image_replayer(image_replayer, on_finish);
	}
	
	template <typename I>
	void InstanceReplayer<I>::remove_peer_image(const std::string &global_image_id,
	                                            const std::string &peer_mirror_uuid,
	                                            Context *on_finish) {
	  dout(10) << "global_image_id=" << global_image_id << ", "
	           << "peer_mirror_uuid=" << peer_mirror_uuid << dendl;
	
	  std::lock_guard locker{m_lock};
	  ceph_assert(m_on_shut_down == nullptr);
	
	  auto it = m_image_replayers.find(global_image_id);
	  if (it != m_image_replayers.end()) {
	    // TODO only a single peer is currently supported, therefore
	    // we can just interrupt the current image replayer and
	    // it will eventually detect that the peer image is missing and
	    // determine if a delete propagation is required.
	    auto image_replayer = it->second;
	    image_replayer->restart();
	  }
	  m_threads->work_queue->queue(on_finish, 0);
	}
	
	template <typename I>
	void InstanceReplayer<I>::print_status(Formatter *f) {
	  dout(10) << dendl;
	
	  std::lock_guard locker{m_lock};
	
	  f->open_array_section("image_replayers");
	  for (auto &kv : m_image_replayers) {
	    auto &image_replayer = kv.second;
	    image_replayer->print_status(f);
	  }
	  f->close_section();
	}
	
	template <typename I>
	void InstanceReplayer<I>::start()
	{
	  dout(10) << dendl;
	
	  std::lock_guard locker{m_lock};
	
	  m_manual_stop = false;
	
	  for (auto &kv : m_image_replayers) {
	    auto &image_replayer = kv.second;
	    image_replayer->start(nullptr, true);
	  }
	}
	
	template <typename I>
	void InstanceReplayer<I>::stop()
	{
	  dout(10) << dendl;
	
	  std::lock_guard locker{m_lock};
	
	  m_manual_stop = true;
	
	  for (auto &kv : m_image_replayers) {
	    auto &image_replayer = kv.second;
	    image_replayer->stop(nullptr, true);
	  }
	}
	
	template <typename I>
	void InstanceReplayer<I>::stop(Context *on_finish)
	{
	  dout(10) << dendl;
	
	  auto cct = static_cast<CephContext *>(m_local_io_ctx.cct());
	  auto gather_ctx = new C_Gather(cct, on_finish);
	  {
	    std::lock_guard locker{m_lock};
	
	    m_manual_stop = true;
	
	    for (auto &kv : m_image_replayers) {
	      auto &image_replayer = kv.second;
	      image_replayer->stop(gather_ctx->new_sub(), true);
	    }
	  }
	
	  gather_ctx->activate();
	}
	
	template <typename I>
	void InstanceReplayer<I>::restart()
	{
	  dout(10) << dendl;
	
	  std::lock_guard locker{m_lock};
	
	  m_manual_stop = false;
	
	  for (auto &kv : m_image_replayers) {
	    auto &image_replayer = kv.second;
	    image_replayer->restart();
	  }
	}
	
	template <typename I>
	void InstanceReplayer<I>::flush()
	{
	  dout(10) << dendl;
	
	  std::lock_guard locker{m_lock};
	
	  for (auto &kv : m_image_replayers) {
	    auto &image_replayer = kv.second;
	    image_replayer->flush();
	  }
	}
	
	template <typename I>
	void InstanceReplayer<I>::start_image_replayer(
	    ImageReplayer<I> *image_replayer) {
	  ceph_assert(ceph_mutex_is_locked(m_lock));
	
	  std::string global_image_id = image_replayer->get_global_image_id();
	  if (!image_replayer->is_stopped()) {
	    return;
	  } else if (image_replayer->is_blacklisted()) {
	    derr << "global_image_id=" << global_image_id << ": blacklisted detected "
	         << "during image replay" << dendl;
	    return;
	  } else if (image_replayer->is_finished()) {
	    // TODO temporary until policy integrated
	    dout(5) << "removing image replayer for global_image_id="
	            << global_image_id << dendl;
	    m_image_replayers.erase(image_replayer->get_global_image_id());
	    image_replayer->destroy();
	    return;
	  } else if (m_manual_stop) {
	    return;
	  }
	
	  dout(10) << "global_image_id=" << global_image_id << dendl;
	  image_replayer->start(nullptr, false);
	}
	
	template <typename I>
	void InstanceReplayer<I>::queue_start_image_replayers() {
	  dout(10) << dendl;
	
	  Context *ctx = create_context_callback<
	    InstanceReplayer, &InstanceReplayer<I>::start_image_replayers>(this);
	  m_async_op_tracker.start_op();
	  m_threads->work_queue->queue(ctx, 0);
	}
	
	template <typename I>
	void InstanceReplayer<I>::start_image_replayers(int r) {
	  dout(10) << dendl;
	
	  std::lock_guard locker{m_lock};
	  if (m_on_shut_down != nullptr) {
	    return;
	  }
	
	  uint64_t image_count = 0;
	  uint64_t warning_count = 0;
	  uint64_t error_count = 0;
	  for (auto it = m_image_replayers.begin();
	       it != m_image_replayers.end();) {
	    auto current_it(it);
	    ++it;
	
	    ++image_count;
	    auto health_state = current_it->second->get_health_state();
	    if (health_state == image_replayer::HEALTH_STATE_WARNING) {
	      ++warning_count;
	    } else if (health_state == image_replayer::HEALTH_STATE_ERROR) {
	      ++error_count;
	    }
	
	    start_image_replayer(current_it->second);
	  }
	
	  // TODO: add namespace support to service daemon
	  if (m_local_io_ctx.get_namespace().empty()) {
	    m_service_daemon->add_or_update_attribute(
	      m_local_io_ctx.get_id(), SERVICE_DAEMON_ASSIGNED_COUNT_KEY, image_count);
	    m_service_daemon->add_or_update_attribute(
	      m_local_io_ctx.get_id(), SERVICE_DAEMON_WARNING_COUNT_KEY, warning_count);
	    m_service_daemon->add_or_update_attribute(
	      m_local_io_ctx.get_id(), SERVICE_DAEMON_ERROR_COUNT_KEY, error_count);
	  }
	
	  m_async_op_tracker.finish_op();
	}
	
	template <typename I>
	void InstanceReplayer<I>::stop_image_replayer(ImageReplayer<I> *image_replayer,
	                                              Context *on_finish) {
	  dout(10) << image_replayer << " global_image_id="
	           << image_replayer->get_global_image_id() << ", on_finish="
	           << on_finish << dendl;
	
	  if (image_replayer->is_stopped()) {
	    m_threads->work_queue->queue(on_finish, 0);
	    return;
	  }
	
	  m_async_op_tracker.start_op();
	  Context *ctx = create_async_context_callback(
	    m_threads->work_queue, new LambdaContext(
	      [this, image_replayer, on_finish] (int r) {
	        stop_image_replayer(image_replayer, on_finish);
	        m_async_op_tracker.finish_op();
	      }));
	
	  if (image_replayer->is_running()) {
	    image_replayer->stop(ctx, false);
	  } else {
	    int after = 1;
	    dout(10) << "scheduling image replayer " << image_replayer << " stop after "
	             << after << " sec (task " << ctx << ")" << dendl;
	    ctx = new LambdaContext(
	      [this, after, ctx] (int r) {
	        std::lock_guard timer_locker{m_threads->timer_lock};
	        m_threads->timer->add_event_after(after, ctx);
	      });
	    m_threads->work_queue->queue(ctx, 0);
	  }
	}
	
	template <typename I>
	void InstanceReplayer<I>::wait_for_ops() {
	  dout(10) << dendl;
	
	  Context *ctx = create_context_callback<
	    InstanceReplayer, &InstanceReplayer<I>::handle_wait_for_ops>(this);
	
	  m_async_op_tracker.wait_for_ops(ctx);
	}
	
	template <typename I>
	void InstanceReplayer<I>::handle_wait_for_ops(int r) {
	  dout(10) << "r=" << r << dendl;
	
	  ceph_assert(r == 0);
	
	  std::lock_guard locker{m_lock};
	  stop_image_replayers();
	}
	
	template <typename I>
	void InstanceReplayer<I>::stop_image_replayers() {
	  dout(10) << dendl;
	
	  ceph_assert(ceph_mutex_is_locked(m_lock));
	
	  Context *ctx = create_async_context_callback(
	    m_threads->work_queue, create_context_callback<InstanceReplayer<I>,
	    &InstanceReplayer<I>::handle_stop_image_replayers>(this));
	
	  C_Gather *gather_ctx = new C_Gather(g_ceph_context, ctx);
	  for (auto &it : m_image_replayers) {
	    stop_image_replayer(it.second, gather_ctx->new_sub());
	  }
	  gather_ctx->activate();
	}
	
	template <typename I>
	void InstanceReplayer<I>::handle_stop_image_replayers(int r) {
	  dout(10) << "r=" << r << dendl;
	
	  ceph_assert(r == 0);
	
	  Context *on_finish = nullptr;
	  {
	    std::lock_guard locker{m_lock};
	
	    for (auto &it : m_image_replayers) {
	      ceph_assert(it.second->is_stopped());
	      it.second->destroy();
	    }
	    m_image_replayers.clear();
	
	    ceph_assert(m_on_shut_down != nullptr);
	    std::swap(on_finish, m_on_shut_down);
	  }
	  on_finish->complete(r);
	}
	
	template <typename I>
	void InstanceReplayer<I>::cancel_image_state_check_task() {
	  std::lock_guard timer_locker{m_threads->timer_lock};
	
	  if (m_image_state_check_task == nullptr) {
	    return;
	  }
	
	  dout(10) << m_image_state_check_task << dendl;
	  bool canceled = m_threads->timer->cancel_event(m_image_state_check_task);
	  ceph_assert(canceled);
	  m_image_state_check_task = nullptr;
	}
	
	template <typename I>
	void InstanceReplayer<I>::schedule_image_state_check_task() {
	  ceph_assert(ceph_mutex_is_locked(m_threads->timer_lock));
	  ceph_assert(m_image_state_check_task == nullptr);
	
	  m_image_state_check_task = new LambdaContext(
	    [this](int r) {
	      ceph_assert(ceph_mutex_is_locked(m_threads->timer_lock));
	      m_image_state_check_task = nullptr;
	      schedule_image_state_check_task();
	      queue_start_image_replayers();
	    });
	
	  auto cct = static_cast<CephContext *>(m_local_io_ctx.cct());
	  int after = cct->_conf.get_val<uint64_t>(
	    "rbd_mirror_image_state_check_interval");
	
	  dout(10) << "scheduling image state check after " << after << " sec (task "
	           << m_image_state_check_task << ")" << dendl;
	  m_threads->timer->add_event_after(after, m_image_state_check_task);
	}
	
	} // namespace mirror
	} // namespace rbd
	
	template class rbd::mirror::InstanceReplayer<librbd::ImageCtx>;