scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Restore old code for determining the anonymous ftp home in preparation 

for replacing it by a more explicit mechanism.
This commit is contained in:
sperber 2001-06-20 09:12:49 +00:00
parent 76d5ce3a74
commit 9fd49a135d
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ftpd.scm
View File

@ -222,15 +222,17 @@
"Only anonymous logins allowed.")))) "Only anonymous logins allowed."))))
(define (handle-user-anonymous) (define (handle-user-anonymous)
(let ((ftp-info '(user-info "gasbichl"))) (let ((ftp-info (user-info "ftp")))
'(set-gid (user-info:gid ftp-info)) (set-gid (user-info:gid ftp-info))
'(set-uid (user-info:uid ftp-info)) (set-uid (user-info:uid ftp-info))
(set-session-logged-in? #t) (set-session-logged-in? #t)
(set-session-authenticated? #t) (set-session-authenticated? #t)
(set-session-anonymous? #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 "") (set-session-current-directory "")
(register-reply! 230 "Anonymous user logged in."))) (register-reply! 230 "Anonymous user logged in.")))
@ -807,7 +809,7 @@
; Version ; Version
(define *ftpd-version* "$Revision: 1.10 $") (define *ftpd-version* "$Revision: 1.11 $")
(define (copy-port->port-binary input-port output-port) (define (copy-port->port-binary input-port output-port)
(let ((buffer (make-string *window-size*))) (let ((buffer (make-string *window-size*)))