mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 13:36:36 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: rottlog: Deprecate.

Browse source 
* gnu/services/admin.scm (rottlog-service-type): Deprecate.
* doc/guix.texi (Log Rotation): Add deprecation warning.

Change-Id: I661666ff3de64a69ff4f4982d7f432fd575c36df
This commit is contained in:
Ludovic Courtès 2024-12-11 23:52:19 +01:00
parent 6942161b44
commit a9f21036e4
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 14 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
doc/guix.texi
View file

@ -20953,6 +20953,13 @@ An alternative log rotation service relying on GNU@tie{}Rot[t]log, a log
rotation tool (@pxref{Top,,, rottlog, GNU Rot[t]log Manual}), is also rotation tool (@pxref{Top,,, rottlog, GNU Rot[t]log Manual}), is also
provided. provided.
@quotation Warning
The Rottlog service presented here is deprecated in favor of
@code{log-rotation-service-type} (see above). The
@code{rottlog-service-type} variable and related tools will be removed
after 2025-06-15.
@end quotation
The example below shows how to extend it with an additional The example below shows how to extend it with an additional
@dfn{rotation}, should you need to do that (usually, services that @dfn{rotation}, should you need to do that (usually, services that
produce log files already take care of that): produce log files already take care of that):

9
gnu/services/admin.scm
View file

@ -38,6 +38,7 @@ (define-module (gnu services admin)
#:use-module (gnu system accounts) #:use-module (gnu system accounts)
#:use-module ((gnu system shadow) #:select (account-service-type)) #:use-module ((gnu system shadow) #:select (account-service-type))
#:use-module ((guix store) #:select (%store-prefix)) #:use-module ((guix store) #:select (%store-prefix))
#:use-module (guix deprecation)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (guix modules) #:use-module (guix modules)
#:use-module (guix packages) #:use-module (guix packages)
@ -334,12 +335,16 @@ (define (rottlog-jobs-or-default config)
(or (rottlog-configuration-jobs config) (or (rottlog-configuration-jobs config)
(default-jobs (rottlog-configuration-rottlog config)))) (default-jobs (rottlog-configuration-rottlog config))))
(define rottlog-service-type ;; TODO: Deprecated; remove sometime after 2025-06-15.
(define-deprecated rottlog-service-type
log-rotation-service-type
(service-type (service-type
(name 'rottlog) (name 'rottlog)
(description (description
"Periodically rotate log files using GNU@tie{}Rottlog and GNU@tie{}mcron. "Periodically rotate log files using GNU@tie{}Rottlog and GNU@tie{}mcron.
Old log files are removed or compressed according to the configuration.") Old log files are removed or compressed according to the configuration.
This service is deprecated and slated for removal after 2025-06-15.")
(extensions (list (service-extension etc-service-type rottlog-etc) (extensions (list (service-extension etc-service-type rottlog-etc)
(service-extension mcron-service-type (service-extension mcron-service-type
rottlog-jobs-or-default) rottlog-jobs-or-default)