From mboxrd@z Thu Jan 1 00:00:00 1970 From: ng0 Subject: [PATCH][WIP] gnu: Add debbugs. Date: Tue, 27 Sep 2016 20:01:05 +0000 Message-ID: <87zimti03i.fsf@we.make.ritual.n0.is> Mime-Version: 1.0 Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha512; protocol="application/pgp-signature" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:50282) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1boyZZ-0007fK-JF for guix-devel@gnu.org; Tue, 27 Sep 2016 16:01:53 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1boyZW-0001mE-21 for guix-devel@gnu.org; Tue, 27 Sep 2016 16:01:49 -0400 Received: from aibo.runbox.com ([91.220.196.211]:58156) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1boyZV-0001j9-Mv for guix-devel@gnu.org; Tue, 27 Sep 2016 16:01:45 -0400 Received: from [10.9.9.210] (helo=mailfront10.runbox.com) by bars.runbox.com with esmtp (Exim 4.71) (envelope-from ) id 1boyZS-00085E-5z for guix-devel@gnu.org; Tue, 27 Sep 2016 22:01:42 +0200 Received: from xd9bb8a2f.dyn.telefonica.de ([217.187.138.47] helo=localhost) by mailfront10.runbox.com with esmtpsa (uid:892961 ) (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) id 1boyYs-0005TF-Ao for guix-devel@gnu.org; Tue, 27 Sep 2016 22:01:06 +0200 List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: "Guix-devel" To: guix-devel@gnu.org --==-=-= Content-Type: multipart/mixed; boundary="=-=-=" --=-=-= Content-Type: text/plain So, here's debbugs. Disclaimer: I never ran or did setup or got in any way in touch with debbugs on a server. Input welcome to adjust. All I know is that we'll need a service to make this work. I have no reasonable interest in this, so I won't go all the way. I'd like to fix this package up as far as usage goes. I can not test it running, but from the build/install perspective it is done. There are structures in code which can be changed etc, but this was done in about ~30 minutes to get some input as I thought, hey we use debbugs.. why do we not have debbugs packaged already? --=-=-= Content-Type: text/x-patch; charset=utf-8 Content-Disposition: inline; filename=0001-gnu-Add-debbugs.patch Content-Transfer-Encoding: quoted-printable From=2094491aaeb2e006ef293c30b7445c81060cd96da9 Mon Sep 17 00:00:00 2001 From: ng0 Date: Tue, 27 Sep 2016 19:55:34 +0000 Subject: [PATCH] gnu: Add debbugs. * gnu/packages/debbugs.scm: New file. * gnu/local.mk (GNU_SYSTEM_MODULES): Add it. =2D-- gnu/local.mk | 1 + gnu/packages/debbugs.scm | 106 +++++++++++++++++++++++++++++++++++++++++++= ++++ 2 files changed, 107 insertions(+) create mode 100644 gnu/packages/debbugs.scm diff --git a/gnu/local.mk b/gnu/local.mk index c2cdf8b..ff5f4c8 100644 =2D-- a/gnu/local.mk +++ b/gnu/local.mk @@ -91,6 +91,7 @@ GNU_SYSTEM_MODULES =3D \ %D%/packages/dav.scm \ %D%/packages/dc.scm \ %D%/packages/debug.scm \ + %D%/packages/debbugs.scm \ %D%/packages/dejagnu.scm \ %D%/packages/dico.scm \ %D%/packages/dictionaries.scm \ diff --git a/gnu/packages/debbugs.scm b/gnu/packages/debbugs.scm new file mode 100644 index 0000000..37d4d01 =2D-- /dev/null +++ b/gnu/packages/debbugs.scm @@ -0,0 +1,106 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright =C2=A9 2016 ng0 +;;; +;;; This file is part of GNU Guix. +;;; +;;; GNU Guix is free software; you can redistribute it and/or modify it +;;; under the terms of the GNU General Public License as published by +;;; the Free Software Foundation; either version 3 of the License, or (at +;;; your option) any later version. +;;; +;;; GNU Guix is distributed in the hope that it will be useful, but +;;; WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with GNU Guix. If not, see . + +(define-module (gnu packages debbugs) + #:use-module (gnu packages) + #:use-module (gnu packages links) + #:use-module (gnu packages perl) + #:use-module (gnu packages mail) + #:use-module ((guix licenses) #:prefix license:) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix utils) + #:use-module (guix build-system gnu)) + +(define-public debbugs + (package + (name "debbugs") + (version "2.4.1.1") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://debian/pool/main/d/debbugs/" + name "_" version ".tar.gz")) + (file-name (string-append name "-" version ".tar.gz")) + (sha256 + (base32 + "1j6zg7g2d97ihc8ydb9pl56xyh2x202vk7l3cld01xaa5ssxlxgs")))) + (build-system gnu-build-system) + (inputs + `(("perl" ,perl) + ("links" ,links))) + (arguments + `(#:tests? #f ; No checks + #:phases + (modify-phases %standard-phases + (replace 'configure ; No configure + (lambda _ + (substitute* "Makefile" + (("/usr") "")) + (setenv "DESTDIR" (assoc-ref %outputs "out")))) + (add-before 'build 'create-missing-dir + (lambda _ + (mkdir-p (string-append (assoc-ref %outputs "out") + "/share/doc/debbugs")))) + (add-before 'build 'fix-it-all + (lambda _ + (substitute* (list "cgi/pkgreport.cgi" "cgi/bugreport.cgi" "c= gi/common.pl" + "scripts/processall.in" "scripts/rebuild.i= n" + "scripts/service.in" "scripts/db2html.in" = "scripts/config.in" + "scripts/html-control.in" "scripts/summary= .in" + "scripts/process.in" "scripts/expire.in" + "scripts/receive.in" "scripts/mailsummary.= in" + "html/Reporting.html.in" "debbugs-service") + (("/usr") + (assoc-ref %outputs "out"))) + (substitute* "debian/debbugsconfig" + (("/etc") + (string-append (assoc-ref %outputs "out") "/etc")) + (("/usr/share/debbugs/examples/") + (string-append (assoc-ref %outputs "out") + "/share/debbugs/examples/")) + (("/usr/bin/links") + (string-append (assoc-ref %build-inputs "links") + "/bin/links"))) + (substitute* "scripts/config.in" + (("/etc") + (string-append (assoc-ref %outputs "out") "/etc")) + (("/var") + (string-append (assoc-ref %outputs "out") "/var")) + (("/debian") + (string-append (assoc-ref %outputs "out") "/debian"))))) + (add-after 'install 'wrap-programs + (lambda* (#:key outputs #:allow-other-keys) + ;; Make sure all executables in "bin" find the Perl modules + ;; provided by this package at runtime. + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin/")) + (path (getenv "PERL5LIB"))) + (for-each (lambda (file) + (wrap-program file + `("PERL5LIB" ":" prefix (,path)))) + (find-files bin "\\.*$")) + #t)))))) + (home-page "http://www.debian.org/Bugs/") + (synopsis "Bug tracking system based on the active Debian BTS") + (description + "Debbugs is a bug tracking system which files details of bugs reported +by users and developers. Each bug is given a number, and is kept on file +until it is marked as having been dealt with. The system is mainly +controlled by e-mail, but the bug reports can be viewed using the WWW.") + (license license:gpl2))) =2D-=20 2.10.0 --=-=-= Content-Type: text/plain Content-Transfer-Encoding: quoted-printable =2D-=20 ng0 --=-=-=-- --==-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQIcBAEBCgAGBQJX6tABAAoJEAKilhUMIBgj7JEP/2Tr5nPGkn0FzO/eSuuyPnYk SIyP+JZoFiBTcdy7/2DKruFbUzTSoMrnM0ATVm9IYvyj/+9JxqRgfPha+/NxD+JW TIvrrQTXBWYsFQzWr3LFN00Rg0nuDnEuzgB3byMdnPJwG2eOrKIhwx5fLamgQj66 VjjjbcfUxZSddcgOHL25G5/Dk5Zg4X3xJLBy22r/s2uZakfjTaMzWHP4STKzgEwE Y7LUEU1lLPgCL877gioJIN23QCAepGBL0msAu7zW1haHH9WQA8ZNVj89qOHI+Ac9 EbCHlyU50VbGIlMLjHn9PyKGnD3Z6zi1K/kLykZ931ma1aQPBEyq+dMqqJIqUJ9V 3GSe/rHI3M0PZ8PlGq/52TwPY15ABoVB8M2x4EEF6WlefNcuycsQ+M1kxzkS8Q3K UZGPlgJeK+VIWINphs32FsONlki6kbXOMJ+ek7gPKIluDqqdt5p9iXG8C1xioAfw 4LRBrR8NfACf1GTDHjcb3iRICczRzvinQxRVMuMS2Qo4DXh5teaJZxhYxtFU5tzw h4gajDQS3xqFLJU7zu1//DLCtEsP1DkQBjNdzJyEteByU6QQ6kXsj4choSmnOnpz JQ1Jsep4+OBTbOo7xTzkbX5d921f5cjVlnOPsNTucTvM33d8dRR5gyG0yiOA7W51 9TJYfgW49qFLb35a7j49 =aBih -----END PGP SIGNATURE----- --==-=-=--