;;; Tyreunom's system administration and configuration tools.

;;;

;;; Copyright © 2019 Julien Lepiller <julien@lepiller.eu>

;;;

;;; This program 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.

;;;

;;; This program 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 this program.  If not, see <http://www.gnu.org/licenses/>.

;;

;; Definition of rotation policies

;;

(define-module (config rotation)

  #:use-module (gnu services)

  #:use-module (gnu services admin)

  #:export (server-rotation-service-config

            desktop-rotation-service-config))

(define base-rotations

  (list

    (log-rotation

      ;; What about /var/log/guix?

      (files '("/var/log/guix-daemon.log"))

      (frequency 'daily)

      (options '("rotate 1" "log_rotate")))

    (log-rotation

      (files '("/var/log/mcron.log"))

      (frequency 'weekly)

      (options '("rotate 2" "log_rotate")))

    (log-rotation

      (files

        (map

          (lambda (<>) (string-append "/var/log/" <>))

          '("debug" "lastlog" "messages" "secure" "wtmp")))

      (frequency 'weekly)

      (options '("rotate 4" "log_rotate")))

    (log-rotation

      (files '("/var/log/shepherd.log"))

      (frequency 'daily)

      (options '("rotate 1" "log_rotate")))))

(define server-rotation-service-config

  (rottlog-configuration

    (rotations

      (append

        (list

          (log-rotation

            (files '("/var/log/letsencrypt/letsencrypt.log"))

            (frequency 'daily)

            (options '("rotate 30" "log_rotate" "nocompress")))

          (log-rotation

            (files '("/var/log/maillog"))

            (options '("rotate 5" "log_rotate"))

            (frequency 'daily))

          (log-rotation

            (files '("/var/log/nginx/access.log" "/var/log/nginx/error.log"))

            (frequency 'weekly)

            (options '("rotate 1" "log_rotate" "nocompress"))))

        base-rotations))))

(define desktop-rotation-service-config

  (rottlog-configuration

    (rotations base-rotations)))