// SPDX-License-Identifier: GPL-2.0-or-later

  /* AFS vlserver probing
   *
   * Copyright (C) 2018 Red Hat, Inc. All Rights Reserved.
   * Written by David Howells (dhowells@redhat.com)

   */
  
  #include <linux/sched.h>
  #include <linux/slab.h>
  #include "afs_fs.h"
  #include "internal.h"
  #include "protocol_yfs.h"

  
  /*
   * Handle the completion of a set of probes.
   */
  static void afs_finished_vl_probe(struct afs_vlserver *server)

  {

  	if (!(server->probe.flags & AFS_VLSERVER_PROBE_RESPONDED)) {
  		server->rtt = UINT_MAX;
  		clear_bit(AFS_VLSERVER_FL_RESPONDING, &server->flags);
  	}

  	clear_bit_unlock(AFS_VLSERVER_FL_PROBING, &server->flags);
  	wake_up_bit(&server->flags, AFS_VLSERVER_FL_PROBING);

  }
  
  /*
   * Handle the completion of a probe RPC call.
   */
  static void afs_done_one_vl_probe(struct afs_vlserver *server, bool wake_up)
  {
  	if (atomic_dec_and_test(&server->probe_outstanding)) {
  		afs_finished_vl_probe(server);
  		wake_up = true;
  	}
  
  	if (wake_up)
  		wake_up_all(&server->probe_wq);

  }
  
  /*
   * Process the result of probing a vlserver.  This is called after successful
   * or failed delivery of an VL.GetCapabilities operation.
   */
  void afs_vlserver_probe_result(struct afs_call *call)
  {
  	struct afs_addr_list *alist = call->alist;

  	struct afs_vlserver *server = call->vlserver;
  	unsigned int server_index = call->server_index;

  	unsigned int rtt_us = 0;

  	unsigned int index = call->addr_ix;

  	bool have_result = false;

  	int ret = call->error;
  
  	_enter("%s,%u,%u,%d,%d", server->name, server_index, index, ret, call->abort_code);
  
  	spin_lock(&server->probe_lock);
  
  	switch (ret) {
  	case 0:
  		server->probe.error = 0;
  		goto responded;
  	case -ECONNABORTED:

  		if (!(server->probe.flags & AFS_VLSERVER_PROBE_RESPONDED)) {

  			server->probe.abort_code = call->abort_code;
  			server->probe.error = ret;
  		}
  		goto responded;
  	case -ENOMEM:
  	case -ENONET:

  	case -EKEYEXPIRED:
  	case -EKEYREVOKED:
  	case -EKEYREJECTED:

  		server->probe.flags |= AFS_VLSERVER_PROBE_LOCAL_FAILURE;

  		if (server->probe.error == 0)
  			server->probe.error = ret;
  		trace_afs_io_error(call->debug_id, ret, afs_io_error_vl_probe_fail);

  		goto out;
  	case -ECONNRESET: /* Responded, but call expired. */

  	case -ERFKILL:
  	case -EADDRNOTAVAIL:

  	case -ENETUNREACH:
  	case -EHOSTUNREACH:

  	case -EHOSTDOWN:

  	case -ECONNREFUSED:
  	case -ETIMEDOUT:
  	case -ETIME:
  	default:
  		clear_bit(index, &alist->responded);
  		set_bit(index, &alist->failed);

  		if (!(server->probe.flags & AFS_VLSERVER_PROBE_RESPONDED) &&

  		    (server->probe.error == 0 ||
  		     server->probe.error == -ETIMEDOUT ||
  		     server->probe.error == -ETIME))
  			server->probe.error = ret;

  		trace_afs_io_error(call->debug_id, ret, afs_io_error_vl_probe_fail);

  		goto out;
  	}
  
  responded:
  	set_bit(index, &alist->responded);
  	clear_bit(index, &alist->failed);
  
  	if (call->service_id == YFS_VL_SERVICE) {

  		server->probe.flags |= AFS_VLSERVER_PROBE_IS_YFS;

  		set_bit(AFS_VLSERVER_FL_IS_YFS, &server->flags);
  		alist->addrs[index].srx_service = call->service_id;
  	} else {

  		server->probe.flags |= AFS_VLSERVER_PROBE_NOT_YFS;
  		if (!(server->probe.flags & AFS_VLSERVER_PROBE_IS_YFS)) {

  			clear_bit(AFS_VLSERVER_FL_IS_YFS, &server->flags);
  			alist->addrs[index].srx_service = call->service_id;
  		}
  	}

  	if (rxrpc_kernel_get_srtt(call->net->socket, call->rxcall, &rtt_us) &&
  	    rtt_us < server->probe.rtt) {

  		server->probe.rtt = rtt_us;

  		server->rtt = rtt_us;

  		alist->preferred = index;

  	}
  
  	smp_wmb(); /* Set rtt before responded. */

  	server->probe.flags |= AFS_VLSERVER_PROBE_RESPONDED;

  	set_bit(AFS_VLSERVER_FL_PROBED, &server->flags);

  	set_bit(AFS_VLSERVER_FL_RESPONDING, &server->flags);
  	have_result = true;

  out:
  	spin_unlock(&server->probe_lock);
  
  	_debug("probe [%u][%u] %pISpc rtt=%u ret=%d",

  	       server_index, index, &alist->addrs[index].transport, rtt_us, ret);

  	afs_done_one_vl_probe(server, have_result);

  }
  
  /*
   * Probe all of a vlserver's addresses to find out the best route and to
   * query its capabilities.
   */

  static bool afs_do_probe_vlserver(struct afs_net *net,
  				  struct afs_vlserver *server,
  				  struct key *key,
  				  unsigned int server_index,
  				  struct afs_error *_e)

  {
  	struct afs_addr_cursor ac = {
  		.index = 0,
  	};

  	struct afs_call *call;

  	bool in_progress = false;

  
  	_enter("%s", server->name);
  
  	read_lock(&server->lock);
  	ac.alist = rcu_dereference_protected(server->addresses,
  					     lockdep_is_held(&server->lock));
  	read_unlock(&server->lock);
  
  	atomic_set(&server->probe_outstanding, ac.alist->nr_addrs);
  	memset(&server->probe, 0, sizeof(server->probe));
  	server->probe.rtt = UINT_MAX;
  
  	for (ac.index = 0; ac.index < ac.alist->nr_addrs; ac.index++) {

  		call = afs_vl_get_capabilities(net, &ac, key, server,
  					       server_index);
  		if (!IS_ERR(call)) {
  			afs_put_call(call);

  			in_progress = true;

  		} else {
  			afs_prioritise_error(_e, PTR_ERR(call), ac.abort_code);

  			afs_done_one_vl_probe(server, false);

  		}

  	}

  	return in_progress;

  }
  
  /*
   * Send off probes to all unprobed servers.
   */
  int afs_send_vl_probes(struct afs_net *net, struct key *key,
  		       struct afs_vlserver_list *vllist)
  {
  	struct afs_vlserver *server;

  	struct afs_error e;
  	bool in_progress = false;
  	int i;

  	e.error = 0;
  	e.responded = false;

  	for (i = 0; i < vllist->nr_servers; i++) {
  		server = vllist->servers[i].server;
  		if (test_bit(AFS_VLSERVER_FL_PROBED, &server->flags))
  			continue;

  		if (!test_and_set_bit_lock(AFS_VLSERVER_FL_PROBING, &server->flags) &&
  		    afs_do_probe_vlserver(net, server, key, i, &e))
  			in_progress = true;

  	}

  	return in_progress ? 0 : e.error;

  }
  
  /*
   * Wait for the first as-yet untried server to respond.
   */
  int afs_wait_for_vl_probes(struct afs_vlserver_list *vllist,
  			   unsigned long untried)
  {
  	struct wait_queue_entry *waits;
  	struct afs_vlserver *server;

  	unsigned int rtt = UINT_MAX, rtt_s;

  	bool have_responders = false;
  	int pref = -1, i;
  
  	_enter("%u,%lx", vllist->nr_servers, untried);
  
  	/* Only wait for servers that have a probe outstanding. */
  	for (i = 0; i < vllist->nr_servers; i++) {
  		if (test_bit(i, &untried)) {
  			server = vllist->servers[i].server;
  			if (!test_bit(AFS_VLSERVER_FL_PROBING, &server->flags))
  				__clear_bit(i, &untried);

  			if (server->probe.flags & AFS_VLSERVER_PROBE_RESPONDED)

  				have_responders = true;
  		}
  	}
  	if (have_responders || !untried)
  		return 0;
  
  	waits = kmalloc(array_size(vllist->nr_servers, sizeof(*waits)), GFP_KERNEL);
  	if (!waits)
  		return -ENOMEM;
  
  	for (i = 0; i < vllist->nr_servers; i++) {
  		if (test_bit(i, &untried)) {
  			server = vllist->servers[i].server;
  			init_waitqueue_entry(&waits[i], current);
  			add_wait_queue(&server->probe_wq, &waits[i]);
  		}
  	}
  
  	for (;;) {
  		bool still_probing = false;
  
  		set_current_state(TASK_INTERRUPTIBLE);
  		for (i = 0; i < vllist->nr_servers; i++) {
  			if (test_bit(i, &untried)) {
  				server = vllist->servers[i].server;

  				if (server->probe.flags & AFS_VLSERVER_PROBE_RESPONDED)

  					goto stop;
  				if (test_bit(AFS_VLSERVER_FL_PROBING, &server->flags))
  					still_probing = true;
  			}
  		}

  		if (!still_probing || signal_pending(current))

  			goto stop;
  		schedule();
  	}
  
  stop:
  	set_current_state(TASK_RUNNING);
  
  	for (i = 0; i < vllist->nr_servers; i++) {
  		if (test_bit(i, &untried)) {
  			server = vllist->servers[i].server;

  			rtt_s = READ_ONCE(server->rtt);
  			if (test_bit(AFS_VLSERVER_FL_RESPONDING, &server->flags) &&
  			    rtt_s < rtt) {

  				pref = i;

  				rtt = rtt_s;

  			}
  
  			remove_wait_queue(&server->probe_wq, &waits[i]);
  		}
  	}
  
  	kfree(waits);
  
  	if (pref == -1 && signal_pending(current))
  		return -ERESTARTSYS;
  
  	if (pref >= 0)
  		vllist->preferred = pref;
  
  	_leave(" = 0 [%u]", pref);
  	return 0;
  }