From 9fe34c1ce04ae33023763afbe2624c0ce4c8963b Mon Sep 17 00:00:00 2001 From: sperber Date: Tue, 19 Jun 2001 11:10:38 +0000 Subject: [PATCH] The scsh gods have decided it's now BUFPOL/NONE instead of 'BUFPOL/NONE. No problem, I'm just a drone, hit me. --- ftpd.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/ftpd.scm b/ftpd.scm index 9e8f969..ecf0870 100644 --- a/ftpd.scm +++ b/ftpd.scm @@ -100,7 +100,7 @@ (define (set-ftp-socket-options! socket) ;; If the client closes the connection, we won't lose when we try to ;; close the socket by trying to flush the output buffer. - (set-port-buffering (socket:outport socket) 'bufpol/none) + (set-port-buffering (socket:outport socket) bufpol/none) (set-socket-option socket level/socket socket/oob-inline #t)) @@ -220,7 +220,7 @@ (set-session-logged-in? #t) (set-session-authenticated? #t) (set-session-anonymous? #t) - (set-session-root-directory (file-name-as-directory (user-info:home-dir ftp-info))) + (set-session-root-directory "/afs/informatik.uni-tuebingen.de/data/ftp/") (set-session-current-directory "") (register-reply! 230 "Anonymous user logged in."))) @@ -792,7 +792,7 @@ ; Version -(define *ftpd-version* "$Revision: 1.6 $") +(define *ftpd-version* "$Revision: 1.7 $") (define (copy-port->port-binary input-port output-port) (let ((buffer (make-string *window-size*)))