[bknr-cvs] r2353 - in branches/bos: bknr/src/web projects/bos/web

[hhubner at common-lisp.net]

Author: hhubner
Date: Fri Jan 18 07:05:32 2008
New Revision: 2353

Modified:
   branches/bos/bknr/src/web/handlers.lisp
   branches/bos/bknr/src/web/web-utils.lisp
   branches/bos/projects/bos/web/tags.lisp
   branches/bos/projects/bos/web/webserver.lisp
Log:
redirect with http response code 301 instead of 302, hoping that it will make google analytics happy

Modified: branches/bos/bknr/src/web/handlers.lisp
==============================================================================
--- branches/bos/bknr/src/web/handlers.lisp	(original)
+++ branches/bos/bknr/src/web/handlers.lisp	Fri Jan 18 07:05:32 2008
@@ -259,7 +259,7 @@
   ((to :initarg :to :reader redirect-handler-to :documentation "url to redirect to")))
 
 (defmethod handle ((page-handler redirect-handler) req)
-  (redirect (redirect-handler-to page-handler) req))
+  (redirect (redirect-handler-to page-handler) req *response-moved-permanently*))
 
 (defclass random-redirect-handler (redirect-handler)
   ())

Modified: branches/bos/bknr/src/web/web-utils.lisp
==============================================================================
--- branches/bos/bknr/src/web/web-utils.lisp	(original)
+++ branches/bos/bknr/src/web/web-utils.lisp	Fri Jan 18 07:05:32 2008
@@ -16,8 +16,8 @@
     (with-http-body (req *ent*)
       (html "The page you requested could not be found."))))
 
-(defun redirect (to req)
-  (with-bknr-http-response (req :response *response-found*)
+(defun redirect (to req &optional (response-code *response-found*))
+  (with-bknr-http-response (req :response response-code)
     (setf (reply-header-slot-value req :location) to)
     (with-http-body (req *ent*))))
 

Modified: branches/bos/projects/bos/web/tags.lisp
==============================================================================
--- branches/bos/projects/bos/web/tags.lisp	(original)
+++ branches/bos/projects/bos/web/tags.lisp	Fri Jan 18 07:05:32 2008
@@ -176,4 +176,4 @@
 	 "var gaJsHost = (('https:' == document.location.protocol) ? 'https://ssl.' : 'http://www.');
 document.write(unescape('%3Cscript src=%22' + gaJsHost + 'google-analytics.com/ga.js%22 type=%22text/javascript%22%3E%3C/script%3E'));")
 	((:script :type "text/javascript")
-	 #?"if (_gat) { var pageTracker = _gat._getTracker('$(*google-analytics-account*)'); pageTracker._initData(); pageTracker._trackPageview(); }")))
+	 (:princ #?"if (_gat) { var pageTracker = _gat._getTracker('$(*google-analytics-account*)'); pageTracker._initData(); pageTracker._trackPageview(); }"))))

Modified: branches/bos/projects/bos/web/webserver.lisp
==============================================================================
--- branches/bos/projects/bos/web/webserver.lisp	(original)
+++ branches/bos/projects/bos/web/webserver.lisp	Fri Jan 18 07:05:32 2008
@@ -94,7 +94,8 @@
 (defmethod handle ((handler index-handler) req)
   (redirect (format nil "/~A/index" (or (find-browser-prefered-language req)
 					*default-language*))
-	    req))
+	    req
+	    *response-moved-permanently*))
 
 (defclass infosystem-handler (page-handler)
   ())