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

The scsh gods have decided it's now BUFPOL/NONE instead of 

'BUFPOL/NONE.
No problem, I'm just a drone, hit me.
This commit is contained in:
sperber 2001-06-19 11:10:38 +00:00
parent 2c1b13bd60
commit 9fe34c1ce0
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ftpd.scm
View File

@ -100,7 +100,7 @@
(define (set-ftp-socket-options! socket) (define (set-ftp-socket-options! socket)
;; If the client closes the connection, we won't lose when we try to ;; If the client closes the connection, we won't lose when we try to
;; close the socket by trying to flush the output buffer. ;; 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)) (set-socket-option socket level/socket socket/oob-inline #t))
@ -220,7 +220,7 @@
(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 (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 "") (set-session-current-directory "")
(register-reply! 230 "Anonymous user logged in."))) (register-reply! 230 "Anonymous user logged in.")))
@ -792,7 +792,7 @@
; Version ; Version
(define *ftpd-version* "$Revision: 1.6 $") (define *ftpd-version* "$Revision: 1.7 $")
(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*)))