From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:33105) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1d9ET3-0008JG-Tf for guix-patches@gnu.org; Fri, 12 May 2017 13:35:07 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1d9ET0-0008Bc-Pe for guix-patches@gnu.org; Fri, 12 May 2017 13:35:05 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:38527) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1d9ET0-0008BO-Mf for guix-patches@gnu.org; Fri, 12 May 2017 13:35:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1d9ET0-00073r-HH for guix-patches@gnu.org; Fri, 12 May 2017 13:35:02 -0400 Subject: bug#26899: bbs100 Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:60858) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1d9ESF-00083v-NZ for guix-patches@gnu.org; Fri, 12 May 2017 13:34:17 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1d9ESC-0007dE-Dj for guix-patches@gnu.org; Fri, 12 May 2017 13:34:15 -0400 Received: from 93-95-228-241.1984.is ([93.95.228.241]:47084 helo=sharknado9001.pragmatique.xyz) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1d9ESB-0007Zn-Vb for guix-patches@gnu.org; Fri, 12 May 2017 13:34:12 -0400 Received: by sharknado9001.pragmatique.xyz (OpenSMTPD) with ESMTPSA id e1b7ad94 (TLSv1.2:ECDHE-RSA-AES256-GCM-SHA384:256:NO) for ; Fri, 12 May 2017 17:33:57 +0000 (UTC) Date: Fri, 12 May 2017 17:34:04 +0000 From: ng0 Message-ID: <20170512173404.dm6ndiajbpatcs42@abyayala> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="idaodghprwsnbtrx" Content-Disposition: inline List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 26899@debbugs.gnu.org --idaodghprwsnbtrx Content-Type: text/plain; charset=utf-8 Content-Disposition: inline This adds bbs100. For possible past reviews search the guix-devel@gnu.org archive. -- https://pragmatique.xyz PGP: https://people.pragmatique.xyz/ng0/ --idaodghprwsnbtrx Content-Type: text/plain; charset=utf-8 Content-Disposition: attachment; filename="0001-gnu-Add-bbs100.patch" Content-Transfer-Encoding: quoted-printable =46rom 09746bd8021235c7c27bae10b4574011ea4e7f2b Mon Sep 17 00:00:00 2001 =46rom: ng0 Date: Sat, 17 Sep 2016 00:37:52 +0000 Subject: [PATCH] gnu: Add bbs100. * gnu/packages/bbs.scm: New file. * gnu/local.mk (GNU_SYSTEM_MODULES): Add bbs.scm. --- gnu/local.mk | 1 + gnu/packages/bbs.scm | 75 ++++++++++++++++++++++++++++++++++++++++++++++++= ++++ 2 files changed, 76 insertions(+) create mode 100644 gnu/packages/bbs.scm diff --git a/gnu/local.mk b/gnu/local.mk index 8599e6d3a..e75058d29 100644 --- a/gnu/local.mk +++ b/gnu/local.mk @@ -63,6 +63,7 @@ GNU_SYSTEM_MODULES =3D \ %D%/packages/backup.scm \ %D%/packages/base.scm \ %D%/packages/bash.scm \ + %D%/packages/bbs.scm \ %D%/packages/bdw-gc.scm \ %D%/packages/benchmark.scm \ %D%/packages/bioinformatics.scm \ diff --git a/gnu/packages/bbs.scm b/gnu/packages/bbs.scm new file mode 100644 index 000000000..894c64721 --- /dev/null +++ b/gnu/packages/bbs.scm @@ -0,0 +1,75 @@ +;;; GNU Guix --- Functional package management for GNU +;;; Copyright =C2=A9 2017 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 bbs) + #:use-module (gnu packages) + #:use-module (gnu packages admin) + #:use-module (gnu packages base) + #:use-module (gnu packages perl) + #:use-module ((guix licenses) #:prefix license:) + #:use-module (guix packages) + #:use-module (guix download) + #:use-module (guix build-system gnu)) + +(define-public bbs100 + (package + (name "bbs100") + (version "3.3.1") + (source (origin + (method url-fetch) + (uri (string-append "http://www.heiho.net/bbs100/" + name "-" version ".tar.gz")) + (sha256 + (base32 + "1wjqyxw5wpxgzwx83vx2c56v0jjq62bsj1xn4livm0crjbi4mdqb")))) + (build-system gnu-build-system) + (arguments + `(#:test-target "test" + #:parallel-build? #f + #:phases + ;; FIXME: the install phase creates a symlink 'bin' to 'bin-3.3.1'. + ;; FIXME: the log directory is hardcoded without prefix. + (modify-phases %standard-phases + (add-before 'configure 'patch-param-file + (lambda _ + (substitute* "etc/param" + (("/usr/share/zoneinfo/") "") + (("^zoneinfodir") + (string-append "zoneinfodir " + (assoc-ref %build-inputs "tzdata") + "/share/zoneinfo"))) + #t)) + (add-before 'configure 'chdir + (lambda _ + (chdir "src") + #t))))) + (inputs + `(("perl" ,perl))) + (native-inputs + `(("tzdata" ,tzdata) + ("inetutils" ,inetutils))) + (home-page "http://www.heiho.net/bbs100/") + (synopsis "DOC style telnet BBS") + (description + "@code{bbs100} is a @dfn{Bulletin Board System} (BBS) in the style of +DOC (which remotely resembles @code{Citadel}). +It is a single process daemon that handles all connections at once, while +consuming very low cpu resources (< 1%). Bbs100 can handle over a thousand +simultaneous users, is highly customizable, easy to setup, and has +many configurable features.") + (license license:gpl2+))) --=20 2.12.2 --idaodghprwsnbtrx--