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)))))