/*
 * ngIRCd -- The Next Generation IRC Daemon
 * Copyright (c)2001,2002 by Alexander Barton (alex@barton.de)
 *
 * Dieses Programm ist freie Software. Sie koennen es unter den Bedingungen
 * der GNU General Public License (GPL), wie von der Free Software Foundation
 * herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2
 * der Lizenz oder (wenn Sie es wuenschen) jeder spaeteren Version.
 * Naehere Informationen entnehmen Sie bitter der Datei COPYING. Eine Liste
 * der an ngIRCd beteiligten Autoren finden Sie in der Datei AUTHORS.
 *
 * $Id: ngircd.c,v 1.29 2002/03/06 15:36:04 alex Exp $
 *
 * ngircd.c: Hier beginnt alles ;-)
 *
 * $Log: ngircd.c,v $
 * Revision 1.29  2002/03/06 15:36:04  alex
 * - stderr wird nun in eine Datei umgelenkt (ngircd.err). Wenn der Server
 *   nicht im Debug-Modus laeuft, so wird diese bei Programmende geloescht.
 *
 * Revision 1.28  2002/02/27 23:24:29  alex
 * - ueberfluessige Init- und Exit-Funktionen entfernt.
 *
 * Revision 1.27  2002/02/25 11:42:47  alex
 * - wenn ein System sigaction() nicht kennt, so wird nun signal() verwendet.
 *
 * Revision 1.26  2002/02/23 19:06:47  alex
 * - fuer SIGCHLD wird nun auch SA_NOCLDWAIT gesetzt, wenn vorhanden.
 *
 * Revision 1.25  2002/02/19 20:30:47  alex
 * - SA_RESTART wird fuer Signale nur noch gesetzt, wenn es definiert ist.
 *
 * Revision 1.24  2002/02/19 20:08:24  alex
 * - "Passive-Mode" implementiert: kein Auto-Conect zu anderen Servern.
 * - NGIRCd_DebugLevel wird (fuer VERSION-Befehl) ermittelt.
 *
 * Revision 1.23  2002/02/17 23:40:21  alex
 * - neue Funktion NGIRCd_VersionAddition(). NGIRCd_Version() aufgespaltet.
 *
 * Revision 1.22  2002/01/22 17:15:39  alex
 * - die Fehlermeldung "interrupted system call" sollte nicht mehr auftreten.
 *
 * Revision 1.21  2002/01/21 00:02:11  alex
 * - Hilfetexte korrigiert und ergaenzt (Sniffer).
 *
 * Revision 1.20  2002/01/18 11:12:11  alex
 * - der Sniffer wird nun nur noch aktiviert, wenn auf Kommandozeile angegeben.
 *
 * Revision 1.19  2002/01/12 00:17:28  alex
 * - ngIRCd wandelt sich nun selber in einen Daemon (Hintergrundprozess) um.
 *
 * Revision 1.18  2002/01/11 14:45:18  alex
 * - Kommandozeilen-Parser implementiert: Debug- und No-Daemon-Modus, Hilfe.
 *
 * Revision 1.17  2002/01/02 02:51:16  alex
 * - Signal-Handler fuer SIGCHLD: so sollten Zombies nicht mehr vorkommen.
 *
 * Revision 1.15  2001/12/31 02:18:51  alex
 * - viele neue Befehle (WHOIS, ISON, OPER, DIE, RESTART),
 * - neuen Header "defines.h" mit (fast) allen Konstanten.
 * - Code Cleanups und viele "kleine" Aenderungen & Bugfixes.
 *
 * Revision 1.14  2001/12/30 19:26:12  alex
 * - Unterstuetzung fuer die Konfigurationsdatei eingebaut.
 *
 * Revision 1.13  2001/12/30 11:42:00  alex
 * - der Server meldet nun eine ordentliche "Start-Zeit".
 *
 * Revision 1.12  2001/12/29 03:07:36  alex
 * - einige Loglevel geaendert.
 *
 * Revision 1.11  2001/12/26 14:45:37  alex
 * - "Code Cleanups".
 *
 * Revision 1.10  2001/12/24 01:34:38  alex
 * - Signal-Handler aufgeraeumt; u.a. SIGPIPE wird nun korrekt ignoriert.
 *
 * Revision 1.9  2001/12/21 22:24:50  alex
 * - neues Modul "parse" wird initialisiert und abgemeldet.
 *
 * Revision 1.8  2001/12/14 08:15:26  alex
 * - neue Module (irc, client, channel) werden an- und abgemeldet.
 * - zweiter Listen-Socket wird zu Testzwecken konfiguriert.
 *
 * Revision 1.7  2001/12/13 01:31:46  alex
 * - Conn_Handler() wird nun mit einem Timeout aufgerufen.
 *
 * Revision 1.6  2001/12/12 23:30:42  alex
 * - Log-Meldungen an syslog angepasst.
 * - NGIRCd_Quit ist nun das Flag zum Beenden des ngircd.
 *
 * Revision 1.5  2001/12/12 17:21:21  alex
 * - mehr Unterfunktionen eingebaut, Modul besser strukturiert & dokumentiert.
 * - Anpassungen an neue Module.
 *
 * Revision 1.4  2001/12/12 01:58:53  alex
 * - Test auf socklen_t verbessert.
 *
 * Revision 1.3  2001/12/12 01:40:39  alex
 * - ein paar mehr Kommentare; Variablennamen verstaendlicher gemacht.
 * - fehlenden Header <arpa/inet.h> ergaenz.
 * - SIGINT und SIGQUIT werden nun ebenfalls behandelt.
 *
 * Revision 1.2  2001/12/11 22:04:21  alex
 * - Test auf stdint.h (HAVE_STDINT_H) hinzugefuegt.
 *
 * Revision 1.1.1.1  2001/12/11 21:53:04  alex
 * - Imported sources to CVS.
 */


#define PORTAB_CHECK_TYPES		/* Prueffunktion einbinden, s.u. */


#include <portab.h>
#include "global.h"

#include <imp.h>

#include <assert.h>
#include <errno.h>
#include <stdio.h>
#include <signal.h>
#include <string.h>
#include <unistd.h>
#include <sys/types.h>
#include <sys/wait.h>
#include <time.h>

#include "channel.h"
#include "client.h"
#include "conf.h"
#include "conn.h"
#include "irc.h"
#include "log.h"
#include "parse.h"

#include <exp.h>
#include "ngircd.h"


LOCAL VOID Initialize_Signal_Handler( VOID );
LOCAL VOID Signal_Handler( INT Signal );

LOCAL VOID Initialize_Listen_Ports( VOID );

LOCAL VOID Show_Version( VOID );
LOCAL VOID Show_Help( VOID );


GLOBAL INT main( INT argc, CONST CHAR *argv[] )
{
	BOOLEAN ok;
	INT pid, i, n;

	/* Datentypen der portab-Library ueberpruefen */
	portab_check_types( );

	NGIRCd_Restart = FALSE;
	NGIRCd_Quit = FALSE;
	NGIRCd_NoDaemon = FALSE;
	NGIRCd_Passive = FALSE;
#ifdef DEBUG
	NGIRCd_Debug = FALSE;
#endif
#ifdef SNIFFER
	NGIRCd_Sniffer = FALSE;
#endif

	/* Kommandozeile parsen */
	for( i = 1; i < argc; i++ )
	{
		ok = FALSE;
		if(( argv[i][0] == '-' ) && ( argv[i][1] == '-' ))
		{
			/* Lange Option */

#ifdef DEBUG
			if( strcmp( argv[i], "--debug" ) == 0 )
			{
				NGIRCd_Debug = TRUE;
				ok = TRUE;
			}
#endif
			if( strcmp( argv[i], "--help" ) == 0 )
			{
				Show_Version( ); puts( "" );
				Show_Help( ); puts( "" );
				exit( 1 );
			}
			if( strcmp( argv[i], "--nodaemon" ) == 0 )
			{
				NGIRCd_NoDaemon = TRUE;
				ok = TRUE;
			}
			if( strcmp( argv[i], "--passive" ) == 0 )
			{
				NGIRCd_Passive = TRUE;
				ok = TRUE;
			}
#ifdef SNIFFER
			if( strcmp( argv[i], "--sniffer" ) == 0 )
			{
				NGIRCd_Sniffer = TRUE;
				ok = TRUE;
			}
#endif
			if( strcmp( argv[i], "--version" ) == 0 )
			{
				Show_Version( );
				exit( 1 );
			}
		}
		else if(( argv[i][0] == '-' ) && ( argv[i][1] != '-' ))
		{
			/* Kurze Option */
			
			for( n = 1; n < strlen( argv[i] ); n++ )
			{
				ok = FALSE;
#ifdef DEBUG
				if( argv[i][n] == 'd' )
				{
					NGIRCd_Debug = TRUE;
					ok = TRUE;
				}
#endif
				if( argv[i][n] == 'n' )
				{
					NGIRCd_NoDaemon = TRUE;
					ok = TRUE;
				}
				if( argv[i][n] == 'p' )
				{
					NGIRCd_Passive = TRUE;
					ok = TRUE;
				}
#ifdef SNIFFER
				if( argv[i][n] == 's' )
				{
					NGIRCd_Sniffer = TRUE;
					ok = TRUE;
				}
#endif

				if( ! ok )
				{
					printf( PACKAGE": invalid option \"-%c\"!\n", argv[i][n] );
					puts( "Try \""PACKAGE" --help\" for more information." );
					exit( 1 );
				}
			}

		}
		if( ! ok )
		{
			printf( PACKAGE": invalid option \"%s\"!\n", argv[i] );
			puts( "Try \""PACKAGE" --help\" for more information." );
			exit( 1 );
		}
	}

	/* Debug-Level (fuer IRC-Befehl "VERSION") ermitteln */
	strcpy( NGIRCd_DebugLevel, "" );
#ifdef DEBUG
	if( NGIRCd_Debug ) strcpy( NGIRCd_DebugLevel, "1" );
#endif
#ifdef SNIFFER
	if( NGIRCd_Sniffer ) strcpy( NGIRCd_DebugLevel, "2" );
#endif
	
	while( ! NGIRCd_Quit )
	{
		/* In der Regel wird ein Sub-Prozess ge-fork()'t, der
		 * nicht mehr mit dem Terminal verbunden ist. Mit der
		 * Option "--nodaemon" kann dies (z.B. zum Debuggen)
		 * verhindert werden. */
		if( ! NGIRCd_NoDaemon )
		{
			/* Daemon im Hintergrund erzeugen */
			pid = fork( );
			if( pid > 0 )
			{
				/* "alter" Prozess */
				exit( 0 );
			}
			if( pid < 0 )
			{
				/* Fehler */
				printf( PACKAGE": Can't fork: %s!\nFatal error, exiting now ...", strerror( errno ));
				exit( 1 );
			}

			/* Child-Prozess initialisieren */
			setsid( );
			chdir( "/" );
		}
	
		/* Globale Variablen initialisieren */
		NGIRCd_Start = time( NULL );
		strftime( NGIRCd_StartStr, 64, "%a %b %d %Y at %H:%M:%S (%Z)", localtime( &NGIRCd_Start ));
		NGIRCd_Restart = FALSE;
		NGIRCd_Quit = FALSE;

		/* Module initialisieren */
		Log_Init( );
		Conf_Init( );
		Channel_Init( );
		Client_Init( );
		Conn_Init( );

		/* Signal-Handler initialisieren */
		Initialize_Signal_Handler( );

		/* Listen-Ports initialisieren */
		Initialize_Listen_Ports( );

		/* Hauptschleife */
		while( TRUE )
		{
			if( NGIRCd_Quit || NGIRCd_Restart ) break;
			Conn_Handler( 5 );
		}

		/* Alles abmelden */
		Conn_Exit( );
		Client_Exit( );
		Channel_Exit( );
		Conf_Exit( );
		Log_Exit( );
	}

#ifndef DEBUG
	/* aufraeumen */
	if( unlink( ERROR_FILE ) != 0 ) Log( LOG_ERR, "Can't delete \""ERROR_FILE"\": %s", strerror( errno ));
#endif

	return 0;
} /* main */


GLOBAL CHAR *NGIRCd_Version( VOID )
{
	STATIC CHAR version[126];

	sprintf( version, PACKAGE" version "VERSION"-%s", NGIRCd_VersionAddition( ));
	return version;
} /* NGIRCd_Version */


GLOBAL CHAR *NGIRCd_VersionAddition( VOID )
{
	STATIC CHAR txt[64];

	strcpy( txt, "" );

#ifdef USE_SYSLOG
	if( txt[0] ) strcat( txt, "+" );
	strcat( txt, "SYSLOG" );
#endif
#ifdef STRICT_RFC
	if( txt[0] ) strcat( txt, "+" );
	strcat( txt, "RFC" );
#endif
#ifdef DEBUG
	if( txt[0] ) strcat( txt, "+" );
	strcat( txt, "DEBUG" );
#endif
#ifdef SNIFFER
	if( txt[0] ) strcat( txt, "+" );
	strcat( txt, "SNIFFER" );
#endif

	if( txt[0] ) strcat( txt, "-" );
	strcat( txt, P_OSNAME"/"P_ARCHNAME );

	return txt;
} /* NGIRCd_VersionAddition */


LOCAL VOID Initialize_Signal_Handler( VOID )
{
	/* Signal-Handler initialisieren: einige Signale
	 * werden ignoriert, andere speziell behandelt. */

#ifdef HAVE_SIGACTION
	/* sigaction() ist vorhanden */

	struct sigaction saction;

	/* Signal-Struktur initialisieren */
	memset( &saction, 0, sizeof( saction ));
	saction.sa_handler = Signal_Handler;
#ifdef SA_RESTART
	saction.sa_flags |= SA_RESTART;
#endif
#ifdef SA_NOCLDWAIT
	saction.sa_flags |= SA_NOCLDWAIT;
#endif

	/* Signal-Handler einhaengen */
	sigaction( SIGINT, &saction, NULL );
	sigaction( SIGQUIT, &saction, NULL );
	sigaction( SIGTERM, &saction, NULL);
	sigaction( SIGHUP, &saction, NULL);
	sigaction( SIGCHLD, &saction, NULL);

	/* einige Signale ignorieren */
	saction.sa_handler = SIG_IGN;
	sigaction( SIGPIPE, &saction, NULL );
#else
	/* kein sigaction() vorhanden */

	/* Signal-Handler einhaengen */
	signal( SIGINT, Signal_Handler );
	signal( SIGQUIT, Signal_Handler );
	signal( SIGTERM, Signal_Handler );
	signal( SIGHUP, Signal_Handler );
	signal( SIGCHLD, Signal_Handler );

	/* einige Signale ignorieren */
	signal( SIGPIPE, SIG_IGN );
#endif
} /* Initialize_Signal_Handler */


LOCAL VOID Signal_Handler( INT Signal )
{
	/* Signal-Handler. Dieser wird aufgerufen, wenn eines der Signale eintrifft,
	 * fuer das wir uns registriert haben (vgl. Initialize_Signal_Handler). Die
	 * Nummer des eingetroffenen Signals wird der Funktion uebergeben. */

	switch( Signal )
	{
		case SIGTERM:
		case SIGINT:
		case SIGQUIT:
			/* wir soll(t)en uns wohl beenden ... */
			if( Signal == SIGTERM ) Log( LOG_WARNING, "Got TERM signal, terminating now ..." );
			else if( Signal == SIGINT ) Log( LOG_WARNING, "Got INT signal, terminating now ..." );
			else if( Signal == SIGQUIT ) Log( LOG_WARNING, "Got QUIT signal, terminating now ..." );
			NGIRCd_Quit = TRUE;
			break;
		case SIGHUP:
			/* neu starten */
			Log( LOG_WARNING, "Got HUP signal, restarting now ..." );
			NGIRCd_Restart = TRUE;
			break;
		case SIGCHLD:
			/* Child-Prozess wurde beendet. Zombies vermeiden: */
			while( waitpid( -1, NULL, WNOHANG ) > 0);
			break;
		default:
			/* unbekanntes bzw. unbehandeltes Signal */
			Log( LOG_NOTICE, "Got signal %d! Ignored.", Signal );
	}
} /* Signal_Handler */


LOCAL VOID Initialize_Listen_Ports( VOID )
{
	/* Ports, auf denen der Server Verbindungen entgegennehmen
	 * soll, initialisieren */
	
	INT created, i;

	created = 0;
	for( i = 0; i < Conf_ListenPorts_Count; i++ )
	{
		if( Conn_NewListener( Conf_ListenPorts[i] )) created++;
		else Log( LOG_ERR, "Can't listen on port %d!", Conf_ListenPorts[i] );
	}

	if( created < 1 )
	{
		Log( LOG_ALERT, "Server isn't listening on a single port!" );
		Log( LOG_ALERT, PACKAGE" exiting due to fatal errors!" );
		exit( 1 );
	}
} /* Initialize_Listen_Ports */


LOCAL VOID Show_Version( VOID )
{
	puts( NGIRCd_Version( ));
	puts( "Copyright (c)2001,2002 by Alexander Barton (alex@barton.de).\n" );
	puts( "This is free software; see the source for copying conditions. There is NO" );
	puts( "warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." );
} /* Show_Version */


LOCAL VOID Show_Help( VOID )
{
#ifdef DEBUG
	puts( "  -d, --debug       log extra debug messages" );
#endif
        puts( "  -n, --nodaemon    don't fork and don't detatch from controlling terminal" );
        puts( "  -p, --passive     disable automatic connections to other servers" );
#ifdef SNIFFER
	puts( "  -s, --sniffer     enable network sniffer and display all IRC traffic" );
#endif
 	puts( "      --version     output version information and exit" );
	puts( "      --help        display this help and exit" );
} /* Show_Help */


/* -eof- */