/*****************************************************************************
 *
 * File ..................: mbcico/nlinfo.c
 * Purpose ...............: MBSE BBS Outbound Manager
 * Last modification date : 01-Apr-1999
 *
 *****************************************************************************
 * Copyright (C) 1997-1999
 *   
 * Michiel Broek		FIDO:		2:2801/16
 * Beekmansbos 10		Internet:	mbroek@ux123.pttnwb.nl
 * 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 "../include/libs.h"
#include "../include/structs.h"
#include "../common/common.h"
#include "nlinfo.h"



int nlinfo(faddr *addr)
{
	node	*nlent;
	int	i;
	char	flagbuf[256];

	if (addr == NULL)
		return 0;

	Syslog('s', "Search nodelist info for %s", ascfnode(addr, 0x1f));
	nlent = getnlent(addr);

	if (nlent->pflag != NL_DUMMY) {
		colour(3, 0);
		printf("System      : %s\n", nlent->name);
		printf("Sysop       : %s@%s\n", nlent->sysop, ascinode(addr, 0x3f));
		printf("Location    : %s\n", nlent->location);
		if (nlent->phone)
			printf("Phone       : %s\n", nlent->phone);
		else
			printf("Phone       : -Unpublished-\n");
		printf("Speed       : %d\n", nlent->speed);

		flagbuf[0] = 0;

		/*
		 * Get all normal nodelist flags
		 */
		for (i = 0; fkey[i].flag != 0; i++)
			if ((nlent->mflags & fkey[i].flag) == fkey[i].flag)
				sprintf(flagbuf + strlen(flagbuf), "%s,", fkey[i].key);
		for (i = 0; dkey[i].flag != 0; i++)
			if ((nlent->dflags & dkey[i].flag) == dkey[i].flag)
				sprintf(flagbuf + strlen(flagbuf), "%s,", dkey[i].key);
		for (i = 0; ikey[i].flag != 0; i++)
			if ((nlent->iflags & ikey[i].flag) == ikey[i].flag)
				sprintf(flagbuf + strlen(flagbuf), "%s,", ikey[i].key);


		switch (nlent->xflags) {
			case RQ_XA: sprintf(flagbuf + strlen(flagbuf), "XA"); break;
			case RQ_XB: sprintf(flagbuf + strlen(flagbuf), "XB"); break;
			case RQ_XC: sprintf(flagbuf + strlen(flagbuf), "XC"); break;
			case RQ_XP: sprintf(flagbuf + strlen(flagbuf), "XP"); break;
			case RQ_XR: sprintf(flagbuf + strlen(flagbuf), "XR"); break;
			case RQ_XW: sprintf(flagbuf + strlen(flagbuf), "XW"); break;
			case RQ_XX: sprintf(flagbuf + strlen(flagbuf), "XX"); break;
		}

		printf("Flags       : %s\n", flagbuf);

		/*
		 * Show User flags
		 */
		flagbuf[0] = 0;
		for (i = 0; nlent->uflags[i]; i++) {
			sprintf(flagbuf + strlen(flagbuf), "%s,", nlent->uflags[i]);
		}
		if (strlen(flagbuf)) {
			flagbuf[strlen(flagbuf) - 1] = 0;
			printf("U-Flags     : %s\n", flagbuf);
		}

		/*
		 * Show P flags
		 */
		printf("P Flag      :");
		if (nlent->pflag & 0x01)
			printf(" Down");
		if (nlent->pflag & 0x02)
			printf(" Hold");
		if (nlent->pflag & 0x04)
			printf(" Pvt");
		if (nlent->pflag & 0x10)
			printf(" ISDN");
		if (nlent->pflag & 0x20)
			printf(" TCP/IP");
		printf("\n");
		printf("Uplink      : %u/%u\n", nlent->upnet, nlent->upnode);
		printf("Region      : %u\n", nlent->region);
	}

	return 0;
}



