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

module Main where

import Network.Socket

import Network.BSD

import Control.Concurrent.Chan

import System.Log.Logger

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

import Opts

import CoreTypes

import ServerCore

#if defined(OFFICIAL_SERVER)

import Utils

#endif

#if !defined(mingw32_HOST_OS)

import System.Posix

#endif

setupLoggers :: IO ()

setupLoggers =

    updateGlobalLogger "Clients"

        (setLevel INFO)

main :: IO ()

main = withSocketsDo $ do

#if !defined(mingw32_HOST_OS)

    _ <- installHandler sigPIPE Ignore Nothing

    _ <- installHandler sigCHLD Ignore Nothing

#endif

    setupLoggers

    dbQueriesChan <- newChan

    coreChan' <- newChan

    serverInfo' <- getOpts $ newServerInfo coreChan' dbQueriesChan

#if defined(OFFICIAL_SERVER)

    dbHost' <- askFromConsole "DB host: "

    dbLogin' <- askFromConsole "login: "

    dbPassword' <- askFromConsole "password: "

#else

#endif