blob: 7bf352e40b62223a56716fbecfe49e4d0439dbd0 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
(define-module (battering packages dns)
#:use-module (guix build-system copy)
#:use-module (guix download)
#:use-module (guix packages)
#:use-module ((guix licenses)
#:prefix license:)
#:use-module (gnu packages networking)
#:use-module (gnu packages curl)
#:use-module (gnu packages base)
#:use-module (gnu packages gawk)
#:use-module (gnu packages dns))
(define-public opennic-up
(package
(name "opennic-up")
(version "1.2.4")
(source
(origin
(method url-fetch)
(uri
(string-append "https://github.com/kewlfft/opennic-up/"
"archive/refs/tags/v" version ".tar.gz"))
(sha256
(base32 "1ii61xsqcb94fgfbxqjv87gm00kvh0ixlwjal80cjmdgy42axdwc"))))
(build-system copy-build-system)
(inputs
(list gawk
coreutils
curl
fping
findutils
`(,ldns "drill")))
(arguments
'(#:install-plan '(("opennic-up" "bin/")
("opennic-up.conf" "etc/")
("README.md" "share/doc/opennic-up/"))
#:phases (modify-phases %standard-phases
(add-after 'unpack 'patch-executables-path
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "opennic-up"
((" (awk|drill|curl|sort|cat)" _ exec)
(string-append
" "
(search-input-file
inputs
(string-append "/bin/" exec)))))
(substitute* "opennic-up"
((" (fping)" _ exec)
(string-append
" "
(search-input-file
inputs
(string-append "/sbin/" exec))))))))))
(home-page "https://github.com/kewlfft/opennic-up")
(synopsis "OpenNIC auto DNS updater")
(description "opennic-up is a DNS wizard for OpenNIC")
(license license:lgpl3+)))
|
