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

Revert use of INTERNET-HOST-ADDRESS-FROM-BYTES as it's gone from scsh.

This commit is contained in:
sperber 2001-06-19 11:33:01 +00:00
parent 9fe34c1ce0
commit 92b47b6487
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ftpd.scm
View File

@ -212,10 +212,10 @@
"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 "gasbichl")))
(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)
@ -426,7 +426,10 @@
"Invalid arguments to PORT.")) "Invalid arguments to PORT."))
(apply (apply
(lambda (a1 a2 a3 a4 p1 p2) (lambda (a1 a2 a3 a4 p1 p2)
(values (internet-host-address-from-bytes a1 a2 a3 a4) (values (+ (arithmetic-shift a1 24)
(arithmetic-shift a2 16)
(arithmetic-shift a3 8)
a4)
(+ (arithmetic-shift p1 8) (+ (arithmetic-shift p1 8)
p2))) p2)))
components)))) components))))
@ -792,7 +795,7 @@
; Version ; Version
(define *ftpd-version* "$Revision: 1.7 $") (define *ftpd-version* "$Revision: 1.8 $")
(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*)))