Re: [PATCH] Replace broken LADSPA URL.

[Alex Vong]

>From 5ebb7b5d1508746947006720c1e46a30f1c1c312 Mon Sep 17 00:00:00 2001
From: Alex Vong <address@hidden>
Date: Thu, 12 Nov 2015 01:19:44 +0800
Subject: [PATCH] gnu: ladspa: Update urls.

* gnu/packages/audio.scm (ladspa): Update source and home page url.

Thanks to Ricardo Wurmus for suggesting downloading the source
from Internet Archive.
---
 gnu/packages/audio.scm | 29 +++++++++++++++++++----------
 1 file changed, 19 insertions(+), 10 deletions(-)

diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index 6a8347a..fd076bc 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -817,15 +817,22 @@ plugin function as a JACK application.")
   (package
     (name "ladspa")
     (version "1.13")
-    (source (origin
-             (method url-fetch)
-             (uri (string-append
-                   "http://www.ladspa.org/download/ladspa_sdk_";
-                   version
-                   ".tgz"))
-             (sha256
-              (base32
-               "0srh5n2l63354bc0srcrv58rzjkn4gv8qjqzg8dnq3rs4m7kzvdm"))))
+    (source
+     (origin
+       (method url-fetch)
+       ;; Since the official link is dead,
+       ;; we download the tarball from Debian or Internet Archive.
+       (uri `(,(string-append "http://http.debian.net";
+                              "/debian/pool/main/l/ladspa-sdk/ladspa-sdk_"
+                              version
+                              ".orig.tar.gz")
+              ,(string-append "https://web.archive.org/web/20140717172251/";
+                              "http://www.ladspa.org/download/ladspa_sdk_";
+                              version
+                              ".tgz")))
+       (sha256
+        (base32
+         "0srh5n2l63354bc0srcrv58rzjkn4gv8qjqzg8dnq3rs4m7kzvdm"))))
     (build-system gnu-build-system)
     (arguments
      `(#:tests? #f  ; the "test" target is a listening test only
@@ -843,7 +850,9 @@ plugin function as a JACK application.")
               (("^CC.*")            "CC = gcc\n")
               (("^CPP.*")           "CPP = g++\n"))))
         (alist-delete 'build %standard-phases))))
-    (home-page "http://ladspa.org";)
+    ;; Since the home page is gone, we provide a link to the archived version.
+    (home-page
+     "https://web.archive.org/web/20140729190945/http://www.ladspa.org/";)
     (synopsis "Linux Audio Developer's Simple Plugin API (LADSPA)")
     (description
      "LADSPA is a standard that allows software audio processors and effects
-- 
2.6.3