23 lines
536 B
Haskell
23 lines
536 B
Haskell
module Network.IRC.Main(main) where
|
|
|
|
import System.Environment
|
|
import System.Exit
|
|
|
|
import Network.IRC.Types
|
|
import Network.IRC.Client
|
|
|
|
main :: IO ()
|
|
main = do
|
|
args <- getArgs
|
|
prog <- getProgName
|
|
|
|
let server = args !! 0
|
|
let port = read (args !! 1)
|
|
let channel = args !! 2
|
|
let botNick = args !! 3
|
|
let handlers = ["greeter", "welcomer"]
|
|
|
|
if length args < 4
|
|
then putStrLn ("Usage: " ++ prog ++ " <server> <port> <channel> <nick>") >> exitFailure
|
|
else run $ BotConfig server port channel botNick 120 handlers
|