[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/01: gnu: Add cloud-utils.

From: guix-commits
Subject: 01/01: gnu: Add cloud-utils.
Date: Sun, 28 Apr 2019 13:00:49 -0400 (EDT)

cbaines pushed a commit to branch master
in repository guix.

commit bf949323b9aa604d2aa27d65deec9c6c04d15425
Author: Christopher Baines <address@hidden>
Date:   Sat Apr 20 22:47:38 2019 +0100

    gnu: Add cloud-utils.
    * gnu/packages/admin.scm (cloud-utils): New variable.
 gnu/packages/admin.scm | 61 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 61 insertions(+)

diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 5d88f36..dfc3467 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -213,6 +213,67 @@ interface and is based on GNU Guile.")
     (license license:gpl3+)
     (home-page "";)))
+(define-public cloud-utils
+  (package
+    (name "cloud-utils")
+    (version "0.31")
+    (source
+     (origin
+       (method url-fetch)
+       (uri (string-append
+             "";
+             version "/+download/cloud-utils-" version ".tar.gz"))
+       (sha256
+        (base32
+         "07fl3dlqwdzw4xx7mcxhpkks6dnmaxha80zgs9f6wmibgzni8z0r"))))
+    (build-system gnu-build-system)
+    (arguments
+     '(#:make-flags
+       (let ((out (assoc-ref %outputs "out")))
+         (list (string-append "BINDIR=" out "/bin")
+               (string-append "MANDIR=" out "/share/man/man1")
+               (string-append "DOCDIR=" out "/share/doc")))
+       #:phases
+       (modify-phases %standard-phases
+         (delete 'configure)
+         (delete 'check)
+         (add-after 'install 'wrap
+           (lambda* (#:key outputs inputs #:allow-other-keys)
+             (let ((growpart (string-append (assoc-ref outputs "out")
+                                            "/bin/growpart")))
+               (wrap-program growpart
+                 `("PATH" ":" prefix (,(dirname (which "sfdisk"))
+                                      ,(dirname (which "readlink"))))))
+             #t)))))
+    (inputs
+     `(("python" ,python)
+       ("util-linux" ,util-linux))) ; contains sfdisk for growpart
+    (home-page "";)
+    (synopsis "Set of utilities for cloud computing environments")
+    (description
+     "This package contains a set of utilities for cloud computing
address@hidden @bullet
address@hidden @command{cloud-localds} Create a disk for cloud-init to utilize 
address@hidden @command{cloud-publish-image} Wrapper for cloud image publishing
address@hidden @command{cloud-publish-tarball} Wrapper for publishing cloud 
address@hidden @command{cloud-publish-ubuntu} Import a Ubuntu cloud image
address@hidden @command{ec2metadata} Query and display @acronym{EC2,Amazon 
+  Compute Cloud} metadata
address@hidden @command{growpart} Grow a partition to fill the device
address@hidden @command{mount-image-callback} Mount a file and run a command
address@hidden @command{resize-part-image} Resize a partition image to a new 
address@hidden @command{ubuntu-cloudimg-query} Get the latest Ubuntu
+  @acronym{AMI,Amazon Machine Image}
address@hidden @command{ubuntu-ec2-run} Run a @acronym{EC2,Amazon Elastic 
+  Cloud} instance using Ubuntu
address@hidden @command{vcs-run} Obtain a repository, and run a command
address@hidden @command{write-mime-multipart} Handle multipart
+  @acronym{MIME,Multipurpose Internet Mail Extensions} messages
address@hidden itemize")
+    (license license:gpl3)))
 (define-public daemontools
     (name "daemontools")

reply via email to

[Prev in Thread] Current Thread [Next in Thread]