[Gd-chatter] r10767 - trunk/libraries/koala/sources/koala

[hannes at gwydiondylan.org]

Author: hannes
Date: Thu Jun  1 02:14:53 2006
New Revision: 10767

Modified:
   trunk/libraries/koala/sources/koala/response.dylan
Log:
Bug: 7219
*unbreak build

Modified: trunk/libraries/koala/sources/koala/response.dylan
==============================================================================
--- trunk/libraries/koala/sources/koala/response.dylan	(original)
+++ trunk/libraries/koala/sources/koala/response.dylan	Thu Jun  1 02:14:53 2006
@@ -5,6 +5,9 @@
 License:   Functional Objects Library Public License Version 1.0
 Warranty:  Distributed WITHOUT WARRANTY OF ANY KIND
 
+define method get-remote-address(req :: <request>) => (res :: <string>)
+  host-address(remote-host(request-socket(req)))
+end;
 
 // Exported
 //
@@ -211,7 +214,7 @@
     // (http://www.w3.org/Daemon/User/Config/Logging.html)
     let request = concatenate(as-uppercase(as(<string>, request-method(req))), " ",
                               request-url(req), " ",
-                              as-uppercase(as(<string>, request-version(req)));
+                              as-uppercase(as(<string>, request-version(req))));
     let date = as-common-logfile-date(current-date());
     let remoteaddr = host-address(remote-host(request-socket(req)));
     let ext :: <string> = "";