From 4627a4647018fa8d5c2fa4ec60971497583f8606 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 23 Sep 2014 23:46:01 +0200
Subject: [PATCH] services: Add 'bitlbee-service'.

* gnu/services/networking.scm (bitlbee-service): New procedure.
* doc/guix.texi (Networking Services): Document it.
---
 doc/guix.texi               | 17 ++++++++++++++-
 gnu/services/networking.scm | 43 ++++++++++++++++++++++++++++++++++++-
 2 files changed, 58 insertions(+), 2 deletions(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index 51884c3c6f..a63602162d 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -3532,7 +3532,22 @@ The daemon runs with the default settings (in particular the default exit
 policy) as the @code{tor} unprivileged user.
 @end deffn
 
-In addition, @code{(gnu system ssh)} provides the following service.
+@deffn {Monadic Procedure} bitlbee-service [#:bitlbee bitlbee] @
+         [#:interface "127.0.0.1"] [#:port 6667] @
+         [#:extra-settings ""]
+Return a service that runs @url{http://bitlbee.org,BitlBee}, a daemon that
+acts as a gateway between IRC and chat networks.
+
+The daemon will listen to the interface corresponding to the IP address
+specified in @var{interface}, on @var{port}.  @code{127.0.0.1} means that only
+local clients can connect, whereas @code{0.0.0.0} means that connections can
+come from any networking interface.
+
+In addition, @var{extra-settings} specifies a string to append to the
+configuration file.
+@end deffn
+
+Furthermore, @code{(gnu system ssh)} provides the following service.
 
 @deffn {Monadic Procedure} lsh-service [#:host-key "/etc/lsh/host-key"] @
        [#:interfaces '()] [#:port-number 22] @
diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm
index d532fc8d99..44e3c303de 100644
--- a/gnu/services/networking.scm
+++ b/gnu/services/networking.scm
@@ -22,11 +22,13 @@ (define-module (gnu services networking)
   #:use-module (gnu packages admin)
   #:use-module (gnu packages linux)
   #:use-module (gnu packages tor)
+  #:use-module (gnu packages messaging)
   #:use-module (guix gexp)
   #:use-module (guix monads)
   #:export (static-networking-service
             dhcp-client-service
-            tor-service))
+            tor-service
+            bitlbee-service))
 
 ;;; Commentary:
 ;;;
@@ -166,4 +168,43 @@ (define* (tor-service #:key (tor tor))
 
       (documentation "Run the Tor anonymous network overlay.")))))
 
+(define* (bitlbee-service #:key (bitlbee bitlbee)
+                          (interface "127.0.0.1") (port 6667)
+                          (extra-settings ""))
+  "Return a service that runs @url{http://bitlbee.org,BitlBee}, a daemon that
+acts as a gateway between IRC and chat networks.
+
+The daemon will listen to the interface corresponding to the IP address
+specified in @var{interface}, on @var{port}.  @code{127.0.0.1} means that only
+local clients can connect, whereas @code{0.0.0.0} means that connections can
+come from any networking interface.
+
+In addition, @var{extra-settings} specifies a string to append to the
+configuration file."
+  (mlet %store-monad ((conf (text-file "bitlbee.conf"
+                                       (string-append "
+  [settings]
+  User = bitlbee
+  ConfigDir = /var/lib/bitlbee
+  DaemonInterface = " interface "
+  DaemonPort = " (number->string port) "
+" extra-settings))))
+    (return
+     (service
+      (provision '(bitlbee))
+      (requirement '(user-processes loopback))
+      (start #~(make-forkexec-constructor
+                (list (string-append #$bitlbee "/sbin/bitlbee")
+                      "-n" "-F" "-u" "bitlbee" "-c" #$conf)))
+      (stop  #~(make-kill-destructor))
+      (user-groups   (list (user-group (name "bitlbee") (system? #t))))
+      (user-accounts (list (user-account
+                            (name "bitlbee")
+                            (group "bitlbee")
+                            (system? #t)
+                            (comment "BitlBee daemon user")
+                            (home-directory "/var/empty")
+                            (shell #~(string-append #$shadow
+                                                    "/sbin/nologin")))))))))
+
 ;;; networking.scm ends here