From 9fd49a135d179bad2c05cf65eecee437d3ddccc7 Mon Sep 17 00:00:00 2001 From: sperber Date: Wed, 20 Jun 2001 09:12:49 +0000 Subject: [PATCH] Restore old code for determining the anonymous ftp home in preparation for replacing it by a more explicit mechanism. --- ftpd.scm | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/ftpd.scm b/ftpd.scm index 228bb6e..0ebc8ac 100644 --- a/ftpd.scm +++ b/ftpd.scm @@ -222,15 +222,17 @@ "Only anonymous logins allowed.")))) (define (handle-user-anonymous) - (let ((ftp-info '(user-info "gasbichl"))) + (let ((ftp-info (user-info "ftp"))) - '(set-gid (user-info:gid ftp-info)) - '(set-uid (user-info:uid ftp-info)) + (set-gid (user-info:gid ftp-info)) + (set-uid (user-info:uid ftp-info)) (set-session-logged-in? #t) (set-session-authenticated? #t) (set-session-anonymous? #t) - (set-session-root-directory "/afs/informatik.uni-tuebingen.de/data/ftp/") + (set-session-root-directory + (file-name-as-directory + (user-info:home-dir ftp-info))) (set-session-current-directory "") (register-reply! 230 "Anonymous user logged in."))) @@ -807,7 +809,7 @@ ; Version -(define *ftpd-version* "$Revision: 1.10 $") +(define *ftpd-version* "$Revision: 1.11 $") (define (copy-port->port-binary input-port output-port) (let ((buffer (make-string *window-size*)))