diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-08-19 12:15:00 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-08-19 12:15:00 +0200 |
| commit | 14fb45c2d47095381da6df8d5b5e151319d404ef (patch) | |
| tree | ca28cd3894593493f1ac78146a5941b4108043fa | |
| parent | 124fac537f3b06091eb2d5a6752acaaaa3c64187 (diff) | |
Support disabling XMPP support.
| -rw-r--r-- | resources/config.sexp.sample | 3 | ||||
| -rw-r--r-- | src/mulk/benki/xmpp.clj | 10 |
2 files changed, 8 insertions, 5 deletions
diff --git a/resources/config.sexp.sample b/resources/config.sexp.sample index 0e0d98a..5f3f696 100644 --- a/resources/config.sexp.sample +++ b/resources/config.sexp.sample @@ -11,7 +11,8 @@ :tag-base "example.com" :web-port 3001 :mode :production ;or :dev - :xmpp {:user "benki" + :xmpp {:enabled true ;will be assumed true if absent + :user "benki" :service-name "example.com" :server "jabber.example.com" :port 5222 diff --git a/src/mulk/benki/xmpp.clj b/src/mulk/benki/xmpp.clj index c23f613..77a37e4 100644 --- a/src/mulk/benki/xmpp.clj +++ b/src/mulk/benki/xmpp.clj @@ -90,7 +90,9 @@ (enqueue messages-in {:sender (.getParticipant chat) :body body})))))))))))) (defn init-xmpp! [] - (future - (reconnect!) - (handle-incoming-chats) - (startup-client))) + (when-let [xmpp-config (get @benki-config :xmpp)] + (when (get xmpp-config :enabled true) + (future + (reconnect!) + (handle-incoming-chats) + (startup-client))))) |