me
/
guix
Archived
1
0
Fork 0
Code

gnu: ddclient: Update to 3.9.1. 

* gnu/packages/dns.scm (ddclient): Update to 3.9.1.
[source]: Use GIT-FETCH and add a FILE-NAME.
[native-inputs]: Remove gzip and tar.
[arguments]: Adapt to git checkout source.
master
Tobias Geerinckx-Rice 2020-02-16 16:39:30 +01:00
parent 3bc39f0c5d
commit 8bb9f9971c
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 47 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

96
gnu/packages/dns.scm
View File

@ -741,20 +741,20 @@ LuaJIT, both a resolver library and a daemon.")
(define-public ddclient (define-public ddclient
(package (package
(name "ddclient") (name "ddclient")
(version "3.9.0") (version "3.9.1")
(source (origin (source
(method url-fetch) (origin
(uri (string-append "mirror://sourceforge/ddclient/ddclient/ddclient-" (method git-fetch)
version "/ddclient-" version ".tar.gz")) (uri (git-reference
(sha256 (url "https://github.com/ddclient/ddclient.git")
(base32 (commit (string-append "v" version))))
"0fwyhab8yga2yi1kdfkbqxa83wxhwpagmj1w1mwkg2iffh1fjjlw")))) (file-name (git-file-name name version))
(sha256
(base32 "0hf377g4j9r9sac75xp17nk2h58mazswz4vkg4g2gl2yyhvzq91w"))))
(build-system trivial-build-system) ; no Makefile.PL (build-system trivial-build-system) ; no Makefile.PL
(native-inputs (native-inputs
`(("bash" ,bash) `(("bash" ,bash)
("gzip" ,gzip) ("perl" ,perl)))
("perl" ,perl)
("tar" ,tar)))
(inputs (inputs
`(("inetutils" ,inetutils) ; logger `(("inetutils" ,inetutils) ; logger
("net-tools" ,net-tools) ("net-tools" ,net-tools)
@ -770,47 +770,45 @@ LuaJIT, both a resolver library and a daemon.")
(use-modules (guix build utils) (use-modules (guix build utils)
(ice-9 match) (ice-9 match)
(srfi srfi-26)) (srfi srfi-26))
;; bootstrap
(setenv "PATH" (string-append (setenv "PATH" (string-append
(assoc-ref %build-inputs "bash") "/bin" ":" (assoc-ref %build-inputs "bash") "/bin" ":"
(assoc-ref %build-inputs "tar") "/bin" ":"
(assoc-ref %build-inputs "gzip") "/bin" ":"
(assoc-ref %build-inputs "perl") "/bin")) (assoc-ref %build-inputs "perl") "/bin"))
;; extract source
(invoke "tar" "xvf" (assoc-ref %build-inputs "source")) ;; Copy the (read-only) source into the (writable) build directory.
;; package (copy-recursively (assoc-ref %build-inputs "source") ".")
(with-directory-excursion (string-append ,name "-" ,version)
(let* ((out (assoc-ref %outputs "out")) ;; Install.
(bin (string-append out "/bin"))) (let* ((out (assoc-ref %outputs "out"))
(let ((file "ddclient")) (bin (string-append out "/bin")))
(substitute* file (let ((file "ddclient"))
(("/usr/bin/perl") (which "perl")) (substitute* file
;; Strictly use ‘/etc/ddclient/ddclient.conf’. (("/usr/bin/perl") (which "perl"))
(("\\$\\{program\\}\\.conf") "/etc/ddclient/ddclient.conf") ;; Strictly use ‘/etc/ddclient/ddclient.conf’.
(("\\$etc\\$program.conf") "/etc/ddclient/ddclient.conf") (("\\$\\{program\\}\\.conf") "/etc/ddclient/ddclient.conf")
;; Strictly use ‘/var/cache/ddclient/ddclient.cache’ (("\\$etc\\$program.conf") "/etc/ddclient/ddclient.conf")
(("\\$cachedir\\$program\\.cache") ;; Strictly use ‘/var/cache/ddclient/ddclient.cache’
"/var/cache/ddclient/ddclient.cache")) (("\\$cachedir\\$program\\.cache")
(install-file file bin) "/var/cache/ddclient/ddclient.cache"))
(wrap-program (string-append bin "/" file) (install-file file bin)
`("PATH" ":" = (wrap-program (string-append bin "/" file)
("$PATH" `("PATH" ":" =
,@(map (lambda (input) ("$PATH"
(match input ,@(map (lambda (input)
((name . store) (match input
(string-append store "/bin")))) ((name . store)
%build-inputs))) (string-append store "/bin"))))
`("PERL5LIB" ":" = %build-inputs)))
,(delete `("PERL5LIB" ":" =
"" ,(delete
(map (match-lambda ""
(((? (cut string-prefix? "perl-" <>) name) . dir) (map (match-lambda
(string-append dir "/lib/perl5/site_perl")) (((? (cut string-prefix? "perl-" <>) name) . dir)
(_ "")) (string-append dir "/lib/perl5/site_perl"))
%build-inputs))))) (_ ""))
(for-each (cut install-file <> (string-append out %build-inputs)))))
"/share/ddclient")) (for-each (cut install-file <> (string-append out
(find-files "." "sample.*$"))))))) "/share/ddclient"))
(find-files "." "sample.*$"))))))
(home-page "https://sourceforge.net/projects/ddclient/") (home-page "https://sourceforge.net/projects/ddclient/")
(synopsis "Address updating utility for dynamic DNS services") (synopsis "Address updating utility for dynamic DNS services")
(description "This package provides a client to update dynamic IP (description "This package provides a client to update dynamic IP