From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Thompson Subject: [PATCH] gnu: services: Add nginx-service. Date: Sun, 02 Aug 2015 23:31:41 -0400 Message-ID: <873801rqsi.fsf@izanagi.i-did-not-set--mail-host-address--so-tickle-me> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:38680) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZM6TY-0002Oi-SE for guix-devel@gnu.org; Sun, 02 Aug 2015 23:31:46 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZM6TX-0004h7-8k for guix-devel@gnu.org; Sun, 02 Aug 2015 23:31:44 -0400 Received: from mail.fsf.org ([208.118.235.13]:44047) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZM6TX-0004h0-5M for guix-devel@gnu.org; Sun, 02 Aug 2015 23:31:43 -0400 Received: from 209-6-40-86.c3-0.smr-ubr1.sbo-smr.ma.cable.rcn.com ([209.6.40.86]:42656 helo=izanagi) by mail.fsf.org with esmtpsa (TLS-1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.69) (envelope-from ) id 1ZM6TW-0004CM-0x for guix-devel@gnu.org; Sun, 02 Aug 2015 23:31:42 -0400 List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org --=-=-= Content-Type: text/plain Here's a basic nginx service. There are more actions that could be added in the future, but this does the essentials. --=-=-= Content-Type: text/x-patch; charset=utf-8 Content-Disposition: inline; filename=0001-gnu-services-Add-nginx-service.patch Content-Transfer-Encoding: quoted-printable >From 4bd0c36545258d028a74e2fc7144a4037ec1148f Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 2 Aug 2015 23:29:53 -0400 Subject: [PATCH] gnu: services: Add nginx-service. * gnu/services/web.scm: New file. * gnu-system.am (GNU_SYSTEM_MODULES): Add it. --- gnu-system.am | 1 + gnu/services/web.scm | 105 +++++++++++++++++++++++++++++++++++++++++++++++= ++++ 2 files changed, 106 insertions(+) create mode 100644 gnu/services/web.scm diff --git a/gnu-system.am b/gnu-system.am index 87924fe..5a28c4b 100644 --- a/gnu-system.am +++ b/gnu-system.am @@ -345,6 +345,7 @@ GNU_SYSTEM_MODULES =3D \ gnu/services/lirc.scm \ gnu/services/networking.scm \ gnu/services/ssh.scm \ + gnu/services/web.scm \ gnu/services/xorg.scm \ \ gnu/system.scm \ diff --git a/gnu/services/web.scm b/gnu/services/web.scm new file mode 100644 index 0000000..85c6e07 --- /dev/null +++ b/gnu/services/web.scm @@ -0,0 +1,105 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright =C2=A9 2015 David Thompson +;;; +;;; 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 . + +(define-module (gnu services web) + #:use-module (gnu services) + #:use-module (gnu system shadow) + #:use-module (gnu packages admin) + #:use-module (gnu packages web) + #:use-module (guix records) + #:use-module (guix monads) + #:use-module (guix store) + #:use-module (guix gexp) + #:export (nginx-service)) + +;;; Commentary: +;;; +;;; Web services. +;;; +;;; Code: + +(define %default-nginx-config + (text-file* "nginx.conf" + "user nginx nginx;\n" + "pid /var/run/nginx/pid;\n" + "error_log /var/log/nginx/error.log info;\n" + "http {\n" + " access_log /var/log/nginx/access.log;\n" + " root /var/www;\n" + " server {}\n" + "}\n" + "events {}\n")) + +(define* (nginx-service #:key (nginx nginx) + (config-file %default-nginx-config) + (log-directory "/var/log/nginx") + (run-directory "/var/run/nginx")) + "Return a service that runs NGINX, the nginx web server. + +The nginx daemon loads its runtime configuration from CONFIG-FIGLE, stores= log +files in LOG-DIRECTORY, and stores temporary runtime files in RUN-DIRECTOR= Y." + (define nginx* #~(string-append #$nginx "/sbin/nginx")) + + (define start-script + (mlet %store-monad ((config-file config-file)) + (gexp->script "start-nginx" + #~(system* #$nginx* "-c" #$config-file + "-p" #$run-directory)))) + + (define stop-script + (mlet %store-monad ((config-file config-file)) + (gexp->script "stop-nginx" + #~(system* #$nginx* "-c" #$config-file + "-p" #$run-directory "-s" "stop")))) + + (define activate + (mlet %store-monad ((config-file config-file)) + (return + #~(begin + (use-modules (guix build utils)) + (format #t "creating nginx log directory '~a'~%" #$log-director= y) + (mkdir-p #$log-directory) + (format #t "creating nginx run directory '~a'~%" #$run-director= y) + (mkdir-p #$run-directory) + ;; Check configuration file syntax. + (system* #$nginx* "-c" #$config-file "-t"))))) + + (mlet %store-monad ((start-script start-script) + (stop-script stop-script) + (activate activate)) + (return + (service + (provision '(nginx)) + (documentation "Run the nginx daemon.") + (requirement '(user-processes loopback)) + (start #~(lambda _ + (zero? (status:exit-val (system* #$start-script))))) + (stop #~(lambda _ + (zero? (status:exit-val (system* #$stop-script))))) + (activate activate) + (user-groups (list (user-group + (name "nginx") + (system? #t)))) + (user-accounts (list (user-account + (name "nginx") + (group "nginx") + (system? #t) + (comment "nginx server user") + (home-directory "/var/empty") + (shell + #~(string-append #$shadow "/sbin/nologin"))))= ))))) --=20 2.4.3 --=-=-= Content-Type: text/plain -- David Thompson GPG Key: 0FF1D807 --=-=-=--