2017-01-08 14:08:14 -05:00
|
|
|
|
;;; GNU Guix --- Functional package management for GNU
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
;;; Copyright © 2017, 2018 Clément Lassieur <clement@lassieur.org>
|
2017-03-24 06:00:13 -04:00
|
|
|
|
;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
|
2022-04-16 13:17:57 -04:00
|
|
|
|
;;; Copyright © 2015, 2017-2020, 2022 Ludovic Courtès <ludo@gnu.org>
|
2018-05-10 10:37:58 -04:00
|
|
|
|
;;; Copyright © 2018 Pierre-Antoine Rouby <contact@parouby.fr>
|
2017-01-08 14:08:14 -05:00
|
|
|
|
;;;
|
|
|
|
|
;;; This file is part of GNU Guix.
|
|
|
|
|
;;;
|
|
|
|
|
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
|
|
|
|
;;; under the terms of the GNU General Public License as published by
|
|
|
|
|
;;; the Free Software Foundation; either version 3 of the License, or (at
|
|
|
|
|
;;; your option) any later version.
|
|
|
|
|
;;;
|
|
|
|
|
;;; GNU Guix is distributed in the hope that it will be useful, but
|
|
|
|
|
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
;;; GNU General Public License for more details.
|
|
|
|
|
;;;
|
|
|
|
|
;;; You should have received a copy of the GNU General Public License
|
|
|
|
|
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
|
|
|
|
|
|
(define-module (gnu services messaging)
|
|
|
|
|
#:use-module (gnu packages admin)
|
2022-06-03 17:49:02 -04:00
|
|
|
|
#:use-module (gnu packages base)
|
2018-12-12 03:15:08 -05:00
|
|
|
|
#:use-module (gnu packages irc)
|
2022-06-03 17:49:02 -04:00
|
|
|
|
#:use-module (gnu packages messaging)
|
2018-12-12 03:15:08 -05:00
|
|
|
|
#:use-module (gnu packages tls)
|
2017-01-08 14:08:14 -05:00
|
|
|
|
#:use-module (gnu services)
|
|
|
|
|
#:use-module (gnu services shepherd)
|
|
|
|
|
#:use-module (gnu services configuration)
|
|
|
|
|
#:use-module (gnu system shadow)
|
2022-04-16 13:17:57 -04:00
|
|
|
|
#:autoload (gnu build linux-container) (%namespaces)
|
|
|
|
|
#:use-module ((gnu system file-systems) #:select (file-system-mapping))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
#:use-module (guix gexp)
|
2018-01-15 16:04:55 -05:00
|
|
|
|
#:use-module (guix modules)
|
2017-01-08 14:08:14 -05:00
|
|
|
|
#:use-module (guix records)
|
|
|
|
|
#:use-module (guix packages)
|
2019-01-10 08:50:09 -05:00
|
|
|
|
#:use-module (guix deprecation)
|
2022-04-16 13:17:57 -04:00
|
|
|
|
#:use-module (guix least-authority)
|
2017-01-08 14:08:14 -05:00
|
|
|
|
#:use-module (srfi srfi-1)
|
|
|
|
|
#:use-module (srfi srfi-35)
|
|
|
|
|
#:use-module (ice-9 match)
|
|
|
|
|
#:export (prosody-service-type
|
|
|
|
|
prosody-configuration
|
|
|
|
|
opaque-prosody-configuration
|
|
|
|
|
|
|
|
|
|
virtualhost-configuration
|
|
|
|
|
int-component-configuration
|
|
|
|
|
ext-component-configuration
|
|
|
|
|
|
|
|
|
|
mod-muc-configuration
|
|
|
|
|
ssl-configuration
|
|
|
|
|
|
2017-02-10 13:17:22 -05:00
|
|
|
|
%default-modules-enabled
|
2018-01-15 16:04:55 -05:00
|
|
|
|
prosody-configuration-pidfile
|
|
|
|
|
|
|
|
|
|
bitlbee-configuration
|
|
|
|
|
bitlbee-configuration?
|
2018-12-12 03:15:08 -05:00
|
|
|
|
bitlbee-service-type
|
|
|
|
|
|
|
|
|
|
quassel-configuration
|
|
|
|
|
quassel-service-type))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
;;;
|
|
|
|
|
;;; Messaging services.
|
|
|
|
|
;;;
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
|
|
(define-syntax define-all-configurations
|
|
|
|
|
(lambda (stx)
|
2017-03-24 06:00:13 -04:00
|
|
|
|
(define-syntax-rule (id ctx parts ...)
|
|
|
|
|
"Assemble PARTS into a raw (unhygienic) identifier."
|
|
|
|
|
(datum->syntax ctx (symbol-append (syntax->datum parts) ...)))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
(define (make-pred arg)
|
|
|
|
|
(lambda (field target)
|
|
|
|
|
(and (memq (syntax->datum target) `(common ,arg)) field)))
|
|
|
|
|
(syntax-case stx ()
|
2022-05-17 07:39:28 -04:00
|
|
|
|
;; TODO Also handle (field-type) form, without a default.
|
2017-01-08 14:08:14 -05:00
|
|
|
|
((_ stem (field (field-type def) doc target) ...)
|
|
|
|
|
(with-syntax (((new-field-type ...)
|
|
|
|
|
(map (lambda (field-type target)
|
|
|
|
|
(if (and (eq? 'common (syntax->datum target))
|
|
|
|
|
(not (string-prefix?
|
|
|
|
|
"maybe-"
|
|
|
|
|
(symbol->string
|
|
|
|
|
(syntax->datum field-type)))))
|
|
|
|
|
(id #'stem #'maybe- field-type) field-type))
|
|
|
|
|
#'(field-type ...) #'(target ...)))
|
|
|
|
|
((new-def ...)
|
|
|
|
|
(map (lambda (def target)
|
|
|
|
|
(if (eq? 'common (syntax->datum target))
|
2022-08-24 08:40:41 -04:00
|
|
|
|
;; TODO Use the %unset-value variable, or
|
|
|
|
|
;; even better just simplify this so that it
|
|
|
|
|
;; doesn't interfere with
|
|
|
|
|
;; define-configuration and define-maybe
|
|
|
|
|
;; internals.
|
2022-07-27 15:18:51 -04:00
|
|
|
|
#''unset def))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
#'(def ...) #'(target ...)))
|
|
|
|
|
((new-doc ...)
|
|
|
|
|
(map (lambda (doc target)
|
|
|
|
|
(if (eq? 'common (syntax->datum target))
|
|
|
|
|
"" doc))
|
|
|
|
|
#'(doc ...) #'(target ...))))
|
|
|
|
|
#`(begin
|
2017-03-08 08:04:52 -05:00
|
|
|
|
(define #,(id #'stem #'common-fields)
|
2017-01-08 14:08:14 -05:00
|
|
|
|
'(#,@(filter-map (make-pred #f) #'(field ...) #'(target ...))))
|
2017-03-08 08:04:52 -05:00
|
|
|
|
(define-configuration #,(id #'stem #'prosody-configuration)
|
2017-01-08 14:08:14 -05:00
|
|
|
|
#,@(filter-map (make-pred 'global)
|
|
|
|
|
#'((field (field-type def) doc) ...)
|
|
|
|
|
#'(target ...)))
|
2017-03-08 08:04:52 -05:00
|
|
|
|
(define-configuration #,(id #'stem #'virtualhost-configuration)
|
2017-01-08 14:08:14 -05:00
|
|
|
|
#,@(filter-map (make-pred 'virtualhost)
|
|
|
|
|
#'((field (new-field-type new-def) new-doc) ...)
|
|
|
|
|
#'(target ...)))
|
2017-03-08 08:04:52 -05:00
|
|
|
|
(define-configuration #,(id #'stem #'int-component-configuration)
|
2017-01-08 14:08:14 -05:00
|
|
|
|
#,@(filter-map (make-pred 'int-component)
|
|
|
|
|
#'((field (new-field-type new-def) new-doc) ...)
|
|
|
|
|
#'(target ...)))
|
2017-03-08 08:04:52 -05:00
|
|
|
|
(define-configuration #,(id #'stem #'ext-component-configuration)
|
2017-01-08 14:08:14 -05:00
|
|
|
|
#,@(filter-map (make-pred 'ext-component)
|
|
|
|
|
#'((field (new-field-type new-def) new-doc) ...)
|
|
|
|
|
#'(target ...)))))))))
|
|
|
|
|
|
|
|
|
|
(define (uglify-field-name field-name)
|
|
|
|
|
(let ((str (symbol->string field-name)))
|
|
|
|
|
(string-join (string-split (if (string-suffix? "?" str)
|
|
|
|
|
(substring str 0 (1- (string-length str)))
|
|
|
|
|
str)
|
|
|
|
|
#\-)
|
|
|
|
|
"_")))
|
|
|
|
|
|
|
|
|
|
(define (serialize-field field-name val)
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
#~(format #f "~a = ~a;\n" #$(uglify-field-name field-name) #$val))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
(define (serialize-field-list field-name val)
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
(serialize-field field-name #~(format #f "{\n~@{~a;\n~}}" #$@val)))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
|
|
|
|
|
(define (serialize-boolean field-name val)
|
|
|
|
|
(serialize-field field-name (if val "true" "false")))
|
|
|
|
|
(define-maybe boolean)
|
|
|
|
|
|
|
|
|
|
(define (string-or-boolean? val)
|
|
|
|
|
(or (string? val) (boolean? val)))
|
|
|
|
|
(define (serialize-string-or-boolean field-name val)
|
|
|
|
|
(if (string? val)
|
|
|
|
|
(serialize-string field-name val)
|
|
|
|
|
(serialize-boolean field-name val)))
|
|
|
|
|
|
|
|
|
|
(define (non-negative-integer? val)
|
|
|
|
|
(and (exact-integer? val) (not (negative? val))))
|
|
|
|
|
(define (serialize-non-negative-integer field-name val)
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
(serialize-field field-name (number->string val)))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
(define-maybe non-negative-integer)
|
|
|
|
|
|
|
|
|
|
(define (non-negative-integer-list? val)
|
|
|
|
|
(and (list? val) (and-map non-negative-integer? val)))
|
|
|
|
|
(define (serialize-non-negative-integer-list field-name val)
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
(serialize-field-list field-name (map number->string val)))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
(define-maybe non-negative-integer-list)
|
|
|
|
|
|
|
|
|
|
(define (enclose-quotes s)
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
#~(string-append "\"" #$s "\""))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
(define (serialize-string field-name val)
|
|
|
|
|
(serialize-field field-name (enclose-quotes val)))
|
|
|
|
|
(define-maybe string)
|
|
|
|
|
|
|
|
|
|
(define (string-list? val)
|
|
|
|
|
(and (list? val)
|
|
|
|
|
(and-map (lambda (x)
|
|
|
|
|
(and (string? x) (not (string-index x #\,))))
|
|
|
|
|
val)))
|
|
|
|
|
(define (serialize-string-list field-name val)
|
|
|
|
|
(serialize-field-list field-name (map enclose-quotes val)))
|
|
|
|
|
(define-maybe string-list)
|
|
|
|
|
|
|
|
|
|
(define (module-list? val)
|
|
|
|
|
(string-list? val))
|
|
|
|
|
(define (serialize-module-list field-name val)
|
2017-10-05 20:01:07 -04:00
|
|
|
|
(serialize-string-list field-name val))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
(define-maybe module-list)
|
|
|
|
|
|
|
|
|
|
(define (file-name? val)
|
|
|
|
|
(and (string? val)
|
|
|
|
|
(string-prefix? "/" val)))
|
|
|
|
|
(define (serialize-file-name field-name val)
|
|
|
|
|
(serialize-string field-name val))
|
|
|
|
|
(define-maybe file-name)
|
|
|
|
|
|
|
|
|
|
(define (file-name-list? val)
|
|
|
|
|
(and (list? val) (and-map file-name? val)))
|
|
|
|
|
(define (serialize-file-name-list field-name val)
|
|
|
|
|
(serialize-string-list field-name val))
|
2022-04-01 15:19:28 -04:00
|
|
|
|
(define-maybe file-name-list)
|
2017-01-08 14:08:14 -05:00
|
|
|
|
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
(define (file-object? val)
|
|
|
|
|
(or (file-like? val) (file-name? val)))
|
|
|
|
|
(define (serialize-file-object field-name val)
|
|
|
|
|
(serialize-string field-name val))
|
|
|
|
|
(define-maybe file-object)
|
|
|
|
|
|
|
|
|
|
(define (file-object-list? val)
|
|
|
|
|
(and (list? val) (and-map file-object? val)))
|
|
|
|
|
(define (serialize-file-object-list field-name val)
|
|
|
|
|
(serialize-string-list field-name val))
|
2022-04-01 15:19:28 -04:00
|
|
|
|
(define-maybe file-object-list)
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
|
2017-10-27 16:12:41 -04:00
|
|
|
|
(define (raw-content? val)
|
2022-08-24 08:40:41 -04:00
|
|
|
|
(maybe-value-set? val))
|
2017-10-27 16:12:41 -04:00
|
|
|
|
(define (serialize-raw-content field-name val)
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
val)
|
2017-10-27 16:12:41 -04:00
|
|
|
|
(define-maybe raw-content)
|
|
|
|
|
|
2017-01-08 14:08:14 -05:00
|
|
|
|
(define-configuration mod-muc-configuration
|
|
|
|
|
(name
|
|
|
|
|
(string "Prosody Chatrooms")
|
|
|
|
|
"The name to return in service discovery responses.")
|
|
|
|
|
|
|
|
|
|
(restrict-room-creation
|
|
|
|
|
(string-or-boolean #f)
|
|
|
|
|
"If @samp{#t}, this will only allow admins to create new chatrooms.
|
|
|
|
|
Otherwise anyone can create a room. The value @samp{\"local\"} restricts room
|
|
|
|
|
creation to users on the service's parent domain. E.g. @samp{user@@example.com}
|
|
|
|
|
can create rooms on @samp{rooms.example.com}. The value @samp{\"admin\"}
|
|
|
|
|
restricts to service administrators only.")
|
|
|
|
|
|
|
|
|
|
(max-history-messages
|
|
|
|
|
(non-negative-integer 20)
|
|
|
|
|
"Maximum number of history messages that will be sent to the member that has
|
|
|
|
|
just joined the room."))
|
|
|
|
|
(define (serialize-mod-muc-configuration field-name val)
|
|
|
|
|
(serialize-configuration val mod-muc-configuration-fields))
|
|
|
|
|
(define-maybe mod-muc-configuration)
|
|
|
|
|
|
|
|
|
|
(define-configuration ssl-configuration
|
|
|
|
|
(protocol
|
2022-05-17 07:39:28 -04:00
|
|
|
|
maybe-string
|
2017-01-08 14:08:14 -05:00
|
|
|
|
"This determines what handshake to use.")
|
|
|
|
|
|
|
|
|
|
(key
|
2022-05-17 07:39:28 -04:00
|
|
|
|
maybe-file-name
|
2017-10-05 20:01:07 -04:00
|
|
|
|
"Path to your private key file.")
|
2017-01-08 14:08:14 -05:00
|
|
|
|
|
|
|
|
|
(certificate
|
2022-05-17 07:39:28 -04:00
|
|
|
|
maybe-file-name
|
2017-10-05 20:01:07 -04:00
|
|
|
|
"Path to your certificate file.")
|
2017-01-08 14:08:14 -05:00
|
|
|
|
|
|
|
|
|
(capath
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
(file-object "/etc/ssl/certs")
|
2017-01-08 14:08:14 -05:00
|
|
|
|
"Path to directory containing root certificates that you wish Prosody to
|
|
|
|
|
trust when verifying the certificates of remote servers.")
|
|
|
|
|
|
|
|
|
|
(cafile
|
2022-05-17 07:39:28 -04:00
|
|
|
|
maybe-file-object
|
2017-01-08 14:08:14 -05:00
|
|
|
|
"Path to a file containing root certificates that you wish Prosody to trust.
|
|
|
|
|
Similar to @code{capath} but with all certificates concatenated together.")
|
|
|
|
|
|
|
|
|
|
(verify
|
2022-05-17 07:39:28 -04:00
|
|
|
|
maybe-string-list
|
2017-01-08 14:08:14 -05:00
|
|
|
|
"A list of verification options (these mostly map to OpenSSL's
|
|
|
|
|
@code{set_verify()} flags).")
|
|
|
|
|
|
|
|
|
|
(options
|
2022-05-17 07:39:28 -04:00
|
|
|
|
maybe-string-list
|
2017-01-08 14:08:14 -05:00
|
|
|
|
"A list of general options relating to SSL/TLS. These map to OpenSSL's
|
|
|
|
|
@code{set_options()}. For a full list of options available in LuaSec, see the
|
|
|
|
|
LuaSec source.")
|
|
|
|
|
|
|
|
|
|
(depth
|
2022-05-17 07:39:28 -04:00
|
|
|
|
maybe-non-negative-integer
|
2017-01-08 14:08:14 -05:00
|
|
|
|
"How long a chain of certificate authorities to check when looking for a
|
|
|
|
|
trusted root certificate.")
|
|
|
|
|
|
|
|
|
|
(ciphers
|
2022-05-17 07:39:28 -04:00
|
|
|
|
maybe-string
|
2017-01-08 14:08:14 -05:00
|
|
|
|
"An OpenSSL cipher string. This selects what ciphers Prosody will offer to
|
|
|
|
|
clients, and in what order.")
|
|
|
|
|
|
|
|
|
|
(dhparam
|
2022-05-17 07:39:28 -04:00
|
|
|
|
maybe-file-name
|
2017-01-08 14:08:14 -05:00
|
|
|
|
"A path to a file containing parameters for Diffie-Hellman key exchange. You
|
|
|
|
|
can create such a file with:
|
|
|
|
|
@code{openssl dhparam -out /etc/prosody/certs/dh-2048.pem 2048}")
|
|
|
|
|
|
|
|
|
|
(curve
|
2022-05-17 07:39:28 -04:00
|
|
|
|
maybe-string
|
2017-01-08 14:08:14 -05:00
|
|
|
|
"Curve for Elliptic curve Diffie-Hellman. Prosody's default is
|
|
|
|
|
@samp{\"secp384r1\"}.")
|
|
|
|
|
|
|
|
|
|
(verifyext
|
2022-05-17 07:39:28 -04:00
|
|
|
|
maybe-string-list
|
2017-01-08 14:08:14 -05:00
|
|
|
|
"A list of \"extra\" verification options.")
|
|
|
|
|
|
|
|
|
|
(password
|
2022-05-17 07:39:28 -04:00
|
|
|
|
maybe-string
|
2017-01-08 14:08:14 -05:00
|
|
|
|
"Password for encrypted private keys."))
|
|
|
|
|
(define (serialize-ssl-configuration field-name val)
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
#~(format #f "ssl = {\n~a};\n"
|
|
|
|
|
#$(serialize-configuration val ssl-configuration-fields)))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
(define-maybe ssl-configuration)
|
|
|
|
|
|
|
|
|
|
(define %default-modules-enabled
|
|
|
|
|
'("roster"
|
|
|
|
|
"saslauth"
|
|
|
|
|
"tls"
|
|
|
|
|
"dialback"
|
|
|
|
|
"disco"
|
2017-10-05 20:01:07 -04:00
|
|
|
|
"carbons"
|
2017-01-08 14:08:14 -05:00
|
|
|
|
"private"
|
2017-10-05 20:01:07 -04:00
|
|
|
|
"blocklist"
|
2017-01-08 14:08:14 -05:00
|
|
|
|
"vcard"
|
|
|
|
|
"version"
|
|
|
|
|
"uptime"
|
|
|
|
|
"time"
|
|
|
|
|
"ping"
|
|
|
|
|
"pep"
|
|
|
|
|
"register"
|
|
|
|
|
"admin_adhoc"))
|
|
|
|
|
|
|
|
|
|
;; Guile bug. Use begin wrapper, because otherwise virtualhost-configuration
|
|
|
|
|
;; is assumed to be a function. See
|
|
|
|
|
;; https://www.gnu.org/software/guile/manual/html_node/R6RS-Incompatibilities.html
|
|
|
|
|
(begin
|
|
|
|
|
(define (virtualhost-configuration-list? val)
|
|
|
|
|
(and (list? val) (and-map virtualhost-configuration? val)))
|
|
|
|
|
(define (serialize-virtualhost-configuration-list l)
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
#~(string-append
|
|
|
|
|
#$@(map (lambda (val)
|
|
|
|
|
(serialize-virtualhost-configuration val)) l)))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
|
|
|
|
|
(define (int-component-configuration-list? val)
|
|
|
|
|
(and (list? val) (and-map int-component-configuration? val)))
|
|
|
|
|
(define (serialize-int-component-configuration-list l)
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
#~(string-append
|
|
|
|
|
#$@(map (lambda (val)
|
|
|
|
|
(serialize-int-component-configuration val)) l)))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
|
|
|
|
|
(define (ext-component-configuration-list? val)
|
|
|
|
|
(and (list? val) (and-map ext-component-configuration? val)))
|
|
|
|
|
(define (serialize-ext-component-configuration-list l)
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
#~(string-append
|
|
|
|
|
#$@(map (lambda (val)
|
|
|
|
|
(serialize-ext-component-configuration val)) l)))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
|
|
|
|
|
(define-all-configurations prosody-configuration
|
|
|
|
|
(prosody
|
2021-11-18 16:44:26 -05:00
|
|
|
|
(file-like prosody)
|
2017-01-08 14:08:14 -05:00
|
|
|
|
"The Prosody package."
|
|
|
|
|
global)
|
|
|
|
|
|
|
|
|
|
(data-path
|
|
|
|
|
(file-name "/var/lib/prosody")
|
|
|
|
|
"Location of the Prosody data storage directory. See
|
2017-12-23 18:51:08 -05:00
|
|
|
|
@url{https://prosody.im/doc/configure}."
|
2017-01-08 14:08:14 -05:00
|
|
|
|
global)
|
|
|
|
|
|
|
|
|
|
(plugin-paths
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
(file-object-list '())
|
2017-01-08 14:08:14 -05:00
|
|
|
|
"Additional plugin directories. They are searched in all the specified
|
2017-12-23 18:51:08 -05:00
|
|
|
|
paths in order. See @url{https://prosody.im/doc/plugins_directory}."
|
2017-01-08 14:08:14 -05:00
|
|
|
|
global)
|
|
|
|
|
|
2017-10-05 20:01:07 -04:00
|
|
|
|
(certificates
|
|
|
|
|
(file-name "/etc/prosody/certs")
|
|
|
|
|
"Every virtual host and component needs a certificate so that clients and
|
|
|
|
|
servers can securely verify its identity. Prosody will automatically load
|
|
|
|
|
certificates/keys from the directory specified here."
|
|
|
|
|
global)
|
|
|
|
|
|
2017-01-08 14:08:14 -05:00
|
|
|
|
(admins
|
|
|
|
|
(string-list '())
|
|
|
|
|
"This is a list of accounts that are admins for the server. Note that you
|
2017-12-23 18:51:08 -05:00
|
|
|
|
must create the accounts separately. See @url{https://prosody.im/doc/admins} and
|
|
|
|
|
@url{https://prosody.im/doc/creating_accounts}.
|
2017-01-08 14:08:14 -05:00
|
|
|
|
Example: @code{(admins '(\"user1@@example.com\" \"user2@@example.net\"))}"
|
|
|
|
|
common)
|
|
|
|
|
|
|
|
|
|
(use-libevent?
|
|
|
|
|
(boolean #f)
|
|
|
|
|
"Enable use of libevent for better performance under high load. See
|
2017-12-23 18:51:08 -05:00
|
|
|
|
@url{https://prosody.im/doc/libevent}."
|
2017-01-08 14:08:14 -05:00
|
|
|
|
common)
|
|
|
|
|
|
|
|
|
|
(modules-enabled
|
|
|
|
|
(module-list %default-modules-enabled)
|
|
|
|
|
"This is the list of modules Prosody will load on startup. It looks for
|
|
|
|
|
@code{mod_modulename.lua} in the plugins folder, so make sure that exists too.
|
2017-11-24 16:55:28 -05:00
|
|
|
|
Documentation on modules can be found at:
|
2017-12-23 18:51:08 -05:00
|
|
|
|
@url{https://prosody.im/doc/modules}."
|
2017-01-08 14:08:14 -05:00
|
|
|
|
common)
|
|
|
|
|
|
|
|
|
|
(modules-disabled
|
|
|
|
|
(string-list '())
|
|
|
|
|
"@samp{\"offline\"}, @samp{\"c2s\"} and @samp{\"s2s\"} are auto-loaded, but
|
|
|
|
|
should you want to disable them then add them to this list."
|
|
|
|
|
common)
|
|
|
|
|
|
|
|
|
|
(groups-file
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
(file-object "/var/lib/prosody/sharedgroups.txt")
|
2017-01-08 14:08:14 -05:00
|
|
|
|
"Path to a text file where the shared groups are defined. If this path is
|
|
|
|
|
empty then @samp{mod_groups} does nothing. See
|
2017-12-23 18:51:08 -05:00
|
|
|
|
@url{https://prosody.im/doc/modules/mod_groups}."
|
2017-01-08 14:08:14 -05:00
|
|
|
|
common)
|
|
|
|
|
|
|
|
|
|
(allow-registration?
|
|
|
|
|
(boolean #f)
|
|
|
|
|
"Disable account creation by default, for security. See
|
2017-12-23 18:51:08 -05:00
|
|
|
|
@url{https://prosody.im/doc/creating_accounts}."
|
2017-01-08 14:08:14 -05:00
|
|
|
|
common)
|
|
|
|
|
|
|
|
|
|
(ssl
|
|
|
|
|
(maybe-ssl-configuration (ssl-configuration))
|
|
|
|
|
"These are the SSL/TLS-related settings. Most of them are disabled so to
|
|
|
|
|
use Prosody's defaults. If you do not completely understand these options, do
|
|
|
|
|
not add them to your config, it is easy to lower the security of your server
|
2017-12-23 18:51:08 -05:00
|
|
|
|
using them. See @url{https://prosody.im/doc/advanced_ssl_config}."
|
2017-01-08 14:08:14 -05:00
|
|
|
|
common)
|
|
|
|
|
|
|
|
|
|
(c2s-require-encryption?
|
|
|
|
|
(boolean #f)
|
|
|
|
|
"Whether to force all client-to-server connections to be encrypted or not.
|
2017-12-23 18:51:08 -05:00
|
|
|
|
See @url{https://prosody.im/doc/modules/mod_tls}."
|
2017-01-08 14:08:14 -05:00
|
|
|
|
common)
|
|
|
|
|
|
2017-11-24 16:20:32 -05:00
|
|
|
|
(disable-sasl-mechanisms
|
|
|
|
|
(string-list '("DIGEST-MD5"))
|
|
|
|
|
"Set of mechanisms that will never be offered. See
|
|
|
|
|
@url{https://prosody.im/doc/modules/mod_saslauth}."
|
|
|
|
|
common)
|
|
|
|
|
|
2017-01-08 14:08:14 -05:00
|
|
|
|
(s2s-require-encryption?
|
|
|
|
|
(boolean #f)
|
|
|
|
|
"Whether to force all server-to-server connections to be encrypted or not.
|
2017-12-23 18:51:08 -05:00
|
|
|
|
See @url{https://prosody.im/doc/modules/mod_tls}."
|
2017-01-08 14:08:14 -05:00
|
|
|
|
common)
|
|
|
|
|
|
|
|
|
|
(s2s-secure-auth?
|
|
|
|
|
(boolean #f)
|
|
|
|
|
"Whether to require encryption and certificate authentication. This
|
|
|
|
|
provides ideal security, but requires servers you communicate with to support
|
|
|
|
|
encryption AND present valid, trusted certificates. See
|
2017-12-23 18:51:08 -05:00
|
|
|
|
@url{https://prosody.im/doc/s2s#security}."
|
2017-01-08 14:08:14 -05:00
|
|
|
|
common)
|
|
|
|
|
|
|
|
|
|
(s2s-insecure-domains
|
|
|
|
|
(string-list '())
|
|
|
|
|
"Many servers don't support encryption or have invalid or self-signed
|
|
|
|
|
certificates. You can list domains here that will not be required to
|
|
|
|
|
authenticate using certificates. They will be authenticated using DNS. See
|
2017-12-23 18:51:08 -05:00
|
|
|
|
@url{https://prosody.im/doc/s2s#security}."
|
2017-01-08 14:08:14 -05:00
|
|
|
|
common)
|
|
|
|
|
|
|
|
|
|
(s2s-secure-domains
|
|
|
|
|
(string-list '())
|
|
|
|
|
"Even if you leave @code{s2s-secure-auth?} disabled, you can still require
|
|
|
|
|
valid certificates for some domains by specifying a list here. See
|
2017-12-23 18:51:08 -05:00
|
|
|
|
@url{https://prosody.im/doc/s2s#security}."
|
2017-01-08 14:08:14 -05:00
|
|
|
|
common)
|
|
|
|
|
|
|
|
|
|
(authentication
|
|
|
|
|
(string "internal_plain")
|
|
|
|
|
"Select the authentication backend to use. The default provider stores
|
|
|
|
|
passwords in plaintext and uses Prosody's configured data storage to store the
|
|
|
|
|
authentication data. If you do not trust your server please see
|
2017-12-23 18:51:08 -05:00
|
|
|
|
@url{https://prosody.im/doc/modules/mod_auth_internal_hashed} for information
|
2017-01-08 14:08:14 -05:00
|
|
|
|
about using the hashed backend. See also
|
2017-12-23 18:51:08 -05:00
|
|
|
|
@url{https://prosody.im/doc/authentication}"
|
2017-01-08 14:08:14 -05:00
|
|
|
|
common)
|
|
|
|
|
|
|
|
|
|
;; TODO: Handle more complicated log structures.
|
|
|
|
|
(log
|
|
|
|
|
(maybe-string "*syslog")
|
|
|
|
|
"Set logging options. Advanced logging configuration is not yet supported
|
2019-03-13 11:44:02 -04:00
|
|
|
|
by the Prosody service. See @url{https://prosody.im/doc/logging}."
|
2017-01-08 14:08:14 -05:00
|
|
|
|
common)
|
|
|
|
|
|
|
|
|
|
(pidfile
|
|
|
|
|
(file-name "/var/run/prosody/prosody.pid")
|
2017-12-23 18:51:08 -05:00
|
|
|
|
"File to write pid in. See @url{https://prosody.im/doc/modules/mod_posix}."
|
2017-01-08 14:08:14 -05:00
|
|
|
|
global)
|
|
|
|
|
|
2017-10-27 19:33:57 -04:00
|
|
|
|
(http-max-content-size
|
2022-08-24 08:40:41 -04:00
|
|
|
|
(maybe-non-negative-integer %unset-value)
|
2017-10-27 19:33:57 -04:00
|
|
|
|
"Maximum allowed size of the HTTP body (in bytes)."
|
|
|
|
|
common)
|
|
|
|
|
|
2017-10-26 18:20:01 -04:00
|
|
|
|
(http-external-url
|
2022-08-24 08:40:41 -04:00
|
|
|
|
(maybe-string %unset-value)
|
2017-10-26 18:20:01 -04:00
|
|
|
|
"Some modules expose their own URL in various ways. This URL is built
|
|
|
|
|
from the protocol, host and port used. If Prosody sits behind a proxy, the
|
|
|
|
|
public URL will be @code{http-external-url} instead. See
|
|
|
|
|
@url{https://prosody.im/doc/http#external_url}."
|
|
|
|
|
common)
|
|
|
|
|
|
2017-01-08 14:08:14 -05:00
|
|
|
|
(virtualhosts
|
|
|
|
|
(virtualhost-configuration-list
|
|
|
|
|
(list (virtualhost-configuration
|
|
|
|
|
(domain "localhost"))))
|
|
|
|
|
"A host in Prosody is a domain on which user accounts can be created. For
|
|
|
|
|
example if you want your users to have addresses like
|
|
|
|
|
@samp{\"john.smith@@example.com\"} then you need to add a host
|
|
|
|
|
@samp{\"example.com\"}. All options in this list will apply only to this host.
|
|
|
|
|
|
|
|
|
|
Note: the name \"virtual\" host is used in configuration to avoid confusion with
|
|
|
|
|
the actual physical host that Prosody is installed on. A single Prosody
|
|
|
|
|
instance can serve many domains, each one defined as a VirtualHost entry in
|
|
|
|
|
Prosody's configuration. Conversely a server that hosts a single domain would
|
|
|
|
|
have just one VirtualHost entry.
|
|
|
|
|
|
2017-12-23 18:51:08 -05:00
|
|
|
|
See @url{https://prosody.im/doc/configure#virtual_host_settings}."
|
2017-01-08 14:08:14 -05:00
|
|
|
|
global)
|
|
|
|
|
|
|
|
|
|
(int-components
|
|
|
|
|
(int-component-configuration-list '())
|
|
|
|
|
"Components are extra services on a server which are available to clients,
|
|
|
|
|
usually on a subdomain of the main server (such as
|
|
|
|
|
@samp{\"mycomponent.example.com\"}). Example components might be chatroom
|
|
|
|
|
servers, user directories, or gateways to other protocols.
|
|
|
|
|
|
|
|
|
|
Internal components are implemented with Prosody-specific plugins. To add an
|
|
|
|
|
internal component, you simply fill the hostname field, and the plugin you wish
|
|
|
|
|
to use for the component.
|
|
|
|
|
|
2017-12-23 18:51:08 -05:00
|
|
|
|
See @url{https://prosody.im/doc/components}."
|
2017-01-08 14:08:14 -05:00
|
|
|
|
global)
|
|
|
|
|
|
|
|
|
|
(ext-components
|
|
|
|
|
(ext-component-configuration-list '())
|
|
|
|
|
"External components use XEP-0114, which most standalone components
|
|
|
|
|
support. To add an external component, you simply fill the hostname field. See
|
2017-12-23 18:51:08 -05:00
|
|
|
|
@url{https://prosody.im/doc/components}."
|
2017-01-08 14:08:14 -05:00
|
|
|
|
global)
|
|
|
|
|
|
|
|
|
|
(component-secret
|
|
|
|
|
(string (configuration-missing-field 'ext-component 'component-secret))
|
|
|
|
|
"Password which the component will use to log in."
|
|
|
|
|
ext-component)
|
|
|
|
|
|
|
|
|
|
(component-ports
|
|
|
|
|
(non-negative-integer-list '(5347))
|
|
|
|
|
"Port(s) Prosody listens on for component connections."
|
|
|
|
|
global)
|
|
|
|
|
|
|
|
|
|
(component-interface
|
|
|
|
|
(string "127.0.0.1")
|
|
|
|
|
"Interface Prosody listens on for component connections."
|
|
|
|
|
global)
|
|
|
|
|
|
|
|
|
|
(domain
|
|
|
|
|
(string (configuration-missing-field 'virtualhost 'domain))
|
|
|
|
|
"Domain you wish Prosody to serve."
|
|
|
|
|
virtualhost)
|
|
|
|
|
|
|
|
|
|
(hostname
|
|
|
|
|
(string (configuration-missing-field 'int-component 'hostname))
|
|
|
|
|
"Hostname of the component."
|
|
|
|
|
int-component)
|
|
|
|
|
|
|
|
|
|
(plugin
|
|
|
|
|
(string (configuration-missing-field 'int-component 'plugin))
|
|
|
|
|
"Plugin you wish to use for the component."
|
|
|
|
|
int-component)
|
|
|
|
|
|
|
|
|
|
(mod-muc
|
2022-08-24 08:40:41 -04:00
|
|
|
|
(maybe-mod-muc-configuration %unset-value)
|
2017-01-08 14:08:14 -05:00
|
|
|
|
"Multi-user chat (MUC) is Prosody's module for allowing you to create
|
|
|
|
|
hosted chatrooms/conferences for XMPP users.
|
|
|
|
|
|
|
|
|
|
General information on setting up and using multi-user chatrooms can be found
|
2017-12-23 18:51:08 -05:00
|
|
|
|
in the \"Chatrooms\" documentation (@url{https://prosody.im/doc/chatrooms}),
|
2017-01-08 14:08:14 -05:00
|
|
|
|
which you should read if you are new to XMPP chatrooms.
|
|
|
|
|
|
2017-12-23 18:51:08 -05:00
|
|
|
|
See also @url{https://prosody.im/doc/modules/mod_muc}."
|
2017-01-08 14:08:14 -05:00
|
|
|
|
int-component)
|
|
|
|
|
|
|
|
|
|
(hostname
|
|
|
|
|
(string (configuration-missing-field 'ext-component 'hostname))
|
|
|
|
|
"Hostname of the component."
|
2017-10-27 16:12:41 -04:00
|
|
|
|
ext-component)
|
|
|
|
|
|
|
|
|
|
(raw-content
|
2022-08-24 08:40:41 -04:00
|
|
|
|
(maybe-raw-content %unset-value)
|
2017-10-27 16:12:41 -04:00
|
|
|
|
"Raw content that will be added to the configuration file."
|
|
|
|
|
common)))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
|
|
|
|
|
;; Serialize Virtualhost line first.
|
|
|
|
|
(define (serialize-virtualhost-configuration config)
|
|
|
|
|
(define (rest? field)
|
|
|
|
|
(not (memq (configuration-field-name field)
|
|
|
|
|
'(domain))))
|
|
|
|
|
(let ((domain (virtualhost-configuration-domain config))
|
|
|
|
|
(rest (filter rest? virtualhost-configuration-fields)))
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
#~(string-append
|
|
|
|
|
#$(format #f "VirtualHost \"~a\"\n" domain)
|
|
|
|
|
#$(serialize-configuration config rest))))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
|
|
|
|
|
;; Serialize Component line first.
|
|
|
|
|
(define (serialize-int-component-configuration config)
|
|
|
|
|
(define (rest? field)
|
|
|
|
|
(not (memq (configuration-field-name field)
|
|
|
|
|
'(hostname plugin))))
|
|
|
|
|
(let ((hostname (int-component-configuration-hostname config))
|
|
|
|
|
(plugin (int-component-configuration-plugin config))
|
|
|
|
|
(rest (filter rest? int-component-configuration-fields)))
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
#~(string-append
|
|
|
|
|
#$(format #f "Component \"~a\" \"~a\"\n" hostname plugin)
|
|
|
|
|
#$(serialize-configuration config rest))))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
|
|
|
|
|
;; Serialize Component line first.
|
|
|
|
|
(define (serialize-ext-component-configuration config)
|
|
|
|
|
(define (rest? field)
|
|
|
|
|
(not (memq (configuration-field-name field)
|
|
|
|
|
'(hostname))))
|
|
|
|
|
(let ((hostname (ext-component-configuration-hostname config))
|
|
|
|
|
(rest (filter rest? ext-component-configuration-fields)))
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
#~(string-append
|
|
|
|
|
#$(format #f "Component \"~a\"\n" hostname)
|
|
|
|
|
#$(serialize-configuration config rest))))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
|
|
|
|
|
;; Serialize virtualhosts and components last.
|
|
|
|
|
(define (serialize-prosody-configuration config)
|
|
|
|
|
(define (rest? field)
|
|
|
|
|
(not (memq (configuration-field-name field)
|
|
|
|
|
'(virtualhosts int-components ext-components))))
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
#~(string-append
|
|
|
|
|
#$(let ((rest (filter rest? prosody-configuration-fields)))
|
|
|
|
|
(serialize-configuration config rest))
|
|
|
|
|
#$(serialize-virtualhost-configuration-list
|
|
|
|
|
(prosody-configuration-virtualhosts config))
|
|
|
|
|
#$(serialize-int-component-configuration-list
|
|
|
|
|
(prosody-configuration-int-components config))
|
|
|
|
|
#$(serialize-ext-component-configuration-list
|
|
|
|
|
(prosody-configuration-ext-components config))))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
|
|
|
|
|
(define-configuration opaque-prosody-configuration
|
|
|
|
|
(prosody
|
2021-11-18 16:44:26 -05:00
|
|
|
|
(file-like prosody)
|
2017-01-08 14:08:14 -05:00
|
|
|
|
"The prosody package.")
|
|
|
|
|
|
|
|
|
|
(prosody.cfg.lua
|
|
|
|
|
(string (configuration-missing-field 'opaque-prosody-configuration
|
|
|
|
|
'prosody.cfg.lua))
|
|
|
|
|
"The contents of the @code{prosody.cfg.lua} to use."))
|
|
|
|
|
|
|
|
|
|
(define (prosody-shepherd-service config)
|
|
|
|
|
"Return a <shepherd-service> for Prosody with CONFIG."
|
|
|
|
|
(let* ((prosody (if (opaque-prosody-configuration? config)
|
|
|
|
|
(opaque-prosody-configuration-prosody config)
|
|
|
|
|
(prosody-configuration-prosody config)))
|
|
|
|
|
(prosodyctl-bin (file-append prosody "/bin/prosodyctl"))
|
2018-08-13 11:35:24 -04:00
|
|
|
|
(pid-file (prosody-configuration-pidfile config))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
(prosodyctl-action (lambda args
|
|
|
|
|
#~(lambda _
|
2018-08-13 11:35:24 -04:00
|
|
|
|
(invoke #$prosodyctl-bin #$@args)
|
|
|
|
|
(match '#$args
|
|
|
|
|
(("start")
|
|
|
|
|
(call-with-input-file #$pid-file read))
|
|
|
|
|
(_ #t))))))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
(list (shepherd-service
|
|
|
|
|
(documentation "Run the Prosody XMPP server")
|
2017-02-10 13:17:22 -05:00
|
|
|
|
(provision '(prosody xmpp-daemon))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
(requirement '(networking syslogd user-processes))
|
2018-08-13 11:35:24 -04:00
|
|
|
|
(modules `((ice-9 match)
|
|
|
|
|
,@%default-modules))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
(start (prosodyctl-action "start"))
|
|
|
|
|
(stop (prosodyctl-action "stop"))))))
|
|
|
|
|
|
|
|
|
|
(define %prosody-accounts
|
|
|
|
|
(list (user-group (name "prosody") (system? #t))
|
|
|
|
|
(user-account
|
|
|
|
|
(name "prosody")
|
|
|
|
|
(group "prosody")
|
|
|
|
|
(system? #t)
|
|
|
|
|
(comment "Prosody daemon user")
|
|
|
|
|
(home-directory "/var/empty")
|
|
|
|
|
(shell (file-append shadow "/sbin/nologin")))))
|
|
|
|
|
|
|
|
|
|
(define (prosody-activation config)
|
|
|
|
|
"Return the activation gexp for CONFIG."
|
|
|
|
|
(let* ((config-dir "/etc/prosody")
|
|
|
|
|
(default-certs-dir "/etc/prosody/certs")
|
|
|
|
|
(data-path (prosody-configuration-data-path config))
|
|
|
|
|
(pidfile-dir (dirname (prosody-configuration-pidfile config)))
|
services: messaging: Prosody config supports file-like objects.
* doc/guix.texi (Messaging Services): Update accordingly.
* gnu/services/configuration.scm (serialize-configuration,
serialize-maybe-stem, serialize-package): Return strings or string-valued
gexps (these procedures were only used for their side-effects).
* gnu/services/messaging.scm (serialize-field, serialize-field-list,
enclose-quotes, serialize-raw-content, serialize-ssl-configuration,
serialize-virtualhost-configuration-list,
serialize-int-component-configuration-list,
serialize-ext-component-configuration-list,
serialize-virtualhost-configuration, serialize-int-component-configuration,
serialize-ext-component-configuration, serialize-prosody-configuration):
Return strings or string-valued gexps and stop printing.
(prosody-activation): Use SERIALIZE-PROSODY-CONFIGURATION's return value with
MIXED-TEXT-FILE instead of using its output with PLAIN-FILE.
(serialize-non-negative-integer, serialize-non-negative-integer-list): Convert
numbers to strings.
(file-object?, serialize-file-object, file-object-list?,
serialize-file-object-list): New procedures.
(ssl-configuration)[capath, cafile], (prosody-configuration)[plugin-paths,
groups-file]: Replace FILE-NAME with FILE-OBJECT.
* guix/gexp.scm (file-like?): New exported procedure.
2018-02-25 19:12:24 -05:00
|
|
|
|
(config-str (if (opaque-prosody-configuration? config)
|
|
|
|
|
(opaque-prosody-configuration-prosody.cfg.lua config)
|
|
|
|
|
#~(begin
|
|
|
|
|
(use-modules (ice-9 format))
|
|
|
|
|
#$(serialize-prosody-configuration config))))
|
|
|
|
|
(config-file (mixed-text-file "prosody.cfg.lua" config-str)))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
#~(begin
|
2017-01-19 18:57:47 -05:00
|
|
|
|
(use-modules (guix build utils))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
(define %user (getpw "prosody"))
|
|
|
|
|
|
|
|
|
|
(mkdir-p #$config-dir)
|
|
|
|
|
(chown #$config-dir (passwd:uid %user) (passwd:gid %user))
|
|
|
|
|
(copy-file #$config-file (string-append #$config-dir
|
|
|
|
|
"/prosody.cfg.lua"))
|
|
|
|
|
|
|
|
|
|
(mkdir-p #$default-certs-dir)
|
|
|
|
|
(chown #$default-certs-dir (passwd:uid %user) (passwd:gid %user))
|
|
|
|
|
(chmod #$default-certs-dir #o750)
|
|
|
|
|
|
|
|
|
|
(mkdir-p #$data-path)
|
|
|
|
|
(chown #$data-path (passwd:uid %user) (passwd:gid %user))
|
|
|
|
|
(chmod #$data-path #o750)
|
|
|
|
|
|
|
|
|
|
(mkdir-p #$pidfile-dir)
|
|
|
|
|
(chown #$pidfile-dir (passwd:uid %user) (passwd:gid %user)))))
|
|
|
|
|
|
|
|
|
|
(define prosody-service-type
|
|
|
|
|
(service-type (name 'prosody)
|
|
|
|
|
(extensions
|
|
|
|
|
(list (service-extension shepherd-root-service-type
|
|
|
|
|
prosody-shepherd-service)
|
|
|
|
|
(service-extension account-service-type
|
|
|
|
|
(const %prosody-accounts))
|
|
|
|
|
(service-extension activation-service-type
|
2018-04-30 18:05:16 -04:00
|
|
|
|
prosody-activation)))
|
2018-04-30 18:14:31 -04:00
|
|
|
|
(default-value (prosody-configuration
|
|
|
|
|
(virtualhosts
|
|
|
|
|
(list
|
|
|
|
|
(virtualhost-configuration
|
|
|
|
|
(domain "localhost"))))))
|
2018-04-30 18:05:16 -04:00
|
|
|
|
(description
|
|
|
|
|
"Run Prosody, a modern XMPP communication server.")))
|
2017-01-08 14:08:14 -05:00
|
|
|
|
|
|
|
|
|
;; A little helper to make it easier to document all those fields.
|
|
|
|
|
(define (generate-documentation)
|
|
|
|
|
(define documentation
|
|
|
|
|
`((prosody-configuration
|
|
|
|
|
,prosody-configuration-fields
|
|
|
|
|
(ssl ssl-configuration)
|
|
|
|
|
(virtualhosts virtualhost-configuration)
|
|
|
|
|
(int-components int-component-configuration)
|
|
|
|
|
(ext-components ext-component-configuration))
|
|
|
|
|
(ssl-configuration ,ssl-configuration-fields)
|
|
|
|
|
(int-component-configuration ,int-component-configuration-fields
|
|
|
|
|
(mod-muc mod-muc-configuration))
|
|
|
|
|
(ext-component-configuration ,ext-component-configuration-fields)
|
|
|
|
|
(mod-muc-configuration ,mod-muc-configuration-fields)
|
|
|
|
|
(virtualhost-configuration ,virtualhost-configuration-fields)
|
|
|
|
|
(opaque-prosody-configuration ,opaque-prosody-configuration-fields)))
|
|
|
|
|
(define (generate configuration-name)
|
|
|
|
|
(match (assq-ref documentation configuration-name)
|
|
|
|
|
((fields . sub-documentation)
|
|
|
|
|
(format #t "\nAvailable @code{~a} fields are:\n\n" configuration-name)
|
|
|
|
|
(when (memq configuration-name
|
|
|
|
|
'(virtualhost-configuration
|
|
|
|
|
int-component-configuration
|
|
|
|
|
ext-component-configuration))
|
|
|
|
|
(format #t "all these @code{prosody-configuration} fields: ~a, plus:\n"
|
|
|
|
|
(string-join (map (lambda (s)
|
|
|
|
|
(format #f "@code{~a}" s)) common-fields)
|
|
|
|
|
", ")))
|
|
|
|
|
(for-each
|
|
|
|
|
(lambda (f)
|
|
|
|
|
(let ((field-name (configuration-field-name f))
|
|
|
|
|
(field-type (configuration-field-type f))
|
|
|
|
|
(field-docs (string-trim-both
|
|
|
|
|
(configuration-field-documentation f)))
|
|
|
|
|
(default (catch #t
|
|
|
|
|
(configuration-field-default-value-thunk f)
|
|
|
|
|
(lambda _ 'nope))))
|
|
|
|
|
(define (escape-chars str chars escape)
|
|
|
|
|
(with-output-to-string
|
|
|
|
|
(lambda ()
|
|
|
|
|
(string-for-each (lambda (c)
|
|
|
|
|
(when (char-set-contains? chars c)
|
|
|
|
|
(display escape))
|
|
|
|
|
(display c))
|
|
|
|
|
str))))
|
|
|
|
|
(define (show-default? val)
|
2017-11-24 16:55:28 -05:00
|
|
|
|
(or (string? val) (number? val) (boolean? val)
|
2017-01-08 14:08:14 -05:00
|
|
|
|
(and (list? val) (and-map show-default? val))))
|
|
|
|
|
(format #t "@deftypevr {@code{~a} parameter} ~a ~a\n~a\n"
|
|
|
|
|
configuration-name field-type field-name field-docs)
|
|
|
|
|
(when (show-default? default)
|
|
|
|
|
(format #t "Defaults to @samp{~a}.\n"
|
|
|
|
|
(escape-chars (format #f "~s" default)
|
|
|
|
|
(char-set #\@ #\{ #\})
|
|
|
|
|
#\@)))
|
|
|
|
|
(for-each generate (or (assq-ref sub-documentation field-name) '()))
|
|
|
|
|
(format #t "@end deftypevr\n\n")))
|
|
|
|
|
(filter (lambda (f)
|
|
|
|
|
(not (string=? "" (configuration-field-documentation f))))
|
|
|
|
|
fields)))))
|
|
|
|
|
(generate 'prosody-configuration)
|
|
|
|
|
(format #t "It could be that you just want to get a @code{prosody.cfg.lua}
|
|
|
|
|
up and running. In that case, you can pass an
|
|
|
|
|
@code{opaque-prosody-configuration} record as the value of
|
|
|
|
|
@code{prosody-service-type}. As its name indicates, an opaque configuration
|
|
|
|
|
does not have easy reflective capabilities.")
|
|
|
|
|
(generate 'opaque-prosody-configuration)
|
|
|
|
|
(format #t "For example, if your @code{prosody.cfg.lua} is just the empty
|
|
|
|
|
string, you could instantiate a prosody service like this:
|
|
|
|
|
|
|
|
|
|
@example
|
|
|
|
|
(service prosody-service-type
|
|
|
|
|
(opaque-prosody-configuration
|
|
|
|
|
(prosody.cfg.lua \"\")))
|
|
|
|
|
@end example"))
|
2018-01-15 16:04:55 -05:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;;;
|
|
|
|
|
;;; BitlBee.
|
|
|
|
|
;;;
|
|
|
|
|
|
|
|
|
|
(define-record-type* <bitlbee-configuration>
|
|
|
|
|
bitlbee-configuration make-bitlbee-configuration
|
|
|
|
|
bitlbee-configuration?
|
|
|
|
|
(bitlbee bitlbee-configuration-bitlbee
|
|
|
|
|
(default bitlbee))
|
|
|
|
|
(interface bitlbee-configuration-interface
|
|
|
|
|
(default "127.0.0.1"))
|
|
|
|
|
(port bitlbee-configuration-port
|
|
|
|
|
(default 6667))
|
2018-05-10 10:37:58 -04:00
|
|
|
|
(plugins bitlbee-plugins
|
|
|
|
|
(default '()))
|
2018-01-15 16:04:55 -05:00
|
|
|
|
(extra-settings bitlbee-configuration-extra-settings
|
|
|
|
|
(default "")))
|
|
|
|
|
|
|
|
|
|
(define bitlbee-shepherd-service
|
|
|
|
|
(match-lambda
|
2018-05-10 10:37:58 -04:00
|
|
|
|
(($ <bitlbee-configuration> bitlbee interface port
|
|
|
|
|
plugins extra-settings)
|
2020-09-15 06:30:39 -04:00
|
|
|
|
(let* ((plugins (directory-union "bitlbee-plugins" plugins))
|
|
|
|
|
(conf (mixed-text-file "bitlbee.conf"
|
2018-05-10 10:37:58 -04:00
|
|
|
|
"
|
2018-01-15 16:04:55 -05:00
|
|
|
|
[settings]
|
|
|
|
|
User = bitlbee
|
|
|
|
|
ConfigDir = /var/lib/bitlbee
|
|
|
|
|
DaemonInterface = " interface "
|
|
|
|
|
DaemonPort = " (number->string port) "
|
2020-09-15 06:30:39 -04:00
|
|
|
|
PluginDir = " plugins "/lib/bitlbee
|
2022-04-16 13:17:57 -04:00
|
|
|
|
" extra-settings))
|
|
|
|
|
(bitlbee* (least-authority-wrapper
|
|
|
|
|
(file-append bitlbee "/sbin/bitlbee")
|
|
|
|
|
#:name "bitlbee"
|
2022-05-02 08:04:27 -04:00
|
|
|
|
#:preserved-environment-variables
|
2022-06-03 17:49:02 -04:00
|
|
|
|
'("PURPLE_PLUGIN_PATH" "GUIX_LOCPATH" "LC_ALL")
|
2022-04-16 13:17:57 -04:00
|
|
|
|
#:mappings (list (file-system-mapping
|
|
|
|
|
(source "/var/lib/bitlbee")
|
|
|
|
|
(target source)
|
|
|
|
|
(writable? #t))
|
2022-06-03 17:49:02 -04:00
|
|
|
|
(file-system-mapping
|
|
|
|
|
(source "/run/current-system/locale")
|
|
|
|
|
(target source))
|
2022-04-16 13:17:57 -04:00
|
|
|
|
(file-system-mapping
|
|
|
|
|
(source conf)
|
|
|
|
|
(target conf)))
|
|
|
|
|
#:namespaces (delq 'net %namespaces))))
|
2018-01-15 16:04:55 -05:00
|
|
|
|
|
|
|
|
|
(with-imported-modules (source-module-closure
|
|
|
|
|
'((gnu build shepherd)
|
|
|
|
|
(gnu system file-systems)))
|
|
|
|
|
(list (shepherd-service
|
|
|
|
|
(provision '(bitlbee))
|
|
|
|
|
|
|
|
|
|
;; Note: If networking is not up, then /etc/resolv.conf
|
|
|
|
|
;; doesn't get mapped in the container, hence the dependency
|
|
|
|
|
;; on 'networking'.
|
|
|
|
|
(requirement '(user-processes networking))
|
|
|
|
|
|
|
|
|
|
(modules '((gnu build shepherd)
|
|
|
|
|
(gnu system file-systems)))
|
2022-04-16 13:17:57 -04:00
|
|
|
|
(start #~(if (defined? 'make-inetd-constructor)
|
|
|
|
|
|
|
|
|
|
(make-inetd-constructor
|
2022-05-16 09:29:06 -04:00
|
|
|
|
(list #$bitlbee* "-I" "-c" #$conf)
|
2022-04-16 13:17:57 -04:00
|
|
|
|
(addrinfo:addr
|
|
|
|
|
(car (getaddrinfo #$interface
|
|
|
|
|
#$(number->string port)
|
|
|
|
|
(logior AI_NUMERICHOST
|
|
|
|
|
AI_NUMERICSERV))))
|
|
|
|
|
#:service-name-stem "bitlbee"
|
2022-05-16 09:29:06 -04:00
|
|
|
|
#:user "bitlbee" #:group "bitlbee"
|
2022-04-16 13:17:57 -04:00
|
|
|
|
|
|
|
|
|
;; Allow 'bitlbee-purple' to use libpurple plugins.
|
|
|
|
|
#:environment-variables
|
|
|
|
|
(list (string-append "PURPLE_PLUGIN_PATH="
|
2022-06-03 17:49:02 -04:00
|
|
|
|
#$plugins "/lib/purple-2")
|
|
|
|
|
"GUIX_LOCPATH=/run/current-system/locale"))
|
2022-04-16 13:17:57 -04:00
|
|
|
|
|
|
|
|
|
(make-forkexec-constructor/container
|
|
|
|
|
(list #$(file-append bitlbee "/sbin/bitlbee")
|
|
|
|
|
"-n" "-F" "-u" "bitlbee" "-c" #$conf)
|
|
|
|
|
|
|
|
|
|
;; Allow 'bitlbee-purple' to use libpurple plugins.
|
|
|
|
|
#:environment-variables
|
|
|
|
|
(list (string-append "PURPLE_PLUGIN_PATH="
|
|
|
|
|
#$plugins "/lib/purple-2"))
|
|
|
|
|
|
|
|
|
|
#:pid-file "/var/run/bitlbee.pid"
|
|
|
|
|
#:mappings (list (file-system-mapping
|
|
|
|
|
(source "/var/lib/bitlbee")
|
|
|
|
|
(target source)
|
|
|
|
|
(writable? #t))))))
|
2022-05-02 11:27:13 -04:00
|
|
|
|
(stop #~(if (defined? 'make-inetd-destructor)
|
|
|
|
|
(make-inetd-destructor)
|
|
|
|
|
(make-kill-destructor))))))))))
|
2018-01-15 16:04:55 -05:00
|
|
|
|
|
|
|
|
|
(define %bitlbee-accounts
|
|
|
|
|
;; User group and account to run BitlBee.
|
|
|
|
|
(list (user-group (name "bitlbee") (system? #t))
|
|
|
|
|
(user-account
|
|
|
|
|
(name "bitlbee")
|
|
|
|
|
(group "bitlbee")
|
|
|
|
|
(system? #t)
|
|
|
|
|
(comment "BitlBee daemon user")
|
|
|
|
|
(home-directory "/var/empty")
|
|
|
|
|
(shell (file-append shadow "/sbin/nologin")))))
|
|
|
|
|
|
|
|
|
|
(define %bitlbee-activation
|
|
|
|
|
;; Activation gexp for BitlBee.
|
|
|
|
|
#~(begin
|
|
|
|
|
(use-modules (guix build utils))
|
|
|
|
|
|
|
|
|
|
;; This directory is used to store OTR data.
|
|
|
|
|
(mkdir-p "/var/lib/bitlbee")
|
|
|
|
|
(let ((user (getpwnam "bitlbee")))
|
|
|
|
|
(chown "/var/lib/bitlbee"
|
|
|
|
|
(passwd:uid user) (passwd:gid user)))))
|
|
|
|
|
|
|
|
|
|
(define bitlbee-service-type
|
|
|
|
|
(service-type (name 'bitlbee)
|
|
|
|
|
(extensions
|
|
|
|
|
(list (service-extension shepherd-root-service-type
|
|
|
|
|
bitlbee-shepherd-service)
|
|
|
|
|
(service-extension account-service-type
|
|
|
|
|
(const %bitlbee-accounts))
|
|
|
|
|
(service-extension activation-service-type
|
|
|
|
|
(const %bitlbee-activation))))
|
|
|
|
|
(default-value (bitlbee-configuration))
|
|
|
|
|
(description
|
|
|
|
|
"Run @url{http://bitlbee.org,BitlBee}, a daemon that acts as
|
|
|
|
|
a gateway between IRC and chat networks.")))
|
|
|
|
|
|
2018-12-12 03:15:08 -05:00
|
|
|
|
|
|
|
|
|
;;;
|
|
|
|
|
;;; Quassel.
|
|
|
|
|
;;;
|
|
|
|
|
|
|
|
|
|
(define-record-type* <quassel-configuration>
|
|
|
|
|
quassel-configuration make-quassel-configuration
|
|
|
|
|
quassel-configuration?
|
|
|
|
|
(quassel quassel-configuration-quassel
|
|
|
|
|
(default quassel))
|
|
|
|
|
(interface quassel-configuration-interface
|
|
|
|
|
(default "::,0.0.0.0"))
|
|
|
|
|
(port quassel-configuration-port
|
|
|
|
|
(default 4242))
|
|
|
|
|
(loglevel quassel-configuration-loglevel
|
|
|
|
|
(default "Info")))
|
|
|
|
|
|
|
|
|
|
(define quassel-shepherd-service
|
|
|
|
|
(match-lambda
|
|
|
|
|
(($ <quassel-configuration> quassel interface port loglevel)
|
2022-04-17 16:18:50 -04:00
|
|
|
|
(let ((quassel (least-authority-wrapper
|
|
|
|
|
(file-append quassel "/bin/quasselcore")
|
|
|
|
|
#:name "quasselcore"
|
|
|
|
|
#:mappings (list (file-system-mapping
|
|
|
|
|
(source "/var/lib/quassel")
|
|
|
|
|
(target source)
|
|
|
|
|
(writable? #t))
|
|
|
|
|
(file-system-mapping
|
|
|
|
|
(source "/var/log/quassel")
|
|
|
|
|
(target source)
|
|
|
|
|
(writable? #t)))
|
|
|
|
|
;; XXX: The daemon needs to live in the main user
|
|
|
|
|
;; namespace, as root, so it can access /var/lib/quassel
|
|
|
|
|
;; owned by "quasselcore".
|
|
|
|
|
#:namespaces (fold delq %namespaces '(net user)))))
|
2018-12-12 03:15:08 -05:00
|
|
|
|
(list (shepherd-service
|
|
|
|
|
(provision '(quassel))
|
|
|
|
|
(requirement '(user-processes networking))
|
2022-04-17 16:18:50 -04:00
|
|
|
|
(start #~(make-forkexec-constructor
|
|
|
|
|
(list #$quassel
|
|
|
|
|
"--configdir=/var/lib/quassel"
|
|
|
|
|
"--logfile=/var/log/quassel/core.log"
|
|
|
|
|
(string-append "--loglevel=" #$loglevel)
|
|
|
|
|
(string-append "--port=" (number->string #$port))
|
|
|
|
|
(string-append "--listen=" #$interface))))
|
2018-12-12 03:15:08 -05:00
|
|
|
|
(stop #~(make-kill-destructor))))))))
|
|
|
|
|
|
|
|
|
|
(define %quassel-account
|
|
|
|
|
(list (user-group (name "quassel") (system? #t))
|
|
|
|
|
(user-account
|
|
|
|
|
(name "quasselcore")
|
|
|
|
|
(group "quassel")
|
|
|
|
|
(system? #t)
|
|
|
|
|
(comment "Quassel daemon user")
|
|
|
|
|
(home-directory "/var/lib/quassel")
|
|
|
|
|
(shell (file-append shadow "/sbin/nologin")))))
|
|
|
|
|
|
|
|
|
|
(define %quassel-activation
|
|
|
|
|
#~(begin
|
|
|
|
|
(use-modules (guix build utils))
|
|
|
|
|
(mkdir-p "/var/lib/quassel")
|
|
|
|
|
(mkdir-p "/var/log/quassel")
|
|
|
|
|
(let ((cert "/var/lib/quassel/quasselCert.pem"))
|
|
|
|
|
(unless (file-exists? cert)
|
|
|
|
|
(invoke #$(file-append openssl "/bin/openssl")
|
|
|
|
|
"req" "-x509" "-nodes" "-batch" "-days" "680" "-newkey"
|
|
|
|
|
"rsa" "-keyout" cert "-out" cert)))))
|
|
|
|
|
|
|
|
|
|
(define quassel-service-type
|
|
|
|
|
(service-type (name 'quassel)
|
|
|
|
|
(extensions
|
|
|
|
|
(list (service-extension shepherd-root-service-type
|
|
|
|
|
quassel-shepherd-service)
|
|
|
|
|
(service-extension profile-service-type
|
|
|
|
|
(compose list quassel-configuration-quassel))
|
|
|
|
|
(service-extension account-service-type
|
|
|
|
|
(const %quassel-account))
|
|
|
|
|
(service-extension activation-service-type
|
|
|
|
|
(const %quassel-activation))))
|
|
|
|
|
(default-value (quassel-configuration))
|
|
|
|
|
(description
|
|
|
|
|
"Run @url{https://quassel-irc.org/,quasselcore}, the backend
|
|
|
|
|
for the distributed IRC client quassel, which allows you to connect from
|
|
|
|
|
multiple machines simultaneously.")))
|