OSCL/CLASH
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Adjusted `standard-response-body' to take the server as an additional

Browse Source 
parameter.  This is part of an ongoing drive to restructure standard
message generation to be more modular.  Still lots to be done...
This commit is contained in:
Pierre R. Mai
2000-10-09 22:53:46 +00:00
parent 932ce6a843
commit 5e8ff59588
1 changed files with 11 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
src/main/responses.cl
View File

@ -24,22 +24,24 @@
(make-instance 'string-entity (make-instance 'string-entity
:content-type "text/html" :content-type "text/html"
:body :body
(apply #'standard-response-body status-code args)) (apply #'standard-response-body
(http-message-server request)
status-code args))
args)) args))
(defgeneric standard-response-body (status-code &rest args)) (defgeneric standard-response-body (server status-code &rest args))
(defmethod standard-response-body (status-code &rest args) (defmethod standard-response-body (server status-code &rest args)
(declare (ignore args)) (declare (ignore server args))
(format nil "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 2.0//EN\">~%<HTML><HEAD>~%<TITLE>~3D ~A</TITLE>~%</HEAD>~%<BODY>~%<H1>~:*~A</H1>~%</BODY></HTML>~%" (format nil "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 2.0//EN\">~%<HTML><HEAD>~%<TITLE>~3D ~A</TITLE>~%</HEAD>~%<BODY>~%<H1>~2:*~3D ~A</H1>~%</BODY></HTML>~%"
status-code status-code
(HTTP-Code-Description status-code))) (HTTP-Code-Description status-code)))
(defmethod standard-response-body (defmethod standard-response-body
((status-code (eql +HTTP-Code-Moved-Temporarily+)) &rest args (server (status-code (eql +HTTP-Code-Moved-Temporarily+)) &rest args
&key location) &key location)
(declare (ignore args)) (declare (ignore server args))
(format nil "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 2.0//EN\">~%<HTML><HEAD>~%<TITLE>~3D ~A</TITLE>~%</HEAD>~%<BODY>~%<H1>~:*~A</H1>~%<P>The new location is <A HREF=\"~A\">~:*~A</A>.</P>~%</BODY></HTML>~%" (format nil "<!DOCTYPE HTML PUBLIC \"-//IETF//DTD HTML 2.0//EN\">~%<HTML><HEAD>~%<TITLE>~3D ~A</TITLE>~%</HEAD>~%<BODY>~%<H1>~2:*~3D ~A</H1>~%<P>The new location is <A HREF=\"~A\">~:*~A</A>.</P>~%</BODY></HTML>~%"
status-code status-code
(HTTP-Code-Description status-code) (HTTP-Code-Description status-code)
location)) location))