deb-mbse/mbtask/taskibc.c

/*****************************************************************************
 *
 * $Id$
 * Purpose ...............: mbtask - Internet BBS Chat (but it looks like...)
 *
 *****************************************************************************
 * Copyright (C) 1997-2006
 *   
 * Michiel Broek		FIDO:	2:280/2802
 * Beekmansbos 10
 * 1971 BV IJmuiden
 * the Netherlands
 *
 * This file is part of MBSE BBS.
 *
 * This BBS 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, or (at your option) any
 * later version.
 *
 * MBSE BBS 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 MBSE BBS; see the file COPYING.  If not, write to the Free
 * Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 *****************************************************************************/

#include "../config.h"
#include "../lib/mbselib.h"
#include "taskstat.h"
#include "taskutil.h"
#include "taskchat.h"
#include "taskibc.h"




extern int		    internet;		    /* Internet status		*/
time_t			    scfg_time = (time_t)0;  /* Servers config time	*/
time_t			    now;		    /* Current time		*/
ncs_list		    *ncsl = NULL;	    /* Neighbours list		*/
srv_list		    *servers = NULL;	    /* Active servers		*/
usr_list		    *users = NULL;	    /* Active users		*/
chn_list		    *channels = NULL;	    /* Active channels		*/
ban_list		    *banned = NULL;	    /* Banned users		*/
nick_list		    *nicknames = NULL;	    /* Known nicknames		*/
int			    callchg = FALSE;	    /* Is call state changed	*/
int			    srvchg = FALSE;	    /* Is serverlist changed	*/
int			    usrchg = FALSE;	    /* Is userlist changed	*/
int			    chnchg = FALSE;	    /* Is channellist changed	*/
int			    banchg = FALSE;	    /* Is banned users changed	*/
int			    nickchg = FALSE;	    /* Is nicknames changed	*/
time_t			    resettime;		    /* Time to reset all	*/
int			    do_reset = FALSE;	    /* Reset init		*/
int			    link_reset = FALSE;	    /* Reset one link		*/
extern struct sockaddr_in   clientaddr_in;          /* IBC remote socket	*/


#define	PING_PONG_LOG	1

typedef enum {NCS_INIT, NCS_CALL, NCS_WAITPWD, NCS_CONNECT, NCS_HANGUP, NCS_FAIL, NCS_DEAD} NCSTYPE;


static char *ncsstate[] = {
    (char *)"init", (char *)"call", (char *)"waitpwd", (char *)"connect", 
    (char *)"hangup", (char *)"fail", (char *)"dead"
};


static char *mon[] = {
    (char *)"Jan",(char *)"Feb",(char *)"Mar",
    (char *)"Apr",(char *)"May",(char *)"Jun",
    (char *)"Jul",(char *)"Aug",(char *)"Sep",
    (char *)"Oct",(char *)"Nov",(char *)"Dec"
};



/*
 * Internal prototypes
 */
void fill_ncslist(ncs_list **, char *, char *, char *, int, unsigned int);
void dump_ncslist(void);
void tidy_servers(srv_list **);
int  add_server(srv_list **, char *, int, char *, char *, char *, char *);
void del_server(srv_list **, char *);
void del_router(srv_list **, char *);
int  send_msg(ncs_list *, char *);
void broadcast(char *, char *);
void check_servers(void);
int  command_pass(char *, char *);
int  command_server(char *, char *);
int  command_squit(char *, char *);
int  command_user(char *, char *);
int  command_quit(char *, char *);
int  command_nick(char *, char *);
int  command_join(char *, char *);
int  command_part(char *, char *);
int  command_topic(char *, char *);
int  command_privmsg(char *, char *);



/*
 * Add a server to the serverlist
 */
void fill_ncslist(ncs_list **fdp, char *server, char *myname, char *passwd, int dyndns, unsigned int crc)
{
    ncs_list	*tmp, *ta;

    tmp = (ncs_list *)malloc(sizeof(ncs_list));
    memset(tmp, 0, sizeof(tmp));
    tmp->next = NULL;
    strncpy(tmp->server, server, 63);
    strncpy(tmp->resolved, server, 63);
    strncpy(tmp->myname, myname, 63);
    strncpy(tmp->passwd, passwd, 15);
    tmp->state = NCS_INIT;
    tmp->action = now;
    tmp->last = (time_t)0;
    tmp->version = 0;
    tmp->remove = FALSE;
    tmp->socket = -1;
    tmp->token = 0;
    tmp->gotpass = FALSE;
    tmp->gotserver = FALSE;
    tmp->dyndns = dyndns;
    tmp->halfdead = 0;
    tmp->crc = crc;

    if (*fdp == NULL) {
	*fdp = tmp;
    } else {
	for (ta = *fdp; ta; ta = ta->next) {
	    if (ta->next == NULL) {
		ta->next = (ncs_list *)tmp;
		break;
	    }
	}
    }
}



void dump_ncslist(void)
{   
    ncs_list	*tmp;
    srv_list	*srv;
    usr_list	*usrp;
    chn_list	*chnp;
    char	temp1[128], temp2[128], buf[21];
    struct tm	ptm;
    time_t	tnow;

    if (!callchg && !srvchg && !usrchg && !chnchg && !banchg && !nickchg)
	return;

    if (callchg) {
	if (ncsl) {
	    Syslog('r', "IBC: Server                         State   Del Pwd Srv Dyn 1/2 Next action");
	    Syslog('r', "IBC: ------------------------------ ------- --- --- --- --- --- -----------");
	    for (tmp = ncsl; tmp; tmp = tmp->next) {
		snprintf(temp1, 30, "%s", tmp->server);
		Syslog('r', "IBC: %-30s %-7s %s %s %s %s %3d %d", temp1, ncsstate[tmp->state], 
		    tmp->remove ? "yes":"no ", tmp->gotpass ? "yes":"no ", 
		    tmp->gotserver ? "yes":"no ", tmp->dyndns ? "yes":"no ",
		    tmp->halfdead, (int)tmp->action - (int)now);
	    }
	} else {
	    Syslog('r', "IBC: No servers configured");
	}
    }

    if (srvchg) {
	if (servers) {
	    Syslog('+', "IBC: Server                    Router                     Hops Users Connect time");
	    Syslog('+', "IBC: ------------------------- ------------------------- ----- ----- --------------------");
	    for (srv = servers; srv; srv = srv->next) {
		snprintf(temp1, 25, "%s", srv->server);
		snprintf(temp2, 25, "%s", srv->router);
		tnow = (time_t)srv->connected;
		localtime_r(&tnow, &ptm);
		snprintf(buf, 21, "%02d-%s-%04d %02d:%02d:%02d", ptm.tm_mday, mon[ptm.tm_mon], ptm.tm_year+1900,
			ptm.tm_hour, ptm.tm_min, ptm.tm_sec);
		Syslog('+', "IBC: %-25s %-25s %5d %5d %s", temp1, temp2, srv->hops, srv->users, buf);
	    }
	} else {
	    Syslog('+', "IBC: Servers list is empty");
	}
    }
    
    if (usrchg) {
	if (users) {
	    Syslog('+', "IBC: Server               User                 Name/Nick Channel       Sys Connect time");
	    Syslog('+', "IBC: -------------------- -------------------- --------- ------------- --- --------------------");
	    for (usrp = users; usrp; usrp = usrp->next) {
		snprintf(temp1, 20, "%s", usrp->server);
		snprintf(temp2, 20, "%s", usrp->realname);
		tnow = (time_t)usrp->connected;
		localtime_r(&tnow, &ptm);
		snprintf(buf, 21, "%02d-%s-%04d %02d:%02d:%02d", ptm.tm_mday, mon[ptm.tm_mon], ptm.tm_year+1900,
			ptm.tm_hour, ptm.tm_min, ptm.tm_sec);
		Syslog('+', "IBC: %-20s %-20s %-9s %-13s %s %s", temp1, temp2, usrp->nick, usrp->channel,
		    usrp->sysop ? "yes":"no ", buf);
	    }
	} else {
	    Syslog('+', "IBC: Users list is empty");
	}
    }

    if (chnchg) {
	if (channels) {
	    Syslog('+', "IBC: Channel              Owner     Topic                               Usr Created");
	    Syslog('+', "IBC: -------------------- --------- ----------------------------------- --- --------------------");
	    for (chnp = channels; chnp; chnp = chnp->next) {
		tnow = (time_t)chnp->created;
		localtime_r(&tnow, &ptm);
		snprintf(buf, 21, "%02d-%s-%04d %02d:%02d:%02d", ptm.tm_mday, mon[ptm.tm_mon], ptm.tm_year+1900,
			ptm.tm_hour, ptm.tm_min, ptm.tm_sec);
		Syslog('+', "IBC: %-20s %-9s %-35s %3d %s", chnp->name, chnp->owner, chnp->topic, chnp->users, buf);
	    }
	} else {
	    Syslog('+', "IBC: Channels list is empty");
	}
    }

    callchg = FALSE;
    srvchg = FALSE;
    usrchg = FALSE;
    chnchg = FALSE;
    banchg = FALSE;
    nickchg = FALSE;
}



void tidy_servers(srv_list ** fdp)
{
    srv_list *tmp, *old;

    for (tmp = *fdp; tmp; tmp = old) {
	old = tmp->next;
	free(tmp);
    }
    *fdp = NULL;
}



/*
 * Add one user to the userlist. Returns:
 *  0 = Ok
 *  1 = User already registered.
 */
int add_user(usr_list **fap, char *server, char *name, char *realname)
{
    usr_list    *tmp, *ta;
    srv_list	*sl;
    int		Found = FALSE;

    Syslog('r', "IBC: add_user (%s, %s, %s)", server, name, realname);

    for (ta = *fap; ta; ta = ta->next) {
	if ((strcmp(ta->server, server) == 0) && (strcmp(ta->realname, realname) == 0)) {
	    Syslog('-', "IBC: add_user(%s, %s, %s), already registered", server, name, realname);
	    return 1;
	}
    }

    for (sl = servers; sl; sl = sl->next) {
	if (strcmp(sl->server, server) == 0) {
	    Found = TRUE;
	    break;
	}
    }
    if (!Found) {
	Syslog('-', "IBC: add_user(%s, %s, %s), unknown server", server, name, realname);
	return 1;
    }

    tmp = (usr_list *)malloc(sizeof(usr_list));
    memset(tmp, 0, sizeof(usr_list));
    tmp->next = NULL;
    strncpy(tmp->server, server, 63);
    strncpy(tmp->name, name, 9);
    strncpy(tmp->nick, name, 9);
    strncpy(tmp->realname, realname, 36);
    tmp->connected = now;

    if (*fap == NULL) {
	*fap = tmp;
    } else {
	for (ta = *fap; ta; ta = ta->next) {
	    if (ta->next == NULL) {
		ta->next = (usr_list *)tmp;
		break;
	    }
	}
    }

    for (sl = servers; sl; sl = sl->next) {
	if (strcmp(sl->server, server) == 0) {
	    sl->users++;
	    srvchg = TRUE;
	}
    }

    usrchg = TRUE;
    return 0;
}



/*
 * Delete one user. If name == NULL then delete all users of a server.
 */
void del_user(usr_list **fap, char *server, char *name)
{
    usr_list    **tmp, *tmpa;
    srv_list	*sl;
    int		count = 0;

    Syslog('r', "IBC: deluser (%s, %s)", server, printable(name, 0));

    if (*fap == NULL)
	return;

    tmp = fap;
    while (*tmp) {
	if (name && (strcmp((*tmp)->server, server) == 0) && (strcmp((*tmp)->name, name) == 0)) {
	    Syslog('r', "IBC: removed user %s from %s", (*tmp)->name, (*tmp)->server);
	    tmpa = *tmp;
	    *tmp=(*tmp)->next;
	    free(tmpa);
	    usrchg = TRUE;
	    count++;
	} else if ((name == NULL) && (strcmp((*tmp)->server, server) == 0)) {
	    Syslog('r', "IBC: removed user %s from %s", (*tmp)->name, (*tmp)->server);
	    tmpa = *tmp;
	    *tmp=(*tmp)->next;
	    free(tmpa);
	    usrchg = TRUE;
	    count++;
	} else {
	    tmp = &((*tmp)->next);
	}
    }

    for (sl = servers; sl; sl = sl->next) {
	if ((strcmp(sl->server, server) == 0) && sl->users) {
	    sl->users -= count;
	    if (sl->users < 0)
		sl->users = 0;	/* Just in case, nothing is perfect */
	    srvchg = TRUE;
	}
    }
}



/*
 * Add channel with owner.
 */
int add_channel(chn_list **fap, char *name, char *owner, char *server)
{
    chn_list    *tmp, *ta;

    Syslog('r', "IBC: add_channel (%s, %s, %s)", name, owner, server);

    for (ta = *fap; ta; ta = ta->next) {
	if ((strcmp(ta->name, name) == 0) && (strcmp(ta->owner, owner) == 0) && (strcmp(ta->server, server) == 0)) {
	    Syslog('-', "IBC: add_channel(%s, %s, %s), already registered", name, owner, server);
	    return 1;
	}
    }

    tmp = (chn_list *)malloc(sizeof(chn_list));
    memset(tmp, 0, sizeof(chn_list));
    tmp->next = NULL;
    strncpy(tmp->name, name, 20);
    strncpy(tmp->owner, owner, 9);
    strncpy(tmp->server, server, 63);
    tmp->users = 1;
    tmp->created = now;

    if (*fap == NULL) {
	*fap = tmp;
    } else {
	for (ta = *fap; ta; ta = ta->next) {
	    if (ta->next == NULL) {
		ta->next = (chn_list *)tmp;
		break;
	    }
	}
    }

    chnchg = TRUE;
    return 0;
}



void del_channel(chn_list **fap, char *name)
{
    chn_list    **tmp, *tmpa;
	        
    Syslog('r', "IBC: del_channel %s", name);

    if (*fap == NULL)
	return;

    tmp = fap;
    while (*tmp) {
	if (strcmp((*tmp)->name, name) == 0) {
	    tmpa = *tmp;
	    *tmp=(*tmp)->next;
	    free(tmpa);
	    chnchg = TRUE;
	} else {
	    tmp = &((*tmp)->next);
	}
    }
}



int  add_server(srv_list **fdp, char *name, int hops, char *prod, char *vers, char *fullname, char *router)
{
    srv_list	*tmp, *ta;
    int		haverouter = FALSE;

    Syslog('r', "IBC: add_server %s %d %s %s \"%s\" %s", name, hops, prod, vers, fullname, router);
 
    for (ta = *fdp; ta; ta = ta->next) {
	if (strcmp(ta->server, name) == 0) {
	    Syslog('r', "IBC: duplicate, ignore");
	    return 0;
	}
    }

    /*
     * If name <> router it's a remote server, then check if we have a router in our list.
     */
    if (strcmp(name, router) && hops) {
	for (ta = *fdp; ta; ta = ta->next) {
	    if (strcmp(ta->server, router) == 0) {
		haverouter = TRUE;
		break;
	    }
	}
	if (! haverouter) {
	    Syslog('-', "IBC: no router for server %s, ignore", name);
	    return 0;
	}
    }

    tmp = (srv_list *)malloc(sizeof(srv_list));
    memset(tmp, 0, sizeof(tmp));
    tmp->next = NULL;
    strncpy(tmp->server, name, 63);
    strncpy(tmp->router, router, 63);
    strncpy(tmp->prod, prod, 20);
    strncpy(tmp->vers, vers, 20);
    strncpy(tmp->fullname, fullname, 35);
    tmp->connected = now;
    tmp->users = 0;
    tmp->hops = hops;

    if (*fdp == NULL) {
	*fdp = tmp;
    } else {
	for (ta = *fdp; ta; ta = ta->next) {
	    if (ta->next == NULL) {
		ta->next = (srv_list *)tmp;
		break;
	    }
	}
    }

    srvchg = TRUE;
    return 1;
}



/*
 * Delete server.
 */
void del_server(srv_list **fap, char *name)
{
    srv_list	*ta, *tan;
    
    Syslog('r', "IBC: delserver %s", name);

    if (*fap == NULL)
	return;

    for (ta = *fap; ta; ta = ta->next) {
	while ((tan = ta->next) && (strcmp(tan->server, name) == 0)) {
	    ta->next = tan->next;
	    free(tan);
	    srvchg = TRUE;
	}
	ta->next = tan;
    }
}



/*  
 * Delete router.
 */ 
void del_router(srv_list **fap, char *name)
{   
    srv_list	*ta, *tan;
    
    Syslog('r', "IBC: delrouter %s", name);

    if (*fap == NULL)
	return;

    for (ta = *fap; ta; ta = ta->next) {
	while ((tan = ta->next) && (strcmp(tan->router, name) == 0)) {
	    del_user(&users, tan->server, NULL);
	    ta->next = tan->next;
	    free(tan);
	    srvchg = TRUE;
	}
	ta->next = tan;
    }
}



/*
 * Send a message to all servers
 */
void send_all(char *msg)
{
    ncs_list	*tnsl;

    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
	if (tnsl->state == NCS_CONNECT) {
	    send_msg(tnsl, msg);
	}
    }
}



/*
 * Send command message to each connected neighbour server and use the correct own fqdn.
 */
void send_at(char *cmd, char *nick, char *param)
{
    ncs_list	*tnsl;
    char	*p;

    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
	if (tnsl->state == NCS_CONNECT) {
	    p = xstrcpy(cmd);
	    p = xstrcat(p, (char *)" ");
	    p = xstrcat(p, nick);
	    p = xstrcat(p, (char *)"@");
	    p = xstrcat(p, tnsl->myname);
	    p = xstrcat(p, (char *)" ");
	    p = xstrcat(p, param);
	    p = xstrcat(p, (char *)"\r\n");
	    send_msg(tnsl, p);
	    free(p);
	}
    }
}



void send_nick(char *nick, char *name, char *realname)
{
    ncs_list    *tnsl;
    char        *p;

    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
	if (tnsl->state == NCS_CONNECT) {
	    p = xstrcpy((char *)"NICK ");
	    p = xstrcat(p, nick);
	    p = xstrcat(p, (char *)" ");
	    p = xstrcat(p, name);
	    p = xstrcat(p, (char *)" ");
	    p = xstrcat(p, tnsl->myname);
	    p = xstrcat(p, (char *)" ");
	    p = xstrcat(p, realname);
	    p = xstrcat(p, (char *)"\r\n");
	    send_msg(tnsl, p);
	    free(p);
	}
    }
}



/*
 * Broadcast a message to all servers except the originating server
 */
void broadcast(char *origin, char *msg)
{
    ncs_list    *tnsl;

    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
	if ((tnsl->state == NCS_CONNECT) && (strcmp(origin, tnsl->server))) {
	    send_msg(tnsl, msg);
	}
    }
}



/*
 * Send message to a server
 */
int send_msg(ncs_list *tnsl, char *msg)
{
    char	*p;
	
#ifndef	PING_PONG_LOG
    if (strcmp(msg, "PING\r\n") && strcmp(msg, "PONG\r\n")) {
#endif
	p = xstrcpy((char *)"IBC: > ");
	p = xstrcat(p, tnsl->server);
	p = xstrcat(p, (char *)": ");
	p = xstrcat(p, printable(msg, 0));
	Syslogp('r', p);
	free(p);
#ifndef PING_PONG_LOG
    }
#endif

    if (sendto(tnsl->socket, msg, strlen(msg), 0, (struct sockaddr *)&tnsl->servaddr_in, sizeof(struct sockaddr_in)) == -1) {
	Syslog('!', "$IBC: can't send message");
	return -1;
    }
    return 0;
}



void check_servers(void)
{
    char	    *errmsg, *p, scfgfn[PATH_MAX];
    FILE	    *fp;
    ncs_list	    *tnsl, **tmp;
    srv_list	    *srv;
    int		    j, inlist, Remove, local_reset, conf_changed;
    int		    a1, a2, a3, a4;
    unsigned int    crc;
    struct servent  *se;
    struct hostent  *he;

    now = time(NULL);
    snprintf(scfgfn, PATH_MAX, "%s/etc/ibcsrv.data", getenv("MBSE_ROOT"));
    
    /*
     * Check if we reached the global reset time
     */
    if (((int)now > (int)resettime) && !do_reset) {
	resettime = time(NULL) + (time_t)86400;
	do_reset = TRUE;
	Syslog('+', "IBC: global reset time reached, preparing reset");
    }

    local_reset = conf_changed = FALSE;
    if ((users == NULL) && (channels == NULL) && do_reset) {
	Syslog('+', "IBC: no channels and users, performing reset");
	local_reset = TRUE;
	do_reset = FALSE;
    }

    if (file_time(scfgfn) != scfg_time) {
	conf_changed = TRUE;
	Syslog('+', "IBC: %s filetime changed, rereading configuration", scfgfn);
    }

    /*
     * Check if configuration is changed, if so then apply the changes.
     */
    if (conf_changed || local_reset || link_reset) {

	if (servers == NULL) {
	    /*
	     * First add this server name to the servers database.
	     */
	    add_server(&servers, CFG.myfqdn, 0, (char *)"mbsebbs", (char *)VERSION, CFG.bbs_name, (char *)"none");
	}

	/*
	 * Local reset, make all crc's invalid so the connections will restart.
	 */
	if (local_reset) {
	    for (tnsl = ncsl; tnsl; tnsl = tnsl->next)
		tnsl->crc--;
	}
	
	if (link_reset) {
	    Syslog('r', "IBC: link_reset starting");
	    link_reset = FALSE;
	}

	if ((fp = fopen(scfgfn, "r"))) {
	    fread(&ibcsrvhdr, sizeof(ibcsrvhdr), 1, fp);

            /*
	     * Check for neighbour servers to delete
	     */
	    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
		fseek(fp, ibcsrvhdr.hdrsize, SEEK_SET);
		inlist = FALSE;
		while (fread(&ibcsrv, ibcsrvhdr.recsize, 1, fp)) {
		    crc = 0xffffffff;
		    crc = upd_crc32((char *)&ibcsrv, crc, sizeof(ibcsrv));
		    if ((strcmp(tnsl->server, ibcsrv.server) == 0) && ibcsrv.Active && (tnsl->crc == crc)) {
			inlist = TRUE;
		    }
		}
		if (!inlist) {
		    if (local_reset || link_reset)
			Syslog('+', "IBC: server %s connection reset", tnsl->server);
		    else
			Syslog('+', "IBC: server %s configuration changed or removed", tnsl->server);
		    tnsl->remove = TRUE;
		    tnsl->action = now;
		    srvchg = TRUE;
		    callchg = TRUE;
		}
	    }

	    /*
	     * Start removing servers
	     */
	    Remove = FALSE;
	    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
		if (tnsl->remove) {
		    Remove = TRUE;
		    Syslog('r', "IBC: Remove server %s", tnsl->server);
		    if (tnsl->state == NCS_CONNECT) {
			p = calloc(512, sizeof(char));
			if (local_reset) {
			    snprintf(p, 512, "SQUIT %s Reset connection\r\n", tnsl->server);
			    broadcast(tnsl->server, p);
			    snprintf(p, 512, "SQUIT %s Your system connection is reset\r\n", tnsl->myname);
			    send_msg(tnsl, p);
			} else {
			    snprintf(p, 512, "SQUIT %s Removed from configuration\r\n", tnsl->server);
			    broadcast(tnsl->server, p);
			    snprintf(p, 512, "SQUIT %s Your system is removed from configuration\r\n", tnsl->myname);
			    send_msg(tnsl, p);
			}
			free(p);
			del_router(&servers, tnsl->server);
		    }
		    if (tnsl->socket != -1) {
			Syslog('r', "IBC: Closing socket %d", tnsl->socket);
			shutdown(tnsl->socket, SHUT_WR);
			tnsl->socket = -1;
			tnsl->state = NCS_HANGUP;
		    }
		    callchg = TRUE;
		    srvchg = TRUE;
		}
	    }
	    dump_ncslist();

	    if (link_reset) {
		link_reset = FALSE;
	    }

	    /*
	     * If a neighbour is removed by configuration, remove it from the list.
	     */
	    if (Remove) {
		Syslog('r', "IBC: Starting remove list");
		tmp = &ncsl;
		while (*tmp) {
		    if ((*tmp)->remove) {
		        Syslog('r', "do %s", (*tmp)->server);
		        tnsl = *tmp;
		        *tmp = (*tmp)->next;
		        free(tnsl);
		        callchg = TRUE;
		    } else {
		        tmp = &((*tmp)->next);
		    }
		}
	    }
	    dump_ncslist();
	    
	    /*
	     * Changed or deleted servers are now removed, add new
	     * configured servers or changed servers.
	     */
	    fseek(fp, ibcsrvhdr.hdrsize, SEEK_SET);
	    while (fread(&ibcsrv, ibcsrvhdr.recsize, 1, fp)) {

		/*
		 * Check for new configured servers
		 */
		if (ibcsrv.Active && strlen(ibcsrv.myname) && strlen(ibcsrv.server) && strlen(ibcsrv.passwd)) {
		    inlist = FALSE;
		    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
			if (strcmp(tnsl->server, ibcsrv.server) == 0) {
			    inlist = TRUE;
			}
		    }
		    for (srv = servers; srv; srv = srv->next) {
			if ((strcmp(srv->server, ibcsrv.server) == 0) && (strcmp(srv->router, ibcsrv.server))) {
			    inlist = TRUE;
			    Syslog('+', "IBC: can't add new configured server %s: already connected via %s", 
				    ibcsrv.server, srv->router);
			}
		    }
		    if (!inlist ) {
			crc = 0xffffffff;
			crc = upd_crc32((char *)&ibcsrv, crc, sizeof(ibcsrv));
			fill_ncslist(&ncsl, ibcsrv.server, ibcsrv.myname, ibcsrv.passwd, ibcsrv.Dyndns, crc);
			srvchg = TRUE;
			callchg = TRUE;
			Syslog('+', "IBC: new configured Internet BBS Chatserver: %s", ibcsrv.server);
		    }
		}
	    }
	    fclose(fp);
	}
	scfg_time = file_time(scfgfn);
    }
    dump_ncslist();

    /*
     * Check if we need to make state changes
     */
    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
	if (((int)tnsl->action - (int)now) <= 0) {
	    switch (tnsl->state) {
		case NCS_INIT:	    Syslog('r', "IBC: %s init", tnsl->server);

				    /*
				     * If Internet is available, setup the connection.
				     */
				    if (internet) {
					/*
					 * Get IP address for the hostname, set default next action
					 * to 60 seconds.
					 */
					tnsl->action = now + (time_t)60;
					memset(&tnsl->servaddr_in, 0, sizeof(struct sockaddr_in));
					se = getservbyname("fido", "udp");
					tnsl->servaddr_in.sin_family = AF_INET;
					tnsl->servaddr_in.sin_port = se->s_port;
					
					if (sscanf(tnsl->server,"%d.%d.%d.%d",&a1,&a2,&a3,&a4) == 4)
					    tnsl->servaddr_in.sin_addr.s_addr = inet_addr(tnsl->server);
					else if ((he = gethostbyname(tnsl->server)))
					    memcpy(&tnsl->servaddr_in.sin_addr, he->h_addr, he->h_length);
					else {
					    switch (h_errno) {
						case HOST_NOT_FOUND:    errmsg = (char *)"Authoritative: Host not found"; break;
						case TRY_AGAIN:         errmsg = (char *)"Non-Authoritive: Host not found"; break;
						case NO_RECOVERY:       errmsg = (char *)"Non recoverable errors"; break;
						default:                errmsg = (char *)"Unknown error"; break;
					    }
					    Syslog('!', "IBC: no IP address for %s: %s", tnsl->server, errmsg);
					    tnsl->action = now + (time_t)120;
					    tnsl->state = NCS_FAIL;
					    callchg = TRUE;
					    break;
					}
					
					if (tnsl->socket == -1) {
					    tnsl->socket = socket(AF_INET, SOCK_DGRAM, 0);
					    if (tnsl->socket == -1) {
						Syslog('!', "$IBC: can't create socket for %s", tnsl->server);
						tnsl->state = NCS_FAIL;
						tnsl->action = now + (time_t)120;
						callchg = TRUE;
						break;
					    }
					    Syslog('r', "IBC: socket created");
					} else {
					    Syslog('r', "IBC: socket reused");
					}

					Syslog('r', "IBC: socket %d", tnsl->socket);
					tnsl->state = NCS_CALL;
					tnsl->action = now + (time_t)1;
					callchg = TRUE;
				    } else {
					tnsl->action = now + (time_t)10;
				    }
				    break;
				    
		case NCS_CALL:	    /*
				     * In this state we accept PASS and SERVER commands from
				     * the remote with the same token as we have sent.
				     */
				    Syslog('r', "IBC: %s call", tnsl->server);
				    if (strlen(tnsl->passwd) == 0) {
					Syslog('!', "IBC: no password configured for %s", tnsl->server);
					tnsl->state = NCS_FAIL;
					tnsl->action = now + (time_t)300;
					callchg = TRUE;
					break;
				    }
				    tnsl->token = gettoken();
				    p = calloc(512, sizeof(char));
				    snprintf(p, 512, "PASS %s 0100 %s\r\n", tnsl->passwd, tnsl->compress ? "Z":"");
				    send_msg(tnsl, p);
				    snprintf(p, 512, "SERVER %s 0 %d mbsebbs %s %s\r\n",  tnsl->myname, tnsl->token, 
					    VERSION, CFG.bbs_name);
				    send_msg(tnsl, p);
				    free(p);
				    tnsl->action = now + (time_t)10;
				    tnsl->state = NCS_WAITPWD;
				    callchg = TRUE;
				    break;
				    
		case NCS_WAITPWD:   /*
				     * This state can be left by before the timeout is reached
				     * by a reply from the remote if the connection is accepted.
				     */
				    Syslog('r', "IBC: %s waitpwd", tnsl->server);
				    tnsl->token = 0;
				    tnsl->state = NCS_CALL;
				    while (TRUE) {
					j = 1+(int) (1.0 * CFG.dialdelay * rand() / (RAND_MAX + 1.0));
					if ((j > (CFG.dialdelay / 10)) && (j > 9))
					    break;
				    }
				    Syslog('r', "IBC: next call in %d %d seconds", CFG.dialdelay, j);
				    tnsl->action = now + (time_t)j;
				    callchg = TRUE;
				    break;

		case NCS_CONNECT:   /*
				     * In this state we check if the connection is still alive
				     */
				    j = (int)now - (int)tnsl->last;
				    if (tnsl->halfdead > 5) {
					/*
					 * Halfdead means 5 times received a PASS while we are in
					 * connected state. This means the other side "thinks" it's
					 * not connected and tries to connect. This can be caused by
					 * temporary internet problems. 
					 * Reset our side of the connection.
					 */
					Syslog('+', "IBC: server %s connection is half dead", tnsl->server);
					tnsl->state = NCS_DEAD;
					tnsl->action = now + (time_t)60;    // 1 minute delay before calling again.
					tnsl->gotpass = FALSE;
					tnsl->gotserver = FALSE;
					tnsl->token = 0;
					tnsl->halfdead = 0;
					p = calloc(81, sizeof(char));
					snprintf(p, 81, "SQUIT %s Connection died\r\n", tnsl->server);
					broadcast(tnsl->server, p);
					free(p);
					callchg = TRUE;
					srvchg = TRUE;
					system_shout("*** NETWORK SPLIT, lost connection with server %s", tnsl->server);
					del_router(&servers, tnsl->server);
					break;
				    }
				    if (((int)now - (int)tnsl->last) > 130) {
					/*
					 * Missed 3 PING replies
					 */
					Syslog('+', "IBC: server %s connection is dead", tnsl->server);
					tnsl->state = NCS_DEAD;
					tnsl->action = now + (time_t)120;    // 2 minutes delay before calling again.
					tnsl->gotpass = FALSE;
					tnsl->gotserver = FALSE;
					tnsl->token = 0;
					tnsl->halfdead = 0;
					p = calloc(81, sizeof(char));
					snprintf(p, 81, "SQUIT %s Connection died\r\n", tnsl->server);
					broadcast(tnsl->server, p);
					free(p);
					callchg = TRUE;
					srvchg = TRUE;
					system_shout("*** NETWORK SPLIT, lost connection with server %s", tnsl->server);
					del_router(&servers, tnsl->server);
					break;
				    }
				    /*
				     * Ping at 60, 90 and 120 seconds
				     */
				    if (((int)now - (int)tnsl->last) > 120) {
					Syslog('r', "IBC: sending 3rd PING at 120 seconds");
					send_msg(tnsl, (char *)"PING\r\n");
				    } else if (((int)now - (int)tnsl->last) > 90) {
					Syslog('r', "IBC: sending 2nd PING at 90 seconds");
					send_msg(tnsl, (char *)"PING\r\n");
				    } else if (((int)now - (int)tnsl->last) > 60) {
					send_msg(tnsl, (char *)"PING\r\n");
				    }
				    tnsl->action = now + (time_t)10;
				    break;

		case NCS_HANGUP:    Syslog('r', "IBC: %s hangup => call", tnsl->server);
				    tnsl->action = now + (time_t)1;
				    tnsl->state = NCS_CALL;
				    callchg = TRUE;
				    srvchg = TRUE;
				    break;

		case NCS_DEAD:	    Syslog('r', "IBC: %s dead -> call", tnsl->server);
				    tnsl->action = now + (time_t)1;
				    tnsl->state = NCS_CALL;
				    callchg = TRUE;
				    srvchg = TRUE;
				    break;

		case NCS_FAIL:	    Syslog('r', "IBC: %s fail => init", tnsl->server);
				    tnsl->action = now + (time_t)1;
				    tnsl->state = NCS_INIT;
				    callchg = TRUE;
				    srvchg = TRUE;
				    break;
	    }
	}
    }

    dump_ncslist();
}



int command_pass(char *hostname, char *parameters)
{
    ncs_list	*tnsl;
    char	*passwd, *version, *lnk;

    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
	if (strcmp(tnsl->server, hostname) == 0) {
	    break;
	}
    }

    tnsl->gotpass = FALSE;
    passwd = strtok(parameters, " \0");
    version = strtok(NULL, " \0");
    lnk = strtok(NULL, " \0");

    if (strcmp(passwd, "0100") == 0) {
	send_msg(tnsl, (char *)"414 PASS: Got empty password\r\n");
	return 414;
    }

    if (version == NULL) {
	send_msg(tnsl, (char *)"400 PASS: Not enough parameters\r\n");
	return 400;
    }

    if (strcmp(passwd, tnsl->passwd)) {
	Syslog('!', "IBC: got bad password %s from %s", passwd, hostname);
	return 0;
    }

    if (tnsl->state == NCS_CONNECT) {
	send_msg(tnsl, (char *)"401: PASS: Already registered\r\n");
	tnsl->halfdead++;   /* Count them   */
	srvchg = TRUE;
	return 401;
    }

    tnsl->gotpass = TRUE;
    tnsl->version = atoi(version);
    if (lnk && strchr(lnk, 'Z'))
	tnsl->compress = TRUE;
    return 0;
}



int command_server(char *hostname, char *parameters)
{
    ncs_list	    *tnsl;
    srv_list	    *ta;
    usr_list	    *tmp;
    chn_list	    *tmpc;
    char	    *p, *name, *hops, *id, *prod, *vers, *fullname;
    unsigned int    token;
    int		    ihops, found = FALSE;

    name = strtok(parameters, " \0");
    hops = strtok(NULL, " \0");
    id = strtok(NULL, " \0");
    prod = strtok(NULL, " \0");
    vers = strtok(NULL, " \0");
    fullname = strtok(NULL, "\0");
    ihops = atoi(hops) + 1;

    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
	if (strcmp(tnsl->server, name) == 0) {
	    found = TRUE;
	    break;
	}
    }

    if (fullname == NULL) {
	send_msg(tnsl, (char *)"400 SERVER: Not enough parameters\r\n");
	return 400;
    }

    token = atoi(id);

    if (found && tnsl->token) {
	/*
	 * We are in calling state, so we expect the token from the
	 * remote is the same as the token we sent.
	 * In that case, the session is authorized.
	 */
	if (tnsl->token == token) {
	    p = calloc(512, sizeof(char));
	    snprintf(p, 512, "SERVER %s %d %s %s %s %s\r\n", name, ihops, id, prod, vers, fullname);
	    broadcast(tnsl->server, p);
	    free(p);
	    system_shout("* New server: %s, %s", name, fullname);
	    tnsl->gotserver = TRUE;
	    callchg = TRUE;
	    srvchg = TRUE;
	    tnsl->state = NCS_CONNECT;
	    tnsl->action = now + (time_t)10;
	    Syslog('+', "IBC: connected with neighbour server: %s", tnsl->server);
	    /*
	     * Send all already known servers
	     */
	    for (ta = servers; ta; ta = ta->next) {
		if (ta->hops) {
		    p = calloc(512, sizeof(char));
		    snprintf(p, 512, "SERVER %s %d 0 %s %s %s\r\n", ta->server, ta->hops, ta->prod, ta->vers, ta->fullname);
		    send_msg(tnsl, p);
		    free(p);
		}
	    }
	    /*
	     * Send all known users, nicknames and join channels
	     */
	    for (tmp = users; tmp; tmp = tmp->next) {
		p = calloc(512, sizeof(char));
		snprintf(p, 512, "USER %s@%s %s\r\n", tmp->name, tmp->server, tmp->realname);
		send_msg(tnsl, p);
		if (strcmp(tmp->name, tmp->nick)) {
		    snprintf(p, 512, "NICK %s %s %s %s\r\n", tmp->nick, tmp->name, tmp->server, tmp->realname);
		    send_msg(tnsl, p);
		}
		if (strlen(tmp->channel)) {
		    snprintf(p, 512, "JOIN %s@%s %s\r\n", tmp->name, tmp->server, tmp->channel);
		    send_msg(tnsl, p);
		}
		free(p);
	    }
	    /*
	     * Send all known channel topics
	     */
	    for (tmpc = channels; tmpc; tmpc = tmpc->next) {
		if (strlen(tmpc->topic) && (strcmp(tmpc->server, CFG.myfqdn) == 0)) {
		    p = xstrcpy((char *)"TOPIC ");
		    p = xstrcat(p, tmpc->name);
		    p = xstrcat(p, (char *)" ");
		    p = xstrcat(p, tmpc->topic);
		    p = xstrcat(p, (char *)"\r\n");
		    send_msg(tnsl, p);
		    free(p);
		}
	    }
	    add_server(&servers, tnsl->server, ihops, prod, vers, fullname, hostname);
	    return 0;
	}
	Syslog('r', "IBC: call collision with %s", tnsl->server);
	tnsl->state = NCS_WAITPWD; /* Experimental, should fix state when state was connect while it wasn't. */
	return 0;
    }

    /*
     * We are in waiting state, so we sent our PASS and SERVER
     * messages and set the session to connected if we got a
     * valid PASS command.
     */
    if (found && tnsl->gotpass) {
	p = calloc(512, sizeof(char));
	snprintf(p, 512, "PASS %s 0100 %s\r\n", tnsl->passwd, tnsl->compress ? "Z":"");
	send_msg(tnsl, p);
	snprintf(p, 512, "SERVER %s 0 %d mbsebbs %s %s\r\n",  tnsl->myname, token, VERSION, CFG.bbs_name);
	send_msg(tnsl, p);
	snprintf(p, 512, "SERVER %s %d %s %s %s %s\r\n", name, ihops, id, prod, vers, fullname);
	broadcast(tnsl->server, p);
	system_shout("* New server: %s, %s", name, fullname);
	tnsl->gotserver = TRUE;
	tnsl->state = NCS_CONNECT;
	tnsl->action = now + (time_t)10;
	Syslog('+', "IBC: connected with neighbour server: %s", tnsl->server);
	/*
	 * Send all already known servers
	 */
	for (ta = servers; ta; ta = ta->next) {
	    if (ta->hops) {
		snprintf(p, 512, "SERVER %s %d 0 %s %s %s\r\n", ta->server, ta->hops, ta->prod, ta->vers, ta->fullname);
		send_msg(tnsl, p);
	    }
	}
	/*
	 * Send all known users. If a user is in a channel, send a JOIN.
	 * If the user is one of our own and has set a channel topic, send it.
	 */
	for (tmp = users; tmp; tmp = tmp->next) {
	    snprintf(p, 512, "USER %s@%s %s\r\n", tmp->name, tmp->server, tmp->realname);
	    send_msg(tnsl, p);
	    if (strcmp(tmp->name, tmp->nick)) {
		snprintf(p, 512, "NICK %s %s %s %s\r\n", tmp->nick, tmp->name, tmp->server, tmp->realname);
		send_msg(tnsl, p);
	    }
	    if (strlen(tmp->channel)) {
		snprintf(p, 512, "JOIN %s@%s %s\r\n", tmp->name, tmp->server, tmp->channel);
		send_msg(tnsl, p);
	    }
	}
	free(p);
	for (tmpc = channels; tmpc; tmpc = tmpc->next) {
	    if (strlen(tmpc->topic) && (strcmp(tmpc->server, CFG.myfqdn) == 0)) {
		p = xstrcpy((char *)"TOPIC ");
		p = xstrcat(p, tmpc->name);
		p = xstrcat(p, (char *)" ");
		p = xstrcat(p, tmpc->topic);
		p = xstrcat(p, (char *)"\r\n");
		send_msg(tnsl, p);
		free(p);
	    }
	}
	add_server(&servers, tnsl->server, ihops, prod, vers, fullname, hostname);
	srvchg = TRUE;
	callchg = TRUE;
	return 0;
    }

    if (! found) {
       /*
	* Got a message about a server that is not our neighbour, could be a relayed server.
	*/
	if (add_server(&servers, name, ihops, prod, vers, fullname, hostname)) {
	    p = calloc(512, sizeof(char));
	    snprintf(p, 512, "SERVER %s %d %s %s %s %s\r\n", name, ihops, id, prod, vers, fullname);
	    broadcast(hostname, p);
	    free(p);
	    srvchg = TRUE;
	    Syslog('+', "IBC: new relay server %s: %s", name, fullname);
	    system_shout("* New server: %s, %s", name, fullname);
	}
	return 0;
    }

    Syslog('r', "IBC: got SERVER command without PASS command from %s", hostname);
    return 0;
}



int command_squit(char *hostname, char *parameters)
{
    ncs_list    *tnsl;
    char        *p, *name, *message;
    
    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
	if (strcmp(tnsl->server, hostname) == 0) {
	    break;
	}
    }

    name = strtok(parameters, " \0");
    message = strtok(NULL, "\0");

    if (strcmp(name, tnsl->server) == 0) {
	Syslog('+', "IBC: disconnect neighbour server %s: %s", name, message);
	tnsl->state = NCS_HANGUP;
	tnsl->action = now + (time_t)120;	// 2 minutes delay before calling again.
	tnsl->gotpass = FALSE;
	tnsl->gotserver = FALSE;
	tnsl->token = 0;
	del_router(&servers, name);
    } else {
	Syslog('+', "IBC: disconnect relay server %s: %s", name, message);
	del_server(&servers, name);
    }

    system_shout("* Server %s disconnected: %s", name, message);
    p = calloc(512, sizeof(char));
    snprintf(p, 512, "SQUIT %s %s\r\n", name, message);
    broadcast(hostname, p);
    free(p);
    srvchg = TRUE;
    return 0;
}



int command_user(char *hostname, char *parameters)
{
    ncs_list    *tnsl;
    char	*p, *name, *server, *realname;

    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
	if (strcmp(tnsl->server, hostname) == 0) {
	    break;
	}
    }
	
    name = strtok(parameters, "@\0");
    server = strtok(NULL, " \0");
    realname = strtok(NULL, "\0");

    if (realname == NULL) {
	send_msg(tnsl, (char *)"400 USER: Not enough parameters\r\n");
	return 400;
    }
    
    if (add_user(&users, server, name, realname) == 0) {
	p = calloc(512, sizeof(char));
	snprintf(p, 512, "USER %s@%s %s\r\n", name, server, realname);
	broadcast(hostname, p);
	free(p);
	system_shout("* New user %s@%s (%s)", name, server, realname);
    }
    return 0;
}



int command_quit(char *hostname, char *parameters)
{
    ncs_list    *tnsl;
    char	*p, *name, *server, *message;

    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
	if (strcmp(tnsl->server, hostname) == 0) {
	    break;
	}
    }

    name = strtok(parameters, "@\0");
    server = strtok(NULL, " \0");
    message = strtok(NULL, "\0");

    if (server == NULL) {
	send_msg(tnsl, (char *)"400 QUIT: Not enough parameters\r\n");
	return 400;
    }

    if (message) {
	system_shout("* User %s is leaving: %s", name, message);
    } else {
	system_shout("* User %s is leaving", name);
    }
    del_user(&users, server, name);
    p = calloc(512, sizeof(char));
    snprintf(p, 512, "QUIT %s@%s %s\r\n", name, server, parameters);
    broadcast(hostname, p);
    free(p);
    return 0;
}



int command_nick(char *hostname, char *parameters)
{
    ncs_list    *tnsl;
    usr_list	*tmp;
    char        *p, *nick, *name, *server, *realname;
    int		found;

    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
	if (strcmp(tnsl->server, hostname) == 0) {
	    break;
	}
    }

    nick = strtok(parameters, " \0");
    name = strtok(NULL, " \0");
    server = strtok(NULL, " \0");
    realname = strtok(NULL, "\0");

    if (realname == NULL) {
	send_msg(tnsl, (char *)"400 NICK: Not enough parameters\r\n");
	return 1;
    }

    if (strlen(nick) > 9) {
	p = calloc(81, sizeof(char));
	snprintf(p, 81, "402 %s: Erroneous nickname\r\n", nick);
	send_msg(tnsl, p);
	free(p);
	return 402;
    }
    
    // FIXME: check 1st char is alpha, rest alpha/digit

    found = FALSE;
    for (tmp = users; tmp; tmp = tmp->next) {
	if ((strcmp(tmp->name, nick) == 0) || (strcmp(tmp->nick, nick) == 0)) {
	    found = TRUE;
	    break;
	}
    }
    if (found) {
	p = calloc(81, sizeof(char));
	snprintf(p, 81, "403 %s: Nickname is already in use\r\n", nick);
	send_msg(tnsl, p);
	free(p);
	return 403;
    }

    for (tmp = users; tmp; tmp = tmp->next) {
	if ((strcmp(tmp->server, server) == 0) && (strcmp(tmp->realname, realname) == 0) && (strcmp(tmp->name, name) == 0)) {
	    strncpy(tmp->nick, nick, 9);
	    found = TRUE;
	    Syslog('+', "IBC: user %s set nick to %s", name, nick);
	    usrchg = TRUE;
	}
    }
    if (!found) {
	p = calloc(81, sizeof(char));
	snprintf(p, 81, "404 %s@%s: Can't change nick\r\n", name, server);
	send_msg(tnsl, p);
	free(p);
	return 404;
    }

    p = calloc(512, sizeof(char));
    snprintf(p, 512, "NICK %s %s %s %s\r\n", nick, name, server, realname);
    broadcast(hostname, p);
    free(p);
    return 0;
}



int command_join(char *hostname, char *parameters)
{
    ncs_list    *tnsl;
    chn_list    *tmp;
    usr_list	*tmpu;
    char        *p, *nick, *server, *channel, msg[81];
    int         found;

    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
	if (strcmp(tnsl->server, hostname) == 0) {
	    break;
        }
    }

    nick = strtok(parameters, "@\0");
    server = strtok(NULL, " \0");
    channel = strtok(NULL, "\0");

    if (channel == NULL) {
	send_msg(tnsl, (char *)"400 JOIN: Not enough parameters\r\n");
	return 400;
    }

    if (strlen(channel) > 20) {
	p = calloc(81, sizeof(char));
	snprintf(p, 81, "402 %s: Erroneous channelname\r\n", nick);
	send_msg(tnsl, p);
	free(p);
	return 402;
    }

    if (strcasecmp(channel, "#sysop") == 0) {
	Syslog('+', "IBC: ignored JOIN for #sysop channel");
	return 0;
    }

    found = FALSE;
    for (tmp = channels; tmp; tmp = tmp->next) {
	if (strcmp(tmp->name, channel) == 0) {
	    found = TRUE;
	    tmp->users++;
	    break;
	}
    }
    if (!found) {
	Syslog('+', "IBC: create channel %s owned by %s@%s", channel, nick, server);
	add_channel(&channels, channel, nick, server);
	system_shout("* New channel %s created by %s@%s", channel, nick, server);
    }

    for (tmpu = users; tmpu; tmpu = tmpu->next) {
	if ((strcmp(tmpu->server, server) == 0) && ((strcmp(tmpu->nick, nick) == 0) || (strcmp(tmpu->name, nick) == 0))) {
	    strncpy(tmpu->channel, channel, 20);
	    Syslog('+', "IBC: user %s joined channel %s", nick, channel);
	    usrchg = TRUE;
	    snprintf(msg, 81, "* %s@%s has joined %s", nick, server, channel);
	    chat_msg(channel, NULL, msg);
	}
    }

    p = calloc(512, sizeof(char));
    snprintf(p, 512, "JOIN %s@%s %s\r\n", nick, server, channel);
    broadcast(hostname, p);
    free(p);
    chnchg = TRUE;
    return 0;
}



int command_part(char *hostname, char *parameters)
{
    ncs_list    *tnsl;
    chn_list    *tmp;
    usr_list    *tmpu;
    char        *p, *nick, *server, *channel, *message, msg[81];

    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
	if (strcmp(tnsl->server, hostname) == 0) {
	    break;
	}
    }

    nick = strtok(parameters, "@\0");
    server = strtok(NULL, " \0");
    channel = strtok(NULL, " \0");
    message = strtok(NULL, "\0");

    if (channel == NULL) {
	send_msg(tnsl, (char *)"400 PART: Not enough parameters\r\n");
	return 400;
    }

    if (strcasecmp(channel, "#sysop") == 0) {
	Syslog('+', "IBC: ignored PART from #sysop channel");
	return 0;
    }

    for (tmp = channels; tmp; tmp = tmp->next) {
	if (strcmp(tmp->name, channel) == 0) {
	    chnchg = TRUE;
	    tmp->users--;
	    if (tmp->users == 0) {
		Syslog('+', "IBC: deleted empty channel %s", channel);
		del_channel(&channels, channel);
	    }
	    break;
	}
    }

    for (tmpu = users; tmpu; tmpu = tmpu->next) {
	if ((strcmp(tmpu->server, server) == 0) && ((strcmp(tmpu->nick, nick) == 0) || (strcmp(tmpu->name, nick) == 0))) {
	    tmpu->channel[0] = '\0';
	    if (message) {
		Syslog('+', "IBC: user %s left channel %s: %s", nick, channel, message);
		snprintf(msg, 81, "* %s@%s has left channel %s: %s", nick, server, channel, message);
	    } else {
		Syslog('+', "IBC: user %s left channel %s", nick, channel);
		snprintf(msg, 81, "* %s@%s has silently left channel %s", nick, server, channel);
	    }
	    chat_msg(channel, NULL, msg);
	    usrchg = TRUE;
	}
    }

    p = xstrcpy((char *)"PART ");
    p = xstrcat(p, nick);
    p = xstrcat(p, (char *)"@");
    p = xstrcat(p, server);
    p = xstrcat(p, (char *)" ");
    p = xstrcat(p, channel);
    if (message) {
	p = xstrcat(p, (char *)" ");
	p = xstrcat(p, message);
    }
    p = xstrcat(p, (char *)"\r\n");
    broadcast(hostname, p);
    free(p);
    return 0;
}



int command_topic(char *hostname, char *parameters)
{
    ncs_list    *tnsl;
    chn_list    *tmp;
    char        *p, *channel, *topic, msg[81];
		        
    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
	if (strcmp(tnsl->server, hostname) == 0) {
	    break;
	}
    }

    channel = strtok(parameters, " \0");
    topic = strtok(NULL, "\0");

    if (topic == NULL) {
	send_msg(tnsl, (char *)"400 TOPIC: Not enough parameters\r\n");
	return 400;
    }

    for (tmp = channels; tmp; tmp = tmp->next) {
	if (strcmp(tmp->name, channel) == 0) {
	    chnchg = TRUE;
	    strncpy(tmp->topic, topic, 54);
	    Syslog('+', "IBC: channel %s topic: %s", channel, topic);
	    snprintf(msg, 81, "* Channel topic is now: %s", tmp->topic);
	    chat_msg(channel, NULL, msg);
	    break;
	}
    }

    p = xstrcpy((char *)"TOPIC ");
    p = xstrcat(p, channel);
    p = xstrcat(p, (char *)" ");
    p = xstrcat(p, topic);
    p = xstrcat(p, (char *)"\r\n");
    broadcast(hostname, p);
    free(p);
    return 0;
}



int command_privmsg(char *hostname, char *parameters)
{
    ncs_list    *tnsl;
    chn_list    *tmp;
    char	*p, *channel, *msg;

    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
	if (strcmp(tnsl->server, hostname) == 0) {
	    break;
	}
    }

    channel = strtok(parameters, " \0");
    msg = strtok(NULL, "\0");

    if (msg == NULL) {
	send_msg(tnsl, (char *)"412 PRIVMSG: No text to send\r\n");
	return 412;
    }

    if (channel[0] != '#') {
	send_msg(tnsl, (char *)"499 PRIVMSG: Not for a channel\r\n"); // FIXME: also check users
	return 499;
    }

    for (tmp = channels; tmp; tmp = tmp->next) {
	if (strcmp(tmp->name, channel) == 0) {
	    tmp->lastmsg = now;
	    chat_msg(channel, NULL, msg);
	    p = xstrcpy((char *)"PRIVMSG ");
	    p = xstrcat(p, channel);
	    p = xstrcat(p, (char *)" ");
	    p = xstrcat(p, msg);
	    p = xstrcat(p, (char *)"\r\n");
	    broadcast(hostname, p);
	    free(p);
	    return 0;
	}
    }

    p = calloc(81, sizeof(char));
    snprintf(p, 81, "409 %s: Cannot sent to channel\r\n", channel);
    send_msg(tnsl, p);
    free(p);
    return 409;
}



int do_command(char *hostname, char *command, char *parameters)
{
    ncs_list    *tnsl;
    char	*p;

    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
	if (strcmp(tnsl->server, hostname) == 0) {
	    break;
	}
    }

    /*
     * First the commands that don't have parameters
     */
    if (! strcmp(command, (char *)"PING")) {
	send_msg(tnsl, (char *)"PONG\r\n");
	return 0;
    }
    if (! strcmp(command, (char *)"PONG")) {
	/*
	 * Just accept, but reset halfdead counter.
	 */
	if (tnsl->halfdead) {
	    Syslog('r', "IBC: Reset halfdead counter");
	    tnsl->halfdead = 0;
	    srvchg = TRUE;
	}
	return 0;
    }

    /*
     * Commands with parameters
     */
    if (parameters == NULL) {
	p = calloc(81, sizeof(char));
	snprintf(p, 81, "400 %s: Not enough parameters\r\n", command);
	send_msg(tnsl, p);
	free(p);
	return 400;
    }

    if (! strcmp(command, (char *)"PASS")) {
	return command_pass(hostname, parameters);
    } 
    if (! strcmp(command, (char *)"SERVER")) {
	return command_server(hostname, parameters);
    } 
    if (! strcmp(command, (char *)"SQUIT")) {
	return command_squit(hostname, parameters);
    } 
    if (! strcmp(command, (char *)"USER")) {
	return command_user(hostname, parameters);
    } 
    if (! strcmp(command, (char *)"QUIT")) {
	return command_quit(hostname, parameters);
    } 
    if (! strcmp(command, (char *)"NICK")) {
	return command_nick(hostname, parameters);
    }
    if (! strcmp(command, (char *)"JOIN")) {
	return command_join(hostname, parameters);
    }
    if (! strcmp(command, (char *)"PART")) {
	return command_part(hostname, parameters);
    } 
    if (! strcmp(command, (char *)"TOPIC")) {
	return command_topic(hostname, parameters);
    }
    if (! strcmp(command, (char *)"PRIVMSG")) {
	return command_privmsg(hostname, parameters);
    }

    p = calloc(81, sizeof(char));
    snprintf(p, 81, "413 %s: Unknown command\r\n", command);
    send_msg(tnsl, p);
    free(p);
    return 413;
}



void ibc_receiver(char *crbuf)
{
    struct hostent  *hp, *tp;
    struct in_addr  in;
    int             inlist;
    ncs_list        *tnsl;
    char            *hostname, *command, *parameters, *ipaddress;

    hp = gethostbyaddr((char *)&clientaddr_in.sin_addr, sizeof(struct in_addr), clientaddr_in.sin_family);
    if (hp == NULL)
	hostname = inet_ntoa(clientaddr_in.sin_addr);
    else
	hostname = hp->h_name;

    if ((crbuf[strlen(crbuf) -2] != '\r') && (crbuf[strlen(crbuf) -1] != '\n')) {
	Syslog('!', "IBC: got message not terminated with CR-LF, dropped");
	return;
    }

    /*
     * First check for a fixed IP address.
     */
    inlist = FALSE;
    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
	if (strcmp(tnsl->server, hostname) == 0) {
	    inlist = TRUE;
	    break;
	}
    }
    if (!inlist) {
	/*
	 * Check for dynamic dns address
	 */
	ipaddress = xstrcpy(inet_ntoa(clientaddr_in.sin_addr));
	for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
	    if (tnsl->dyndns) {
		tp = gethostbyname(tnsl->server);
		if (tp != NULL) {
		    memcpy(&in, tp->h_addr, tp->h_length);
		    if (strcmp(inet_ntoa(in), ipaddress) == 0) {
			/*
			 * Test if the backresolved dynamic DNS name is changed, but exclude the
			 * initial value which is the same as the real server name.
			 */
			if (strcmp(tnsl->resolved, hostname) && strcmp(tnsl->resolved, tnsl->server)) {
			    Syslog('r', "IBC: GrepThiz old resolved %s new resolved %s state %s", 
					tnsl->resolved, hostname, ncsstate[tnsl->state]);
			    Syslog('+', "IBC: server %s resolved FQDN changed, restarting", tnsl->server);
			    tnsl->crc--;
			    link_reset = TRUE;
			    /*
			     * This would be the moment to reset this neighbour
			     * Double check state: waitpwd or call ?
			     */
			}
			/*
			 * Store the back resolved IP fqdn for reference and change the
			 * FQDN to the one from the setup, so we continue to use the
			 * dynamic FQDN.
			 */
			if (strcmp(tnsl->resolved, hostname))
			    Syslog('r', "IBC: setting '%s' to dynamic dns '%s'", hostname, tnsl->server);
			strncpy(tnsl->resolved, hostname, 63);
			inlist = TRUE;
			hostname = tnsl->server;
			break;
		    }
		}
	    }
	}
	free(ipaddress);
    }
    if (!inlist) {
	Syslog('r', "IBC: message from unknown host (%s), dropped", hostname);
	return;
    }

    if (tnsl->state == NCS_INIT) {
	Syslog('r', "IBC: message received from %s while in init state, dropped", hostname);
	return;
    }

    tnsl->last = now;
    crbuf[strlen(crbuf) -2] = '\0';
#ifndef PING_PONG_LOG
    if (strcmp(crbuf, (char *)"PING") && strcmp(crbuf, (char *)"PONG"))
#endif
	Syslog('r', "IBC: < %s: \"%s\"", hostname, printable(crbuf, 0));

    /*
     * Parse message
     */
    command = strtok(crbuf, " \0");
    parameters = strtok(NULL, "\0");

    if (atoi(command)) {
	Syslog('r', "IBC: Got error %d", atoi(command));
    } else {
	do_command(hostname, command, parameters);
    }
}



void ibc_shutdown(void)
{
    ncs_list	*tnsl;
    usr_list	*usrp;
    char	*p;

    Syslog('r', "IBC: start shutdown connections");

    for (usrp = users; usrp; usrp = usrp->next) {
	if (strcmp(usrp->server, CFG.myfqdn) == 0) {
	    /*
	     * Our user, still connected
	     */
	    p = calloc(512, sizeof(char));
	    if (strlen(usrp->channel) && strcmp(usrp->channel, "#sysop")) {
		/*
		 * In a channel
		 */
		snprintf(p, 512, "PART %s@%s %s System shutdown\r\n", usrp->nick, usrp->server, usrp->channel);
		broadcast((char *)"foobar", p);
	    }
	    snprintf(p, 512, "QUIT %s@%s System shutdown\r\n", usrp->nick, usrp->server);
	    broadcast((char *)"foobar", p);
	    free(p);
	}
    }

    p = calloc(512, sizeof(char));
    for (tnsl = ncsl; tnsl; tnsl = tnsl->next) {
	if (tnsl->state == NCS_CONNECT) {
	    snprintf(p, 512, "SQUIT %s System shutdown\r\n", tnsl->myname);
	    send_msg(tnsl, p);
	}
    }
    free(p);

    tidy_servers(&servers);
}