Blame ip/ipl2tp.c

Packit Service 3880ab
/*
Packit Service 3880ab
 * ipl2tp.c	       "ip l2tp"
Packit Service 3880ab
 *
Packit Service 3880ab
 *		This program is free software; you can redistribute it and/or
Packit Service 3880ab
 *		modify it under the terms of the GNU General Public License
Packit Service 3880ab
 *		as published by the Free Software Foundation; either version
Packit Service 3880ab
 *		2 of the License, or (at your option) any later version.
Packit Service 3880ab
 *
Packit Service 3880ab
 * Original Author:	James Chapman <jchapman@katalix.com>
Packit Service 3880ab
 *
Packit Service 3880ab
 */
Packit Service 3880ab
Packit Service 3880ab
#include <stdio.h>
Packit Service 3880ab
#include <stdlib.h>
Packit Service 3880ab
#include <string.h>
Packit Service 3880ab
#include <unistd.h>
Packit Service 3880ab
#include <errno.h>
Packit Service 3880ab
#include <sys/types.h>
Packit Service 3880ab
#include <sys/socket.h>
Packit Service 3880ab
#include <arpa/inet.h>
Packit Service 3880ab
#include <sys/ioctl.h>
Packit Service 3880ab
#include <linux/if.h>
Packit Service 3880ab
#include <linux/if_arp.h>
Packit Service 3880ab
#include <linux/ip.h>
Packit Service 3880ab
Packit Service 3880ab
#include <linux/genetlink.h>
Packit Service 3880ab
#include <linux/l2tp.h>
Packit Service 3880ab
#include "libgenl.h"
Packit Service 3880ab
Packit Service 3880ab
#include "utils.h"
Packit Service 3880ab
#include "ip_common.h"
Packit Service 3880ab
Packit Service 3880ab
enum {
Packit Service 3880ab
	L2TP_ADD,
Packit Service 3880ab
	L2TP_CHG,
Packit Service 3880ab
	L2TP_DEL,
Packit Service 3880ab
	L2TP_GET
Packit Service 3880ab
};
Packit Service 3880ab
Packit Service 3880ab
struct l2tp_parm {
Packit Service 3880ab
	uint32_t tunnel_id;
Packit Service 3880ab
	uint32_t peer_tunnel_id;
Packit Service 3880ab
	uint32_t session_id;
Packit Service 3880ab
	uint32_t peer_session_id;
Packit Service 3880ab
	enum l2tp_encap_type encap;
Packit Service 3880ab
	uint16_t local_udp_port;
Packit Service 3880ab
	uint16_t peer_udp_port;
Packit Service 3880ab
	int cookie_len;
Packit Service 3880ab
	uint8_t cookie[8];
Packit Service 3880ab
	int peer_cookie_len;
Packit Service 3880ab
	uint8_t peer_cookie[8];
Packit Service 3880ab
	inet_prefix local_ip;
Packit Service 3880ab
	inet_prefix peer_ip;
Packit Service 3880ab
Packit Service 3880ab
	uint16_t pw_type;
Packit Service 3880ab
	unsigned int udp6_csum_tx:1;
Packit Service 3880ab
	unsigned int udp6_csum_rx:1;
Packit Service 3880ab
	unsigned int udp_csum:1;
Packit Service 3880ab
	unsigned int recv_seq:1;
Packit Service 3880ab
	unsigned int send_seq:1;
Packit Service 3880ab
	unsigned int tunnel:1;
Packit Service 3880ab
	unsigned int session:1;
Packit Service 3880ab
	int reorder_timeout;
Packit Service 3880ab
	const char *ifname;
Packit Service 3880ab
	uint8_t l2spec_type;
Packit Service 3880ab
	uint8_t l2spec_len;
Packit Service 3880ab
};
Packit Service 3880ab
Packit Service 3880ab
struct l2tp_stats {
Packit Service 3880ab
	uint64_t data_rx_packets;
Packit Service 3880ab
	uint64_t data_rx_bytes;
Packit Service 3880ab
	uint64_t data_rx_errors;
Packit Service 3880ab
	uint64_t data_rx_oos_packets;
Packit Service 3880ab
	uint64_t data_rx_oos_discards;
Packit Service 3880ab
	uint64_t data_tx_packets;
Packit Service 3880ab
	uint64_t data_tx_bytes;
Packit Service 3880ab
	uint64_t data_tx_errors;
Packit Service 3880ab
};
Packit Service 3880ab
Packit Service 3880ab
struct l2tp_data {
Packit Service 3880ab
	struct l2tp_parm config;
Packit Service 3880ab
	struct l2tp_stats stats;
Packit Service 3880ab
};
Packit Service 3880ab
Packit Service 3880ab
/* netlink socket */
Packit Service 3880ab
static struct rtnl_handle genl_rth;
Packit Service 3880ab
static int genl_family = -1;
Packit Service 3880ab
Packit Service 3880ab
/*****************************************************************************
Packit Service 3880ab
 * Netlink actions
Packit Service 3880ab
 *****************************************************************************/
Packit Service 3880ab
Packit Service 3880ab
static int create_tunnel(struct l2tp_parm *p)
Packit Service 3880ab
{
Packit Service 3880ab
	uint32_t local_attr = L2TP_ATTR_IP_SADDR;
Packit Service 3880ab
	uint32_t peer_attr = L2TP_ATTR_IP_DADDR;
Packit Service 3880ab
Packit Service 3880ab
	GENL_REQUEST(req, 1024, genl_family, 0, L2TP_GENL_VERSION,
Packit Service 3880ab
		     L2TP_CMD_TUNNEL_CREATE, NLM_F_REQUEST | NLM_F_ACK);
Packit Service 3880ab
Packit Service 3880ab
	addattr32(&req.n, 1024, L2TP_ATTR_CONN_ID, p->tunnel_id);
Packit Service 3880ab
	addattr32(&req.n, 1024, L2TP_ATTR_PEER_CONN_ID, p->peer_tunnel_id);
Packit Service 3880ab
	addattr8(&req.n, 1024, L2TP_ATTR_PROTO_VERSION, 3);
Packit Service 3880ab
	addattr16(&req.n, 1024, L2TP_ATTR_ENCAP_TYPE, p->encap);
Packit Service 3880ab
Packit Service 3880ab
	if (p->local_ip.family == AF_INET6)
Packit Service 3880ab
		local_attr = L2TP_ATTR_IP6_SADDR;
Packit Service 3880ab
	addattr_l(&req.n, 1024, local_attr, &p->local_ip.data,
Packit Service 3880ab
		  p->local_ip.bytelen);
Packit Service 3880ab
Packit Service 3880ab
	if (p->peer_ip.family == AF_INET6)
Packit Service 3880ab
		peer_attr = L2TP_ATTR_IP6_DADDR;
Packit Service 3880ab
	addattr_l(&req.n, 1024, peer_attr, &p->peer_ip.data,
Packit Service 3880ab
		  p->peer_ip.bytelen);
Packit Service 3880ab
Packit Service 3880ab
	if (p->encap == L2TP_ENCAPTYPE_UDP) {
Packit Service 3880ab
		addattr16(&req.n, 1024, L2TP_ATTR_UDP_SPORT, p->local_udp_port);
Packit Service 3880ab
		addattr16(&req.n, 1024, L2TP_ATTR_UDP_DPORT, p->peer_udp_port);
Packit Service 3880ab
		if (p->udp_csum)
Packit Service 3880ab
			addattr8(&req.n, 1024, L2TP_ATTR_UDP_CSUM, 1);
Packit Service 3880ab
		if (!p->udp6_csum_tx)
Packit Service 3880ab
			addattr(&req.n, 1024, L2TP_ATTR_UDP_ZERO_CSUM6_TX);
Packit Service 3880ab
		if (!p->udp6_csum_rx)
Packit Service 3880ab
			addattr(&req.n, 1024, L2TP_ATTR_UDP_ZERO_CSUM6_RX);
Packit Service 3880ab
	}
Packit Service 3880ab
Packit Service 3880ab
	if (rtnl_talk(&genl_rth, &req.n, NULL) < 0)
Packit Service 3880ab
		return -2;
Packit Service 3880ab
Packit Service 3880ab
	return 0;
Packit Service 3880ab
}
Packit Service 3880ab
Packit Service 3880ab
static int delete_tunnel(struct l2tp_parm *p)
Packit Service 3880ab
{
Packit Service 3880ab
	GENL_REQUEST(req, 128, genl_family, 0, L2TP_GENL_VERSION,
Packit Service 3880ab
		     L2TP_CMD_TUNNEL_DELETE, NLM_F_REQUEST | NLM_F_ACK);
Packit Service 3880ab
Packit Service 3880ab
	addattr32(&req.n, 128, L2TP_ATTR_CONN_ID, p->tunnel_id);
Packit Service 3880ab
Packit Service 3880ab
	if (rtnl_talk(&genl_rth, &req.n, NULL) < 0)
Packit Service 3880ab
		return -2;
Packit Service 3880ab
Packit Service 3880ab
	return 0;
Packit Service 3880ab
}
Packit Service 3880ab
Packit Service 3880ab
static int create_session(struct l2tp_parm *p)
Packit Service 3880ab
{
Packit Service 3880ab
	GENL_REQUEST(req, 1024, genl_family, 0, L2TP_GENL_VERSION,
Packit Service 3880ab
		     L2TP_CMD_SESSION_CREATE, NLM_F_REQUEST | NLM_F_ACK);
Packit Service 3880ab
Packit Service 3880ab
	addattr32(&req.n, 1024, L2TP_ATTR_CONN_ID, p->tunnel_id);
Packit Service 3880ab
	addattr32(&req.n, 1024, L2TP_ATTR_PEER_CONN_ID, p->peer_tunnel_id);
Packit Service 3880ab
	addattr32(&req.n, 1024, L2TP_ATTR_SESSION_ID, p->session_id);
Packit Service 3880ab
	addattr32(&req.n, 1024, L2TP_ATTR_PEER_SESSION_ID, p->peer_session_id);
Packit Service 3880ab
	addattr16(&req.n, 1024, L2TP_ATTR_PW_TYPE, p->pw_type);
Packit Service 3880ab
	addattr8(&req.n, 1024, L2TP_ATTR_L2SPEC_TYPE, p->l2spec_type);
Packit Service 3880ab
	addattr8(&req.n, 1024, L2TP_ATTR_L2SPEC_LEN, p->l2spec_len);
Packit Service 3880ab
Packit Service 3880ab
	if (p->recv_seq)
Packit Service 3880ab
		addattr8(&req.n, 1024, L2TP_ATTR_RECV_SEQ, 1);
Packit Service 3880ab
	if (p->send_seq)
Packit Service 3880ab
		addattr8(&req.n, 1024, L2TP_ATTR_SEND_SEQ, 1);
Packit Service 3880ab
	if (p->reorder_timeout)
Packit Service 3880ab
		addattr64(&req.n, 1024, L2TP_ATTR_RECV_TIMEOUT,
Packit Service 3880ab
					  p->reorder_timeout);
Packit Service 3880ab
	if (p->cookie_len)
Packit Service 3880ab
		addattr_l(&req.n, 1024, L2TP_ATTR_COOKIE,
Packit Service 3880ab
			  p->cookie, p->cookie_len);
Packit Service 3880ab
	if (p->peer_cookie_len)
Packit Service 3880ab
		addattr_l(&req.n, 1024, L2TP_ATTR_PEER_COOKIE,
Packit Service 3880ab
			  p->peer_cookie,  p->peer_cookie_len);
Packit Service 3880ab
	if (p->ifname)
Packit Service 3880ab
		addattrstrz(&req.n, 1024, L2TP_ATTR_IFNAME, p->ifname);
Packit Service 3880ab
Packit Service 3880ab
	if (rtnl_talk(&genl_rth, &req.n, NULL) < 0)
Packit Service 3880ab
		return -2;
Packit Service 3880ab
Packit Service 3880ab
	return 0;
Packit Service 3880ab
}
Packit Service 3880ab
Packit Service 3880ab
static int delete_session(struct l2tp_parm *p)
Packit Service 3880ab
{
Packit Service 3880ab
	GENL_REQUEST(req, 1024, genl_family, 0, L2TP_GENL_VERSION,
Packit Service 3880ab
		     L2TP_CMD_SESSION_DELETE, NLM_F_REQUEST | NLM_F_ACK);
Packit Service 3880ab
Packit Service 3880ab
	addattr32(&req.n, 1024, L2TP_ATTR_CONN_ID, p->tunnel_id);
Packit Service 3880ab
	addattr32(&req.n, 1024, L2TP_ATTR_SESSION_ID, p->session_id);
Packit Service 3880ab
	if (rtnl_talk(&genl_rth, &req.n, NULL) < 0)
Packit Service 3880ab
		return -2;
Packit Service 3880ab
Packit Service 3880ab
	return 0;
Packit Service 3880ab
}
Packit Service 3880ab
Packit Service 3880ab
static void print_cookie(const char *name, const char *fmt,
Packit Service 3880ab
			 const uint8_t *cookie, int len)
Packit Service 3880ab
{
Packit Service 3880ab
	char abuf[32];
Packit Service 3880ab
	size_t n;
Packit Service 3880ab
Packit Service 3880ab
	n = snprintf(abuf, sizeof(abuf),
Packit Service 3880ab
		     "%02x%02x%02x%02x",
Packit Service 3880ab
		     cookie[0], cookie[1], cookie[2], cookie[3]);
Packit Service 3880ab
	if (len == 8)
Packit Service 3880ab
		snprintf(abuf + n, sizeof(abuf) - n,
Packit Service 3880ab
			 "%02x%02x%02x%02x",
Packit Service 3880ab
			 cookie[4], cookie[5],
Packit Service 3880ab
			 cookie[6], cookie[7]);
Packit Service 3880ab
Packit Service 3880ab
	print_string(PRINT_ANY, name, fmt, abuf);
Packit Service 3880ab
}
Packit Service 3880ab
Packit Service 3880ab
static void print_tunnel(const struct l2tp_data *data)
Packit Service 3880ab
{
Packit Service 3880ab
	const struct l2tp_parm *p = &data->config;
Packit Service 3880ab
	char buf[INET6_ADDRSTRLEN];
Packit Service 3880ab
Packit Service 3880ab
	open_json_object(NULL);
Packit Service 3880ab
	print_uint(PRINT_ANY, "tunnel_id", "Tunnel %u,", p->tunnel_id);
Packit Service 3880ab
	print_string(PRINT_ANY, "encap", " encap %s",
Packit Service 3880ab
		     p->encap == L2TP_ENCAPTYPE_UDP ? "UDP" :
Packit Service 3880ab
		     p->encap == L2TP_ENCAPTYPE_IP ? "IP" : "??");
Packit Service 3880ab
	print_nl();
Packit Service 3880ab
Packit Service 3880ab
	print_string(PRINT_ANY, "local", "  From %s ",
Packit Service 3880ab
		     inet_ntop(p->local_ip.family, p->local_ip.data,
Packit Service 3880ab
			       buf, sizeof(buf)));
Packit Service 3880ab
	print_string(PRINT_ANY, "peer", "to %s",
Packit Service 3880ab
		     inet_ntop(p->peer_ip.family, p->peer_ip.data,
Packit Service 3880ab
			       buf, sizeof(buf)));
Packit Service 3880ab
	print_nl();
Packit Service 3880ab
Packit Service 3880ab
	print_uint(PRINT_ANY, "peer_tunnel", "  Peer tunnel %u",
Packit Service 3880ab
		   p->peer_tunnel_id);
Packit Service 3880ab
	print_nl();
Packit Service 3880ab
Packit Service 3880ab
	if (p->encap == L2TP_ENCAPTYPE_UDP) {
Packit Service 3880ab
		print_string(PRINT_FP, NULL,
Packit Service 3880ab
			     "  UDP source / dest ports:", NULL);
Packit Service 3880ab
Packit Service 3880ab
		print_hu(PRINT_ANY, "local_port", " %hu",
Packit Service 3880ab
			   p->local_udp_port);
Packit Service 3880ab
		print_hu(PRINT_ANY, "peer_port", "/%hu",
Packit Service 3880ab
			   p->peer_udp_port);
Packit Service 3880ab
		print_nl();
Packit Service 3880ab
Packit Service 3880ab
		switch (p->local_ip.family) {
Packit Service 3880ab
		case AF_INET:
Packit Service 3880ab
			print_bool(PRINT_JSON, "checksum",
Packit Service 3880ab
				   NULL, p->udp_csum);
Packit Service 3880ab
			print_string(PRINT_FP, NULL,
Packit Service 3880ab
				     "  UDP checksum: %s\n",
Packit Service 3880ab
				     p->udp_csum ? "enabled" : "disabled");
Packit Service 3880ab
			break;
Packit Service 3880ab
		case AF_INET6:
Packit Service 3880ab
			if (is_json_context()) {
Packit Service 3880ab
				print_bool(PRINT_JSON, "checksum_tx",
Packit Service 3880ab
					   NULL, p->udp6_csum_tx);
Packit Service 3880ab
Packit Service 3880ab
				print_bool(PRINT_JSON, "checksum_rx",
Packit Service 3880ab
					   NULL, p->udp6_csum_tx);
Packit Service 3880ab
			} else {
Packit Service 3880ab
				printf("  UDP checksum: %s%s%s%s\n",
Packit Service 3880ab
				       p->udp6_csum_tx && p->udp6_csum_rx
Packit Service 3880ab
				       ? "enabled" : "",
Packit Service 3880ab
				       p->udp6_csum_tx && !p->udp6_csum_rx
Packit Service 3880ab
				       ? "tx" : "",
Packit Service 3880ab
				       !p->udp6_csum_tx && p->udp6_csum_rx
Packit Service 3880ab
				       ? "rx" : "",
Packit Service 3880ab
				       !p->udp6_csum_tx && !p->udp6_csum_rx
Packit Service 3880ab
				       ? "disabled" : "");
Packit Service 3880ab
			}
Packit Service 3880ab
			break;
Packit Service 3880ab
		}
Packit Service 3880ab
	}
Packit Service 3880ab
	close_json_object();
Packit Service 3880ab
}
Packit Service 3880ab
Packit Service 3880ab
static void print_session(struct l2tp_data *data)
Packit Service 3880ab
{
Packit Service 3880ab
	struct l2tp_parm *p = &data->config;
Packit Service 3880ab
Packit Service 3880ab
	open_json_object(NULL);
Packit Service 3880ab
Packit Service 3880ab
	print_uint(PRINT_ANY, "session_id", "Session %u", p->session_id);
Packit Service 3880ab
	print_uint(PRINT_ANY, "tunnel_id",  " in tunnel %u", p->tunnel_id);
Packit Service 3880ab
	print_nl();
Packit Service 3880ab
Packit Service 3880ab
	print_uint(PRINT_ANY, "peer_session_id",
Packit Service 3880ab
		     "  Peer session %u,", p->peer_session_id);
Packit Service 3880ab
	print_uint(PRINT_ANY, "peer_tunnel_id",
Packit Service 3880ab
		     " tunnel %u",  p->peer_tunnel_id);
Packit Service 3880ab
	print_nl();
Packit Service 3880ab
Packit Service 3880ab
	if (p->ifname != NULL) {
Packit Service 3880ab
		print_color_string(PRINT_ANY, COLOR_IFNAME,
Packit Service 3880ab
				   "interface", "  interface name: %s" , p->ifname);
Packit Service 3880ab
		print_nl();
Packit Service 3880ab
	}
Packit Service 3880ab
Packit Service 3880ab
	/* Show offsets only for plain console output (for legacy scripts) */
Packit Service 3880ab
	print_uint(PRINT_FP, "offset", "  offset %u,", 0);
Packit Service 3880ab
	print_uint(PRINT_FP, "peer_offset", " peer offset %u\n", 0);
Packit Service 3880ab
Packit Service 3880ab
	if (p->cookie_len > 0)
Packit Service 3880ab
		print_cookie("cookie", "  cookie %s",
Packit Service 3880ab
			     p->cookie, p->cookie_len);
Packit Service 3880ab
Packit Service 3880ab
	if (p->peer_cookie_len > 0)
Packit Service 3880ab
		print_cookie("peer_cookie", "  peer cookie %s",
Packit Service 3880ab
			     p->peer_cookie, p->peer_cookie_len);
Packit Service 3880ab
Packit Service 3880ab
	if (p->reorder_timeout != 0)
Packit Service 3880ab
		print_uint(PRINT_ANY, "reorder_timeout",
Packit Service 3880ab
			   "  reorder timeout: %u", p->reorder_timeout);
Packit Service 3880ab
Packit Service 3880ab
Packit Service 3880ab
	if (p->send_seq || p->recv_seq) {
Packit Service 3880ab
		print_string(PRINT_FP, NULL, "%s  sequence numbering:", _SL_);
Packit Service 3880ab
Packit Service 3880ab
		if (p->send_seq)
Packit Service 3880ab
			print_null(PRINT_ANY, "send_seq", " send", NULL);
Packit Service 3880ab
		if (p->recv_seq)
Packit Service 3880ab
			print_null(PRINT_ANY, "recv_seq", " recv", NULL);
Packit Service 3880ab
Packit Service 3880ab
	}
Packit Service 3880ab
	print_string(PRINT_FP, NULL, "\n", NULL);
Packit Service 3880ab
	close_json_object();
Packit Service 3880ab
}
Packit Service 3880ab
Packit Service 3880ab
static int get_response(struct nlmsghdr *n, void *arg)
Packit Service 3880ab
{
Packit Service 3880ab
	struct genlmsghdr *ghdr;
Packit Service 3880ab
	struct l2tp_data *data = arg;
Packit Service 3880ab
	struct l2tp_parm *p = &data->config;
Packit Service 3880ab
	struct rtattr *attrs[L2TP_ATTR_MAX + 1];
Packit Service 3880ab
	struct rtattr *nla_stats, *rta;
Packit Service 3880ab
	int len;
Packit Service 3880ab
Packit Service 3880ab
	/* Validate message and parse attributes */
Packit Service 3880ab
	if (n->nlmsg_type == NLMSG_ERROR)
Packit Service 3880ab
		return -EBADMSG;
Packit Service 3880ab
Packit Service 3880ab
	ghdr = NLMSG_DATA(n);
Packit Service 3880ab
	len = n->nlmsg_len - NLMSG_LENGTH(sizeof(*ghdr));
Packit Service 3880ab
	if (len < 0)
Packit Service 3880ab
		return -1;
Packit Service 3880ab
Packit Service 3880ab
	parse_rtattr(attrs, L2TP_ATTR_MAX, (void *)ghdr + GENL_HDRLEN, len);
Packit Service 3880ab
Packit Service 3880ab
	if (attrs[L2TP_ATTR_PW_TYPE])
Packit Service 3880ab
		p->pw_type = rta_getattr_u16(attrs[L2TP_ATTR_PW_TYPE]);
Packit Service 3880ab
	if (attrs[L2TP_ATTR_ENCAP_TYPE])
Packit Service 3880ab
		p->encap = rta_getattr_u16(attrs[L2TP_ATTR_ENCAP_TYPE]);
Packit Service 3880ab
	if (attrs[L2TP_ATTR_CONN_ID])
Packit Service 3880ab
		p->tunnel_id = rta_getattr_u32(attrs[L2TP_ATTR_CONN_ID]);
Packit Service 3880ab
	if (attrs[L2TP_ATTR_PEER_CONN_ID])
Packit Service 3880ab
		p->peer_tunnel_id = rta_getattr_u32(attrs[L2TP_ATTR_PEER_CONN_ID]);
Packit Service 3880ab
	if (attrs[L2TP_ATTR_SESSION_ID])
Packit Service 3880ab
		p->session_id = rta_getattr_u32(attrs[L2TP_ATTR_SESSION_ID]);
Packit Service 3880ab
	if (attrs[L2TP_ATTR_PEER_SESSION_ID])
Packit Service 3880ab
		p->peer_session_id = rta_getattr_u32(attrs[L2TP_ATTR_PEER_SESSION_ID]);
Packit Service 3880ab
	if (attrs[L2TP_ATTR_L2SPEC_TYPE])
Packit Service 3880ab
		p->l2spec_type = rta_getattr_u8(attrs[L2TP_ATTR_L2SPEC_TYPE]);
Packit Service 3880ab
	if (attrs[L2TP_ATTR_L2SPEC_LEN])
Packit Service 3880ab
		p->l2spec_len = rta_getattr_u8(attrs[L2TP_ATTR_L2SPEC_LEN]);
Packit Service 3880ab
Packit Service 3880ab
	if (attrs[L2TP_ATTR_UDP_CSUM])
Packit Service 3880ab
		p->udp_csum = !!rta_getattr_u8(attrs[L2TP_ATTR_UDP_CSUM]);
Packit Service 3880ab
Packit Service 3880ab
	p->udp6_csum_tx = !attrs[L2TP_ATTR_UDP_ZERO_CSUM6_TX];
Packit Service 3880ab
	p->udp6_csum_rx = !attrs[L2TP_ATTR_UDP_ZERO_CSUM6_RX];
Packit Service 3880ab
Packit Service 3880ab
	if (attrs[L2TP_ATTR_COOKIE])
Packit Service 3880ab
		memcpy(p->cookie, RTA_DATA(attrs[L2TP_ATTR_COOKIE]),
Packit Service 3880ab
		       p->cookie_len = RTA_PAYLOAD(attrs[L2TP_ATTR_COOKIE]));
Packit Service 3880ab
Packit Service 3880ab
	if (attrs[L2TP_ATTR_PEER_COOKIE])
Packit Service 3880ab
		memcpy(p->peer_cookie, RTA_DATA(attrs[L2TP_ATTR_PEER_COOKIE]),
Packit Service 3880ab
		       p->peer_cookie_len = RTA_PAYLOAD(attrs[L2TP_ATTR_PEER_COOKIE]));
Packit Service 3880ab
Packit Service 3880ab
	if (attrs[L2TP_ATTR_RECV_SEQ])
Packit Service 3880ab
		p->recv_seq = !!rta_getattr_u8(attrs[L2TP_ATTR_RECV_SEQ]);
Packit Service 3880ab
	if (attrs[L2TP_ATTR_SEND_SEQ])
Packit Service 3880ab
		p->send_seq = !!rta_getattr_u8(attrs[L2TP_ATTR_SEND_SEQ]);
Packit Service 3880ab
Packit Service 3880ab
	if (attrs[L2TP_ATTR_RECV_TIMEOUT])
Packit Service 3880ab
		p->reorder_timeout = rta_getattr_u64(attrs[L2TP_ATTR_RECV_TIMEOUT]);
Packit Service 3880ab
Packit Service 3880ab
	rta = attrs[L2TP_ATTR_IP_SADDR];
Packit Service 3880ab
	p->local_ip.family = AF_INET;
Packit Service 3880ab
	if (!rta) {
Packit Service 3880ab
		rta = attrs[L2TP_ATTR_IP6_SADDR];
Packit Service 3880ab
		p->local_ip.family = AF_INET6;
Packit Service 3880ab
	}
Packit Service 3880ab
	if (rta && get_addr_rta(&p->local_ip, rta, p->local_ip.family))
Packit Service 3880ab
		return -1;
Packit Service 3880ab
Packit Service 3880ab
	rta = attrs[L2TP_ATTR_IP_DADDR];
Packit Service 3880ab
	p->peer_ip.family = AF_INET;
Packit Service 3880ab
	if (!rta) {
Packit Service 3880ab
		rta = attrs[L2TP_ATTR_IP6_DADDR];
Packit Service 3880ab
		p->peer_ip.family = AF_INET6;
Packit Service 3880ab
	}
Packit Service 3880ab
	if (rta && get_addr_rta(&p->peer_ip, rta, p->peer_ip.family))
Packit Service 3880ab
		return -1;
Packit Service 3880ab
Packit Service 3880ab
	if (attrs[L2TP_ATTR_UDP_SPORT])
Packit Service 3880ab
		p->local_udp_port = rta_getattr_u16(attrs[L2TP_ATTR_UDP_SPORT]);
Packit Service 3880ab
	if (attrs[L2TP_ATTR_UDP_DPORT])
Packit Service 3880ab
		p->peer_udp_port = rta_getattr_u16(attrs[L2TP_ATTR_UDP_DPORT]);
Packit Service 3880ab
	if (attrs[L2TP_ATTR_IFNAME])
Packit Service 3880ab
		p->ifname = rta_getattr_str(attrs[L2TP_ATTR_IFNAME]);
Packit Service 3880ab
Packit Service 3880ab
	nla_stats = attrs[L2TP_ATTR_STATS];
Packit Service 3880ab
	if (nla_stats) {
Packit Service 3880ab
		struct rtattr *tb[L2TP_ATTR_STATS_MAX + 1];
Packit Service 3880ab
Packit Service 3880ab
		parse_rtattr_nested(tb, L2TP_ATTR_STATS_MAX, nla_stats);
Packit Service 3880ab
Packit Service 3880ab
		if (tb[L2TP_ATTR_TX_PACKETS])
Packit Service 3880ab
			data->stats.data_tx_packets = rta_getattr_u64(tb[L2TP_ATTR_TX_PACKETS]);
Packit Service 3880ab
		if (tb[L2TP_ATTR_TX_BYTES])
Packit Service 3880ab
			data->stats.data_tx_bytes = rta_getattr_u64(tb[L2TP_ATTR_TX_BYTES]);
Packit Service 3880ab
		if (tb[L2TP_ATTR_TX_ERRORS])
Packit Service 3880ab
			data->stats.data_tx_errors = rta_getattr_u64(tb[L2TP_ATTR_TX_ERRORS]);
Packit Service 3880ab
		if (tb[L2TP_ATTR_RX_PACKETS])
Packit Service 3880ab
			data->stats.data_rx_packets = rta_getattr_u64(tb[L2TP_ATTR_RX_PACKETS]);
Packit Service 3880ab
		if (tb[L2TP_ATTR_RX_BYTES])
Packit Service 3880ab
			data->stats.data_rx_bytes = rta_getattr_u64(tb[L2TP_ATTR_RX_BYTES]);
Packit Service 3880ab
		if (tb[L2TP_ATTR_RX_ERRORS])
Packit Service 3880ab
			data->stats.data_rx_errors = rta_getattr_u64(tb[L2TP_ATTR_RX_ERRORS]);
Packit Service 3880ab
		if (tb[L2TP_ATTR_RX_SEQ_DISCARDS])
Packit Service 3880ab
			data->stats.data_rx_oos_discards = rta_getattr_u64(tb[L2TP_ATTR_RX_SEQ_DISCARDS]);
Packit Service 3880ab
		if (tb[L2TP_ATTR_RX_OOS_PACKETS])
Packit Service 3880ab
			data->stats.data_rx_oos_packets = rta_getattr_u64(tb[L2TP_ATTR_RX_OOS_PACKETS]);
Packit Service 3880ab
	}
Packit Service 3880ab
Packit Service 3880ab
	return 0;
Packit Service 3880ab
}
Packit Service 3880ab
Packit Service 3880ab
static int session_nlmsg(struct nlmsghdr *n, void *arg)
Packit Service 3880ab
{
Packit Service 3880ab
	int ret = get_response(n, arg);
Packit Service 3880ab
Packit Service 3880ab
	if (ret == 0)
Packit Service 3880ab
		print_session(arg);
Packit Service 3880ab
Packit Service 3880ab
	return ret;
Packit Service 3880ab
}
Packit Service 3880ab
Packit Service 3880ab
static int get_session(struct l2tp_data *p)
Packit Service 3880ab
{
Packit Service 3880ab
	GENL_REQUEST(req, 128, genl_family, 0, L2TP_GENL_VERSION,
Packit Service 3880ab
		     L2TP_CMD_SESSION_GET,
Packit Service 3880ab
		     NLM_F_ROOT | NLM_F_MATCH | NLM_F_REQUEST);
Packit Service 3880ab
Packit Service 3880ab
	req.n.nlmsg_seq = genl_rth.dump = ++genl_rth.seq;
Packit Service 3880ab
Packit Service 3880ab
	if (p->config.tunnel_id && p->config.session_id) {
Packit Service 3880ab
		addattr32(&req.n, 128, L2TP_ATTR_CONN_ID, p->config.tunnel_id);
Packit Service 3880ab
		addattr32(&req.n, 128, L2TP_ATTR_SESSION_ID,
Packit Service 3880ab
			  p->config.session_id);
Packit Service 3880ab
	}
Packit Service 3880ab
Packit Service 3880ab
	if (rtnl_send(&genl_rth, &req, req.n.nlmsg_len) < 0)
Packit Service 3880ab
		return -2;
Packit Service 3880ab
Packit Service 3880ab
	new_json_obj(json);
Packit Service 3880ab
	if (rtnl_dump_filter(&genl_rth, session_nlmsg, p) < 0) {
Packit Service 3880ab
		fprintf(stderr, "Dump terminated\n");
Packit Service 3880ab
		exit(1);
Packit Service 3880ab
	}
Packit Service 3880ab
	delete_json_obj();
Packit Service 3880ab
	fflush(stdout);
Packit Service 3880ab
Packit Service 3880ab
	return 0;
Packit Service 3880ab
}
Packit Service 3880ab
Packit Service 3880ab
static int tunnel_nlmsg(struct nlmsghdr *n, void *arg)
Packit Service 3880ab
{
Packit Service 3880ab
	int ret = get_response(n, arg);
Packit Service 3880ab
Packit Service 3880ab
	if (ret == 0)
Packit Service 3880ab
		print_tunnel(arg);
Packit Service 3880ab
Packit Service 3880ab
	return ret;
Packit Service 3880ab
}
Packit Service 3880ab
Packit Service 3880ab
static int get_tunnel(struct l2tp_data *p)
Packit Service 3880ab
{
Packit Service 3880ab
	GENL_REQUEST(req, 1024, genl_family, 0, L2TP_GENL_VERSION,
Packit Service 3880ab
		     L2TP_CMD_TUNNEL_GET,
Packit Service 3880ab
		     NLM_F_ROOT | NLM_F_MATCH | NLM_F_REQUEST);
Packit Service 3880ab
Packit Service 3880ab
	req.n.nlmsg_seq = genl_rth.dump = ++genl_rth.seq;
Packit Service 3880ab
Packit Service 3880ab
	if (p->config.tunnel_id)
Packit Service 3880ab
		addattr32(&req.n, 1024, L2TP_ATTR_CONN_ID, p->config.tunnel_id);
Packit Service 3880ab
Packit Service 3880ab
	if (rtnl_send(&genl_rth, &req, req.n.nlmsg_len) < 0)
Packit Service 3880ab
		return -2;
Packit Service 3880ab
Packit Service 3880ab
	new_json_obj(json);
Packit Service 3880ab
	if (rtnl_dump_filter(&genl_rth, tunnel_nlmsg, p) < 0) {
Packit Service 3880ab
		fprintf(stderr, "Dump terminated\n");
Packit Service 3880ab
		exit(1);
Packit Service 3880ab
	}
Packit Service 3880ab
	delete_json_obj();
Packit Service 3880ab
	fflush(stdout);
Packit Service 3880ab
Packit Service 3880ab
	return 0;
Packit Service 3880ab
}
Packit Service 3880ab
Packit Service 3880ab
/*****************************************************************************
Packit Service 3880ab
 * Command parser
Packit Service 3880ab
 *****************************************************************************/
Packit Service 3880ab
Packit Service 3880ab
static void usage(void) __attribute__((noreturn));
Packit Service 3880ab
Packit Service 3880ab
static void usage(void)
Packit Service 3880ab
{
Packit Service 3880ab
	fprintf(stderr, "Usage: ip l2tp add tunnel\n"
Packit Service 3880ab
		"          remote ADDR local ADDR\n"
Packit Service 3880ab
		"          tunnel_id ID peer_tunnel_id ID\n"
Packit Service 3880ab
		"          [ encap { ip | udp } ]\n"
Packit Service 3880ab
		"          [ udp_sport PORT ] [ udp_dport PORT ]\n"
Packit Service 3880ab
		"          [ udp_csum { on | off } ]\n"
Packit Service 3880ab
		"          [ udp6_csum_tx { on | off } ]\n"
Packit Service 3880ab
		"          [ udp6_csum_rx { on | off } ]\n"
Packit Service 3880ab
		"Usage: ip l2tp add session [ name NAME ]\n"
Packit Service 3880ab
		"          tunnel_id ID\n"
Packit Service 3880ab
		"          session_id ID peer_session_id ID\n"
Packit Service 3880ab
		"          [ cookie HEXSTR ] [ peer_cookie HEXSTR ]\n"
Packit Service 3880ab
		"          [ seq { none | send | recv | both } ]\n"
Packit Service 3880ab
		"          [ l2spec_type L2SPEC ]\n"
Packit Service 3880ab
		"       ip l2tp del tunnel tunnel_id ID\n"
Packit Service 3880ab
		"       ip l2tp del session tunnel_id ID session_id ID\n"
Packit Service 3880ab
		"       ip l2tp show tunnel [ tunnel_id ID ]\n"
Packit Service 3880ab
		"       ip l2tp show session [ tunnel_id ID ] [ session_id ID ]\n"
Packit Service 3880ab
		"\n"
Packit Service 3880ab
		"Where: NAME   := STRING\n"
Packit Service 3880ab
		"       ADDR   := { IP_ADDRESS | any }\n"
Packit Service 3880ab
		"       PORT   := { 0..65535 }\n"
Packit Service 3880ab
		"       ID     := { 1..4294967295 }\n"
Packit Service 3880ab
		"       HEXSTR := { 8 or 16 hex digits (4 / 8 bytes) }\n"
Packit Service 3880ab
		"       L2SPEC := { none | default }\n");
Packit Service 3880ab
Packit Service 3880ab
	exit(-1);
Packit Service 3880ab
}
Packit Service 3880ab
Packit Service 3880ab
static int parse_args(int argc, char **argv, int cmd, struct l2tp_parm *p)
Packit Service 3880ab
{
Packit Service 3880ab
	memset(p, 0, sizeof(*p));
Packit Service 3880ab
Packit Service 3880ab
	if (argc == 0)
Packit Service 3880ab
		usage();
Packit Service 3880ab
Packit Service 3880ab
	/* Defaults */
Packit Service 3880ab
	p->l2spec_type = L2TP_L2SPECTYPE_DEFAULT;
Packit Service 3880ab
	p->l2spec_len = 4;
Packit Service 3880ab
	p->udp6_csum_rx = 1;
Packit Service 3880ab
	p->udp6_csum_tx = 1;
Packit Service 3880ab
Packit Service 3880ab
	while (argc > 0) {
Packit Service 3880ab
		if (strcmp(*argv, "encap") == 0) {
Packit Service 3880ab
			NEXT_ARG();
Packit Service 3880ab
			if (strcmp(*argv, "ip") == 0) {
Packit Service 3880ab
				p->encap = L2TP_ENCAPTYPE_IP;
Packit Service 3880ab
			} else if (strcmp(*argv, "udp") == 0) {
Packit Service 3880ab
				p->encap = L2TP_ENCAPTYPE_UDP;
Packit Service 3880ab
			} else {
Packit Service 3880ab
				fprintf(stderr, "Unknown tunnel encapsulation \"%s\"\n", *argv);
Packit Service 3880ab
				exit(-1);
Packit Service 3880ab
			}
Packit Service 3880ab
		} else if (strcmp(*argv, "name") == 0) {
Packit Service 3880ab
			NEXT_ARG();
Packit Service 3880ab
			if (check_ifname(*argv))
Packit Service 3880ab
				invarg("\"name\" not a valid ifname", *argv);
Packit Service 3880ab
			p->ifname = *argv;
Packit Service 3880ab
		} else if (strcmp(*argv, "remote") == 0) {
Packit Service 3880ab
			NEXT_ARG();
Packit Service 3880ab
			if (get_addr(&p->peer_ip, *argv, AF_UNSPEC))
Packit Service 3880ab
				invarg("invalid remote address\n", *argv);
Packit Service 3880ab
		} else if (strcmp(*argv, "local") == 0) {
Packit Service 3880ab
			NEXT_ARG();
Packit Service 3880ab
			if (get_addr(&p->local_ip, *argv, AF_UNSPEC))
Packit Service 3880ab
				invarg("invalid local address\n", *argv);
Packit Service 3880ab
		} else if ((strcmp(*argv, "tunnel_id") == 0) ||
Packit Service 3880ab
			   (strcmp(*argv, "tid") == 0)) {
Packit Service 3880ab
			__u32 uval;
Packit Service 3880ab
Packit Service 3880ab
			NEXT_ARG();
Packit Service 3880ab
			if (get_u32(&uval, *argv, 0))
Packit Service 3880ab
				invarg("invalid ID\n", *argv);
Packit Service 3880ab
			p->tunnel_id = uval;
Packit Service 3880ab
		} else if ((strcmp(*argv, "peer_tunnel_id") == 0) ||
Packit Service 3880ab
			   (strcmp(*argv, "ptid") == 0)) {
Packit Service 3880ab
			__u32 uval;
Packit Service 3880ab
Packit Service 3880ab
			NEXT_ARG();
Packit Service 3880ab
			if (get_u32(&uval, *argv, 0))
Packit Service 3880ab
				invarg("invalid ID\n", *argv);
Packit Service 3880ab
			p->peer_tunnel_id = uval;
Packit Service 3880ab
		} else if ((strcmp(*argv, "session_id") == 0) ||
Packit Service 3880ab
			   (strcmp(*argv, "sid") == 0)) {
Packit Service 3880ab
			__u32 uval;
Packit Service 3880ab
Packit Service 3880ab
			NEXT_ARG();
Packit Service 3880ab
			if (get_u32(&uval, *argv, 0))
Packit Service 3880ab
				invarg("invalid ID\n", *argv);
Packit Service 3880ab
			p->session_id = uval;
Packit Service 3880ab
		} else if ((strcmp(*argv, "peer_session_id") == 0) ||
Packit Service 3880ab
			   (strcmp(*argv, "psid") == 0)) {
Packit Service 3880ab
			__u32 uval;
Packit Service 3880ab
Packit Service 3880ab
			NEXT_ARG();
Packit Service 3880ab
			if (get_u32(&uval, *argv, 0))
Packit Service 3880ab
				invarg("invalid ID\n", *argv);
Packit Service 3880ab
			p->peer_session_id = uval;
Packit Service 3880ab
		} else if (strcmp(*argv, "udp_sport") == 0) {
Packit Service 3880ab
			__u16 uval;
Packit Service 3880ab
Packit Service 3880ab
			NEXT_ARG();
Packit Service 3880ab
			if (get_u16(&uval, *argv, 0))
Packit Service 3880ab
				invarg("invalid port\n", *argv);
Packit Service 3880ab
			p->local_udp_port = uval;
Packit Service 3880ab
		} else if (strcmp(*argv, "udp_dport") == 0) {
Packit Service 3880ab
			__u16 uval;
Packit Service 3880ab
Packit Service 3880ab
			NEXT_ARG();
Packit Service 3880ab
			if (get_u16(&uval, *argv, 0))
Packit Service 3880ab
				invarg("invalid port\n", *argv);
Packit Service 3880ab
			p->peer_udp_port = uval;
Packit Service 3880ab
		} else if (strcmp(*argv, "udp_csum") == 0) {
Packit Service 3880ab
			NEXT_ARG();
Packit Service 3880ab
			if (strcmp(*argv, "on") == 0)
Packit Service 3880ab
				p->udp_csum = 1;
Packit Service 3880ab
			else if (strcmp(*argv, "off") == 0)
Packit Service 3880ab
				p->udp_csum = 0;
Packit Service 3880ab
			else
Packit Service 3880ab
				invarg("invalid option for udp_csum\n", *argv);
Packit Service 3880ab
		} else if (strcmp(*argv, "udp6_csum_rx") == 0) {
Packit Service 3880ab
			NEXT_ARG();
Packit Service 3880ab
			if (strcmp(*argv, "on") == 0)
Packit Service 3880ab
				p->udp6_csum_rx = 1;
Packit Service 3880ab
			else if (strcmp(*argv, "off") == 0)
Packit Service 3880ab
				p->udp6_csum_rx = 0;
Packit Service 3880ab
			else
Packit Service 3880ab
				invarg("invalid option for udp6_csum_rx\n"
Packit Service 3880ab
						, *argv);
Packit Service 3880ab
		} else if (strcmp(*argv, "udp6_csum_tx") == 0) {
Packit Service 3880ab
			NEXT_ARG();
Packit Service 3880ab
			if (strcmp(*argv, "on") == 0)
Packit Service 3880ab
				p->udp6_csum_tx = 1;
Packit Service 3880ab
			else if (strcmp(*argv, "off") == 0)
Packit Service 3880ab
				p->udp6_csum_tx = 0;
Packit Service 3880ab
			else
Packit Service 3880ab
				invarg("invalid option for udp6_csum_tx\n"
Packit Service 3880ab
						, *argv);
Packit Service 3880ab
		} else if (strcmp(*argv, "offset") == 0) {
Packit Service 3880ab
			fprintf(stderr, "Ignoring option \"offset\"\n");
Packit Service 3880ab
			NEXT_ARG();
Packit Service 3880ab
		} else if (strcmp(*argv, "peer_offset") == 0) {
Packit Service 3880ab
			fprintf(stderr, "Ignoring option \"peer_offset\"\n");
Packit Service 3880ab
			NEXT_ARG();
Packit Service 3880ab
		} else if (strcmp(*argv, "cookie") == 0) {
Packit Service 3880ab
			int slen;
Packit Service 3880ab
Packit Service 3880ab
			NEXT_ARG();
Packit Service 3880ab
			slen = strlen(*argv);
Packit Service 3880ab
			if ((slen != 8) && (slen != 16))
Packit Service 3880ab
				invarg("cookie must be either 8 or 16 hex digits\n", *argv);
Packit Service 3880ab
Packit Service 3880ab
			p->cookie_len = slen / 2;
Packit Service 3880ab
			if (hex2mem(*argv, p->cookie, p->cookie_len) < 0)
Packit Service 3880ab
				invarg("cookie must be a hex string\n", *argv);
Packit Service 3880ab
		} else if (strcmp(*argv, "peer_cookie") == 0) {
Packit Service 3880ab
			int slen;
Packit Service 3880ab
Packit Service 3880ab
			NEXT_ARG();
Packit Service 3880ab
			slen = strlen(*argv);
Packit Service 3880ab
			if ((slen != 8) && (slen != 16))
Packit Service 3880ab
				invarg("cookie must be either 8 or 16 hex digits\n", *argv);
Packit Service 3880ab
Packit Service 3880ab
			p->peer_cookie_len = slen / 2;
Packit Service 3880ab
			if (hex2mem(*argv, p->peer_cookie, p->peer_cookie_len) < 0)
Packit Service 3880ab
				invarg("cookie must be a hex string\n", *argv);
Packit Service 3880ab
		} else if (strcmp(*argv, "l2spec_type") == 0) {
Packit Service 3880ab
			NEXT_ARG();
Packit Service 3880ab
			if (strcasecmp(*argv, "default") == 0) {
Packit Service 3880ab
				p->l2spec_type = L2TP_L2SPECTYPE_DEFAULT;
Packit Service 3880ab
				p->l2spec_len = 4;
Packit Service 3880ab
			} else if (strcasecmp(*argv, "none") == 0) {
Packit Service 3880ab
				p->l2spec_type = L2TP_L2SPECTYPE_NONE;
Packit Service 3880ab
				p->l2spec_len = 0;
Packit Service 3880ab
			} else {
Packit Service 3880ab
				fprintf(stderr,
Packit Service 3880ab
					"Unknown layer2specific header type \"%s\"\n",
Packit Service 3880ab
					*argv);
Packit Service 3880ab
				exit(-1);
Packit Service 3880ab
			}
Packit Service 3880ab
		} else if (strcmp(*argv, "seq") == 0) {
Packit Service 3880ab
			NEXT_ARG();
Packit Service 3880ab
			if (strcasecmp(*argv, "both") == 0) {
Packit Service 3880ab
				p->recv_seq = 1;
Packit Service 3880ab
				p->send_seq = 1;
Packit Service 3880ab
			} else if (strcasecmp(*argv, "recv") == 0) {
Packit Service 3880ab
				p->recv_seq = 1;
Packit Service 3880ab
			} else if (strcasecmp(*argv, "send") == 0) {
Packit Service 3880ab
				p->send_seq = 1;
Packit Service 3880ab
			} else if (strcasecmp(*argv, "none") == 0) {
Packit Service 3880ab
				p->recv_seq = 0;
Packit Service 3880ab
				p->send_seq = 0;
Packit Service 3880ab
			} else {
Packit Service 3880ab
				fprintf(stderr,
Packit Service 3880ab
					"Unknown seq value \"%s\"\n", *argv);
Packit Service 3880ab
				exit(-1);
Packit Service 3880ab
			}
Packit Service 3880ab
		} else if (strcmp(*argv, "tunnel") == 0) {
Packit Service 3880ab
			p->tunnel = 1;
Packit Service 3880ab
		} else if (strcmp(*argv, "session") == 0) {
Packit Service 3880ab
			p->session = 1;
Packit Service 3880ab
		} else if (matches(*argv, "help") == 0) {
Packit Service 3880ab
			usage();
Packit Service 3880ab
		} else {
Packit Service 3880ab
			fprintf(stderr, "Unknown command: %s\n", *argv);
Packit Service 3880ab
			usage();
Packit Service 3880ab
		}
Packit Service 3880ab
Packit Service 3880ab
		argc--; argv++;
Packit Service 3880ab
	}
Packit Service 3880ab
Packit Service 3880ab
	return 0;
Packit Service 3880ab
}
Packit Service 3880ab
Packit Service 3880ab
Packit Service 3880ab
static int do_add(int argc, char **argv)
Packit Service 3880ab
{
Packit Service 3880ab
	struct l2tp_parm p;
Packit Service 3880ab
	int ret = 0;
Packit Service 3880ab
Packit Service 3880ab
	if (parse_args(argc, argv, L2TP_ADD, &p) < 0)
Packit Service 3880ab
		return -1;
Packit Service 3880ab
Packit Service 3880ab
	if (!p.tunnel && !p.session)
Packit Service 3880ab
		missarg("tunnel or session");
Packit Service 3880ab
Packit Service 3880ab
	if (p.tunnel_id == 0)
Packit Service 3880ab
		missarg("tunnel_id");
Packit Service 3880ab
Packit Service 3880ab
	/* session_id and peer_session_id must be provided for sessions */
Packit Service 3880ab
	if ((p.session) && (p.peer_session_id == 0))
Packit Service 3880ab
		missarg("peer_session_id");
Packit Service 3880ab
	if ((p.session) && (p.session_id == 0))
Packit Service 3880ab
		missarg("session_id");
Packit Service 3880ab
Packit Service 3880ab
	/* peer_tunnel_id is needed for tunnels */
Packit Service 3880ab
	if ((p.tunnel) && (p.peer_tunnel_id == 0))
Packit Service 3880ab
		missarg("peer_tunnel_id");
Packit Service 3880ab
Packit Service 3880ab
	if (p.tunnel) {
Packit Service 3880ab
		if (p.local_ip.family == AF_UNSPEC)
Packit Service 3880ab
			missarg("local");
Packit Service 3880ab
Packit Service 3880ab
		if (p.peer_ip.family == AF_UNSPEC)
Packit Service 3880ab
			missarg("remote");
Packit Service 3880ab
Packit Service 3880ab
		if (p.encap == L2TP_ENCAPTYPE_UDP) {
Packit Service 3880ab
			if (p.local_udp_port == 0)
Packit Service 3880ab
				missarg("udp_sport");
Packit Service 3880ab
			if (p.peer_udp_port == 0)
Packit Service 3880ab
				missarg("udp_dport");
Packit Service 3880ab
		}
Packit Service 3880ab
Packit Service 3880ab
		ret = create_tunnel(&p);
Packit Service 3880ab
	}
Packit Service 3880ab
Packit Service 3880ab
	if (p.session) {
Packit Service 3880ab
		/* Only ethernet pseudowires supported */
Packit Service 3880ab
		p.pw_type = L2TP_PWTYPE_ETH;
Packit Service 3880ab
Packit Service 3880ab
		ret = create_session(&p);
Packit Service 3880ab
	}
Packit Service 3880ab
Packit Service 3880ab
	return ret;
Packit Service 3880ab
}
Packit Service 3880ab
Packit Service 3880ab
static int do_del(int argc, char **argv)
Packit Service 3880ab
{
Packit Service 3880ab
	struct l2tp_parm p;
Packit Service 3880ab
Packit Service 3880ab
	if (parse_args(argc, argv, L2TP_DEL, &p) < 0)
Packit Service 3880ab
		return -1;
Packit Service 3880ab
Packit Service 3880ab
	if (!p.tunnel && !p.session)
Packit Service 3880ab
		missarg("tunnel or session");
Packit Service 3880ab
Packit Service 3880ab
	if ((p.tunnel) && (p.tunnel_id == 0))
Packit Service 3880ab
		missarg("tunnel_id");
Packit Service 3880ab
	if ((p.session) && (p.session_id == 0))
Packit Service 3880ab
		missarg("session_id");
Packit Service 3880ab
Packit Service 3880ab
	if (p.session_id)
Packit Service 3880ab
		return delete_session(&p);
Packit Service 3880ab
	else
Packit Service 3880ab
		return delete_tunnel(&p);
Packit Service 3880ab
Packit Service 3880ab
	return -1;
Packit Service 3880ab
}
Packit Service 3880ab
Packit Service 3880ab
static int do_show(int argc, char **argv)
Packit Service 3880ab
{
Packit Service 3880ab
	struct l2tp_data data;
Packit Service 3880ab
	struct l2tp_parm *p = &data.config;
Packit Service 3880ab
Packit Service 3880ab
	if (parse_args(argc, argv, L2TP_GET, p) < 0)
Packit Service 3880ab
		return -1;
Packit Service 3880ab
Packit Service 3880ab
	if (!p->tunnel && !p->session)
Packit Service 3880ab
		missarg("tunnel or session");
Packit Service 3880ab
Packit Service 3880ab
	if (p->session)
Packit Service 3880ab
		get_session(&data);
Packit Service 3880ab
	else
Packit Service 3880ab
		get_tunnel(&data);
Packit Service 3880ab
Packit Service 3880ab
	return 0;
Packit Service 3880ab
}
Packit Service 3880ab
Packit Service 3880ab
int do_ipl2tp(int argc, char **argv)
Packit Service 3880ab
{
Packit Service 3880ab
	if (argc < 1 || !matches(*argv, "help"))
Packit Service 3880ab
		usage();
Packit Service 3880ab
Packit Service 3880ab
	if (genl_init_handle(&genl_rth, L2TP_GENL_NAME, &genl_family))
Packit Service 3880ab
		exit(1);
Packit Service 3880ab
Packit Service 3880ab
	if (matches(*argv, "add") == 0)
Packit Service 3880ab
		return do_add(argc-1, argv+1);
Packit Service 3880ab
	if (matches(*argv, "delete") == 0)
Packit Service 3880ab
		return do_del(argc-1, argv+1);
Packit Service 3880ab
	if (matches(*argv, "show") == 0 ||
Packit Service 3880ab
	    matches(*argv, "lst") == 0 ||
Packit Service 3880ab
	    matches(*argv, "list") == 0)
Packit Service 3880ab
		return do_show(argc-1, argv+1);
Packit Service 3880ab
Packit Service 3880ab
	fprintf(stderr,
Packit Service 3880ab
		"Command \"%s\" is unknown, try \"ip l2tp help\".\n", *argv);
Packit Service 3880ab
	exit(-1);
Packit Service 3880ab
}