From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:36813) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ebOC0-0003Gp-0Q for guix-patches@gnu.org; Tue, 16 Jan 2018 05:10:09 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ebOBu-0007vT-Rd for guix-patches@gnu.org; Tue, 16 Jan 2018 05:10:07 -0500 Received: from debbugs.gnu.org ([208.118.235.43]:50187) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1ebOBu-0007vH-Nz for guix-patches@gnu.org; Tue, 16 Jan 2018 05:10:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1ebOBu-0007dP-Hs for guix-patches@gnu.org; Tue, 16 Jan 2018 05:10:02 -0500 Subject: [bug#30136] [PATCH] gnu: Add curlftpfs. Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:36531) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ebOAz-00030X-HR for guix-patches@gnu.org; Tue, 16 Jan 2018 05:09:11 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ebOAt-0007LD-MV for guix-patches@gnu.org; Tue, 16 Jan 2018 05:09:05 -0500 Received: from dd26836.kasserver.com ([85.13.145.193]:51438) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1ebOAt-0007KZ-E6 for guix-patches@gnu.org; Tue, 16 Jan 2018 05:08:59 -0500 From: Danny Milosavljevic Date: Tue, 16 Jan 2018 11:08:55 +0100 Message-Id: <20180116100855.24353-1-dannym@scratchpost.org> 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: 30136@debbugs.gnu.org * gnu/packages/linux.scm (curlftpfs): New variable. --- gnu/packages/linux.scm | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index c33a8c2e5..efe5d90c9 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -57,6 +57,7 @@ #:use-module (gnu packages calendar) #:use-module (gnu packages check) #:use-module (gnu packages crypto) + #:use-module (gnu packages curl) #:use-module (gnu packages compression) #:use-module (gnu packages databases) #:use-module (gnu packages datastructures) @@ -1833,6 +1834,41 @@ up: on the server side there's nothing to do; on the client side mounting the file system is as easy as logging into the server with an SSH client.") (license license:gpl2+))) +(define-public curlftpfs + (package + (name "curlftpfs") + (version "0.9.2") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/curlftpfs/curlftpfs/" version + "/curlftpfs-" version ".tar.gz")) + (sha256 + (base32 + "0n397hmv21jsr1j7zx3m21i7ryscdhkdsyqpvvns12q7qwwlgd2f")))) + (build-system gnu-build-system) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'fix-test + (lambda _ + ;; One of the 512-Byte block counts is definitely wrong. + ;; See . + (substitute* "tests/ftpfs-ls_unittest.c" + (("4426192") "12814800")) + #t))))) + (inputs + `(("curl" ,curl) + ("glib" ,glib) + ("fuse", fuse))) + (native-inputs + `(("pkg-config" ,pkg-config))) + (home-page "http://curlftpfs.sourceforge.net/") + (synopsis "Mount remote filesystems over FTP") + (description + "This is a file system client based on the FTP File Transfer Protocol.") + (license license:gpl2+))) + (define-public archivemount (package (name "archivemount")