Re: rottlog daily test

[Ludovic Courtès]

Hello!

Jan Nieuwenhuizen <address@hidden> skribis:

> From 192c442b597e9e54bc7ab787f680861f919b37e1 Mon Sep 17 00:00:00 2001
> From: Jan Nieuwenhuizen <address@hidden>
> Date: Sat, 18 Jun 2016 22:37:48 +0200
> Subject: [PATCH] admin: rottlog: daily
>
> ---
>  gnu/packages/admin.scm | 20 +++++++++++++++-----
>  1 file changed, 15 insertions(+), 5 deletions(-)
>
> diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
> index 415a35a..e10483e 100644
> --- a/gnu/packages/admin.scm
> +++ b/gnu/packages/admin.scm
> @@ -769,11 +769,21 @@ over ssh connections.")
>                                                (assoc-ref %outputs "out")
>                                                "/etc")
>                                 "--localstatedir=/var")
> -       #:phases (alist-cons-after
> -                 'install 'install-info
> -                 (lambda _
> -                   (zero? (system* "make" "install-info")))
> -                 %standard-phases)))
> +       #:phases (modify-phases %standard-phases
> +                  (add-after 'build 'set-packdir
> +                    (lambda _
> +                      (substitute* "rc/rc"
> +                        (("packdir=\"\"")
> +                         "packdir=\"/var/log\""))))
> +                  (add-after 'install 'install-daily
> +                    (lambda* (#:key outputs #:allow-other-keys)
> +                      (let ((out (assoc-ref outputs "out")))
> +                        (zero? (system* "mv"
> +                                        (string-append out "/etc/weekly")
> +                                        (string-append out "/etc/daily"))))))
> +                  (add-after 'install 'install-info
> +                    (lambda _
> +                      (zero? (system* "make" "install-info")))))))

On closer inspection, it seems to me we should be using
--sysconfdir=/etc, but still provide the example config files in
OUT/etc.

WDYT?

Thanks,
Ludo’.