diff options
| author | Julien Dessaux | 2012-02-26 14:15:49 +0100 |
|---|---|---|
| committer | Julien Dessaux | 2012-02-26 14:15:49 +0100 |
| commit | c74d199047825b737cb00ca83360f9d410af6a75 (patch) | |
| tree | a47fb6350bdbbae1586124d293ffcdab83534f02 /Hsbot/Core.hs | |
| parent | Updated for the latest acidstate api. (diff) | |
| download | hsbot-c74d199047825b737cb00ca83360f9d410af6a75.tar.gz hsbot-c74d199047825b737cb00ca83360f9d410af6a75.tar.bz2 hsbot-c74d199047825b737cb00ca83360f9d410af6a75.zip | |
Added support for IRC server password
Diffstat (limited to 'Hsbot/Core.hs')
| -rw-r--r-- | Hsbot/Core.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Hsbot/Core.hs b/Hsbot/Core.hs index 89f4471..1668f62 100644 --- a/Hsbot/Core.hs +++ b/Hsbot/Core.hs @@ -70,6 +70,9 @@ runHsbot die_msgs = do config = envConfig env nickname = head $ configNicknames config channels = configChannels config + case configPassword config of + Just pass -> liftIO . sendStr env connhdl tlsCtx . IRC.encode $ IRC.Message Nothing "PASS" [pass] + Nothing -> return () liftIO . sendStr env connhdl tlsCtx . IRC.encode $ IRC.nick nickname liftIO . sendStr env connhdl tlsCtx . IRC.encode $ IRC.user nickname hostname "*" (configRealname config) -- Then we join channels |