/*--------------------------------------------------------------------------*/
/*                                                                          */
/*                                                                          */
/*      ------------         Bit-Bucket Software, Co.                       */
/*      \ 10001101 /         Writers and Distributors of                    */
/*       \ 011110 /          Freely Available<tm> Software.                 */
/*        \ 1011 /                                                          */
/*         ------                                                           */
/*                                                                          */
/*              (C) Copyright 1987-96, Bit Bucket Software Co.              */
/*                                                                          */
/*          This module was originally written by Vince Perriello           */
/*                                                                          */
/*                   BinkleyTerm Variable Initialization                    */
/*                                                                          */
/*                                                                          */
/*    For complete  details  of the licensing restrictions, please refer    */
/*    to the License  agreement,  which  is published in its entirety in    */
/*    the MAKEFILE and BT.C, and also contained in the file LICENSE.260.    */
/*                                                                          */
/*    USE  OF THIS FILE IS SUBJECT TO THE  RESTRICTIONS CONTAINED IN THE    */
/*    BINKLEYTERM  LICENSING  AGREEMENT.  IF YOU DO NOT FIND THE TEXT OF    */
/*    THIS  AGREEMENT IN ANY OF THE  AFOREMENTIONED FILES,  OR IF YOU DO    */
/*    NOT HAVE THESE FILES,  YOU  SHOULD  IMMEDIATELY CONTACT BIT BUCKET    */
/*    SOFTWARE CO.  AT ONE OF THE  ADDRESSES  LISTED BELOW.  IN NO EVENT    */
/*    SHOULD YOU  PROCEED TO USE THIS FILE  WITHOUT HAVING  ACCEPTED THE    */
/*    TERMS  OF  THE  BINKLEYTERM  LICENSING  AGREEMENT,  OR  SUCH OTHER    */
/*    AGREEMENT AS YOU ARE ABLE TO REACH WITH BIT BUCKET SOFTWARE, CO.      */
/*                                                                          */
/*                                                                          */
/* You can contact Bit Bucket Software Co. at any one of the following      */
/* addresses:                                                               */
/*                                                                          */
/* Bit Bucket Software Co.        FidoNet  1:104/501, 1:343/491             */
/* P.O. Box 460398                AlterNet 7:42/1491                        */
/* Aurora, CO 80046               BBS-Net  86:2030/1                        */
/*                                Internet f491.n343.z1.fidonet.org         */
/*                                                                          */
/* Please feel free to contact us at any time to share your comments about  */
/* our software and/or licensing policies.                                  */
/*                                                                          */
/*--------------------------------------------------------------------------*/

/* Include this file before any other includes or defines! */

#include "includes.h"

void compile_externs (void);
void fillin_defaults (struct secure *, struct secure *);

/**
 ** b_initvars -- called before parse_config. Sets defaults that we want
 ** to have set FIRST.
 **/

void 
b_initvars ()
{
	int k;
	BINK_EVENT far *p;

#ifndef UCT_DIFFERENTIAL				/* if defined, don't kludge TZ */

	char *envp;

	if ((envp = getenv ("TZ")) != NULL)
	{
		if ((saved_TZ = calloc (1, 4 + strlen (envp))) != NULL)
		{
			(void) strcpy (saved_TZ, "TZ=");
			(void) strcat (saved_TZ, envp);
		}
	}
	(void) putenv ("TZ=GMT0");
#endif

	tzset ();

	p = (BINK_EVENT far *) _fmalloc (256 * sizeof (BINK_EVENT));
	if (p == (BINK_EVENT far *) NULL)
	{
		(void) printf (MSG_TXT (M_BAD_EVENT_ALLOC));
		exit (252);
	}

	e_ptrs = p;

	memset ((char *)p, 0, 256 * sizeof (BINK_EVENT));

	(void) memset ((char *) &DEFAULT, 0, sizeof (DEFAULT));

	KNOWN = DEFAULT;					/* Does some of the work      */
	KNOWN.rq_Limit = -1;
	KNOWN.byte_Limit = -1L;
	KNOWN.time_Limit = -1;
	KNOWN.rq_Cum_Limit = -1;
	KNOWN.byte_Cum_Limit = -1L;
	KNOWN.time_Cum_Limit = -1L;
	KNOWN.security = -1;

	PROT = KNOWN;						/* Initially the same default */

	for (k = 0; k < 10; k++)			/* Zero the phone scan list   */
	{
		scan_list[k] = NULL;
	}

	for (k = 0; k < MAX_EXTERN; k++)	/* And the external protocols */
	{
		protocols[k] = NULL;
	}

	for (k = 1; k < ALIAS_CNT; k++)		/* And the alias list         */
	{
		alias[k].Zone = alias[k].Net = alias[k].Node = alias[k].Point = 0;
		alias[k].Domain = NULL;
	}

	alias[0].Zone = 1;					/* Make sure we have a zone   */
	alias[0].Net = alias[0].Node = (unsigned short) -1;	/* Default Fidonet address */
	alias[0].Point = 0;
	alias[0].Domain = NULL;

#ifdef Snoop
	pipename[0] = '\0';					/* Make sure we have no name  */
	if (getenv ("SNOOPPIPE") != NULL)
	{
		strcpy (pipename, getenv ("SNOOPPIPE"));
		snoop_open (pipename);
	}
#endif

	b_init ();

	baud = 2;
	cur_baud = pbtypes[baud];
	command_line_un = 0;

	(void) memset (&dta_str, 0, sizeof (dta_str));

#ifdef SET_CONMODE
	setmode (fileno (stdin), O_BINARY);
	setmode (fileno (stdout), O_BINARY);
#endif
}


/**
 ** b_defaultvars -- called after all parse_config passes complete.
 ** sets anything not handled by parse_config to default if we know it.
 **/

void 
b_defaultvars ()
{
	int i;
	char *p;

	if (!fullscreen)
		do_screen_blank = 0;

	if (version7)
		nodelist_name = "NODEX";
	else
		nodelist_name = "NODELIST";

	if (BBSopt == NULL)
#ifdef BBS_SPAWN
		BBSopt = ctl_string ("spawn");
#else
		BBSopt = ctl_string ("none");
#endif

	if (modem_init == NULL)
		modem_init = ctl_string ("|AT|");
	if (modem_busy == NULL)
		modem_busy = ctl_string ("|AT|");

	if (net_info == NULL)
		net_info = ctl_string (".\\");

	/* Initialize the modem response strings if user didn't */

	if (mdm_resps == NULL)
	{
		mdm_resps = def_mdm_resps;
		resp_count = max_resp_count = def_resp_count;
	}

	/* Initialize session-level no-WaZOO and no-EMSI flags */

	no_WaZOO_Session = no_WaZOO;
	no_EMSI_Session = no_EMSI;

	/* Set up "boss" and "point" addresses correctly if we can */

	if (boss_addr.Zone == 0)
		boss_addr.Zone = alias[0].Zone;

	if (boss_addr.Net == 0)
	{
		boss_addr = alias[0];
		boss_addr.Point = 0;
	}

	if ((pvtnet >= 0) && (alias[0].Point != 0))
	{
		my_addr = boss_addr;
		my_addr.Point = alias[0].Point;
		alias[0].Net = (unsigned) pvtnet;
		alias[0].Node = alias[0].Point;
		alias[0].Point = 0;
	}
	else
		my_addr = alias[0];

	/* If we have the minimum information to do netmail, set the flag */

	if ((alias[0].Zone != 0)
		&& (alias[0].Net != 0)
		&& (system_name != NULL)
		&& (sysop != NULL)
		&& (hold_area != NULL)
		&& (DEFAULT.sc_Inbound != NULL))
	{
		net_params = 1;
		(void) flag_file (INITIALIZE, &alias[0], 0);
	}

	if (system_name == NULL)
		system_name = "";

	if (hold_area == NULL)
		hold_area = ctl_string (".\\");

	if (flag_dir == NULL)		/* MB 93-12-12  PKTRSP  disable pktrsp if no flag directory */
		pktrsp = 0;

	if (DEFAULT.sc_Inbound == NULL)
		DEFAULT.sc_Inbound = ctl_string (".\\");

	/* Make the "higher class" requests at least as well off as the
        "lowest class"... */

	fillin_defaults (&KNOWN, &DEFAULT);
	fillin_defaults (&PROT, &KNOWN);

	if (extern_index)
		compile_externs ();				/* generate extern_protocols  */

	if (!colors.calling && colors.hold)
		colors.calling = (unsigned char) (((colors.hold & 0x70) >> 4) | ((colors.hold & 0x7) << 4) | (colors.hold & 0x8));

	if ((!colors.popup) && colors.call)
		colors.popup = colors.call;

	first_block = 0;

	/* Make our domain first in the list */

	if (my_addr.Domain != NULL)
	{
		for (i = 0; domain_name[i] != NULL; i++)
		{
			if (domain_name[i] == my_addr.Domain)
				break;
		}

		if ((i > 0) && (domain_name[i] == my_addr.Domain))
		{
			p = domain_name[0];
			domain_name[0] = domain_name[i];
			domain_name[i] = p;
			p = domain_nodelist[0];
			domain_nodelist[0] = domain_nodelist[i];
			domain_nodelist[i] = p;
			p = domain_abbrev[0];
			domain_abbrev[0] = domain_abbrev[i];
			domain_abbrev[i] = p;
		}
	}

	set_prior (4);							/* Always High    */

	if (Cominit (port_ptr, buftmo) != 0x1954)
	{
		(void) printf (MSG_TXT (M_DRIVER_DEAD_1));
		(void) printf (MSG_TXT (M_DRIVER_DEAD_2));
		(void) printf (MSG_TXT (M_DRIVER_DEAD_3));

		set_prior (2);						/* Regular        */
		exit (1);
	}

	i = un_attended;
	un_attended = 0;

	(void) set_baud (max_baud.rate_value, 0);
	un_attended = i;

	MDM_ENABLE (lock_baud && (pbtypes[baud].rate_value >= lock_baud) ? max_baud.rate_mask : pbtypes[baud].rate_mask);
	RAISE_DTR ();
	XON_ENABLE ();

	set_prior (2);							/* Regular        */

	Txbuf = Secbuf = (byte *) calloc (1, WAZOOMAX + 16);
	if (!Txbuf)
	{
		status_line (MSG_TXT (M_MEM_ERROR));
		exit (2);
	}

/*
 * Pointing it to the middle of the buffer allows us to pop up
 * file transfer windows if we choose to do so.
 */

	popbuf = Secbuf + 1500;

/*
 * Do a couple of system-related things.
 * Maybe they shouldn't be here -- but better here than in BT.C.
 *
 * Because of some config verbs that affect its behavior, mtask_find
 * MUST follow parse_config!
 */

	fossil_ver ();
	mtask_find ();

}

void 
compile_externs ()
{
	register char *c;
	register i;
	char rgchT[100];
	int j, k, l;
	char *p;
	char x;

	i = l = 0;									/* start at beginning     */
	rgchT[0] = '\0';

	for (k = 0; protocols[k] != NULL; k++)		/* Total no. of protos    */
	{
		c = protocols[k];						/* Point at filename      */
		if (!dexists (c))						/* Is it there?           */
		{
			(void) printf ("%s %s\n", MSG_TXT (M_NO_PROTOCOL), c);
			continue;
		}
		p = NULL;
		while (*c)								/* Until end of string    */
		{
			if ((*c == '\\') || (*c == ':'))	/* Look for last path     */
				p = c;							/* Delimiter              */
			c++;
		}
		if (strlen (p) < 3)						/* If no name,            */
			continue;							/* No protocol...         */

		p++;									/* Point to the           */
		x = (char) toupper (*p);				/* First character        */
		if (strchr (rgchT, x) != NULL)
		{
			(void) printf ("%s %s\n", MSG_TXT (M_DUP_PROTOCOL), c);
			continue;
		}

		protos[l].first_char = x;				/* Makes lookup fast      */
		protos[l++].entry = k;					/* Now we know where      */

		rgchT[i++] = x;							/* Store first char       */
		rgchT[i++] = ')';						/* Then a ')'             */
		c = ++p;								/* Point to 2nd char      */
		for (j = 0; j < 9; j++)					/* Up to 9 chars more     */
		{
			if (*c != '.')						/* If no comma yet,       */
			{
				rgchT[i++] = (char) tolower (*c);/* store the char and    */
				++c;							/* bump the pointer       */
			}
			else
				rgchT[i++] = ' ';				/* otherwise pad it       */
		}
		rgchT[i++] = ' ';						/* And one more space     */
		rgchT[i] = '\0';						/* Need for testing       */
	}

	if (!i)										/* If we got none,        */
		return;									/* Return now.            */

	i += 2;										/* Total for malloc       */
	if ((extern_protocols = calloc (1, (unsigned) i)) == NULL)
		return;									/* Return on failure      */
	(void) strcpy (extern_protocols, rgchT);	/* Copy the string        */
	return;										/* Back to caller         */
}

void 
fillin_defaults (struct secure *higher, struct secure *lower)
{
	if (higher->time_Limit == -1)
		higher->time_Limit = lower->time_Limit;
	if (higher->byte_Limit == -1L)
		higher->byte_Limit = lower->byte_Limit;
	if (higher->rq_Limit == -1)
		higher->rq_Limit = lower->rq_Limit;

	if (higher->time_Cum_Limit == -1)
		higher->time_Cum_Limit = lower->time_Cum_Limit;
	if (higher->byte_Cum_Limit == -1L)
		higher->byte_Cum_Limit = lower->byte_Cum_Limit;
	if (higher->rq_Cum_Limit == -1)
		higher->rq_Cum_Limit = lower->rq_Cum_Limit;
	if (higher->security == -1)
		higher->security = lower->security;

	if (higher->rq_FILES == NULL)
		higher->rq_FILES = lower->rq_FILES;
	if (higher->rq_OKFile == NULL)
		higher->rq_OKFile = lower->rq_OKFile;
	if (higher->rq_About == NULL)
		higher->rq_About = lower->rq_About;
	if (higher->rq_Template == NULL)
		higher->rq_Template = lower->rq_Template;
	if (higher->sc_Inbound == NULL)
		higher->sc_Inbound = lower->sc_Inbound;
}

/**
 ** b_exitproc -- called by mainline to do exit processing.
 **/

void 
b_exitproc ()
{
	if (command_line_un)
	{
		mdm_init (modem_busy);
		exit_DTR ();
	}

	vfossil_cursor (1);

	while (KEYPRESS ())
	{
		(void) FOSSIL_CHAR ();
	}

	gotoxy (0, SB_ROWS);
	clear_eol ();
	(void) printf (MSG_TXT (M_THANKS), ANNOUNCE);
	clear_eol ();
	(void) printf (MSG_TXT (M_ANOTHER_FINE_PRODUCT));

	if (vfossil_installed)
		vfossil_close ();

#ifdef SET_CONMODE
	setmode (fileno (stdin), O_TEXT);
	setmode (fileno (stdout), O_TEXT);
#endif

	if (!share)
	{
		set_prior (4);						/* Always High */
		MDM_DISABLE ();
		set_prior (2);						/* Regular */
	}
}