1.2.58

franzinc · Feb 19, 2009 · 6829d55 · 6829d55
1 parent cce0f7d
commit 6829d55
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,8 @@
+2009-02-19  John Foderaro  <jkf@max.verada.com>
+1.2.58
+	* fix problem introduced in 1.2.57 where the response date 
+	is always the zero universal time.
+
 2009-01-23    <jkf@duo.verada.com>
 1.2.57
 	* proxy.cl - correctly send out the comment after the result

diff --git a/main.cl b/main.cl
@@ -24,7 +24,7 @@
 ;; Suite 330, Boston, MA  02111-1307  USA
 ;;
 ;;
-;; $Id: main.cl,v 1.192 2009/01/23 06:52:20 jkf Exp $
+;; $Id: main.cl,v 1.193 2009/02/19 12:34:19 jkf Exp $
 
 ;; Description:
 ;;   aserve's main loop
@@ -38,7 +38,7 @@
 
 (in-package :net.aserve)
 
-(defparameter *aserve-version* '(1 2 57))
+(defparameter *aserve-version* '(1 2 58))
 
 (eval-when (eval load)
     (require :sock)
@@ -790,7 +790,7 @@ by keyword symbols and not by strings"
     :accessor request-request-date)
 
    (reply-date
-    :initform 0		  ; when we're responding
+    :initform (get-universal-time)	  ; when we're responding
     :accessor request-reply-date)
 
    (reply-headers  ;; alist of headers to send out