~ruther/guix-local: gnu: ntp: Find the location of installed binaries.

e28bf7c6f6773b809219d4322f13269f7829f855 — Efraim Flashner 7 months ago 00266c5

gnu: ntp: Find the location of installed binaries.

* gnu/packages/ntp.scm (ntp)[arguments]: Add a phase to set the full
path of the installed binaries.

Change-Id: I70d8a67c451ee01cce9afbc0bcd783b72dbc78be

patch browse .tar.gz

1 files changed, 10 insertions(+), 0 deletions(-)

M gnu/packages/ntp.scm

M gnu/packages/ntp.scm => gnu/packages/ntp.scm +10 -0

@@ 204,6 204,16 @@ time-stamping or reference clock, sub-microsecond accuracy is possible.")
                              "scripts/update-leap/update-leap.in")
                 (("https://www.ietf.org/timezones/data/leap-seconds.list")
                  "https://data.iana.org/time-zones/data/leap-seconds.list"))))
+          (add-after 'unpack 'use-absolute-path-in-files
+            (lambda _
+              (substitute* "scripts/lib/NTP/Util.pm"
+                (("(ntpq_path = ')ntpq(';)" _ first last)
+                 (string-append first #$output "/bin/ntpq" last))
+                (("(sntp_path = ')sntp(';)" _ first last)
+                 (string-append first #$output "/bin/sntp" last)))
+              (substitute* "scripts/calc_tickadj/calc_tickadj.in"
+                (("`tickadj`")
+                 (string-append "`" #$output "/bin/tickadj`")))))
           (add-after 'install 'adjust-scripts
             (lambda _
               (substitute* (string-append #$output "/bin/calc_tickadj")