module Main where

import Debug.Trace

import Network

import System (getArgs)

import System.Console.GetOpt

import Server

defaultPort = 9000

main = do

args <- getArgs

let (flags, nonOpts, msgs) = getOpt Permute options args

if null flags

then trace ("Starting server on default port (" ++ (show defaultPort) ++ ").") $ server (PortNumber (fromIntegral defaultPort))

else server (head flags)

options :: [OptDescr PortID]

options = [ Option ['p'] ["port"]

(ReqArg makePortNumber "port number")

"server port number" ]

makePortNumber :: String -> PortID

makePortNumber s =

case reads s :: [(Int, String)] of

(p, _):rest -> trace ("Starting server on port " ++ (show p)) $ PortNumber (fromIntegral p)

otherwise -> trace ("Error parsing port. Starting server on default port (" ++ (show defaultPort) ++ ").") $ PortNumber (fromIntegral defaultPort)