{-# LANGUAGE CPP, ScopedTypeVariables, PatternSignatures #-}

module Main where

import Network.Socket

import qualified Network

import Control.Concurrent.STM

import Control.Concurrent.Chan

import Control.Exception

import System.Log.Logger

-----------------------------------

import Opts

import CoreTypes

import OfficialServer.DBInteraction

import ServerCore

#if !defined(mingw32_HOST_OS)

import System.Posix

#endif

setupLoggers =

	updateGlobalLogger "Clients"

		(setLevel DEBUG)

main = withSocketsDo $ do

#if !defined(mingw32_HOST_OS)

	installHandler sigPIPE Ignore Nothing;

#endif

	setupLoggers

	stats <- atomically $ newTMVar (StatisticsInfo 0 0)

	dbQueriesChan <- newChan

	coreChan <- newChan

	serverInfo <- getOpts $ newServerInfo stats coreChan dbQueriesChan

	bracket

		(Network.listenOn $ Network.PortNumber $ listenPort serverInfo)

		(sClose)

		(startServer serverInfo)