Subject: bug#74473: closed (Re: [bug#74473] [PATCH v3 1/1] gnu: geteltorito: Use new home page and origin URI.)

From: [email-masked] (GNU bug Tracking System)
Date: Fri, 29 Nov 2024 14:04:02 +0000

Your bug report

#74473: [PATCH 1/1] gnu: geteltorito: Use new home page and origin.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
74473: https://debbugs.gnu.org/cgi/bugreport.cgi?bug=74473
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: [bug#74473] [PATCH v3 1/1] gnu: geteltorito: Use new home page and origin URI.
From: Ludovic Courtès <[email-masked]>
To: Julian Flake <[email-masked]>
Cc: [email-masked], Liliana Marie Prikler <[email-masked]>
Date: Fri, 29 Nov 2024 15:02:51 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

Julian Flake <[email-masked]> skribis:

> * gnu/packages/cdrom.scm (geteltorito)[home-page]: Use new URI + the perl script needs to be renamed now and needs to be made executable now.
>
> Change-Id: I746acc21d1f8855978bfbf00bef3dd39268bc4b3

Applied, thanks.

I tweaked the commit log to mention the upgrade and clarify the
‘arguments’ changes.

Ludo’.

Subject: [PATCH 1/1] gnu: geteltorito: Use new home page and origin.
From: Julian Flake <[email-masked]>
To: [email-masked]
Cc: Julian Flake <[email-masked]>
Date: Fri, 22 Nov 2024 12:26:49 +0100
List-Id: <debbugs-submit.debbugs.gnu.org>

* gnu/packages/cdrom.scm (geteltorito)[https://github.com/rainer042/geteltorito]:
Use new URI.

Change-Id: Idc5c2b935419855805b5f9727540192de093b1b4
---
 gnu/packages/cdrom.scm | 25 ++++++++++++++++---------
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/gnu/packages/cdrom.scm b/gnu/packages/cdrom.scm
index ef02787465..9f9acf19a2 100644
--- a/gnu/packages/cdrom.scm
+++ b/gnu/packages/cdrom.scm
@@ -15,6 +15,7 @@
 ;;; Copyright © 2019 Eric Bavier <[email-masked]>
 ;;; Copyright © 2020 Timotej Lazar <[email-masked]>
 ;;; Copyright © 2023 Zheng Junjie <[email-masked]>
+;;; Copyright © 2024 Julian Flake <[email-masked]>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -725,13 +726,16 @@ (define-public geteltorito
     (name "geteltorito")
     (version "0.6")
     (home-page
-     "https://userpages.uni-koblenz.de/~krienke/ftp/noarch/geteltorito/")
-    (source (origin
-              (method url-fetch)
-              (uri (string-append home-page name "-" version ".tar.gz"))
-              (sha256
-               (base32
-                "1gkbm9ahj2mgqrkrfpibzclsriqgsbsvjh19fr815vpd9f6snkxv"))))
+     "https://github.com/rainer042/geteltorito")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/rainer042/geteltorito")
+             (commit "d6c7ba03c3c4c5bc4cb68e3602c9427b0912f16f")))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "15dh5ibmqr3pyxyiica4r9nn1xk1j0gr3xy2s3n8b4n7b2mn8n01"))))
     (build-system gnu-build-system)
     (arguments
      `(#:tests? #f ; No tests.
@@ -742,8 +746,11 @@ (define-public geteltorito
          (replace 'install
            (lambda* (#:key outputs #:allow-other-keys)
              (let ((out (assoc-ref outputs "out")))
-               (install-file "geteltorito"
-                             (string-append out "/bin"))))))))
+               (install-file "geteltorito.pl"
+                             (string-append out "/bin"))
+               (rename-file (string-append out "/bin/geteltorito.pl")
+                            (string-append out "/bin/geteltorito"))
+               (chmod (string-append out "/bin/geteltorito") #o555)))))))
     (inputs (list perl))
     (synopsis "Extract the boot image from a CD-ROM")
     (description
-- 
2.46.0