From 92b47b6487a092ba221a3e70b911a2b770273984 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Tue, 19 Jun 2001 11:33:01 +0000
Subject: [PATCH] Revert use of INTERNET-HOST-ADDRESS-FROM-BYTES as it's gone
 from scsh.

---
 ftpd.scm | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/ftpd.scm b/ftpd.scm
index ecf0870..328f24f 100644
--- a/ftpd.scm
+++ b/ftpd.scm
@@ -212,10 +212,10 @@
 		     "Only anonymous logins allowed."))))
 
 (define (handle-user-anonymous)
-  (let ((ftp-info (user-info "gasbichl")))
+  (let ((ftp-info '(user-info "gasbichl")))
 
-    (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)
@@ -426,7 +426,10 @@
 			      "Invalid arguments to PORT."))
 	   (apply
 	    (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)
 			 p2)))
 	    components))))
@@ -792,7 +795,7 @@
 
 ; Version
 
-(define *ftpd-version* "$Revision: 1.7 $")
+(define *ftpd-version* "$Revision: 1.8 $")
 
 (define (copy-port->port-binary input-port output-port)
   (let ((buffer (make-string *window-size*)))