[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/misc.lisp

[BKNR Commits]

Revision: 4672
Author: hans
URL: http://bknr.net/trac/changeset/4672

report acceptable ranges in 416 response
U   trunk/thirdparty/hunchentoot/misc.lisp

Modified: trunk/thirdparty/hunchentoot/misc.lisp
===================================================================
--- trunk/thirdparty/hunchentoot/misc.lisp	2011-08-29 07:11:05 UTC (rev 4671)
+++ trunk/thirdparty/hunchentoot/misc.lisp	2011-08-29 07:42:22 UTC (rev 4672)
@@ -136,7 +136,8 @@
             end (parse-integer end))
       (when (or (< start 0)
                 (>= end (file-length file)))
-        (setf (return-code*) +http-requested-range-not-satisfiable+)
+        (setf (return-code*) +http-requested-range-not-satisfiable+
+              (header-out :content-range) (format nil "bytes 0-~D/*" (1- (file-length file))))
         (throw 'handler-done
           (format nil "invalid request range (requested ~D-~D, accepted 0-~D)"
                   start end (1- (file-length file)))))