2001-10-19 Jon Howard <jhoward@cobweb>

ChangeLog

@@ -1,8 +1,14 @@
+2001-10-19  Jon Howard  <jhoward@cobweb>
+
+	* log.cl: non-access messages logged to error log stream.
+	* publish.cl: changed standard-locator (locator-exact) to assoc on
+	uri-host rather than request-vhost of req's.
+
 2001-10-18  Jon Howard  <jhoward@cobweb>
 
-	* log.cl: added facility for dynamically binding vhost log stream;
+	* log.cl: added dynamic binding of vhost log and error streams;
 	changed logging to emulate apache logging.
-	* main.cl: ignoring socket reset by peer errorno 104; more apache
+	* main.cl: ignoring socket reset by peer errno 104; more apache
 	log emulation.
 
 2001-10-16  Kevin Layer  <layer@crikey>

log.cl

@@ -23,7 +23,7 @@
 ;; Suite 330, Boston, MA  02111-1307  USA
 ;;
 ;;
-;; $Id: log.cl,v 1.20.4.1 2001/10/18 17:51:10 jhoward Exp $
+;; $Id: log.cl,v 1.20.4.2 2001/10/19 16:40:27 jhoward Exp $
 
 ;; Description:
 ;;   iserve's logging
@@ -45,8 +45,8 @@
 		       cmonth cday (mod cyear 100)
 		       chour cmin csec
 		       message))
-	  (stream (vhost-log-stream
-		   (wserver-default-vhost user::*server*))))
+	  (stream (vhost-error-stream
+		   (wserver-default-vhost *wserver*))))
       (write-sequence str stream)
       (finish-output stream))))
 
@@ -59,8 +59,8 @@
 		       chour cmin csec
 		       message))
 	  (stream (or *aserve-debug-stream*
-		      (vhost-log-stream
-		       (wserver-default-vhost user::*server*)))))
+		      (vhost-error-stream
+		       (wserver-default-vhost *wserver*)))))
       (write-sequence str stream)
       (finish-output stream))))
 

publish.cl

@@ -23,7 +23,7 @@
 ;; Suite 330, Boston, MA  02111-1307  USA
 ;;
 ;;
-;; $Id: publish.cl,v 1.58 2001/10/18 17:17:14 jkf Exp $
+;; $Id: publish.cl,v 1.58.2.1 2001/10/19 16:40:27 jhoward Exp $
 
 ;; Description:
 ;;   publishing urls
@@ -814,14 +814,16 @@
     (process-entity req entity)))
 
 
+;;; Wasn't matching for /support/customer-survey.lhtml
 (defmethod standard-locator ((req http-request)
 			     (locator locator-exact))
   ;; standard function for finding an entity in an exact locator
   ;; return the entity if one is found, else return nil
   (let ((ents (gethash (uri-path (request-uri req))
 		       (locator-info locator))))
+   #+ignore(format t "~S ; Ents: ~S~%" (uri-host (request-uri req)) ents)
     (cdr 
-     (or (assoc (request-vhost req) ents :test #'eq)
+     (or (assoc (uri-host (request-uri req)) ents :test #'equal)
 	 (assoc :wild ents :test #'eq)))))
 
 (defmethod standard-locator ((req http-request)