From 46a7ca3cf49e11f13f5df15d6ef50aec8d4f09e0 Mon Sep 17 00:00:00 2001 From: Rutger Helling Date: Tue, 5 Dec 2017 08:19:21 +0100 Subject: [PATCH] gnu: virtualization: Add qmpbackup. * gnu/packages/virtualization.scm (qmpbackup): New variable. --- gnu/packages/virtualization.scm | 25 ++++++++++++++++++++++++- 1 file changed, 24 insertions(+), 1 deletion(-) diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm index 184ba0155..5993fbada 100644 --- a/gnu/packages/virtualization.scm +++ b/gnu/packages/virtualization.scm @@ -61,7 +61,7 @@ #:use-module (guix build-system gnu) #:use-module (guix build-system python) #:use-module (guix download) - #:use-module ((guix licenses) #:select (gpl2 gpl2+ lgpl2.1 lgpl2.1+)) + #:use-module ((guix licenses) #:select (gpl2 gpl2+ gpl3+ lgpl2.1 lgpl2.1+)) #:use-module (guix packages) #:use-module (guix utils) #:use-module (srfi srfi-1)) @@ -687,3 +687,26 @@ mainly implemented in user space.") ;; The project is licensed under GPLv2; files in the lib/ directory are ;; LGPLv2.1. (license (list gpl2 lgpl2.1)))) + +(define-public qmpbackup + (package + (name "qmpbackup") + (version "0.2") + (source (origin + (method url-fetch) + (uri (string-append "https://github.com/abbbi/qmpbackup/archive/" + version ".tar.gz")) + (sha256 + (base32 + "10k9mnb1yrg4gw1rvz4kw4dxc4aajl8gnjrpm3axqkg63qmxj3qn")) + (file-name (string-append name "-" version ".tar.gz")))) + (build-system python-build-system) + (arguments + `(#:python ,python-2)) + (home-page "https://github.com/abbbi/qmpbackup") + (synopsis "Create live full and incremental backups via QMP") + (description "qmpbackup is designed to create live full and +incremental backups of running qemu virtual machines via the QMP +protocol. It makes use of the dirty-bitmap feature introduced in later +qemu versions.") + (license gpl3+))) -- 2.15.1