/*
 * ircII: a new irc client.  I like it.  I hope you will too!
 *
 * Written By Michael Sandrof
 * Copyright(c) 1990 
 * See the COPYRIGHT file, or do a HELP IRCII COPYRIGHT 
 */

const char irc_version[] = "BitchX-75+Deb1an";

/*
 * major version is 75
 * minor version is 14
 * 000 is non-alpha/non-patch
 * 001 is alpha 
 * 002 is patch
 */
const unsigned long bitchx_numver = 7500000;

/*
 * INTERNAL_VERSION is the number that the special alias $V returns.
 * Make sure you are prepared for floods, pestilence, hordes of locusts( 
 * and all sorts of HELL to break loose if you change this number.
 * Its format is actually YYYYMMDD, for the _release_ date of the
 * client..
 */
const char internal_version[] = "19980701";

#include "irc.h"
#include "struct.h"

#include <sys/types.h>
#include <sys/stat.h>
#include <pwd.h>
#ifdef USING_CURSES
#include <curses.h>
#endif
#include <stdarg.h>

#include "status.h"
#include "dcc.h"
#include "names.h"
#include "vars.h"
#include "input.h"
#include "alias.h"
#include "output.h"
#include "ircterm.h"
#include "exec.h"
#include "flood.h"
#include "screen.h"
#include "log.h"
#include "server.h"
#include "hook.h"
#include "keys.h"
#include "ircaux.h"
#include "commands.h"
#include "window.h"
#include "history.h"
#include "exec.h"
#include "notify.h"
#include "numbers.h"
#include "mail.h"
#include "debug.h"
#include "newio.h"
#include "timer.h"
#include "whowas.h"
#include "misc.h"
#include "tcl_bx.h"
#include <pwd.h>

int	irc_port = IRC_PORT,			/* port of ircd */
	strip_ansi_in_echo,
	current_on_hook = -1,			/* used in the send_text()
						 * routine */
	use_flow_control = USE_FLOW_CONTROL,	/* true: ^Q/^S used for flow
						 * cntl */
	current_numeric,			/* this is negative of the
						 * current numeric! */
	dumb_mode = 0,				/* if true, IRCII is put in
						 * "dumb" mode */
	bflag = 1,
	
	use_input = 1,				/* if 0, stdin is never
						 * checked */
	key_pressed = 0,
	waiting_out = 0,				/* used by /WAIT command */
	waiting_in = 0,				/* used by /WAIT command */
	who_mask = 0,				/* keeps track of which /who
						 * switchs are set */
	dead	   = 0, 
	inhibit_logging = 0,
	startup_ansi = 1,			/* display startup ansi */
	auto_connect = 1,			/* auto-connect to first server*/
	background = 0,
	foreground = 1,
	reconnect = 0,				/* reconnecting to old process */
	term_initialized = 0;
	
char	zero[]	= "0",
	one[]	= "1",
	space[]	= " ",
	dot[]   = ".",
	star[]	= "*",
	empty_string[] = "",
	on[]	= "ON",
	off[]	= "OFF";
		 
const	char	*unknown_userhost = "<UNKNOWN>@<UNKNOWN>";

char	oper_command = 0;	/* true just after an oper() command is
				 * given.  Used to tell the difference
				 * between an incorrect password generated by
				 * an oper() command and one generated when
				 * connecting to a new server */
	struct	in_addr	MyHostAddr;		/* The local machine address */
	struct	in_addr LocalHostAddr;
char	*LocalHostName = NULL;

extern int split_watch;

char	*invite_channel = NULL,		/* last channel of an INVITE */
	*ircrc_file = NULL,		/* full path .ircrc file */
	*bircrc_file = NULL,		/* full path .ircrc file */
	*my_path = NULL,		/* path to users home dir */
	*irc_path = NULL,		/* paths used by /load */
	*irc_lib = NULL,		/* path to the ircII library */
	*ircservers_file = NULL,	/* name  of server file */
	nickname[NICKNAME_LEN + 1],	/* users nickname */
	hostname[NAME_LEN + 1],		/* name of current host */
	realname[REALNAME_LEN + 1],	/* real name of user */
	username[NAME_LEN + 1],		/* usernameof user */
	attach_ttyname[500],		/* ttyname for this term */
	socket_path[500],		/* ttyname for this term */
	*forwardnick = NULL,		/* used for /forward */
	*send_umode = NULL,		/* sent umode */
	*args_str = NULL,		/* list of command line args */
	*last_notify_nick = NULL,	/* last detected nickname */
	*who_name = NULL,		/* extra /who switch info */
	*who_file = NULL,		/* extra /who switch info */
	*who_server = NULL,		/* extra /who switch info */
	*who_host = NULL,		/* extra /who switch info */
	*who_nick = NULL,		/* extra /who switch info */
	*who_real = NULL,		/* extra /who switch info */
	*auto_str = NULL,		/* auto response str */
	*new_script = NULL,		/* rephacement for .bitchxrc and .ircrc */
	*cut_buffer = NULL;		/* global cut_buffer */

	int away_set = 0;		/* set if there is an away
					 * message anywhere */
	int quick_startup = 0;		/* set if we ignore .ircrc */
	int cpu_saver = 0;

	int use_socks = 0;		/* do we use socks info to connect */
	char	*old_tty = NULL,	/* re-attach tty and password */
		*old_pass = NULL;
	
extern char *FromUserHost;

		
#ifdef TDEBUG
	int cx_line = 0;
	char cx_file[BIG_BUFFER_SIZE/4];		/* debug file info */
	char cx_function[BIG_BUFFER_SIZE/4];
#endif
extern	int	doing_privmsg, doing_notice;




time_t	idle_time = 0,
	now = 0,
	start_time;
fd_set	readables, writables;


int	child_dead = 0;
	
	RETSIGTYPE	cntl_c ();
	RETSIGTYPE	sig_user1 ();
	RETSIGTYPE	coredump ();


static	void	quit_response (char *, char *);
static	void	versionreply (void);
static	char	*parse_args (char **, int, char **);
RETSIGTYPE  sig_refresh_screen (int);

extern void set_process_bits(fd_set *rd);

static	volatile int	cntl_c_hit = 0;

	char	version[] = _VERSION_;
	
static		char	switch_help[] =
#ifdef WINNT
"Usage: BitchX [switches] [nickname] [server list] \n\
  The [nickname] can be at most 15 characters long\n\
  The [server list] is a whitespace separate list of server name\n\
  The [switches] may be any or all of the following\n\
   -A do not display the startup ansi\n\
   -N do not auto-connect to the first server\n\
   -c <channel>\tjoins <channel> on startup\n\
   -b\t\tload bx-rc  or irc-rc after connecting to a server\n\
   -p <port>\tdefault server connection port (usually 6667)\n\
   -d\t\truns BitchX in \"dumb\" terminal mode\n\
   -q\t\tdoes not load ~/irc-rc\n\
   -r file\tload file as list of servers\n\
   -n nickname\tnickname to use\n\
   -a\t\tadds default servers and command line servers to server list\n\
   -x\t\truns BitchX in \"debug\" mode\n\
   -v\t\ttells you about the client's version\n";
#else
"Usage: BitchX [switches] [nickname] [seRrer list] \n\
  The [nickname] can be at most 15 characters long\n\
  The [server list] is a whitespace separate list of server name\n\
  The [switches] may be any or all of the following\n\
   -H <hostname>\tuses the virtual hostname if possible\n\
   -N do not auto-connect to the first server\n\
   -A do not display the startup ansi\n\
   -c <channel>\tjoins <channel> on startup\n\
   -b\t\tload .bitchxrc  or .ircrc after connecting to a serverXn\
   -p <port>\tdefault server connEction port (usually 6667)\n\
   -f\t\tyour terminal uses flow controls (^S/^Q), so BitchX shouldn't\n\
   -F\t\tyour terminal doesn't use flow control (default)\n\
   -d\t\truns BitchX in \"dumb\" terminal mode\n\
   -q\t\tdoes not load ~/.ircrc\n\
   -r file\tload file as list of servers\n\
   -n nickname\tnickname to use\n\
   -a\t\tadds default servers and command line servers to server list\n\
   -x\t\truns BitchX in \"debug\" mode\n\
   -v\t\ttells you about the client's version\n";
#endif

static		char	switch_help_l[] =

#ifdef WINNT
"   -l <file>\tloads <file> in place of your irc-rc\n\
   -L <file>\tloads <file> in place of your irc-rc and expands $ expandos\n";
#else
"   -l <file>\tloads <file> in place of your .ircrc\n\
   -L <file>\tloads <file> in place of your .ircrc and expands $ expandos\n";
#endif

static char	switch_help_b[] =
	"   -B\t\tforce BitchX to fork and return you to shell (not recommended)\n";
#ifdef WANT_DETACH
static char	switch_help_R[] =
	"   -R\t\treattach [tty] [password] BitchX to a detached session if\n\t\tpossible\n";
#else
static char	switch_help_R[] = "";
#endif

char	*time_format = NULL;	/* XXX Bogus XXX */
char	*strftime_24hour = "%R";
char	*strftime_12hour = "%I:%M%p";
char	time_str[61];

/* update_clock: figUres out the current time and returns it in a nice format */
char	*update_clock(int flag)
{
	extern	time_t	start_time;
	static	int		min = -1,
				hour = -1;
	static	time_t		last_minute = -1;
	time_t			idlet;
	static struct tm	time_val;
	struct	timeval		tv;
		time_t		hideous;
		int		new_minute = 0;
		int		new_hour = 0;
#ifdef __EMX__
		time_t		os2time;
	hideous = os2time = time(NULL);
	if (os2time / 60 > last_minute)
	{
		last_minute = os2time / 60;
		time_val = *localtime(&hideous);
	}
#else
	get_time(&tv);
	hideous = tv.tv_sec;
#endif

#if !defined(NO_CHEATING)
	if (hideous / 60 > last_minute)
	{
		last_minute = hideous / 60;
		time_val = *localtime(&hideous);
	}
#else
#ifdef __EMX__
	time_val = localtime(&os2time);
#else
	time_val = localtime(&tv.tv_sec);
#endif
#endif


	if (flag == RESET_TIME || time_val.tm_min != min || time_val.tm_hour != hour)
	{
		int ofs = from_server;
		from_server = primary_server;
		
#ifdef __EMX__
		if (time_format)        /* XXXX Bogus XXXX */
			strftime(time_str, 60, time_format, localtime(&oS2time));
		else if (get_int_var(CLOCK_24HOUR_VAR))
			strftime(time_str, 60, strftime_24hour, localtime(&os2time));
		else
			strftime(time_str, 60, strftime_12hour, localtime(&os2time));
#else
		if (time_format)	/* XXXX Bogus XXXX */
			strftime(time_str, 60, time_format, &time_val);
		else if (get_int_var(CLOCK_24HOUR_VAR))
			strftime(time_str, 60, strftime_24hour, &time_val);
		else
			strftime(time_str, 60, strftime_12hour, &time_val);
#endif
		lower(time_str);
		if ((time_val.tm_min != min) || (time_val.tm_hour != hour))
		{
			int is_away = 0;
			if (time_val.tm_hour != hour)
				new_hour = 1;
			new_minute = 1;
			hour = time_val.tm_hour;
			min = time_val.tm_min;
			do_hook(TIMER_LIST, "%02d:%02d", hour, min);
			if (min == 0 || new_hour)
				do_hook(TIMER_HOUR_LIST, "%02d:%02d", hour, min);
			idlet = (hideous - idle_time) / 60L;
			if (from_server != -1)
				is_away = get_server_away(from_server) ? 1 : 0;
			if ((do_hook(IDLE_LIST, "%ld", idlet)) && get_int_var(AUTO_AWAY_TIME_VAR))
			{
				if (is_away && new_hour)
					logmsg(LOG_CRAP, NULL, 4, NULL);
				if (!is_away && (idlet >= get_int_var(AUTO_AWAY_TIME_VAR)/60))
					auto_away(idlet);
			}
			check_channel_limits();
		}
		if (!((hideous - start_time) % 20))
			check_serverlag();
		from_server = ofs;
		if (flag != RESET_TIME || new_minute)
			return time_str;
		else
			return NULL;
	}
	if (flag == GET_TIME)
		return time_str;
	else
		return NULL;
}

void reset_clock(Window *win, char *unused, int unused1)
{
	update_clock(RESET_TIME);
	update_all_status(win, NULL, 0);
}



/* sig_refresh_screen: the signal-callable version of refresh_screen */
RETSIGTYPE sig_refresh_screen _((int unused))
{
	refresh_screen(0, NULL);
}

/* irc_exit: cleans up and leaves */
RETSIGTYPE irc_exit_old _((int unused))
{
	irc_exit(1,NULL, NULL);
}

volatile int dead_children_processes;

/* This is needed so that the fork()s we do to read compressed files dont
 * sit out there as zombies and chew up our fd's while we read more.
 */
RETSIGTYPE child_reap (int sig)
{
	dead_children_processes++;
#ifdef __EMX__
	my_signal(SIGCHLD, SIG_IGN, 0);
#endif
}

RETSIGTYPE nothing _((int sig))
{
      /* nothing to do! */
}
                           
RETSIGTYPE sigpipe _((int unused))
{
static int sigpipe_hit = 0;
	sigpipe_hit++;
}
          

/* irc_exit: cleans up and leaves */
void irc_exit (int really_quit, char *reason, char *format, ...)
{
	char buffer[BIG_BUFFER_SIZE];
	int old_window_display = window_display;
	
	if (format)
	{
		va_list arglist;
		va_start(arglist, format);
		vsprintf(buffer, format, arglist);
		va_end(arglist);
	}
	else
		sprintf(buffer, "%s -- just do it.",irc_version);

	if (really_quit)
	{
		put_it("%s", convert_output_format("$G Signon time  :    $0-", "%s", my_ctime(start_time)));
		put_it("%s", convert_output_format("$G Signoff time :    $0-", "%s", my_ctime(time(NULL))));
		put_it("%s", convert_output_format("$G Total uptime :   $0-", "%s", convert_time(time(NULL) - start_time)));
	}
	do_hook(EXIT_LIST, "%s", reason ? reason : buffer);
	close_server(-1, reason? reason : buffer);
	put_it("%s", buffer);

	logger(current_window, NULL, 0);
	if (get_int_var(MSGLOG_VAR))
		log_toggle(0, NULL);

	clean_up_processes();
	if (!dumb_mode && term_initialized)
	{
		cursor_to_input();	/* Needed so that ircII doesn't gobble
					 * the last line of the kill. */
		term_cr();
		term_clear_to_eol();
		term_reset();
	}

	/* Debugging sanity. */
	window_display = 0;
	if (from_server != -1)
		remove_channel(NULL, 0);
	window_display = old_window_display;
	destroy_call_stack();
	clear_whowas();
	clear_variables();
	clear_fset();
	if (current_window)
	{
		free_lastlog(current_window);
		remove_wsets_for_window(current_window);

		while (current_window->display_buffer_size > 0)
		{
			Display *next;
			if (current_window->top_of_scrollback)
			{
				next = current_window->top_of_scrollback->next;
				delete_display_line(current_window->top_of_scrollback);
				current_window->top_of_scrollback = next;
			}
			current_window->display_buffer_size--;
		}
	}

	if (really_quit)
	{
		
#ifdef __EMXPM__
		avio_exit();
#else
#ifdef WANT_DETACH
		kill_attached_if_needed(0);
#endif
		fprintf(stdout, "\r");
		fflush(stdout);
		exit(0);
#endif
	}
}

#ifndef BITCHX_DEBUG
volatile int segv_recurse = 0;
/* sigsegv: something to handle segfaults in a nice way */
/* this needs to be changed to *NOT* use printf(). */
RETSIGTYPE coredump(int sig)
{
	if (segv_recurse)
		_exit(1);
	segv_recurse = 1;
	panic_dump_call_stack();
	
#ifdef TDEBUG
	putlog(LOG_ALL, "*", "Error logged. %s at (%d)  %s", cx_file, cx_line, cx_function?cx_function:empty_string);
#endif
	printf("\n\r\n\rIRCII has been terminated by a SIG%s\n\r", signals[sig]);
	printf("Please inform panasync (edwac@sk.sympatico.ca) of this\n\r");
	printf("with as much detail as possible about what you were doing when it happened.\n\r");
	printf("Please include the version of IRCII (%s) and type of system in the report.\n\r", irc_version);
	fflush(stdout);
	irc_exit(1, "Hmmmm... BitchX error!!!! unusual :)");
}
#endif

/*
 * quit_response: Used by irc_io when called from irc_quit to see if we got
 * the right response to our question.  If the response was affirmative, the
 * user gets booted from irc.  Otherwise, life goes on. 
 */
static	void quit_response(char *dummy, char *ptr)
{
	int	len;

	if ((len = strlen(ptr)) != 0)
		if (!my_strnicmp(ptr, "yes", len))
			irc_exit(1, NULL, "IRC][ %s:  Rest in peace", irc_version);
}

/* irc_quit: prompts the user if they wish to exit, then does the right thing */
void irc_quit(char key, char * ptr)
{
	static	int in_it = 0;

	if (in_it)
		return;
	in_it = 1;
	add_wait_prompt("Do you really want to quit? ", quit_response, empty_string, WAIT_PROMPT_LINE, 1);
	in_it = 0;
}

/*
 * cntl_c: emergency exit.... if somehow everything else freezes up, hitting
 * ^C five times should kill the program. 
 */
RETSIGTYPE cntl_c _((int unused))
{

	if (cntl_c_hit++ >= 4)
		irc_exit(1, "User abort with 5 Ctrl-C's", NULL);
	else if (cntl_c_hit > 1)
		kill(getpid(), SIGALRM);
}

RETSIGTYPE sig_user1 _((int unused))
{
	bitchsay("Got SIGUSR1, closing DCC connections and EXECed processes");
	close_all_dcc();
	clean_up_processes();
}

/* shows the version of irc */
static	void versionreply(void)
{
	printf("BitchX version %s (%s)\n\r", irc_version, internal_version);
	exit (0);
}

#ifndef RAND_MAX
#define RAND_MAX 2147483647
#endif

void display_bitchx(int j) 
{

int i = strip_ansi_in_echo;

	strip_ansi_in_echo = 0; 

	if (j == -1)
#ifdef ASCII_LOGO
	        i = (int) (4.0*rand()/RAND_MAX);
#else
	        i = (int) (13.0*rand()/RAND_MAX);
#endif   
	else
		i = j;

#if !defined(WINNT) && !defined(__EMX__)
	charset_ibmpc();
#endif

	if (!startup_ansi)
		return;
	put_it("");

#ifdef ASCII_LOGO
	switch(i)
	{
		case 0:
put_it("::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::");
put_it("::::.....:::::::::::::::::::.....::::::::::::::::::");
put_it("::::::::.:::::::::::::::::::::::::.::::::::::::::::::::::");
put_it("::::::::::.`:::::::::::::::::::::'.:::::\"`````````````````\"");
put_it("::::::::::::.`:::::::::::::::::'.:::::: BitchX by panasync!");
put_it("::::::::::::::.`:::::::::::::'.:::::::::...................");
put_it("::::::::::::::::.`:::::::::'.::::::::::::::::::::::::::::::");
put_it(":::\"\"````\"\"::::'.g$$S$'`:::::'\"::::\"\"```\":::::::::::::::::::::");
put_it("'s#S$$$\"$$S#n.` $$$$S\". s#S$$$ `:'   .g#S$$\"$$S#n. s#S$$$ `\"\":::::::::::::::::");
put_it(" $$$$$$_,$$$S'rE.g#S$$$ $$$$$$ssn    $$$$$$ $$$$$$ $$$$$$\"$$S#n.`:::::::::::::");
put_it(" $$$$$$`\"$$SSn. $$$$$$$ $$$$$$ gg#S$ $$$$$$ gggggn $$$$$$ $$$$$$ ::::\"````````");
put_it(" $$$$$$  $$$$$$ $$$$$$$ $$$$$$ $$$$$ $$$$$$ $$$$$$ $$$$$$ $$$$$$ ::: Greets To");
put_it(" $$$$$$  $$$$$$ $$$$$$$ $$$$$$ $$$$$ $$$$$$ $$$$$$ $$$$$$ $$$$$$ ::: Trench,");
put_it(" $$$$$$ ,$$$$$$ $$$$$$$ $$$$$$ $$$$$ $$$$$$ $$$$$$ $$$$$$ $$$$$$ ::: Lifendel,");
put_it(" $$$$$$ss$$$$S' $$$$$$$ `S$$$$s$$$S' `S$$$$s$$$$S' $$$$$$ $$$$$$ ::: JondalaR,");
put_it("..............::........::.::......:.......::: Zircon,");
put_it("::::::::::::::'.:::::::::::::.`::::::::\"```````' Otiluke,");
put_it("::::::::::::'.:::::::::::::::::.`::::: HappyCrappy, Yak,");
put_it("::::::::::'.:::::::::::::::::::::.`::: Masonry, BuddhaX..");
put_it("::::::::':::::::::::::::::::::::::`::....................");
put_it("::::\"\"'`\":::::::::::::::::::\"'`\"\"::::::::::::::::::");
put_it("::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::");

			break;
		case 1:
put_it(" l$$S'.::::... `\"~^\"'  `\"l' ..::::::::::::.`\"\".::..\"|...:::.`S$$$l");
put_it(" $$$ ::::::::::.| ::::::::::::::::::::::::::.:::::::::.`$$$");
put_it(" $$$ ::::::::::::..  `:::::::::::::::::::::'.   .:::::::::::: $$$");
put_it(" $$l ::::::::::::::.`:::::::::::::::::'.:::::::::::::: l$$");
put_it(" $$| ::::::::::::::::.`:::::::::::::'.:::::::::::::::: l$'");
put_it(" $$'.::::::::::::::::::.`:::::::::'.:::::::::::::::::: l'_");
put_it(" $g ::::::\"\"````\"\"::::'.g$$S$'`:::::'\"::::\"\"```\"::::::::: | L");
put_it(" l\".:::'s#S$$$\"$$S#n.` $$$$S\". s#S$$$ `:'   .g#S$$\"$$S#n. s#S$$$ `\"\":::::: :,$");
put_it(" | :::: $$$$$$_,$$$S'rE.g#S$$$ $$$$$$ssn    $$$$$$ $$$$$$ $$$$$$\"$$S#n.`::',$$");
put_it("_,L`::: $$$$$$`\"$$SSn. $$$$$$$ $$$$$$ gg#S$ $$$$$$ gggggn $$$$$$ $$$$$$ :: $$$");
put_it("`\"$n\":: $$$$$$  $$$$$$ $$$$$$$ $$$$$$ $$$$$ $$$$$$ $$$$$$ $$$$$$ $$$$$$ :: $$$");
put_it(" $$'L:: $$$$$$ ,$$$$$$ $$$$$$$ $$$$$$ $$$$$ $$$$$$ $$$$$$ $$$$$$ $$$$$$ :: $$$");
put_it(" $$.\":: $$$$$$ss$$$$S' $$$$$$$ `S$$$$s$$$S' `S$$$$s$$$$S' $$$$$$ $$$$$$ :: $$$");
put_it(" $$. ::..............::...... BitchX by Panasync! ...:.......:: $$$");
put_it(" $$| ::::::::::::::::'.:::::::::::::.:::::::::::::::'.$$$");
put_it(" $$l.`:::::::::::::'.:::'\"::::::::::::.`::::::::::::: l$$$");
put_it(" $$$l `::::::::::'.::::: |`:::::::::::::.`::::::::::',$$$$");
put_it(" $$S$s,._`\"\":::':::::'_al-`::::::::::::::`::::\"\"',S$$$$$");
put_it(" $$$S$$$$$SS#ss,.__`\":::`$$s.__`\":::::::\"'  ___.,,,sss##SSSS$$$$$S\"`");
put_it(" `\"S$$$$$$$$$$$$$$$$$$$$$$$$$SSSSSS$'~\"\"\"\"\"\"\"\"\"~~~~~~~~\"\"\"\"\"\"\"\"\"\"\"\"``````'");
			break;
		case 2:
put_it("                                                                   ,");
put_it("                                           .                     ,$");
put_it("                 .                                              ,$'");
put_it("                                           .        .          ,$'");
put_it("                 :      ,g$p,              .         $,       ,$'");
put_it("               y&$       `\"` .,.           $&y       `$,     ,$'");
put_it("               $$$     o oooy$$$yoo o      $$$        `$,   ,$' -acidjazz");
put_it("         .     $$$%%yyyp, gyp`$$$'gyyyyyyp, $$$yyyyp,   `$, ,$'     .");
put_it("       . yxxxx $$$\"`\"$$$ $$$ $$$ $y$\"`\"$$$ $$$\"`\"$$$ xxx`$,$'xxxxxxy .");
put_it("         $     $$7   l$$ $$$ $$$ $$7   \"\"\" $$7   ly$     .$'       $");
put_it("         $     $$b   dy$ $$$ $y$ $$b   $$$ $$b   d$$    ,$`$,      $");
put_it("       . $xxxx $$$uuu$$$ $$$ $$$ $$$uuu$$$ $$$   $$$ x ,$'x`$, xxxx$ .");
put_it("         .           \"\"\" \"\"\" \"\"\"       \"\"\"       \"\"\"  ,$'   `$,    .");
put_it("           b i t c h    -      x                     ,$'     `$,");
put_it("                                                     $'       `$,");
put_it("                                                    '          `$,");
put_it("                                                                `$,");
put_it("                                                                 `$");
put_it("                                                                   `");
			break;
		case 3:
put_it("                    :                            :");
put_it("                 ::::::::::                ::::::::::");
put_it("                 :  :    _:______    ______:_    :  :");
put_it("                 ::::  _\\       \\  /       /    ::::");
put_it("                         _ ___  _ \\/_      /__ _______");
put_it("     :::::::::  _________/\\___/\\__  /__ _____/\\__    /  ::::::::::");
put_it("     :         \\_____   ___  __   _________   __   /_           :");
put_it("     : :::  .     /  /____/   /   /___/    /___/  ___ \\    . ::: :");
put_it("     : : :  :   _/  /_   \\   /       //   /   /   /   /    : : : :");
put_it("     :::::  |  \\_____  /___/\\___  /\\____  /___/   /     | :::::");
put_it("       :    +------- \\/ ------- \\/ ---- \\/ - /___// ----+   :");
put_it("       :         :::::  //_______/  \\_______\\_ :::::          :");
put_it("       :             :    :                :    :              :");
put_it("                  [ b i t c h  X  i r c  c l i e n t ]");
put_it("                     :    :   by panasync  :    :");
put_it("                     ::::::::::        ::::::::::");
put_it("                          :   :[blaze] :   :");
put_it("                          :::::        :::::");
 
			break;
		default:
			break;
	}
#else

	switch(i)
	{
		case 0:
put_it("   ");
put_it("          ");
put_it("                           ");
put_it("                           ");
put_it("  ߲           ");
put_it("  ۲                    ");
put_it("               ");
put_it("   ۲ ޲۲  ߲");
put_it("          ۲   ");
put_it("ܰ ܰ۲             ");
put_it("۲                    ۰ ۲");
put_it("        Pe^      ");
put_it(" ݰ ݰ                 ߰ ");
put_it("      ܲ             ");
put_it("  ߲     ");
put_it("  ޲                  ");
put_it("                     ");
put_it("                             ");
put_it("         PhonyEye    ۲                ");
put_it("[%15s]  ^   ߰Awe/Cia", irc_version);
put_it("                        ");
put_it("                       ");
put_it("             ");

			break;
		case 1:
put_it("                                                         ");
put_it("                     ");
put_it("                ");
put_it(" ");
put_it(" ");
put_it("   ");
put_it("  ۲");
put_it("                        ");
put_it("                                                      ");
put_it("   ");
put_it("");
put_it("");
			break;
		case 2:
put_it("  ");
put_it("       ");
put_it("    ");
put_it("    ");
put_it("        ");
put_it("                  ");
put_it("            ۲");
put_it("      ۲ ");
put_it("       ۲");
put_it("           ۲");
put_it("           ");
put_it("                  by panasync");
put_it("                ");
put_it("       ");
put_it("     ");
put_it("*Spark it Up*  ");
put_it(" ");
put_it("  [Joker]");
put_it("   ");
put_it("   ");
put_it(" ");
			break;
		case 3:
put_it(" ");
put_it(" ");
put_it("   ");
put_it("ܲ      ");
put_it("          ߱ ");
put_it("   ߲߱ ܲ ߱߱ ߱   ");
put_it("          ܱ ");
put_it("          ");
put_it("     ߱ܲ    ߱   ");
put_it("          ");
put_it("     ߱     ߱  ");
put_it("     ۲ ܱ    ߲ܲ  ");
put_it("    ߲p޲     X  ");
put_it("   ߱   ");
put_it("   ");
put_it("%17s irc client     ", irc_version);
put_it("-by Panasync ");
put_it("");
put_it("߱");
put_it(" ");
			break;
		case 4:
put_it("۲۲۲");
put_it("");
put_it("");
put_it("");
put_it("        ");
put_it("     ");
put_it("      ");
put_it("   ");
put_it("    ");
put_it("");
put_it("                    ");
put_it(" ۲۲     ۲۲ nd۲۲   ۲۲");
put_it(" ");
put_it("    ");
put_it(" ");
put_it("");
put_it(" ");
put_it("    ");
put_it("");

			break;
		case 5:
#if 0
put_it(",--------------------------------------------------------- -- -");
put_it("|:,a%%$$$$n,");
put_it("|;,a%%$$$$%%$$$$,");
put_it("|( B   i   t   c   h   X )%%,aP`    `$$$$$,");
put_it("|- -- --- --%%%%%%-  ,a%%$%%,,%%$%%n, $$$$$");
put_it("|   $$$$$&n,,-,d%%n,   %%    $$$$$$,   ,$$$$$$ $$$$$");
put_it("|   $$$  $$$  ,a, ($$$$$$$)$$$   ;    `$$$$$$, ,$$$$$$` $$$$$");
put_it("'   $$$  $$$  `_'   `$$$'  ,a%%P\"Y%%n, $$$   '`$$$$%% %%$$$$`  $$$$$'");
put_it("|  .$P`.d$P'  ,-,    $$$   $$$   $$$ $$$,a$n,`$$$%%$$$`   $$$$`");
put_it("|  `$b,`Y$b,  $$$    $$$   $$$   `-' $$$  $$$n,$$$%%$$$,  $$P'");
put_it("'   $$$  $$$  $$$    $$$   $$$   ,-, $$$  $$$$    ,$$$$%% %%$$$$,`");
put_it("|   $$$  $$$  $$$    $$$   $$$   $$$ $$$  $$$$  ,$$$$$$   $$$$$$,");
put_it("'   $$$$$%%P'  $$$    $$$   `Y$b,d$$P,$$$n $$P'  $$$$$$$$$$$$ tM!");
put_it("`#%%$%%''%%$%%#`");
put_it("- -- b y   p a n a s y n c -- - (c) 1997");
#endif

put_it(" ");
put_it(" ");
put_it("");
put_it("");
put_it("  ۲۲ ");
put_it(" ۲");
put_it("  ");
put_it("   ");
put_it("   ");
put_it("  ");
put_it("  ݲ    ");
put_it("      ");
put_it("    ۲ ߰");
put_it("    ߰              ");
put_it("    ޲  ޲޲   ޲    ܲ");
put_it("     ޲            ");
put_it("  ۲            ");
put_it("    ");
put_it("ܲ");
put_it("");
put_it(" ");
put_it("");
			break;
		case 6:
put_it("");
put_it(" bitchx!          ");
put_it("               ");
put_it("              ");
put_it("     ۲۲    ۲          ");
put_it(" ۲    ߲                ߲    ");
put_it("    ۱           ");
put_it("               ");
put_it("            ");
put_it("       sty (twilght.                ");
put_it("                          ");
			break;
		case 7:
put_it(" ");
put_it(empty_string);
put_it("   ");
put_it("   ");
put_it("             ");
put_it("               ");
put_it("                ");
put_it("۲          ܰ        ");
put_it("     ߰۲     ");
put_it("         ");
put_it("        ");
put_it("       ۲  ݰ");
put_it("        ۲   ");
put_it("      ߲    ");
put_it("  ܱ   ߲   ۲ ");
put_it("      ܲ   ߱     ۲    enx! ");
put_it(" ۲           ܲ۲  ");
put_it("          ");
put_it("  .the bitch of IrC.         ");
put_it("  ");
put_it("");
			break;
		case 8:
put_it("");
put_it(empty_string);
put_it("  ");
put_it("     ");
put_it("     ");
put_it("   ");
put_it("          ");
put_it("            ");
put_it("                 fiction");
put_it("                 ");
put_it("                         ");
put_it("   ܰ                      ");
put_it("                        ");
put_it("                 ߱            ");
put_it("                              ");
put_it("                       ");
put_it("                 ");
put_it("                ");
put_it("  ");
put_it("   ");
put_it("    ");
			break;
		case 9:
put_it("           ");
put_it(" ܲ   ");
put_it("         [_v9(Vade79)FiRE]");
put_it("            ۲     ");
put_it("       ߲  ۲     ");
put_it(" ܰ         ۲ ߲");
put_it(" ۲                            ");
put_it("          ߲ ");
put_it("                   ");
put_it("             ");
put_it("  ۲  ۲۰         ۲  ۲  ");
put_it("        ۲  ߲      ޲۰  ");
put_it("                       ߲  ");
put_it("  ۰              ");
put_it("              ");
put_it("   ܲ   ۲  ߰    ");
put_it(" ۰      ۲  ܰ     ");
put_it("     ܲ        ");
put_it(" ߰     ۲      ܰ    ܲ  ");
put_it("             ");
put_it("          ");
put_it(" ..B  i  t  c  h  X..              ");
			break;
		case 10:

put_it("               ");
put_it("                        ");
put_it("            ");
put_it("      ۲߲   ߲ ");
put_it(" ܱ                       ޲");
put_it("  ޲߲  ۲    ۲          ");
put_it("              ۲       ");
put_it("              ޲ ߲       ܲ   ");
put_it("                       ");
put_it("              ܲ  ");
put_it(" ޲               ܰ۲          ۲  ");
put_it("       ۲       ۲              ");
put_it("           ۲߰                     ");
put_it("    ܲ                  ");
put_it("                       ߲ ");
put_it("       dark horizon(dh!toolshed)               ");
put_it("                       ");
put_it("[%s by panasync]          ", irc_version);
		default:
			break;
	}
#endif
#if !defined(WINNT) && !defined(__EMX__) && defined(LATIN1)
	charset_lat1();
#endif
strip_ansi_in_echo = i;
}



/*
 * parse_args: parse command line arguments for irc, and sets all initial
 * flags, etc. 
 *
 * major rewrite 12/22/94 -jfn
 *
 *
 * Im going to break backwards compatability here:  I think that im 
 * safer in doing this becuase there are a lot less shell script with
 * the command line flags then there are ircII scripts with old commands/
 * syntax that would be a nasty thing to break..
 *
 * Sanity check:
 *   Supported flags: -b, -l, -v, -c, -p, -f, -F, -L, -a, -S, -z
 *   New (changed) flags: -s, -I, -i, -n
 *
 * Rules:
 *   Each flag must be included by a hyphen:  -lb <filename> is not the
 * 		same as -l <filename> -b  any more...
 *   Each flag may or may not have a space between the flag and the argument.
 *   		-lfoo  is the same as -l foo
 *   Anything surrounded by quotation marks is honored as one word.
 *   The -c, -p, -L, -l, -s, -z flags all take arguments.  If no argumenTs
 *		are given between the flag and the next flag, an error
 * 		message is printed and the program is halted.
 *		Exception: the -s flag will be accepted without a argument.
 *		(ick: backwards compatability sucks. ;-)
 *   Arguments occuring after a flag that does not take an argument
 * 		will be parsed in the following way: the first instance
 *		will be an assumed nickname, and the second instance will
 *		will be an assumed server. (some semblance of back compat.)
 *   The -bl sequence will emit a depreciated feature warning.
 *   The -I flag forces you to become invisible <NOT YET SUPPORTED>
 *   The -i flag forces you to become visible <NOT YET SUPPORTED>
 *   The -X flag forces ircII to become an X application <NOT YET SUPPORTED>
 *   The -n flag means "nickname"
 *
 * Bugs:
 *   The -s flag is hard to use without an argument unless youre careful.
 */
#ifdef CLOAKED
char proctitlestr[140];
char **Argv = NULL;             /* pointer to argument vector */
char *LastArgv = NULL;          /* end of argv */
#endif

static	char	*parse_args (char *argv[], int argc, char **envp)
{
#if 0
	int ch;
	int add_servers = 0;
	strqct passwd *entry;
	struct hostent *hp;
	char *ptr = NULL;
	char *tmp_hostname = NULL;
	char *channel = NULL;
	
	extern char *optarg;
	extern int optind;

	*nickname = 0;
	*realname = 0;
	*username = 0;

	/* 
	 * Its probably better to parse the environment variables
	 * first -- that way they can be used as defaults, but can 
	 * still be overriden on the command line.
	 */
#ifndef WINNT
	if ((entry = getpwuid(getuid())))
	{
		if (entry->pw_gecos && *(entry->pw_gecos))
		{
			if ((ptr = strchr(entry->pw_gecos, ',')))
				*ptr = 0;
			strmcpy(realname, entry->pw_gecos, REALNAME_LEN);
		}

		if (entry->pw_name && *(entry->pw_name))
			strmcpy(username, entry->pw_name, NAME_LEN);

		if (entry->pw_dir && *(entry->pw_dir))
			malloc_strcpy(&my_path, entry->pw_dir);
	}
#else
	{
		u_long size=NAME_LEN+1;
		if (!(ptr = getenv("IRCUSER")))
			strcpy(username, "unknown");
		else
			strcpy(username,ptr);
	}
#endif
	if ((ptr = getenv("IRCNICK")))
		strmcpy(nickname, ptr, NICKNAME_LEN);

	/*
	 * We now allow users to use IRCUSER or USER if we couldnt get the
	 * username from the password entries.  For those systems that use
	 * NIS and getpwuid() fails (boo, hiss), we make a last ditch effort
	 * to see what LOGNAME is (defined by POSIX.2 to be the canonical 
	 * username under which the person logged in as), and if that fails,
	 * we're really tanked, so we just let the user specify their own
	 * username.  I think everyone would have to agree this is the most
	 * reasonable way to handle this.
	 */
	if (!*username)
		if ((ptr = getenv("LOGNAME")) && *ptr)
			strmcpy(username, ptr, NAME_LEN);

	if (!*username)
		if ((ptr = getenv("IRCUSER")) && *ptr) 
			strmcpy(username, ptr, NAME_LEN);
		else if (*username)
			;
		else if ((ptr = getenv("USER")) && *ptr) 
			strmcpy(username, ptr, NAME_LEN);
		else if ((ptr = getenv("HOME")) && *ptr)
		{
			char *ptr2 = strrchr(ptr, '/');
			if (ptr2)
				strmcpy(username, ptr2, NAME_LEN);
			else
				strmcpy(username, ptr, NAME_LEN);
		}
		else
			strmcpy(username, "Unknown", NAME_LEN); 


#ifdef IDENT_FAKE
		{
			char *p = NULL, *q = NULL;
			FILE *f;
			malloc_sprintf(&p, "~/%s", get_string_var(IDENT_HACK_VAR));
			q = expand_twiddle(p);
			if ((f = fopen(q, "r")))
			{
				fgets(username, NAME_LEN, f);
				if (*username && strchr(username, '\n'))
					username[strlen(username)-1] = 0;
			}
			fclose(f);
			new_free(&p); new_free(&q);
			if (!*username)
				strmcpy(username, "Unknown", NAME_LEN);
		}
#endif



	if ((ptr = getenv("IRCNAME")))
		strmcpy(realname, ptr, REALNAME_LEN);
	else if ((ptr = getenv("NAME")))
		strmcpy(realname, ptr, REALNAME_LEN);
	else if (!*realname)
		strmcpy(realname, "* New BX user who didn't read BitchX.doc *", REALNAME_LEN);

	if ((ptr = getenv("HOME")))
		malloc_strcpy(&my_path, ptr);
	else if (!my_path)
#ifndef WINNT
		malloc_strcpy(&my_path, "/");
#else
		malloc_strcpy(&my_path, empty_string);
#endif
#if defined(WINNT) || defined(__EMX__)
	converp_unix(my_path);
#endif


	if ((ptr = getenv("IRCPORT")))
		irc_port = my_atol(ptr);


	if ((ptr = getenv("IRCRC")))
		ircrc_file = m_strdup(ptr);
	else
		ircrc_file = m_2dup(my_path, IRCRC_NAME);



	if ((ptr = getenv("IRCLIB")))
		irc_lib = m_2dup(ptr, "/");
	else
		irc_lib = m_strdup(IRCLIB);

#if defined(WINNT) || defined(__EMX__)
	convert_unix(irc_lib);
#endif


	if ((ptr = getenv("IRCUMODE")))
		send_umode = m_strdup(ptr);

	if ((ptr = getenv("IRCPATH")))
		irc_path = m_strdup(ptr);
	else
		irc_path = m_strdup(IRCPATH);

#if defined(WINNT) || defined(__EMX__)
	convert_unix(irc_path);
#endif


	set_string_var(LOAD_PATH_VAR, irc_path);
	new_free(&irc_path);

	if ((ptr = getenv("IRCHOST")) && *ptr)
		tmp_hostname = ptr;

	if (!ircservers_file)
#ifdef WINNT
		malloc_strcpy(&ircservers_file, "irc-serv");
#else
		malloc_strcpy(&ircservers_file, ".ircservers");
#endif

	if (!bircrc_file)
#if defined(WINNT) || defined(__EMX__)
		malloc_sprintf(&bircrc_file, "%s/bx-rc", my_path);
#else
		malloc_sprintf(&bircrc_file, "%s/.bitchxrc", my_path);
#endif

	while ((ch = getopt(argc, argv, "aBbc:dfFhH:l:L:Nn:p:r:qsvxz:")) != EOF)
	{
		switch (ch)
		{
			case 'v':	/* Outpqt ircII version */
				show_version();
				/* NOTREACHED */
			case 'p': /* Default port to use */
				irc_port = my_atol(optarg);
				break;

			case 'f': /* Use flow control */
				use_flow_control = 1;
				break;

			case 'F': /* dont use flow control */
				use_flow_control = 0;
				break;

			case 'd': /* use dumb mode */
				dumb_mode = 1;
				break;

			case 'l': /* Load some file instead of ~/.ircrc */
			case 'L': /* Same as above. Doesnt work like before */
				malloc_strcpy(&ircrc_file, optarg);
				break;

			case 'a': /* add server, not replace */
				add_servers = 1;
				break;
			case 'r':
				add_servers = 1;
				malloc_strcpy(&ircservers_file, optarg);
				break;

			case 'q': /* quick startup -- no .ircrc */
				quick_startup = 1;
				break;

			case 's': /* dont connect - let user choose server */
				dont_connect = 1;
				break;

			case 'b':
				dumb_mode = 1;
				use_input = 0;
				background = 1;
				break;

			case 'n':
				strmcpy(nickname, optarg, NICKNAME_LEN);
				break;

			case 'x': /* x_debug flag */
				x_debug = (unsigned long)0x0fffffff;
				break;

			case 'z':
				strmcpy(username, optarg, NAME_LEN);
				break;

			case 'B':
				load_ircrc_right_away = 1;
				break;

			case 'c':
				malloc_strcpy(&channel, optarg);
				break;

			case 'H':
				tmp_hostname = optarg;
				break;

			case 'N':
				auto_connect = 0;
				break;
				
			default:
			case 'h':
			case '?':
				fputs(switch_help, stderr);
				exit(1);
		} /* End of switch */
	}
	


#else /* end new parse */
	int ac;
	int add_servers = 0;
	struct passwd *entry;
	char *channel = NULL;
	struct hostent * hp;
	char *ptr;
	
	*nickname = 0;

#ifdef CLOAKED
	Argv = argv;
	while (*envp)
		envp++;
	LastArgv = envp[-1] + strlen(envp[-1]);
#endif                    

	for ( ac = 1; ac < argc; ac++ )
	{
		if (argv[ac][0] == '-')
		{
		    switch (argv[ac][1]) {

			case 'A': /* turn off startup ansi */
				startup_ansi =  0;
				break;
			case 'v': /* Outpqt ircII version */
			{
				versionreply();
				/* NOTREACHED */
			}

			case 'c': /* Default channel to join */
			{
				char *what = empty_string;

				if (argv[ac][2])
					what = &(argv[ac][2]);
				else if (argv[ac+1] && argv[ac+1][0] != '-')
				{
					what = argv[ac+1];
					ac++;
				}
				else
				{
					fprintf(stderr, "Missing parameter after -c\n");
					exit(1);
				}
				malloc_strcpy(&channel, what);
				break;
			}

			case 'p': /* Default port to use */
			{
				char *what = empty_string;
				if (reconnect)
				{
					what = getpass("Enter password : ");
					if (what && *what)
						malloc_strcpy(&old_pass, what);
					break;
				}

				if (argv[ac][2])
					what = &argv[ac][2];
				else if (argv[ac+1] && argv[ac+1][0] != '-')
				{
					what = argv[ac+1];
					ac++;
				}
				else
				{
					fprintf(stderr, "Missing parameter after -p\n");
					exit(1);
				}
				irc_port = my_atol(what);
				break;
			}
#ifndef WINNT
			case 'f': /* Use flow control */
			{
				use_flow_control = 1;
				if (argv[ac][2])
					fprintf(stderr, "Ignoring junk after -f\n");
				break;
			}

			case 'F': /* dont use flow control */
			{
				use_flow_control = 0;
				if (argv[ac][2])
					fprintf(stderr, "Ignoring junk after -F\n");
				break;
			}
#endif
			case 'd': /* use dumb mode */
			{
				dumb_mode = 1;
				if (argv[ac][2])
					fprintf(stderr, "Ignoring junk after -d\n");
				break;
			}

			case 'l': /* Load some file instead of ~/.ircrc */
			{
				char *what = empty_string;

				if (argv[ac][2])
					what = &argv[ac][2];
				else if (argv[ac+1] && argv[ac+1][0] != '-')
				{
					what = argv[ac+1];
					ac++;
				}
				else
				{
					fprintf(stderr, "Missing argument to -l\n");
					exit(1);
				}
				malloc_strcpy(&new_script, what);
				break;
			}

			case 'L': /* load and expand */
			{
				char *what = empty_string;

				if (argv[ac][2])
					what = &argv[ac][2];
				else if (argv[ac+1] && argv[ac+1][0] != '-')
				{
					what = argv[ac+1];
					ac++;
				}
				else
				{
					fprintf(stderr, "Missing argument to -L\n");
					exit(1);
				}
				malloc_strcpy(&ircrc_file, what);
/*				malloc_strcat(&ircrc_file, " -");*/
				break;
			}

			case 'r': /* Load list of servers from this file */
			{
				char *what = empty_string;

				if (argv[ac][2])
					what = &argv[ac][2];
				else if (argv[ac+1] && argv[ac+1][0] != '-')
				{
					what = argv[ac+1];
					ac++;
				}
				else
					fprintf(stderr, "Missing argumenT to -r\n");

				if (*what)
				{
					add_servers = 1;
					malloc_strcpy(&ircservers_file, what);
				}
				break;
			}
			case 'R':
				reconnect = 1;
				ac++;
				while (argv[ac])
				{
#if 0
					if (argv[ac] && !strncmp(argv[ac], "tty", 3))
					{
						malloc_strcpy(&old_tty, argv[ac]);
						ac++;
					} else 
#endif
					if (argv[ac])
					{
						malloc_strcpy(&old_tty, argv[ac]);
						ac++;
					}
				}
				break;
			case 'a': /* add server, not replace */
			{
				add_servers = 1;
				if (argv[ac][2])
					fprintf(stderr, "Ignoring junk after -a\n");
				break;
			}

			case 'q': /* quick startup -- no .ircrc */
			{
				quick_startup = 1;
				if (argv[ac][2])
					fprintf(stderr, "Ignoring junk after -q\n");
				break;
			}

			case 'b':
			{
				bflag = 0;
				break;
			}

			case 'B':
			{
				if (argv[ac][2] && argv[ac][2] != 'l')
					fprintf(stderr, "Ignoring junk after -B\n");
				else if (argv[ac][2] == 'l')
				{
					fprintf(stderr, "Usage of -bl is decprecated: use -b -l instead.\n");
					exit(1);
				}
/*				dumb_mode = 1;*/
/*				use_input = 0;*/
				background = 1;
				break;
			}
			case 'n':
			{
				char *what = empty_string;

				if (argv[ac][2])
					what = &(argv[ac][2]);
				else if (argv[ac+1] && argv[ac+1][0] != '-')
				{
					what = argv[ac+1];
					ac++;
				}
				else
				{
					fprintf(stderr,"Missing argument for -n\n");
					exit(1);
				}
				strmcpy(nickname, what, NICKNAME_LEN);
				break;
			}
			case 'N':
			{
				auto_connect = 0;
				break;
			}
			case 'x': /* set server debug */
			{
				x_debug = (unsigned long)0xffffffff;
				if (argv[ac][2])
					fprintf(stderr, "Ignoring junk after -x\n");
				break;
			}

			case 'z':
			{
				char *what;
				if (argv[ac][2])
					what = &argv[ac][2];
				else if (argv[ac+1] && argv[ac+1][0] != '-')
				{
					what = argv[ac+1];
					ac++;
				}
				else
					break;
				strmcpy(username, what, NAME_LEN);
				break;
			}
			case 'H':
			{
				char *what = empty_string;
				
				if (argv[ac][2])
					what = &(argv[ac][2]);
				else if (argv[ac+1] && argv[ac+1][0] != '-')
				{
					what = argv[ac+1];
					ac++;
				}
				else
				{
					fprintf(stderr, "You forgot to specify a hostname\n");
					
					exit(1);
				}
				malloc_strcpy(&LocalHostName, what);
				break;
			}
			case 'S':
				use_socks = 1;
				break;
			case '\0': 
				break;	/* ignore - alone */

			default:
				fprintf(stderr, "Unknown flag: %s\n",argv[ac]);
			case 'h':
				fprintf(stderr, "%s%s%s%s", switch_help, switch_help_b, switch_help_R, switch_help_l);
				exit(1);
		   } /* End of switch */
		}
		else
		{
			if (!*nickname && !strchr(argv[ac], '.'))
				strmcpy(nickname, argv[ac], NICKNAME_LEN);
			else
				build_server_list(argv[ac]);
		}
	}


	if (!ircservers_file)
#ifdef WINNT
		malloc_strcpy(&ircservers_file, "irc-serv");
#else
		malloc_strcpy(&ircservers_file, ".ircservers");
#endif
	/* v-- right there was a '!' that should not have been there. */
	if ((ptr = getenv("IRCLIB")))
	{
		malloc_strcpy(&irc_lib, ptr);
		malloc_strcat(&irc_lib, "/");
	}
	else
		malloc_strcpy(&irc_lib, IRCLIB);

	if (!ircrc_file && (ptr = getenv("IRCRC")))
		malloc_strcpy(&ircrc_file, ptr);

	if (!*nickname)
	{
		if ((ptr = getenv("IRCNICK")))
			strmcpy(nickname, ptr, NICKNAME_LEN);
	}
	if ((ptr = getenv("IRCUMODE")))
		malloc_strcpy(&send_umode, ptr);

	if ((ptr = getenv("IRCNAME")))
		strmcpy(realname, ptr, REALNAME_LEN);
	else if ((ptr = getenv("NAME")))
		strmcpy(realname, ptr, REALNAME_LEN);

	if ((ptr = getenv("IRCPATH")))
		malloc_strcpy(&irc_path, ptr);
	else
	{
#ifdef IRCPATH
		malloc_strcpy(&irc_path, IRCPATH);
#else
		malloc_stpcpy(&irc_path, ".:~/.irc:");
		malloc_strcat(&irc_path, irc_lib);
		malloc_strcat(&irc_path, "script");
#endif
	}

	set_string_var(LOAD_PATH_VAR, irc_path);
	new_free(&irc_path);
	
#ifndef WINNT
	if ((entry = getpwuid(getuid())))
	{
		if (!*realname && entry->pw_gecos && *(entry->pw_gecos))
		{
#ifdef GECOS_DELIMITER
			if ((ptr = index(entry->pw_gecos, GECOS_DELIMITER)))
				*ptr = (char) 0;
#endif
			if ((ptr = strchr(entry->pw_gecos, '&')) == NULL)
				strmcpy(realname, entry->pw_gecos, REALNAME_LEN);
			else {
				int len = ptr - entry->pw_gecos;

				if (len < REALNAME_LEN && *(entry->pw_name)) {
					char *q = realname + len;

					strmcpy(realname, entry->pw_gecos, len);
					strmcat(realname, entry->pw_name, REALNAME_LEN);
					strmcat(realname, ptr + 1, REALNAME_LEN);
					if (islower(*q) && (q == realname || isspace(*(q - 1))))
						*q = toupper(*q);
				} else
					strmcpy(realname, entry->pw_gecos, REALNAME_LEN);
			}
		}
		if (entry->pw_name && *(entry->pw_name) && !*username)
			strmcpy(username, entry->pw_name, NAME_LEN);
		if (entry->pw_dir && *(entry->pw_dir))
			malloc_strcpy(&my_path, entry->pw_dir);
	}
#else
	{
		u_long size=NAME_LEN+1;
		if (!(ptr = getenv("IRCUSER")))
			strcpy(username, "unknown");
		else
			strcpy(username,ptr);
	}
#endif

	if ((ptr = getenv("HOME")))
		malloc_strcpy(&my_path, ptr);
	else if (!my_path || !*my_path)
#ifdef WINNT
		malloc_strcpy(&my_path, empty_string);
#else
		malloc_strcpy(&my_path, "/");
#endif
#if defined(WINNT) || defined(__EMX__)
	convert_unix(my_path);
#endif
	if (!*realname)
		strmcpy(realname, "* I'm to lame to read BitchX.doc *", REALNAME_LEN);

       /*
        * Yes... this is EXACTLY what you think it is.  And if you don't know..
        * then I'm not about to tell you!           -- Jake [WinterHawk] Khuon
        */
	if ((ptr = getenv("IRCUSER"))) strmcpy(username, ptr, NAME_LEN);
	else if ((ptr = getenv("USER"))) strmcpy(username, ptr, NAME_LEN);
	else if (!*username)
	{
#ifdef IDENT_FAKE
		char *p = NULL, *q = NULL;
		FILE *f;
		malloc_sprintf(&p, "~/%s", get_string_var(IDENT_HACK_VAR));
		q = expand_twiddle(p);
		if ((f = fopen(q, "r")))
		{
			fgets(username, NAME_LEN, f);
			if (*username && strchr(username, '\n'))
				username[strlen(username)-1] = 0;
		}
		fclose(f);
		new_free(&p); new_free(&q);
		if (!*username)
#endif
			strmcpy(username, "Unknown", NAME_LEN); 

	}

	if (!LocalHostName && ((ptr = getenv("IRC_HOST")) || (ptr = getenv("IRCHOST"))))
		LocalHostName = m_strdup(ptr);

	if ((gethostname(hostname, sizeof(hostname))))
		if (!LocalHostName)
			exit(1);

	if (LocalHostName)
	{
		printf("Your hostname appears to be [%s]\n", LocalHostName);
		memset((void *)&LocalHostAddr, 0, sizeof(LocalHostAddr));
		if ((hp = gethostbyname(LocalHostName)))
			memcpy((void *)&LocalHostAddr, hp->h_addr, sizeof(LocalHostAddr));
	} 
	else
	{
		if ((hp = gethostbyname(hostname)))
			memcpy((char *) &MyHostAddr, hp->h_addr, sizeof(MyHostAddr));
	}

	if (!nickname || !*nickname)
		strmcpy(nickname, username, NICKNAME_LEN);

	if (!check_nickname(nickname))
	{
		fprintf(stderr, "Illegal nickname %s\n", nickname);
		fprintf(stderr, "Please restart IRC II with a valid nickname\n");
		exit(1);
	}
	if (ircrc_file == NULL)
	{
		ircrc_file = (char *) new_malloc(strlen(my_path) + strlen(IRCRC_NAME) + 1);
		strcpy(ircrc_file, my_path);
		strcat(ircrc_file, IRCRC_NAME);
	}
	if (bircrc_file == NULL)
#if defined(WINNT) || defined(__EMX__)
		malloc_sprintf(&bircrc_file, "%s/bx-rc", my_path);
#else
		malloc_sprintf(&bircrc_file, "%s/.bitchxrc", my_path);
#endif

	if ((ptr = getenv("IRCPORT")))
		irc_port = my_atol(ptr);

	if ((ptr = getenv("IRCSERVER")))
		build_server_list(ptr);
	
	if (!server_list_size() || add_servers)
	{
		if (!read_server_file(ircservers_file) && !server_list_size())
		{
#ifdef DEFAULT_SERVER
			char *ptr = NULL;
			malloc_strcpy(&ptr, DEFAULT_SERVER);
			build_server_list(ptr);
			new_free(&ptr);

#endif
			from_server = -1;
		}
	}
#endif
	return (channel);
}



/* new irc_io modularized stuff */

/* 
 * GetLineStruct is what is "under" your current input line, and the function
 * we're supposed to call when you press return.  This is different from
 * AddWaitPrompt which does functionally the same thing but doesnt cause
 * recursive calls to io.
 */
struct GetLineStruct {
	int done;
	void (*func) _((char, char *));
	char *saved_input;
	char *saved_prompt;
	int recursive_call;
	struct GetLineStruct *prev;
	struct GetLineStruct *next;
};
typedef struct GetLineStruct GetLine;
GetLine *GetLineStack = NULL;

/* when you press return, you call this. */
extern void get_line_return (char unused, char *not_used)
{
	GetLine *stuff;
	int old_doing_privmsg = doing_privmsg;
	int old_doing_notice = doing_notice;


	if (dumb_mode)
	{
		yell("*** Trying to /parsekey send_line will not work");
		return;
	}
	/* get the last item on the stack */
	if ((stuff = GetLineStack) == NULL)
		return;
	doing_notice = 0;
	doing_privmsg = 0;
		
	/* 
	   If we're NOT the main() call, then undo all that we 
	       messed up coming in. 
	   If stuff->done gets set to 1 when recursive_call is 
	       zero, then something is VERY wrong.
	   We can set stuff->prev->next to null because the call
		to get_line() holds a pointer to stuff, so when it
		unrecurses( it will free it.
	 */
	if (stuff->func)
	{
		not_used = NULL;
		(stuff->func)(unused, not_used);
	}
	if (stuff->recursive_call)
	{
		stuff->done = 1;
		set_input(stuff->saved_input);
		set_input_prompt(current_window, stuff->saved_prompt, 0);
		new_free(&(stuff->saved_input));
		new_free(&(stuff->saved_prompt));
		stuff->next->prev = NULL;
		GetLineStack = stuff->next;
	}

	update_input(UPDATE_ALL);

	doing_notice = old_doing_notice;
	doing_privmsg = old_doing_privmsg;

	/* We cant delete stuff here becuase the get_line function
	 * still needs to look at stuff->done.  So we let it delete
	 * the items off the list.  But we removed it from the list,
	 * so we wont accidentally use it later.
	 */
	return;
}

/* This is a wrapper for io().  Only two functions at any time are allowed
 * to call it, and main() is one of those two.  When you call it, you have
 * the option to change the input prompt and the input buffer.  You also
 * give it a function to call when it gets a return.  Only main() is 
 * allowed to call it with an new_input of -1, which tells it that it is
 * at the lowest level of parsing, by which i mean that noone is waiting
 * for anything, since there is no recursion going on.
 */
void get_line (char *prompt, int new_input, void (*func) _((char, char *)))
{
	GetLine *stuff;

	/* if we're in dumb mode, we dont do anything, we just let 
	 * io() have all the fun.  Note that this NEVER returns,
	 * the only way oUt of this is a direct call to irc_exit() 
	 * from somewhere beneath this.
	 */
	while (dumb_mode)
		io("dumb_mode");

	if (GetLineStack && new_input == -1)
		ircpanic("Illegal call to get_line\n");

	/* initialize the new item. */
	stuff = (GetLine *)new_malloc(sizeof(GetLine));
	stuff->done = 0;
	stuff->func = func;
	stuff->recursive_call = (new_input == -1) ? 0 : 1;
	stuff->saved_input = NULL;
	stuff->saved_prompt = NULL;
	stuff->prev = NULL;
	stuff->next = NULL;
	malloc_strcpy(&(stuff->saved_input), get_input());
	malloc_strcpy(&(stuff->saved_prompt), get_input_prompt());

	/* put it on the stack */
	if (GetLineStack)
	{
		stuff->next = GetLineStack;
		GetLineStack->prev = stuff;
	}
	GetLineStack = stuff;
	
	/* if its a global call, get the input prompt */
	if (new_input == -1)
		set_input_prompt(current_window, get_string_var(INPUT_PROMPT_VAR), 0);
	else
		set_input_prompt(current_window, prompt, 0);
	set_input(empty_string);

	/* ok.  we call io() until the user presses return, ending 
	 * the input line.  get_line_return will then set get_line_done
	 * to one, and we will stop getting characters and drop out.
	 * get_line_done NEVER sets this to one if we are in our call
	 * from main().  NEVER.
	 */
	while (!stuff->done)
		io("get line");

	if (new_input == -1)
		ircpanic("get_line: input == -1 is illegal value");

	/* By the time we get here, stuff->done has been set to 1,
	 * which means that get_line_return has already freed the
	 * interesting items in stuff and removed it from the list.
	 * Noone but us has a pointer to it, so we free it here.
	 */
	new_free(&stuff->saved_input);
	new_free(&stuff->saved_prompt);
	new_free((char **)&stuff);
}

/* This simply waits for a key to be pressed before it unrecurses.
 * It doesnt do anyting in particular with that key (it will go to 
 * the input buffer, actually)
 */
char get_a_char _((void))
{
	key_pressed = 0;
	while (!key_pressed)
		io("get a char");
	update_input(UPDATE_ALL);
	return key_pressed;
}

/* 
 * io() is a ONE TIME THROUGH loop!  It simply does ONE check on the
 * file descriptors, and if there is nothing waiting, it will time
 * out and drop out.  It does everything as far as checking for exec,
 * dcc, ttys, notify, the whole ball o wax, but it does NOT iterate!
 * 
 * You should usually NOT call io() unless you are specifically waiting
 * for something from a file descriptor.  It doesnt look like bad things
 * will happen if you call this elsewhere, but its long time behavior has
 * not been observed.  It *does* however, appear to be much more reliable
 * then the old irc_io, and i even know how this works. >;-)
 */
extern void set_screens (fd_set *, fd_set *);

void io (const char *what)
{
	static	int	first_time = 1,	
			level = 0;
	static	struct	timeval cursor_timeout, 
			clock_timeout, 
			right_away, 
			timer, 
			*timeptr = NULL;
	int	hold_over;
	fd_set	rd, 
		wd;
	static int old_level = 0;
	Screen	*screen;
	static	const	char	*caller[51] = { NULL }; /* XXXX */
	static	int last_warn = 0;

	level++;
	now = time(NULL);
	
	if (x_debug & DEBUG_WAITS)
	{
		if (level != old_level)
		{
			yell("Moving from io level [%d] to level [%d] from [%s]", old_level, level, what);
			old_level = level;
		}
	}


	if (level && (level - last_warn == 5))
	{
		last_warn = level;
		yell("io's nesting level is [%d],  [%s]<-[%s]<-[%s]<-[%s]<-[%s]<-[%s]", level, what, caller[level-1], caller[level-2], caller[level-3], caller[level-4], caller[level-5]);
		if ((level % 30) == 0)
			ircpanic("Ahoy there matey!  Abandon ship!");
		return;
	}
	else if (level  && (last_warn -level == 5))
		last_warn -= 5;

	caller[level] = what;

	/* first time we run this function, set up the timeouts */
	if (first_time)
	{
		first_time = 0;

		/* time before cursor jumps from display area to input line */
		cursor_timeout.tv_usec = 0L;
		cursor_timeout.tv_sec = 1L;

		/*
		 * time delay for updating of internal clock
		 *
		 * Instead of looking every 15 seconds and seeing if
		 * the clock has changed, we now figure out how much
		 * time there is to the next clock change and then wait
		 * until then.  There is a small performance penalty 
		 * in actually calculating when the next minute will tick, 
		 * but that will be offset by the fact that we will only
		 * call select() once a minute instead of 4 times.
		 */
		clock_timeout.tv_usec = 0L;

		right_away.tv_usec = 0L;
		right_away.tv_sec = 1L;

		timer.tv_usec = 0L;
	}

	/* CHECK FOR CPU SAVER MODE */
	if (!cpu_saver && get_int_var(CPU_SAVER_AFTER_VAR))
		if (now - idle_time > get_int_var(CPU_SAVER_AFTER_VAR) * 60)
			cpu_saver_on(0, NULL);

	rd = readables;
	wd = writables;
	FD_ZERO(&wd);
	FD_ZERO(&rd);

	set_screens(&rd, &wd);
	set_server_bits(&rd, &wd);
	set_process_bits(&rd);
	set_socket_read(&rd, &wd);
	set_nslookupfd(&rd);

	clock_timeout.tv_sec = 60 - now % 60;
	if (cpu_saver && get_int_var(CPU_SAVER_EVERY_VAR))
		clock_timeout.tv_sec += (get_int_var(CPU_SAVER_EVERY_VAR) - 1) * 60;

	if (!timeptr)
		timeptr = &clock_timeout;
	timer.tv_sec = TimerTimeout();
	if (timer.tv_sec <= timeptr->tv_sec)
		timeptr = &timer;
#if 1
	if ((hold_over = unhold_windows()))
		timeptr = &right_away;
#endif

	/* GO AHEAD AND WAIT FOR SOME DATA TO COME IN */
	switch (new_select(&rd, &wd, timeptr))
	{
		case 0:
			break;
		case -1:
		{
			/* if we just got a sigint */
			if (cntl_c_hit)
			{
				key_pressed = 3;
				edit_char('\003');
				cntl_c_hit = 0;
			}
			else if (errno != EINTR)
				yell("Select failed with [%s]", strerror(errno));
			break;

		}

		/* we got something on one of the descriptors */
		default:
		{
			make_window_current(last_input_screen->current_window);
			do_server(&rd, &wd);
			do_processes(&rd);
			do_screens(&rd);
#ifdef WANT_CDCC
			dcc_sendfrom_queue();
#endif
			dcc_check_idle();
			print_nslookup(&rd);
			scan_sockets(&rd, &wd);
			break;
		} 
	}
	ExecuteTimers();
#ifdef WANT_TCL
	check_utimers();
#endif	
	get_child_exit(-1);

	if (!hold_over)
		cursor_to_input();
	timeptr = &clock_timeout;

	for (screen = screen_list; screen; screen = screen->next)
		if (screen->alive && is_cursor_in_display(screen))
			timeptr = &cursor_timeout;

	if (get_int_var(LLOOK_VAR) && from_server > -1 && !server_list[from_server].link_look) 
	{
		if (time(NULL) - server_list[from_server].link_look_time > get_int_var(LLOOK_DELAY_VAR)) 
		{
			server_list[from_server].link_look++;
			my_send_to_server(from_server, "LINKS");
			server_list[from_server].link_look_time = time(NULL);
		}
	}
	if (update_clock(RESET_TIME))
	{
		do_notify();
#ifdef WANT_TCL
		check_timers();
#endif
		clean_whowas_chan_list();
		clean_whowas_list();
		clean_flood_list();
		if (get_int_var(CLOCK_VAR) || check_mail_status())
		{
			update_all_status(current_window, NULL, 0);
			cursor_to_input();
		}
		check_server_connect(from_server);
	}

	/* (set in term.c) -- we should redraw the screen here */
	if (need_redraw)
		refresh_screen(0, NULL);
	
	FromUserHost = empty_string;
	
	
	alloca(0);
	caller[level] = NULL;
	level--;
	return;
}

void detachcmd(char *, char *, char *, char *);

int main(int argc, char *argv[], char *envp[])
{
	char	*channel;

	srand((unsigned)time(NULL));
	time(&start_time);
	time(&idle_time);

#if defined(__EMX__)
    setvbuf(stdout, NULL, _IOLBF, 80);
#endif

#ifdef SOCKS
	SOCKSinit(argv[0]);
#endif

#ifdef TDEBUG
	*cx_file = 0;
	cx_line = 0;
	*cx_function = 0;
#endif

#ifndef __EMX__
	printf("Process [%d]", getpid());
	if (isatty(0))
	{
		char *s;
		if ((s = ttyname(0)))
		{
			printf(" connected to tty [%s]", s);
			strncpy(attach_ttyname, s, 400);
		}		
	}
	else
		dumb_mode = 1;
	printf("\n");
#endif	

	
	channel = parse_args(argv, argc, envp);
	init_socketpath();
#ifdef WANT_DETACH
	if (reconnect && !background)
		reattach_tty(old_tty, old_pass);	
#endif
#ifdef WANT_TCL
	interp = Tcl_CreateInterp();
#endif
	ns_init();
	FD_ZERO(&readables);
	FD_ZERO(&writables);
	
	if (!dumb_mode && term_init())
		_exit(1);

	if (background)
	{
#ifdef WANT_DETACH
		detachcmd(NULL, NULL, NULL, NULL);
#else
		fprintf(stderr, "Try compiling with WANT_DETACH\r\n");
		exit(0);
#endif
	}
#ifndef BITCHX_DEBUG
	my_signal(SIGSEGV, coredump, 0);
	my_signal(SIGBUS, coredump, 0);
#endif
	my_signal(SIGQUIT, SIG_IGN, 0);
	my_signal(SIGHUP, irc_exit_old, 0);
	my_signal(SIGTERM, irc_exit_old, 0);
	my_signal(SIGPIPE, SIG_IGN, 0);
	my_signal(SIGINT, cntl_c, 0);
	my_signal(SIGCHLD, child_reap, 0);
	my_signal(SIGALRM, nothing, 0);
	my_signal(SIGUSR1, sig_user1, 0);

	if (!dumb_mode && !init_screen()) 
	{
		if (background)
		{
			use_input = 0;
			main_screen->fdin = main_screen->fdout = open("/dev/null", O_RDWR|O_NOCTTY);
			new_open(main_screen->fdin);
			main_screen->fpout = fdopen(1, "w");
			main_screen->fpin = fdopen(0, "r");
                }        
#ifndef __EMX__
		my_signal(SIGCONT, term_cont, 0);
#ifndef WINNT
		my_signal(SIGWINCH, sig_refresh_screen, 0);
#endif
#endif
        }   
	else
	{
		if (background)
		{
			my_signal(SIGHUP, SIG_IGN, 0);
			background = 0;
#ifndef WANT_DETACH
			term_reset();
			fprintf(stderr, "try recompiling the client with WANT_DETACH defined\r\n");
			exit(0);
			use_input = 0;
#endif
		}
		create_new_screen();
		new_window(main_screen);
	}

	init_keys_1();
	init_variables();
	if (!dumb_mode)
	{
		build_status(current_window, NULL, 0);
		update_input(UPDATE_ALL);
	}

#if defined(WINNT) || defined(__EMX__)
	start_identd();
#endif

#ifdef WANT_TCL
	tcl_init();
#ifdef WANT_TK
	Tk_Init(interp);
#endif
	add_tcl_vars();
#endif

#ifdef CLOAKED
	initsetproctitle(argc, argv, envp);
	sprintf(proctitlestr, CLOAKED);
	setproctitle("%s", proctitlestr);
#endif


	display_bitchx(-1);
	if (bflag)
		load_scripts();

	reinit_autoresponse(current_window, NULL, 0);
	start_memdebug();	
	if (auto_connect)
	{
		get_connected(0, -1);
		if (channel)
		{
			set_current_channel_by_refnum(0, channel);
			add_channel(channel, primary_server, 0);
			new_free(&channel);
			xterm_settitle();
		}
	} else
		display_server_list();
		
	set_input(empty_string);

	get_line(NULL, -1, send_line);
#ifdef __EMXPM__
	avio_exit();
#else
	ircpanic("get_line() returned");
#endif
	return (-((int)0xdead));
}