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

[hannes at gwydiondylan.org]

Author: hannes
Date: Wed May 31 04:16:05 2006
New Revision: 10765

Modified:
   trunk/libraries/koala/sources/koala/response.dylan
Log:
Job: minor
*correct ordering of user-agent and referer as in combined log
 file format specified
*print request protocol in uppercase


Modified: trunk/libraries/koala/sources/koala/response.dylan
==============================================================================
--- trunk/libraries/koala/sources/koala/response.dylan	(original)
+++ trunk/libraries/koala/sources/koala/response.dylan	Wed May 31 04:16:05 2006
@@ -211,7 +211,7 @@
     // (http://www.w3.org/Daemon/User/Config/Logging.html)
     let request = concatenate(as-uppercase(as(<string>, request-method(req))), " ",
                               request-url(req), " ",
-                              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> = "";
@@ -222,8 +222,8 @@
     // See bug #7200.
 
     //for now, add User-Agent and Referer
-    ext := concatenate(" \"", as(<string>, get-header(req, "user-agent") | "-"),
-                       "\" \"", as(<string>, get-header(req, "referer") | "-"),
+    ext := concatenate(" \"", as(<string>, get-header(req, "referer") | "-"),
+                       "\" \"", as(<string>, get-header(req, "user-agent") | "-"),
                        "\"");
     log-raw(activity-log-target(*virtual-host*),
             concatenate(remoteaddr, " ",