#:use-module (config rotation)

    server-rotation-service

    desktop-rotation-service

;;; 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

            desktop-rotation-service))

(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

  (service rottlog-service-type

    (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

  (service rottlog-service-type

    (rottlog-configuration

      (rotations base-rotations))))