[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/07: gnu: Add NcFTP Client.
From: |
Ludovic Courtès |
Subject: |
02/07: gnu: Add NcFTP Client. |
Date: |
Wed, 19 Nov 2014 21:53:56 +0000 |
civodul pushed a commit to branch master
in repository guix.
commit dd3b6d66b9c9bb18d00deff7d4ca011dbfbdf122
Author: Ludovic Courtès <address@hidden>
Date: Wed Nov 19 17:37:35 2014 +0100
gnu: Add NcFTP Client.
* gnu/packages/ftp.scm (ncftp): New variable.
---
gnu/packages/ftp.scm | 51 +++++++++++++++++++++++++++++++++++++++++++++++++-
1 files changed, 50 insertions(+), 1 deletions(-)
diff --git a/gnu/packages/ftp.scm b/gnu/packages/ftp.scm
index 96af2bf..2fb8198 100644
--- a/gnu/packages/ftp.scm
+++ b/gnu/packages/ftp.scm
@@ -17,7 +17,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages ftp)
- #:use-module ((guix licenses) #:select (gpl3+))
+ #:use-module ((guix licenses) #:select (gpl3+ clarified-artistic))
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu)
@@ -54,3 +54,52 @@ uses the Readline library for input. It has bookmarks, a
built-in mirror
command, and can transfer several files in parallel. It was designed with
reliability in mind.")
(license gpl3+)))
+
+(define-public ncftp
+ (package
+ (name "ncftp")
+ (version "3.2.5")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "ftp://ftp.ncftp.com/ncftp/ncftp-"
+ version "-src.tar.bz2"))
+ (sha256
+ (base32
+ "0hlx12i0lwi99qsrx7nccf4nvwjj2gych4yks5y179b1ax0y5sxl"))
+ (modules '((guix build utils)))
+ (snippet
+ '(begin
+ ;; Use the right 'rm' and 'ls'.
+ (substitute* (cons "configure"
+ (find-files "."
+ "^(Makefile\\.in|.*\\.sh)$"))
+ (("/bin/(rm|ls)" _ command)
+ command))
+
+ ;; This is free software, avoid any confusion.
+ (substitute* (find-files "." "\\.c$")
+ (("a freeware program")
+ "free software"))))))
+ (build-system gnu-build-system)
+ (arguments
+ '(#:phases (alist-replace
+ 'configure
+ (lambda* (#:key outputs #:allow-other-keys)
+ ;; This is an old 'configure' script that doesn't
+ ;; understand variables passed as arguments.
+ (let ((out (assoc-ref outputs "out")))
+ (setenv "CONFIG_SHELL" (which "sh"))
+ (setenv "SHELL" (which "sh"))
+ (zero? (system* "./configure"
+ (string-append "--prefix=" out)))))
+ %standard-phases)
+ #:tests? #f)) ;there are no tests
+ (inputs `(("ncurses" ,ncurses)))
+ (home-page "http://www.ncftp.com/ncftp/")
+ (synopsis "Command-line File Transfer Protocol (FTP) client")
+ (description
+ "NcFTP Client (or just NcFTP) is a set of command-line programs to access
+File Transfer Protocol (FTP) servers. This includes 'ncftp', an interactive
+FTP browser, as well as non-interactive commands such as 'ncftpput' and
+'ncftpget'.")
+ (license clarified-artistic)))
- branch master updated (77264d1 -> 8b9019a), Ludovic Courtès, 2014/11/19
- 01/07: licenses: Add the Clarified Artistic License., Ludovic Courtès, 2014/11/19
- 06/07: lint: Use localized checker descriptions., Ludovic Courtès, 2014/11/19
- 04/07: lint: Change checker names to be symbols., Ludovic Courtès, 2014/11/19
- 07/07: lint: Fix typos in checker descriptions., Ludovic Courtès, 2014/11/19
- 05/07: lint: Correctly internationalize warning messages., Ludovic Courtès, 2014/11/19
- 02/07: gnu: Add NcFTP Client.,
Ludovic Courtès <=
- 03/07: lint: Fold 'sync-descriptions' script as 'gnu-description' lint checker., Ludovic Courtès, 2014/11/19