;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Sou Bunnbu <iyzsong@member.fsf.org>
;;;
;;; 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 monitoring)
  #:use-module (gnu services)
  #:use-module (gnu services shepherd)
  #:use-module (gnu packages admin)
  #:use-module (gnu packages monitoring)
  #:use-module (gnu system shadow)
  #:use-module (guix gexp)
  #:use-module (guix records)
  #:use-module (ice-9 match)
  #:export (darkstat-configuration
            darkstat-service-type))


;;;
;;; darkstat
;;;

(define-record-type* <darkstat-configuration>
  darkstat-configuration make-darkstat-configuration darkstat-configuration?
  (package      darkstat-configuration-package
                (default darkstat))
  (interface    darkstat-configuration-interface)
  (port         darkstat-configuration-port
                (default "667"))
  (bind-address darkstat-configuration-bind-address
                (default "127.0.0.1"))
  (base         darkstat-configuration-base
                (default "/")))

(define %darkstat-accounts
  (list (user-account
         (name "darkstat")
         (group "darkstat")
         (system? #t)
         (comment "darkstat daemon user")
         (home-directory "/var/lib/darkstat")
         (shell (file-append shadow "/sbin/nologin")))
        (user-group
         (name "darkstat")
         (system? #t))))

(define darkstat-shepherd-service
  (match-lambda
    (($ <darkstat-configuration>
        package interface port bind-address base)
     (shepherd-service
      (documentation "Network statistics gatherer.")
      (provision '(darkstat))
      (requirement '(networking))
      (start #~(make-forkexec-constructor
                (list #$(file-append package "/sbin/darkstat")
                      "-i" #$interface
                      "-p" #$port
                      "-b" #$bind-address
                      "--base" #$base
                      "--syslog" "--no-daemon"
                      "--chroot" "/var/lib/darkstat"
                      "--user" "darkstat"
                      "--import" "darkstat.db"
                      "--export" "darkstat.db")))
      (stop #~(make-kill-destructor))))))

(define darkstat-service-type
  (service-type
   (name 'darkstat)
   (description
    "Run @command{darkstat} to serve network traffic statictics reports over
HTTP.")
   (extensions
    (list (service-extension account-service-type
                             (const %darkstat-accounts))
          (service-extension shepherd-root-service-type
                             (compose list darkstat-shepherd-service))))))
0'>2017-04-16</span></td><td><a href='/guix/commit/gnu/services/dict.scm?id=3d3c56500843b5573ba6419db5e66075fb8ac8ef'>services: Add a default value to various service types.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-04-01 00:45:18 +0200'>2017-04-01</span></td><td><a href='/guix/commit/gnu/services/dict.scm?id=9af7ecd9591b4eff41389291bbc586dcf09e2665'>services: dicod: Allow the configuration of "handlers".</a><span class='msg-avail'>...</span></td><td>Huang Ying</td></tr>
<tr><td><span title='2016-11-19 19:37:30 +0800'>2016-11-19</span></td><td><a href='/guix/commit/gnu/services/dict.scm?id=e5aade794a89a742b1f9663d42bbbfd24955718b'>services: dicod-service: Honor 'dicod-configuration-dico'.</a><span class='msg-avail'>...</span></td><td>宋文武</td></tr>
<tr><td><span title='2016-09-10 13:10:06 +0200'>2016-09-10</span></td><td><a href='/guix/commit/gnu/services/dict.scm?id=9e41130b14ad32c4e1fa756f95d806703056cb60'>system: Use 'file-append' to denote file names.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-07-21 18:53:27 +0200'>2016-07-21</span></td><td><a href='/guix/commit/gnu/services/dict.scm?id=24e964314ecfd29b8c592bfb7be923e8f740574c'>services: Export *-service-type and *-configuration.</a><span class='msg-avail'>...</span></td><td>Tomáš Čech</td></tr>
<tr><td><span title='2016-06-17 11:14:18 +0200'>2016-06-17</span></td><td><a href='/guix/commit/gnu/services/dict.scm?id=a1b484654af07303813a215d4e04c0e4e7b199e5'>services: dicod: Add 'interfaces' configuration field.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2016-06-05 13:48:15 +0800'>2016-06-05</span></td><td><a href='/guix/commit/gnu/services/dict.scm?id=c3d38b2b9d91f5632436eb74809622bc9f1ac6d1'>gnu: services: Add dicod-service.</a><span class='msg-avail'>...</span></td><td>宋文武</td></tr>