From cc75486d156aaea37fe152507a631d20ae70ecc6 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Tue, 8 Aug 2023 15:39:57 +0100 Subject: fcgiwrap: Add fcgiwrap service. * guix/forge/fcgiwrap.scm: New file. * doc/forge.skb (Services)[Specialized application deployment services]: New section. --- doc/forge.skb | 41 +++++++++++- guix/forge/fcgiwrap.scm | 169 ++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 209 insertions(+), 1 deletion(-) create mode 100644 guix/forge/fcgiwrap.scm diff --git a/doc/forge.skb b/doc/forge.skb index f230d2c..91a608d 100644 --- a/doc/forge.skb +++ b/doc/forge.skb @@ -323,7 +323,46 @@ of 8 between 2048 and 8192.])) (record-documentation "guix/forge/acme.scm" ' (record-field "length" [Length of the ECDSA key in number of bits. Must be either -256 or 384.]))))) +256 or 384.])))) + (section :title [Specialized application deployment services] + :ident "section-specialized-application-deployment-services" + (subsection :title [fcgiwrap service] + :ident "fcgiwrap-service" + (p [fcgiwrap is a specialized web server for ,(ref :url +"https://en.wikipedia.org/wiki/Common_Gateway_Interface" :text "CGI") +applications. It provides a ,(ref :url +"https://en.wikipedia.org/wiki/FastCGI" :text "FastCGI") interface +that web servers such as nginx can talk to. We run separate +containerized instances of fcgiwrap for each application.]) + (p [Note that this service is different from the fcgiwrap +service of the same name in Guix upstream.]) + (description + (record-documentation "guix/forge/fcgiwrap.scm" ' + (record-field "package" + [,(code [fcgiwrap]) package to use]) + (record-field "instances" + [List of ,(record-ref "") objects +describing fcgiwrap instances to run])) + (record-documentation "guix/forge/fcgiwrap.scm" ' + (record-field "name" + [Name of the fcgiwrap instance]) + (record-field "socket" + [Socket the fcgiwrap instance listens on. Socket may be a +,(record-ref ""), ,(record-ref "") +or ,(record-ref "") object.]) + (record-field "user" + [User the fcgiwrap instance should run as]) + (record-field "group" + [Group the fcgiwrap instance should run as]) + (record-field "processes" + [Number of fcgiwrap worker processes]) + (record-field "environment-variables" + [Association list mapping environment variables that +should be set in the execution environment to their values]) + (record-field "mappings" + [List of ,(code []) objects +describing additional directories that should be shared with the +container fcgiwrap is run in])))))) (chapter :title [Reference] :ident "chapter-reference" (description diff --git a/guix/forge/fcgiwrap.scm b/guix/forge/fcgiwrap.scm new file mode 100644 index 0000000..b14bb23 --- /dev/null +++ b/guix/forge/fcgiwrap.scm @@ -0,0 +1,169 @@ +;;; guix-forge --- Guix software forge meta-service +;;; Copyright © 2023 Arun Isaac +;;; +;;; This file is part of guix-forge. +;;; +;;; guix-forge 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. +;;; +;;; guix-forge 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 guix-forge. If not, see +;;; . + +(define-module (forge fcgiwrap) + #:use-module (forge socket) + #:use-module (gnu build linux-container) + #:use-module ((gnu packages web) #:select (fcgiwrap)) + #:use-module (gnu services) + #:use-module (gnu services shepherd) + #:use-module (gnu system file-systems) + #:use-module (guix gexp) + #:use-module (guix least-authority) + #:use-module (guix records) + #:use-module (ice-9 match) + #:use-module (srfi srfi-1) + #:export (fcgiwrap-service-type + fcgiwrap-configuration + fcgiwrap-configuration? + fcgiwrap-configuration-package + fcgiwrap-configuration-instances + fcgiwrap-instance + fcgiwrap-instance? + fcgiwrap-instance-name + fcgiwrap-instance-socket + fcgiwrap-instance-processes + fcgiwrap-instance-environment-variables + fcgiwrap-instance-mappings)) + +(define-record-type* + fcgiwrap-configuration make-fcgiwrap-configuration + fcgiwrap-configuration? + (package fcgiwrap-configuration-package + (default fcgiwrap)) + (instances fcgiwrap-configuration-instances + (default '()))) + +(define-record-type* + fcgiwrap-instance make-fcgiwrap-instance + fcgiwrap-instance? + this-fcgiwrap-instance + (name fcgiwrap-instance-name) + (socket fcgiwrap-instance-socket + (default (forge-unix-socket + (path (string-append "/var/run/fcgiwrap/" + (fcgiwrap-instance-name this-fcgiwrap-instance) + "/socket")))) + (thunked)) + (user fcgiwrap-instance-user) + (group fcgiwrap-instance-group) + (processes fcgiwrap-instance-processes + (default 1)) + (environment-variables fcgiwrap-instance-environment-variables + (default '())) + (mappings fcgiwrap-instance-mappings + (default '()))) + +(define (fcgiwrap-activation config) + (with-imported-modules '((guix build utils)) + #~(begin + (use-modules (guix build utils)) + + ;; Create socket directories and set ownership. + (for-each (match-lambda + ((user-name group-name socket-directory) + (mkdir-p socket-directory) + (let ((user (getpw user-name)) + (group (getgr group-name))) + (chown socket-directory (passwd:uid user) (group:gid group))))) + '#$(filter-map (match-record-lambda + (socket user group) + (and (forge-unix-socket? socket) + (list user + group + (dirname (forge-unix-socket-path socket))))) + (fcgiwrap-configuration-instances config)))))) + +(define (socket->fcgiwrap-socket-url socket) + "Serialize @var{socket} to URL as required by fcgiwrap." + (match socket + ;; KLUDGE: When passed a host socket, we assume it resolves to an + ;; IPv4 address, not an IPv6 address. + (($ hostname port) + (string-append "tcp:" hostname ":" (number->string port))) + (($ (? ipv4-address? ip) port) + (string-append "tcp:" ip ":" (number->string port))) + (($ (? ipv6-address? ip) port) + (string-append "tcp6:[" ip "]:" (number->string port))) + (($ path) + (string-append "unix:" path)))) + +(define (fcgiwrap-shepherd-services config) + (map (match-record-lambda + (name socket user group processes environment-variables mappings) + (shepherd-service + (documentation (string-append "Run fcgiwrap for " name " script.")) + (provision '(fcgiwrap)) + (requirement '(networking)) + (modules '((ice-9 match))) + (start + #~(make-forkexec-constructor + (list #$(least-authority-wrapper + (file-append (fcgiwrap-configuration-package config) + "/sbin/fcgiwrap") + #:name (string-append "fcgiwrap-" name "-pola-wrapper") + #:mappings (append + ;; Mappings for Unix socket directories + (if (forge-unix-socket? socket) + (list (file-system-mapping + (source (dirname (forge-unix-socket-path socket))) + (target source) + (writable? #t))) + (list)) + ;; Additional mappings + mappings) + #:preserved-environment-variables + (map (match-lambda + ((variable . value) variable)) + environment-variables) + ;; TODO: If socket is a Unix socket, run in a + ;; network namespace. We can't do this yet due to + ;; https://yhetil.org/guix/m1ilknoi5r.fsf@fastmail.net/ + #:namespaces (delq 'net %namespaces)) + "-s" #$(socket->fcgiwrap-socket-url socket) + "-c" #$(number->string processes)) + #:user #$user + #:group #$group + #:environment-variables + (map (match-lambda + ((variable value) + (string-append variable "=" value))) + '#$(map (match-lambda + ((variable . value) + (list variable value))) + environment-variables)) + #:log-file #$(string-append "/var/log/fcgiwrap/" name ".log"))) + (stop #~(make-kill-destructor)))) + (fcgiwrap-configuration-instances config))) + +(define fcgiwrap-service-type + (service-type + (name 'fcgiwrap) + (description "Run fcgiwrap.") + (extensions (list (service-extension activation-service-type + fcgiwrap-activation) + (service-extension shepherd-root-service-type + fcgiwrap-shepherd-services))) + (compose concatenate) + (extend (lambda (config instances) + (fcgiwrap-configuration + (inherit config) + (instances (append (fcgiwrap-configuration-instances config) + instances))))) + (default-value (fcgiwrap-configuration)))) -- cgit v1.2.3