gnu/packages/cluster.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2018 Sou Bunnbu <iyzsong@member.fsf.org>
   3 ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
   4 ;;;
   5 ;;; This file is part of GNU Guix.
   6 ;;;
   7 ;;; GNU Guix is free software; you can redistribute it and/or modify it
   8 ;;; under the terms of the GNU General Public License as published by
   9 ;;; the Free Software Foundation; either version 3 of the License, or (at
  10 ;;; your option) any later version.
  11 ;;;
  12 ;;; GNU Guix is distributed in the hope that it will be useful, but
  13 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  14 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15 ;;; GNU General Public License for more details.
  16 ;;;
  17 ;;; You should have received a copy of the GNU General Public License
  18 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  19
  20 (define-module (gnu packages cluster)
  21   #:use-module ((guix licenses) #:prefix license:)
  22   #:use-module (guix build-system gnu)
  23   #:use-module (guix download)
  24   #:use-module (guix packages)
  25   #:use-module (gnu packages linux)
  26   #:use-module (gnu packages pkg-config)
  27   #:use-module (gnu packages sphinx)
  28   #:use-module (gnu packages texinfo)
  29   #:use-module (gnu packages tls))
  30
  31 (define-public keepalived
  32   (package
  33     (name "keepalived")
  34     (version "2.0.5")
  35     (source (origin
  36               (method url-fetch)
  37               (uri (string-append
  38                     "http://www.keepalived.org/software/keepalived-"
  39                     version ".tar.gz"))
  40               (sha256
  41                (base32
  42                 "021a7c1lq4aqx7dbwhlm5km6w039hapfzp5hf6wb5bfq79s25g38"))))
  43     (build-system gnu-build-system)
  44     (arguments
  45      '(#:phases
  46        (modify-phases %standard-phases
  47          (add-after 'build 'build-info
  48            (lambda _
  49              (invoke "make" "-C" "doc" "texinfo")
  50              ;; Put images in a subdirectory as recommended by 'texinfo'.
  51              (install-file "doc/build/texinfo/software_design.png"
  52                            "doc/build/texinfo/keepalived-figures")
  53              (substitute* "doc/build/texinfo/keepalived.texi"
  54                (("@image\\{software_design,")
  55                 "@image{keepalived-figures/software_design,"))
  56              (invoke "make" "-C" "doc/build/texinfo")))
  57          (add-after 'install 'install-info
  58            (lambda* (#:key outputs #:allow-other-keys)
  59              (let* ((out (assoc-ref outputs "out"))
  60                     (infodir (string-append out "/share/info")))
  61                (install-file "doc/build/texinfo/keepalived.info" infodir)
  62                (install-file "doc/build/texinfo/software_design.png"
  63                              (string-append infodir "/keepalived-figures"))
  64                #t))))))
  65     (native-inputs
  66      `(("pkg-config" ,pkg-config)
  67        ("python-sphinx" ,python-sphinx)
  68        ("texinfo" ,texinfo)))
  69     (inputs
  70      `(("openssl" ,openssl)
  71        ("libnfnetlink" ,libnfnetlink)
  72        ("libnl" ,libnl)))
  73     (home-page "http://www.keepalived.org/")
  74     (synopsis "Load balancing and high-availability frameworks")
  75     (description
  76      "Keepalived provides frameworks for both load balancing and high
  77 availability.  The load balancing framework relies on the Linux Virtual
  78 Server (@dfn{IPVS}) kernel module.  High availability is achieved by the Virtual
  79 Redundancy Routing Protocol (@dfn{VRRP}).  Each Keepalived framework can be used
  80 independently or together to provide resilient infrastructures.")
  81     (license license:gpl2+)))