From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:56643) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dkRvK-0005jL-2X for guix-patches@gnu.org; Wed, 23 Aug 2017 05:26:07 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dkRvG-0007Si-Gz for guix-patches@gnu.org; Wed, 23 Aug 2017 05:26:06 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:41646) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dkRvG-0007SU-Dl for guix-patches@gnu.org; Wed, 23 Aug 2017 05:26:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1dkRvG-0001W7-7b for guix-patches@gnu.org; Wed, 23 Aug 2017 05:26:02 -0400 Subject: [bug#28198] [PATCH 3/4] services: Add MongoDB. Resent-Message-ID: From: Christopher Baines Date: Wed, 23 Aug 2017 10:25:15 +0100 Message-Id: <20170823092516.6846-3-mail@cbaines.net> In-Reply-To: <20170823092516.6846-1-mail@cbaines.net> References: <20170823092516.6846-1-mail@cbaines.net> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 28198@debbugs.gnu.org * ... --- gnu/services/databases.scm | 87 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 87 insertions(+) diff --git a/gnu/services/databases.scm b/gnu/services/databases.scm index de1f6b841..107bb2d09 100644 --- a/gnu/services/databases.scm +++ b/gnu/services/databases.scm @@ -44,6 +44,10 @@ memcached-configuration-udp-port memcached-configuration-additional-options + mongodb-configuration + mongodb-configuration? + mongodb-service-type + mysql-service mysql-service-type mysql-configuration @@ -263,6 +267,89 @@ and stores the database cluster in @var{data-directory}." (default-value (memcached-configuration)))) +;;; +;;; MongoDB +;;; + +(define %default-mongodb-configuration-file + (plain-file + "mongodb.yaml" + "# GNU Guix: MongoDB default configuration file +processManagement: + pidFilePath: /var/run/mongodb/pid +storage: + dbPath: /var/lib/mongodb +")) + + +(define-record-type* + mongodb-configuration make-mongodb-configuration + mongodb-configuration? + (mongodb mongodb-configuration-mongodb + (default mongodb)) + (port mongodb-congiguration-port + (default 27017)) + (configuration-file mongodb-configuration-file + (default %default-mongodb-configuration-file)) + (data-directory mongodb-configuration-data-directory + (default "/var/lib/mongodb"))) + +(define %mongodb-accounts + (list (user-group (name "mongodb") (system? #t)) + (user-account + (name "mongodb") + (group "mongodb") + (system? #t) + (comment "Mongodb server user") + (home-directory "/var/lib/mongodb") + (shell (file-append shadow "/sbin/nologin"))))) + +(define mongodb-activation + (match-lambda + (($ mongodb port config-file data-directory) + #~(begin + (use-modules (guix build utils)) + (let ((user (getpwnam "mongodb"))) + (for-each + (lambda (directory) + (mkdir-p directory) + (chown directory + (passwd:uid user) (passwd:gid user))) + '("/var/run/mongodb" #$data-directory))))))) + +(define mongodb-shepherd-service + (match-lambda + (($ mongodb port config-file data-directory) + (shepherd-service + (provision '(mongodb)) + (documentation "Run the Mongodb daemon.") + (requirement '(user-processes loopback)) + (start #~(make-forkexec-constructor + `(,(string-append #$mongodb "/bin/mongod") + "--config" + ,#$config-file) + #:user "mongodb" + #:group "mongodb" + #:pid-file "/var/run/mongodb/pid" + ;#:log-file "/var/log/mongodb.log" + )) + (stop #~(make-kill-destructor)))))) + +(define mongodb-service-type + (service-type + (name 'mongodb) + (extensions + (list (service-extension shepherd-root-service-type + (compose list + mongodb-shepherd-service)) + (service-extension activation-service-type + mongodb-activation) + (service-extension account-service-type + (const %mongodb-accounts)))) + (default-value + (mongodb-configuration)))) + + ;;; ;;; MySQL. ;;; -- 2.14.1