From patchwork Fri Oct 7 00:57:05 2022 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: Denis 'GNUtoo' Carikli X-Patchwork-Id: 43181 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id DA66F27BBEA; Fri, 7 Oct 2022 01:58:11 +0100 (BST) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-2.9 required=5.0 tests=BAYES_00,MAILING_LIST_MULTI, SPF_HELO_PASS,URIBL_BLOCKED autolearn=unavailable autolearn_force=no version=3.4.6 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id 9535627BBE9 for ; Fri, 7 Oct 2022 01:58:11 +0100 (BST) Received: from localhost ([::1]:59784 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1ogbgo-0003yy-PT for patchwork@mira.cbaines.net; Thu, 06 Oct 2022 20:58:10 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:47076) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ogbgh-0003uQ-0T for guix-patches@gnu.org; Thu, 06 Oct 2022 20:58:03 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:34811) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1ogbgg-0000ty-OV for guix-patches@gnu.org; Thu, 06 Oct 2022 20:58:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1ogbgg-000304-Fu for guix-patches@gnu.org; Thu, 06 Oct 2022 20:58:02 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#58344] [PATCH] gnu: Add wipe. Resent-From: Denis 'GNUtoo' Carikli Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Fri, 07 Oct 2022 00:58:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: report 58344 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 58344@debbugs.gnu.org Cc: Denis 'GNUtoo' Carikli X-Debbugs-Original-To: guix-patches@gnu.org Received: via spool by submit@debbugs.gnu.org id=B.166510424811477 (code B ref -1); Fri, 07 Oct 2022 00:58:02 +0000 Received: (at submit) by debbugs.gnu.org; 7 Oct 2022 00:57:28 +0000 Received: from localhost ([127.0.0.1]:33889 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ogbg7-0002z1-Sh for submit@debbugs.gnu.org; Thu, 06 Oct 2022 20:57:28 -0400 Received: from lists.gnu.org ([209.51.188.17]:40244) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ogbg2-0002yq-9U for submit@debbugs.gnu.org; Thu, 06 Oct 2022 20:57:26 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:51674) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ogbg2-0003eJ-4h for guix-patches@gnu.org; Thu, 06 Oct 2022 20:57:22 -0400 Received: from cyberdimension.org ([2001:910:1314:ffff::1]:41350 helo=gnutoo.cyberdimension.org) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_CHACHA20_POLY1305:256) (Exim 4.90_1) (envelope-from ) id 1ogbfz-0000eF-Ka for guix-patches@gnu.org; Thu, 06 Oct 2022 20:57:21 -0400 Received: from gnutoo.cyberdimension.org (localhost [127.0.0.1]) by cyberdimension.org (OpenSMTPD) with ESMTP id e5aff2fb; Fri, 7 Oct 2022 00:57:13 +0000 (UTC) Received: from localhost.localdomain (localhost [::1]) by gnutoo.cyberdimension.org (OpenSMTPD) with ESMTP id 3bdec11d; Fri, 7 Oct 2022 00:57:12 +0000 (UTC) From: Denis 'GNUtoo' Carikli Date: Fri, 7 Oct 2022 02:57:05 +0200 Message-Id: <20221007005706.31133-1-GNUtoo@cyberdimension.org> X-Mailer: git-send-email 2.37.3 MIME-Version: 1.0 Received-SPF: pass client-ip=2001:910:1314:ffff::1; envelope-from=GNUtoo@cyberdimension.org; helo=gnutoo.cyberdimension.org X-Spam_score_int: -18 X-Spam_score: -1.9 X-Spam_bar: - X-Spam_report: (-1.9 / 5.0 requ) BAYES_00=-1.9, SPF_HELO_PASS=-0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: "Guix-patches" X-getmail-retrieved-from-mailbox: Patches * gnu/packages/disk.scm (wipe): New variable. Signed-off-by: Denis 'GNUtoo' Carikli --- gnu/packages/disk.scm | 54 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 54 insertions(+) base-commit: fd6cd9de8682c7ddf96bf8deb637b1ca6cdbd205 diff --git a/gnu/packages/disk.scm b/gnu/packages/disk.scm index 818ca065b8..b5e6c07cc3 100644 --- a/gnu/packages/disk.scm +++ b/gnu/packages/disk.scm @@ -1454,3 +1454,57 @@ (define-public qdirstat gone and to help you to clean it up.") (home-page "https://github.com/shundhammer/qdirstat") (license license:gpl2))) + +(define-public wipe + (package + (name "wipe") + (version "2.3.1") + (source (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/wipe/wipe/" version + "/wipe-" version ".tar.bz2")) + (sha256 + (base32 + "180snqvh6k6il6prb19fncflf2jcvkihlb4w84sbndcv1wvicfa6")))) + (build-system gnu-build-system) + (arguments + (list #:tests? #f ;no tests + #:phases #~(modify-phases %standard-phases + (add-after 'unpack 'patch-makefile + (lambda _ + (substitute* "Makefile.in" + ;; The Makefile.in uses install -o root, but + ;; during the build there is no root user, so if + ;; we leave that in, the build fails with the + ;; following error: + ;; /gnu/[...]/install: invalid user ‘root’ + (("-o root") "") + ;; It's up to the distribution to strip the + ;; binaries or not. + (("\\$\\(INSTALL_BIN\\) -s ") + "$(INSTALL_BIN) ")))) + ;; We need to regenerate the configure script otherwise + ;; configure fails with the following error: + ;; configure: warning: + ;; CONFIG_SHELL=/gnu/[...]-bash-minimal-5.1.8/bin/bash: + ;; invalid host type + ;; configure: warning: + ;; SHELL=/gnu/[...]-bash-minimal-5.1.8/bin/bash: + ;; invalid host type + ;; configure: error: can only configure for one host + ;; and one target at a time + (add-before 'configure 'autoreconf + (lambda _ + (invoke "autoreconf" "-vfi")))))) + (native-inputs `(("automake" ,automake) + ("autoreconf" ,autoconf) + ("libtool" ,libtool))) + (home-page "https://wipe.sourceforge.net") + (synopsis "Secure file/block device wiping utility") + (description + "Wipe can erase files and block devices securely. To work properly it +relies on several assumptions like having the block device write the +correct sectors, etc. For files it also doesn't work on log based +filesystems. To overwrite data it uses the mersenne twister PRNG that +is seeded with /dev/urandom or, if unavailable, /dev/random.") + (license license:gpl2+)))