/*
    protocol_subnet.c -- handle the meta-protocol, subnets
    Copyright (C) 1999-2002 Ivo Timmermans <ivo@o2w.nl>,
                  2000-2002 Guus Sliepen <guus@sliepen.eu.org>

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that 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., 675 Mass Ave, Cambridge, MA 02139, USA.

    $Id: protocol_subnet.c,v 1.1.4.8 2002/09/09 21:25:02 guus Exp $
*/

#include "config.h"

#include <stdlib.h>
#include <string.h>
#include <syslog.h>
#include <stdio.h>
#include <stdarg.h>
#include <errno.h>

#include <utils.h>
#include <xalloc.h>
#include <avl_tree.h>

#include "conf.h"
#include "net.h"
#include "netutl.h"
#include "protocol.h"
#include "meta.h"
#include "connection.h"
#include "node.h"

#include "system.h"

int send_add_subnet(connection_t * c, subnet_t * subnet)
{
	int x;
	char *netstr;

	cp();

	x = send_request(c, "%d %lx %s %s", ADD_SUBNET, random(),
					 subnet->owner->name, netstr = net2str(subnet));

	free(netstr);

	return x;
}

int add_subnet_h(connection_t * c)
{
	char subnetstr[MAX_STRING_SIZE];
	char name[MAX_STRING_SIZE];
	node_t *owner;
	subnet_t *s;

	cp();

	if(sscanf(c->buffer, "%*d %*x " MAX_STRING " " MAX_STRING, name, subnetstr) != 2) {
		syslog(LOG_ERR, _("Got bad %s from %s (%s)"), "ADD_SUBNET", c->name,
			   c->hostname);
		return -1;
	}

	/* Check if owner name is a valid */

	if(check_id(name)) {
		syslog(LOG_ERR, _("Got bad %s from %s (%s): %s"), "ADD_SUBNET", c->name,
			   c->hostname, _("invalid name"));
		return -1;
	}

	/* Check if subnet string is valid */

	s = str2net(subnetstr);

	if(!s) {
		syslog(LOG_ERR, _("Got bad %s from %s (%s): %s"), "ADD_SUBNET", c->name,
			   c->hostname, _("invalid subnet string"));
		return -1;
	}

	if(seen_request(c->buffer))
		return 0;

	/* Check if the owner of the new subnet is in the connection list */

	owner = lookup_node(name);

	if(!owner) {
		owner = new_node();
		owner->name = xstrdup(name);
		node_add(owner);
	}

	/* Check if we already know this subnet */

	if(lookup_subnet(owner, s)) {
		free_subnet(s);
		return 0;
	}

	/* If we don't know this subnet, but we are the owner, retaliate with a DEL_SUBNET */

	if(owner == myself) {
		if(debug_lvl >= DEBUG_PROTOCOL)
			syslog(LOG_WARNING, _("Got %s from %s (%s) for ourself"),
				   "ADD_SUBNET", c->name, c->hostname);
		s->owner = myself;
		send_del_subnet(c, s);
		return 0;
	}

	/* If everything is correct, add the subnet to the list of the owner */

	subnet_add(owner, s);

	/* Tell the rest */

	forward_request(c);

	return 0;
}

int send_del_subnet(connection_t * c, subnet_t * s)
{
	int x;
	char *netstr;

	cp();

	netstr = net2str(s);

	x = send_request(c, "%d %lx %s %s", DEL_SUBNET, random(), s->owner->name, netstr);

	free(netstr);

	return x;
}

int del_subnet_h(connection_t * c)
{
	char subnetstr[MAX_STRING_SIZE];
	char name[MAX_STRING_SIZE];
	node_t *owner;
	subnet_t *s, *find;

	cp();

	if(sscanf(c->buffer, "%*d %*x " MAX_STRING " " MAX_STRING, name, subnetstr) != 2) {
		syslog(LOG_ERR, _("Got bad %s from %s (%s)"), "DEL_SUBNET", c->name,
			   c->hostname);
		return -1;
	}

	/* Check if owner name is a valid */

	if(check_id(name)) {
		syslog(LOG_ERR, _("Got bad %s from %s (%s): %s"), "DEL_SUBNET", c->name,
			   c->hostname, _("invalid name"));
		return -1;
	}

	/* Check if the owner of the new subnet is in the connection list */

	owner = lookup_node(name);

	if(!owner) {
		if(debug_lvl >= DEBUG_PROTOCOL)
			syslog(LOG_WARNING, _("Got %s from %s (%s) for %s which is not in our node tree"),
				   "DEL_SUBNET", c->name, c->hostname, name);
		return 0;
	}

	/* Check if subnet string is valid */

	s = str2net(subnetstr);

	if(!s) {
		syslog(LOG_ERR, _("Got bad %s from %s (%s): %s"), "DEL_SUBNET", c->name,
			   c->hostname, _("invalid subnet string"));
		return -1;
	}

	if(seen_request(c->buffer))
		return 0;

	/* If everything is correct, delete the subnet from the list of the owner */

	s->owner = owner;

	find = lookup_subnet(owner, s);

	free_subnet(s);

	if(!find) {
		if(debug_lvl >= DEBUG_PROTOCOL)
			syslog(LOG_WARNING, _("Got %s from %s (%s) for %s which does not appear in his subnet tree"),
				   "DEL_SUBNET", c->name, c->hostname, name);
		return 0;
	}

	/* If we are the owner of this subnet, retaliate with an ADD_SUBNET */

	if(owner == myself) {
		if(debug_lvl >= DEBUG_PROTOCOL)
			syslog(LOG_WARNING, _("Got %s from %s (%s) for ourself"),
				   "DEL_SUBNET", c->name, c->hostname);
		send_add_subnet(c, find);
		return 0;
	}

	/* Tell the rest */

	forward_request(c);

	/* Finally, delete it. */

	subnet_del(owner, find);

	return 0;
}