Re: [PATCH] gnu: Add rottlog.

[Jan Nieuwenhuizen]

Leo Famulari writes:

> Ludovic sent a WIP mcron service to guix-devel recently; you might take
> a look at that. Alternatively, I run mcron for my user only and it works
> as expected.

Thanks!

>> +              (patches (search-patches "rottlog.patch"))))
>
> That patch is missing from this patch ;)

Oops, again...

>> +    (arguments
>> +     '(#:configure-flags
>> +       (list (string-append "ROTT_ETCDIR=" %output "/etc/rottlog"))))
>> +    (build-system gnu-build-system)
>
> Nit-picky, but I think the order should be: source, build-system,
> arguments, inputs. At least, source should be first.

Ok.

>> +    (description
>> +     "GNU Rot[t]log is designed to simplify administration of systems that
>
> I think the description should contain the string "Rottlog" or
> "rottlog", to make searching easier.

Copied that [t] thing from the home page; changed to Rottlog.

Thanks!

Greetings,
Jan

>From f234c4be61c697f55ab66b15863d623b6458733e Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <address@hidden>
Date: Fri, 17 Jun 2016 16:33:16 +0200
Subject: [PATCH] gnu: Add rottlog.

* gnu/packages/logging.scm (rottlog): New variable.
---
 gnu/packages/logging.scm           | 33 ++++++++++++++++++++++++++++++++-
 gnu/packages/patches/rottlog.patch | 12 ++++++++++++
 2 files changed, 44 insertions(+), 1 deletion(-)
 create mode 100644 gnu/packages/patches/rottlog.patch

diff --git a/gnu/packages/logging.scm b/gnu/packages/logging.scm
index 68af09e..01279b1 100644
--- a/gnu/packages/logging.scm
+++ b/gnu/packages/logging.scm
@@ -1,5 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2016 Ricardo Wurmus <address@hidden>
+;;; Copyright © 2016 Jan Nieuwenhuizen <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -22,7 +23,9 @@
   #:use-module (guix utils)
   #:use-module (guix download)
   #:use-module (guix build-system gnu)
-  #:use-module (gnu packages))
+  #:use-module (gnu packages)
+  #:use-module (gnu packages linux)
+  #:use-module (gnu packages texinfo))
 
 (define-public log4cpp
   (package
@@ -45,3 +48,31 @@ IDSA and other destinations.  It is modeled after the Log4j 
Java library,
 staying as close to their API as is reasonable.")
     (home-page "http://log4cpp.sourceforge.net/";)
     (license license:lgpl2.1+)))
+
+(define-public rottlog
+  (package
+    (name "rottlog")
+    (version "0.72.2")
+    (inputs `(("util-linux" ,util-linux) ; cal
+              ("texinfo" ,texinfo)))
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://gnu/rottlog/rottlog-" version
+                                  ".tar.gz"))
+              (sha256
+               (base32
+                "0751mb9l2f0jrk3vj6q8ilanifd121dliwk0c34g8k0dlzsv3kd7"))
+              (patches (search-patches "rottlog.patch"))))
+    (build-system gnu-build-system)
+    (arguments
+     '(#:configure-flags
+       (list (string-append "ROTT_ETCDIR=" %output "/etc/rottlog"))))
+    (synopsis "The GNU log management facility")
+    (description
+     "GNU Rottlog is designed to simplify administration of systems that
+generate large numbers of log files.  It allows automatic rotation,
+compression, and archiving of logs.  It also mails reports to the system
+administrator.  Each log file may be handled daily, weekly, monthly, in
+user-defined days, or when it becomes too large.")
+    (home-page "https://www.gnu.org/software/rottlog/";)
+    (license license:gpl3+)))
diff --git a/gnu/packages/patches/rottlog.patch 
b/gnu/packages/patches/rottlog.patch
new file mode 100644
index 0000000..ed3eea4
--- /dev/null
+++ b/gnu/packages/patches/rottlog.patch
@@ -0,0 +1,12 @@
+diff -purN rottlog-0.72.2.orig/Makefile.in rottlog-0.72.2/Makefile.in
+--- rottlog-0.72.2.orig/Makefile.in    2010-03-30 07:06:27.000000000 +0200
++++ rottlog-0.72.2/Makefile.in 2016-06-17 16:02:14.008167895 +0200
+@@ -182,7 +182,7 @@ GZIP = @GZIP@
+ INSTALL = @INSTALL@
+ INSTALL_DATA = @INSTALL_DATA@
+ INSTALL_PROGRAM = @INSTALL_PROGRAM@
+-INSTALL_SCRIPT = ${INSTALL} -o ${LOG_OWN} -g ${LOG_GROUP} -m ${LOG_MODE}
++INSTALL_SCRIPT = ${INSTALL} -m ${LOG_MODE}
+ INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
+ LIBOBJS = @LIBOBJS@
+ LIBS = @LIBS@
-- 
2.8.4

-- 
Jan Nieuwenhuizen <address@hidden> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar®  http://AvatarAcademy.nl