(define-module (glicid packages cluster) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix git-download) #:use-module (guix build-system gnu) #:use-module (guix build-system cmake) ; #:use-module (guix licenses) #:use-module (gnu packages gawk) #:use-module (gnu packages gcc) #:use-module (gnu packages commencement) #:use-module (guix build-system python) #:use-module ((guix licenses) #:prefix license:) #:use-module ((guix utils) #:select (target-64bit?)) #:use-module (gnu packages) #:use-module (gnu packages admin) #:use-module (gnu packages autotools) #:use-module (gnu packages base) #:use-module (gnu packages freeipmi) #:use-module (gnu packages linux) #:use-module (gnu packages mpi) #:use-module (gnu packages perl) #:use-module (gnu packages pkg-config) #:use-module (gnu packages parallel) #:use-module (gnu packages storage) #:use-module (gnu packages networking) #:use-module (gnu packages gtk) #:use-module (gnu packages python) #:use-module (gnu packages python-science) #:use-module (gnu packages python-web) #:use-module (gnu packages python-xyz) #:use-module (gnu packages readline) #:use-module (gnu packages tcl) #:use-module (gnu packages tls) #:use-module (gnu packages commencement) #:use-module (gnu packages gcc) #:use-module (gnu packages chemistry) #:use-module (gnu packages sphinx) #:use-module (srfi srfi-1) #:use-module (gnu packages mpi) #:use-module (gnu packages sssd) #:use-module (gnu packages fabric-management) #:use-module (gnu packages benchmark) #:use-module (gnu packages messaging) #:use-module (gnu packages web) #:use-module (gnu packages gnome) #:use-module ((gnu packages cluster) #:prefix gnu:) #:use-module (gnu packages libevent) #:use-module (gnu packages xorg) #:use-module (gnu packages fontutils) #:use-module (gnu packages flex) #:use-module (gnu packages bison) #:use-module (gnu packages pkg-config) #:use-module (gnu packages autotools) #:use-module (gnu packages fontutils) #:use-module (guix build-system gnu) #:use-module (gnu packages image) #:use-module (gnu packages maths) #:use-module (guix utils) #:use-module (gnu packages cmake) #:use-module (gnu packages pretty-print) #:use-module (gnu packages boost) #:use-module (gnu packages curl) #:use-module (gnu packages cryptsetup) #:use-module (gnu packages xml) #:use-module (gnu packages admin) #:use-module (gnu packages assembly) #:use-module (gnu packages authentication) #:use-module (gnu packages bdw-gc) #:use-module (gnu packages boost) #:use-module (gnu packages compression) #:use-module (gnu packages crypto) #:use-module (gnu packages cryptsetup) #:use-module (gnu packages curl) #:use-module (gnu packages databases) #:use-module (gnu packages disk) #:use-module (gnu packages gperf) #:use-module (gnu packages jemalloc) #:use-module (gnu packages linux) #:use-module (gnu packages lua) #:use-module (gnu packages ncurses) #:use-module (gnu packages networking) #:use-module (gnu packages nss) #:use-module (gnu packages openldap) #:use-module (gnu packages pkg-config) #:use-module (gnu packages python) #:use-module (gnu packages python-xyz) #:use-module (gnu packages sphinx) #:use-module (gnu packages tls) #:use-module (gnu packages web) ;; #:use-module (gnu packages glicid) #:use-module (gnu packages pretty-print) #:use-module (gnu packages virtualization) ) ;;;;;;;; (define-public keepalived (package (inherit gnu:keepalived) (version "2.2.4") ; (version "2.0.18") (source (origin (method url-fetch) (uri (string-append "http://www.keepalived.org/software/keepalived-" version ".tar.gz")) (sha256 (base32 "1py1xdrxzdxn09yi8dx842rmhnc8lv7z09wmb2mfljylhy8dcf01" ; "1l2g0bzzbah9svfpwa0b9dgvwfv85r2y3qdr54822hg5p2qs48ql" )))) ) ) ;(define choose-latest (package1 package2) ; (let ) ;) ; (define glicid-version ; (version-major+minor (package-version keepalived))) ; (define gnu-version ; (version-major+minor (package-version gnu:keepalived))) ;(define (latest-keepalived (if (>= glicid-version gnu-version) keepalived gnu:keepalived))) (define-public glicid-keepalived (package ; (inherit (latest-keepalived)) ; (inherit (if (>= (version-major+minor (package-version keepalived)) (version-major+minor (package-version keepalived))) keepalived gnu:keepalived)) (inherit (if (string> (package-version keepalived) (package-version keepalived)) keepalived gnu:keepalived)) ; ) (name "glicid-keepalived") (arguments `(#:configure-flags (list (string-append "--enable-snmp") (string-append "--enable-snmp-checker") (string-append "--enable-snmp-rfc") ) ) ) (inputs `(("net-snmp", net-snmp) ,@(package-inputs keepalived))) ) ) ; (define-public glicid-keepalived glicid-keepalived-2.2.4) ;;; glicid/cluster.scm ends here