/******************************************************************************
  *******************************************************************************
  **
  **  Copyright (C) Sistina Software, Inc.  1997-2003  All rights reserved.

  **  Copyright (C) 2004-2011 Red Hat, Inc.  All rights reserved.

  **
  **  This copyrighted material is made available to anyone wishing to use,
  **  modify, copy, or redistribute it subject to the terms and conditions
  **  of the GNU General Public License v.2.
  **
  *******************************************************************************
  ******************************************************************************/
  
  #include "dlm_internal.h"
  #include "lockspace.h"
  #include "member.h"
  #include "dir.h"
  #include "ast.h"
  #include "recover.h"
  #include "lowcomms.h"
  #include "lock.h"
  #include "requestqueue.h"
  #include "recoverd.h"
  
  
  /* If the start for which we're re-enabling locking (seq) has been superseded

     by a newer stop (ls_recover_seq), we need to leave locking disabled.
  
     We suspend dlm_recv threads here to avoid the race where dlm_recv a) sees
     locking stopped and b) adds a message to the requestqueue, but dlm_recoverd
     enables locking and clears the requestqueue between a and b. */

  
  static int enable_locking(struct dlm_ls *ls, uint64_t seq)
  {
  	int error = -EINTR;

  	down_write(&ls->ls_recv_active);

  	spin_lock(&ls->ls_recover_lock);
  	if (ls->ls_recover_seq == seq) {
  		set_bit(LSFL_RUNNING, &ls->ls_flags);

  		/* unblocks processes waiting to enter the dlm */

  		up_write(&ls->ls_in_recovery);

  		clear_bit(LSFL_RECOVER_LOCK, &ls->ls_flags);

  		error = 0;
  	}
  	spin_unlock(&ls->ls_recover_lock);

  
  	up_write(&ls->ls_recv_active);

  	return error;
  }
  
  static int ls_recover(struct dlm_ls *ls, struct dlm_recover *rv)
  {
  	unsigned long start;
  	int error, neg = 0;

  	log_rinfo(ls, "dlm_recover %llu", (unsigned long long)rv->seq);

  	mutex_lock(&ls->ls_recoverd_active);

  	dlm_callback_suspend(ls);

  	dlm_clear_toss(ls);

  
  	/*

  	 * This list of root rsb's will be the basis of most of the recovery
  	 * routines.

  	 */

  	dlm_create_root_list(ls);

  
  	/*
  	 * Add or remove nodes from the lockspace's ls_nodes list.

  	 */
  
  	error = dlm_recover_members(ls, rv, &neg);
  	if (error) {

  		log_rinfo(ls, "dlm_recover_members error %d", error);

  		goto fail;
  	}

  	dlm_recover_dir_nodeid(ls);
  
  	ls->ls_recover_dir_sent_res = 0;
  	ls->ls_recover_dir_sent_msg = 0;

  	ls->ls_recover_locks_in = 0;

  	dlm_set_recover_status(ls, DLM_RS_NODES);
  
  	error = dlm_recover_members_wait(ls);
  	if (error) {

  		log_rinfo(ls, "dlm_recover_members_wait error %d", error);

  		goto fail;
  	}

  	start = jiffies;
  
  	/*
  	 * Rebuild our own share of the directory by collecting from all other
  	 * nodes their master rsb names that hash to us.
  	 */
  
  	error = dlm_recover_directory(ls);
  	if (error) {

  		log_rinfo(ls, "dlm_recover_directory error %d", error);

  		goto fail;
  	}

  	dlm_set_recover_status(ls, DLM_RS_DIR);

  
  	error = dlm_recover_directory_wait(ls);
  	if (error) {

  		log_rinfo(ls, "dlm_recover_directory_wait error %d", error);

  		goto fail;
  	}

  	log_rinfo(ls, "dlm_recover_directory %u out %u messages",

  		  ls->ls_recover_dir_sent_res, ls->ls_recover_dir_sent_msg);

  	/*
  	 * We may have outstanding operations that are waiting for a reply from
  	 * a failed node.  Mark these to be resent after recovery.  Unlock and
  	 * cancel ops can just be completed.
  	 */
  
  	dlm_recover_waiters_pre(ls);
  
  	error = dlm_recovery_stopped(ls);
  	if (error)
  		goto fail;
  
  	if (neg || dlm_no_directory(ls)) {
  		/*
  		 * Clear lkb's for departed nodes.
  		 */

  		dlm_recover_purge(ls);

  
  		/*
  		 * Get new master nodeid's for rsb's that were mastered on
  		 * departed nodes.
  		 */
  
  		error = dlm_recover_masters(ls);
  		if (error) {

  			log_rinfo(ls, "dlm_recover_masters error %d", error);

  			goto fail;
  		}
  
  		/*
  		 * Send our locks on remastered rsb's to the new masters.
  		 */
  
  		error = dlm_recover_locks(ls);
  		if (error) {

  			log_rinfo(ls, "dlm_recover_locks error %d", error);

  			goto fail;
  		}

  		dlm_set_recover_status(ls, DLM_RS_LOCKS);

  		error = dlm_recover_locks_wait(ls);
  		if (error) {

  			log_rinfo(ls, "dlm_recover_locks_wait error %d", error);

  			goto fail;
  		}

  		log_rinfo(ls, "dlm_recover_locks %u in",

  			  ls->ls_recover_locks_in);

  		/*
  		 * Finalize state in master rsb's now that all locks can be
  		 * checked.  This includes conversion resolution and lvb
  		 * settings.
  		 */
  
  		dlm_recover_rsbs(ls);

  	} else {
  		/*
  		 * Other lockspace members may be going through the "neg" steps
  		 * while also adding us to the lockspace, in which case they'll

  		 * be doing the recover_locks (RS_LOCKS) barrier.

  		 */
  		dlm_set_recover_status(ls, DLM_RS_LOCKS);

  
  		error = dlm_recover_locks_wait(ls);
  		if (error) {

  			log_rinfo(ls, "dlm_recover_locks_wait error %d", error);

  			goto fail;
  		}

  	}
  
  	dlm_release_root_list(ls);

  	/*
  	 * Purge directory-related requests that are saved in requestqueue.
  	 * All dir requests from before recovery are invalid now due to the dir
  	 * rebuild and will be resent by the requesting nodes.
  	 */
  
  	dlm_purge_requestqueue(ls);

  	dlm_set_recover_status(ls, DLM_RS_DONE);

  	error = dlm_recover_done_wait(ls);
  	if (error) {

  		log_rinfo(ls, "dlm_recover_done_wait error %d", error);

  		goto fail;
  	}
  
  	dlm_clear_members_gone(ls);

  	dlm_adjust_timeouts(ls);

  	dlm_callback_resume(ls);

  	error = enable_locking(ls, rv->seq);
  	if (error) {

  		log_rinfo(ls, "enable_locking error %d", error);

  		goto fail;
  	}
  
  	error = dlm_process_requestqueue(ls);
  	if (error) {

  		log_rinfo(ls, "dlm_process_requestqueue error %d", error);

  		goto fail;
  	}
  
  	error = dlm_recover_waiters_post(ls);
  	if (error) {

  		log_rinfo(ls, "dlm_recover_waiters_post error %d", error);

  		goto fail;
  	}

  	dlm_recover_grant(ls);

  	log_rinfo(ls, "dlm_recover %llu generation %u done: %u ms",

  		  (unsigned long long)rv->seq, ls->ls_generation,

  		  jiffies_to_msecs(jiffies - start));

  	mutex_unlock(&ls->ls_recoverd_active);

  	dlm_lsop_recover_done(ls);

  	return 0;
  
   fail:
  	dlm_release_root_list(ls);

  	log_rinfo(ls, "dlm_recover %llu error %d",

  		  (unsigned long long)rv->seq, error);

  	mutex_unlock(&ls->ls_recoverd_active);

  	return error;
  }

  /* The dlm_ls_start() that created the rv we take here may already have been
     stopped via dlm_ls_stop(); in that case we need to leave the RECOVERY_STOP
     flag set. */

  static void do_ls_recovery(struct dlm_ls *ls)
  {
  	struct dlm_recover *rv = NULL;
  
  	spin_lock(&ls->ls_recover_lock);
  	rv = ls->ls_recover_args;
  	ls->ls_recover_args = NULL;

  	if (rv && ls->ls_recover_seq == rv->seq)

  		clear_bit(LSFL_RECOVER_STOP, &ls->ls_flags);

  	spin_unlock(&ls->ls_recover_lock);
  
  	if (rv) {
  		ls_recover(ls, rv);

  		kfree(rv->nodes);

  		kfree(rv);
  	}
  }
  
  static int dlm_recoverd(void *arg)
  {
  	struct dlm_ls *ls;
  
  	ls = dlm_find_lockspace_local(arg);

  	if (!ls) {
  		log_print("dlm_recoverd: no lockspace %p", arg);
  		return -1;
  	}

  	down_write(&ls->ls_in_recovery);
  	set_bit(LSFL_RECOVER_LOCK, &ls->ls_flags);
  	wake_up(&ls->ls_recover_lock_wait);

  	while (!kthread_should_stop()) {
  		set_current_state(TASK_INTERRUPTIBLE);

  		if (!test_bit(LSFL_RECOVER_WORK, &ls->ls_flags) &&
  		    !test_bit(LSFL_RECOVER_DOWN, &ls->ls_flags))

  			schedule();
  		set_current_state(TASK_RUNNING);

  		if (test_and_clear_bit(LSFL_RECOVER_DOWN, &ls->ls_flags)) {
  			down_write(&ls->ls_in_recovery);
  			set_bit(LSFL_RECOVER_LOCK, &ls->ls_flags);
  			wake_up(&ls->ls_recover_lock_wait);
  		}
  
  		if (test_and_clear_bit(LSFL_RECOVER_WORK, &ls->ls_flags))

  			do_ls_recovery(ls);
  	}

  	if (test_bit(LSFL_RECOVER_LOCK, &ls->ls_flags))
  		up_write(&ls->ls_in_recovery);

  	dlm_put_lockspace(ls);
  	return 0;
  }

  int dlm_recoverd_start(struct dlm_ls *ls)
  {
  	struct task_struct *p;
  	int error = 0;
  
  	p = kthread_run(dlm_recoverd, ls, "dlm_recoverd");
  	if (IS_ERR(p))
  		error = PTR_ERR(p);
  	else
                  ls->ls_recoverd_task = p;
  	return error;
  }
  
  void dlm_recoverd_stop(struct dlm_ls *ls)
  {
  	kthread_stop(ls->ls_recoverd_task);
  }
  
  void dlm_recoverd_suspend(struct dlm_ls *ls)
  {

  	wake_up(&ls->ls_wait_general);

  	mutex_lock(&ls->ls_recoverd_active);

  }
  
  void dlm_recoverd_resume(struct dlm_ls *ls)
  {

  	mutex_unlock(&ls->ls_recoverd_active);

  }