summaryrefslogtreecommitdiff
path: root/gnu/packages/ftp.scm
diff options
context:
space:
mode:
authorDanny Milosavljevic <dannym@scratchpost.org>2018-07-03 15:27:10 +0200
committerDanny Milosavljevic <dannym@scratchpost.org>2018-07-03 15:32:51 +0200
commit74ba3a683043f1290d2c805521d12cb7842ff77d (patch)
treed5e48dbdc26395a31df8b50903625cda8bdfef86 /gnu/packages/ftp.scm
parent4786f51576476a110239857ca113ab30eb55902a (diff)
downloadpatches-74ba3a683043f1290d2c805521d12cb7842ff77d.tar
patches-74ba3a683043f1290d2c805521d12cb7842ff77d.tar.gz
gnu: Add vsftpd.
* gnu/packages/ftp.scm (vsftpd): New variable.
Diffstat (limited to 'gnu/packages/ftp.scm')
-rw-r--r--gnu/packages/ftp.scm41
1 files changed, 40 insertions, 1 deletions
diff --git a/gnu/packages/ftp.scm b/gnu/packages/ftp.scm
index 8f64225ab4..f3211d9031 100644
--- a/gnu/packages/ftp.scm
+++ b/gnu/packages/ftp.scm
@@ -21,7 +21,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu packages ftp)
- #:use-module ((guix licenses) #:select (gpl2+ gpl3+ clarified-artistic))
+ #:use-module ((guix licenses) #:select (gpl2 gpl2+ gpl3+ clarified-artistic))
#:use-module (guix build-system gnu)
#:use-module (guix download)
#:use-module (guix packages)
@@ -243,3 +243,42 @@ and others features such as bookmarks, drag and drop, filename filters,
directory comparison and more.")
(license gpl2+)
(properties '((upstream-name . "FileZilla")))))
+
+(define-public vsftpd
+ (package
+ (name "vsftpd")
+ (version "3.0.3")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "https://security.appspot.com/downloads/"
+ name "-" version ".tar.gz"))
+ (sha256
+ (base32
+ "1xsyjn68k3fgm2incpb3lz2nikffl9by2safp994i272wvv2nkcx"))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:make-flags '("LDFLAGS=-lcrypt")
+ #:tests? #f ; No tests exist.
+ #:phases
+ (modify-phases %standard-phases
+ (add-after 'unpack 'patch-installation-directory
+ (lambda* (#:key outputs #:allow-other-keys)
+ (substitute* "Makefile"
+ (("/usr") (assoc-ref outputs "out")))
+ #t))
+ (add-before 'install 'mkdir
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let ((out (assoc-ref outputs "out")))
+ (mkdir-p out)
+ (mkdir (string-append out "/sbin"))
+ (mkdir (string-append out "/man"))
+ (mkdir (string-append out "/man/man5"))
+ (mkdir (string-append out "/man/man8"))
+ #t)))
+ (delete 'configure))))
+ (synopsis "vsftpd FTP daemon")
+ (description "@command{vsftpd} is a daemon that listens on a TCP socket
+for clients and gives them access to local files via File Transfer
+Protocol.")
+ (home-page "https://security.appspot.com/vsftpd.html")
+ (license gpl2)))