/*******************************************************************************

  LLDP Agent Daemon (LLDPAD) Software
  Copyright(c) 2007-2010 Intel Corporation.

  This program is free software; you can redistribute it and/or modify it
  under the terms and conditions of the GNU General Public License,
  version 2, as published by the Free Software Foundation.

  This program is distributed in the hope 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
  this program; if not, write to the Free Software Foundation, Inc.,
  51 Franklin St - Fifth Floor, Boston, MA 02110-1301 USA.

  The full GNU General Public License is included in this distribution in
  the file called "COPYING".

  Contact Information:
  open-lldp Mailing List <lldp-devel@open-lldp.org>

*******************************************************************************/

#include <stdio.h>
#include <syslog.h>
#include <sys/un.h>
#include <sys/stat.h>
#include <arpa/inet.h>
#include "lldpad.h"
#include "ctrl_iface.h"
#include "lldp.h"
#include "lldp_basman.h"
#include "lldp_mand_clif.h"
#include "lldp_basman_clif.h"
#include "lldp/ports.h"
#include "libconfig.h"
#include "config.h"
#include "clif_msgs.h"
#include "lldpad_status.h"
#include "lldp/states.h"

static int get_arg_ipv4(struct cmd *, char *, char *, char *, int);
static int set_arg_ipv4(struct cmd *, char *, char *, char *, int);
static int test_arg_ipv4(struct cmd *, char *, char *, char *, int);
static int get_arg_ipv6(struct cmd *, char *, char *, char *, int);
static int set_arg_ipv6(struct cmd *, char *, char *, char *, int);
static int test_arg_ipv6(struct cmd *, char *, char *, char *, int);
static int get_arg_tlvtxenable(struct cmd *, char *, char *, char *, int);
static int set_arg_tlvtxenable(struct cmd *, char *, char *, char *, int);
static int test_arg_tlvtxenable(struct cmd *, char *, char *, char *, int);

static struct arg_handlers arg_handlers[] = {
	{	.arg = ARG_IPV4_ADDR, .arg_class = TLV_ARG,
		.handle_get = get_arg_ipv4,
		.handle_set = set_arg_ipv4,
		.handle_test = test_arg_ipv4, },
	{	.arg = ARG_IPV6_ADDR, .arg_class = TLV_ARG,
		.handle_get = get_arg_ipv6,
		.handle_set = set_arg_ipv6,
		.handle_test = test_arg_ipv6, },
	{	.arg = ARG_TLVTXENABLE, .arg_class = TLV_ARG,
		.handle_get = get_arg_tlvtxenable,
		.handle_set = set_arg_tlvtxenable,
		.handle_test = test_arg_tlvtxenable },
	{	.arg = 0 }
};

static int
get_arg_tlvtxenable(struct cmd *cmd, char *arg, UNUSED char *argvalue,
		    char *obuf, int obuf_len)
{
	int value;
	char *s;
	char arg_path[256];

	if (cmd->cmd != cmd_gettlv)
		return cmd_invalid;

	switch (cmd->tlvid) {
	case PORT_DESCRIPTION_TLV:
	case SYSTEM_NAME_TLV:
	case SYSTEM_DESCRIPTION_TLV:
	case SYSTEM_CAPABILITIES_TLV:
	case MANAGEMENT_ADDRESS_TLV:
		snprintf(arg_path, sizeof(arg_path), "%s%08x.%s",
			 TLVID_PREFIX, cmd->tlvid, arg);

		if (get_config_setting(cmd->ifname, cmd->type, arg_path,
				       &value, CONFIG_TYPE_BOOL))
			value = false;
		break;
	case INVALID_TLVID:
		return cmd_invalid;
	default:
		return cmd_not_applicable;
	}

	if (value)
		s = VAL_YES;
	else
		s = VAL_NO;
	snprintf(obuf, obuf_len, "%02x%s%04x%s",
		 (unsigned int)strlen(arg), arg, (unsigned int)strlen(s), s);

	return cmd_success;
}

static int _set_arg_tlvtxenable(struct cmd *cmd, char *arg, char *argvalue,
			       char *obuf, int obuf_len, bool test)
{
	int value;
	char arg_path[256];

	if (cmd->cmd != cmd_settlv)
		return cmd_invalid;

	switch (cmd->tlvid) {
	case PORT_DESCRIPTION_TLV:
	case SYSTEM_NAME_TLV:
	case SYSTEM_DESCRIPTION_TLV:
	case SYSTEM_CAPABILITIES_TLV:
	case MANAGEMENT_ADDRESS_TLV:
		break;
	case INVALID_TLVID:
		return cmd_invalid;
	default:
		return cmd_not_applicable;
	}

	if (!strcasecmp(argvalue, VAL_YES))
		value = 1;
	else if (!strcasecmp(argvalue, VAL_NO))
		value = 0;
	else
		return cmd_invalid;

	if (test)
		return cmd_success;

	snprintf(arg_path, sizeof(arg_path), "%s%08x.%s", TLVID_PREFIX,
		 cmd->tlvid, arg);

	if (set_cfg(cmd->ifname, cmd->type, arg_path, &value,
		    CONFIG_TYPE_BOOL))
		return cmd_failed;

	snprintf(obuf, obuf_len, "enableTx = %s\n", value ? "yes" : "no");

	somethingChangedLocal(cmd->ifname, cmd->type);

	return cmd_success;
}

static int set_arg_tlvtxenable(struct cmd *cmd, char *arg, char *argvalue,
			       char *obuf, int obuf_len)
{
	return _set_arg_tlvtxenable(cmd, arg, argvalue, obuf, obuf_len, false);
}

static int test_arg_tlvtxenable(struct cmd *cmd, char *arg, char *argvalue,
			       char *obuf, int obuf_len)
{
	return _set_arg_tlvtxenable(cmd, arg, argvalue, obuf, obuf_len, true);
}

struct arg_handlers *basman_get_arg_handlers()
{
	return &arg_handlers[0];
}

int get_arg_ipv4(struct cmd *cmd, char *arg, UNUSED char *argvalue,
		 char *obuf, int obuf_len)
{
	const char *p = NULL;
	char arg_path[256];

	if (cmd->cmd != cmd_gettlv)
		return cmd_invalid;

	if (cmd->tlvid != MANAGEMENT_ADDRESS_TLV)
		return cmd_not_applicable;

	snprintf(arg_path, sizeof(arg_path), "%s%08x.%s",
		 TLVID_PREFIX, cmd->tlvid, arg);

	if (get_config_setting(cmd->ifname, cmd->type, arg_path, &p,
				CONFIG_TYPE_STRING))
		snprintf(obuf, obuf_len, "%02zx%s%04d",
			 strlen(arg), arg, 0);
	else
		snprintf(obuf, obuf_len, "%02zx%s%04zx%s",
			 strlen(arg), arg, strlen(p), p);
	return cmd_success;
}

int get_arg_ipv6(struct cmd *cmd, char *arg, UNUSED char *argvalue,
		 char *obuf, int obuf_len)
{
	const char *p = NULL;
	char arg_path[256];

	if (cmd->cmd != cmd_gettlv)
		return cmd_invalid;

	if (cmd->tlvid != MANAGEMENT_ADDRESS_TLV)
		return cmd_not_applicable;

	snprintf(arg_path, sizeof(arg_path), "%s%08x.%s",
		 TLVID_PREFIX, cmd->tlvid, arg);

	if (get_config_setting(cmd->ifname, cmd->type, arg_path, &p,
					CONFIG_TYPE_STRING))
		snprintf(obuf, obuf_len, "%02zx%s%04d",
			 strlen(arg), arg, 0);
	else
		snprintf(obuf, obuf_len, "%02zx%s%04zx%s",
			 strlen(arg), arg, strlen(p), p);

	return cmd_success;
}

int _set_arg_ipv4(struct cmd *cmd, char *arg, char *argvalue,
		  char *obuf, int obuf_len, bool test)
{
	struct in_addr ipv4addr;
	char arg_path[256];
	const char *p;

	if (cmd->cmd != cmd_settlv || cmd->tlvid != MANAGEMENT_ADDRESS_TLV)
		return cmd_bad_params;

	if (!inet_pton(AF_INET, argvalue, &ipv4addr))
		return cmd_bad_params;

	if (test)
		return cmd_success;

	snprintf(arg_path, sizeof(arg_path), "%s%08x.%s", TLVID_PREFIX,
		 cmd->tlvid, arg);

	p = &argvalue[0];
	if (set_config_setting(cmd->ifname, cmd->type, arg_path, &p,
		    CONFIG_TYPE_STRING))
		return cmd_failed;

	snprintf(obuf, obuf_len, "ipv4 = %s\n", argvalue);

	somethingChangedLocal(cmd->ifname, cmd->type);

	return cmd_success;
}

int set_arg_ipv4(struct cmd *cmd, char *arg, char *argvalue,
		 char *obuf, int obuf_len)
{
	return _set_arg_ipv4(cmd, arg, argvalue, obuf, obuf_len, false);
}

int test_arg_ipv4(struct cmd *cmd, char *arg, char *argvalue,
		  char *obuf, int obuf_len)
{
	return _set_arg_ipv4(cmd, arg, argvalue, obuf, obuf_len, true);
}

int _set_arg_ipv6(struct cmd *cmd, char *arg, char *argvalue,
		  char *obuf, int obuf_len, bool test)
{
	struct in6_addr ipv6addr;
	char arg_path[256];
	const char *p;

	if (cmd->cmd != cmd_settlv || cmd->tlvid != MANAGEMENT_ADDRESS_TLV)
		return cmd_bad_params;

	if (!inet_pton(AF_INET6, argvalue, &ipv6addr))
		return cmd_bad_params;

	if (test)
		return cmd_success;

	snprintf(arg_path, sizeof(arg_path), "%s%08x.%s", TLVID_PREFIX,
		 cmd->tlvid, arg);

	p = &argvalue[0];
	if (set_config_setting(cmd->ifname, cmd->type, arg_path, &p,
		    CONFIG_TYPE_STRING))
		return cmd_failed;

	snprintf(obuf, obuf_len, "ipv6 = %s\n", argvalue);
	somethingChangedLocal(cmd->ifname, cmd->type);

	return cmd_success;
}

int set_arg_ipv6(struct cmd *cmd, char *arg, char *argvalue,
		 char *obuf, int obuf_len)
{
	return _set_arg_ipv6(cmd, arg, argvalue, obuf, obuf_len, false);
}

int test_arg_ipv6(struct cmd *cmd, char *arg, char *argvalue,
		  char *obuf, int obuf_len)
{
	return _set_arg_ipv6(cmd, arg, argvalue, obuf, obuf_len, false);
}