From: Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
To: 58344@debbugs.gnu.org
Cc: Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
Subject: [bug#58344] [PATCH] gnu: Add wipe.
Date: Fri, 7 Oct 2022 02:57:05 +0200 [thread overview]
Message-ID: <20221007005706.31133-1-GNUtoo@cyberdimension.org> (raw)
* gnu/packages/disk.scm (wipe): New variable.
Signed-off-by: Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
---
gnu/packages/disk.scm | 54 +++++++++++++++++++++++++++++++++++++++++++
1 file changed, 54 insertions(+)
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+)))
base-commit: fd6cd9de8682c7ddf96bf8deb637b1ca6cdbd205
--
2.37.3
next reply other threads:[~2022-10-07 0:58 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-10-07 0:57 Denis 'GNUtoo' Carikli [this message]
2022-10-08 5:17 ` [bug#58344] [PATCH] gnu: Add wipe Maxim Cournoyer
2022-10-28 14:07 ` [bug#58344] [PATCH v2] " Denis 'GNUtoo' Carikli
2022-10-31 15:44 ` bug#58344: " Maxim Cournoyer
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://guix.gnu.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20221007005706.31133-1-GNUtoo@cyberdimension.org \
--to=gnutoo@cyberdimension.org \
--cc=58344@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).