Hadcc.hs

--- |
--- | Main module, startup code
--- |
--- Copyright   : (c) Florian Richter 2011
--- License     : GPL
---

import Control.Concurrent
import System.Log.Logger
import System.Log.Handler.Simple
import Config
import Filelist
import FilelistTypes
import Filemgmt
import TTH
import DCCommon
import DCToHub
import DCToClient
import Filesystem
import FilesystemHandler

-- | all threads must be started after fuse loading
start appState = do
    let config = appConfig appState
    searchSocket <- createSearchSocket
    forkIO $ startDCServer (configMyIp config) (configMyPort config) (ToClient Nothing DontKnow)
                           (startupClient appState) (handleClient appState) (stopClient appState)
    forkIO $ openDCConnection (configHubIp config) (configHubPort config) ToHub
                              (startupHub appState) (handleHub appState searchSocket) (\state -> return ())
    forkIO $ hashFileList appState
    return ()
    
stop appState = return ()

main = do
    config <- loadConfig "Hadcc.cfg"
    appState <- newAppState config
    initTTHCache appState
    loadOwnShare appState
    --withMVar (appFileTree appState) (\tree -> putStrLn $ treeNodeToXml tree)
    --withMVar (appFileTree appState) (\tree -> putStrLn $ treeNodeToXml tree)
    startupFileSystem (configMountpoint config) (start appState) (stop appState) (dcFileInfo appState)

-- vim: sw=4 expandtab