- bknr-cvs@common-lisp.net - mailman3.common-lisp.net

[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/
by BKNR Commits 15 Nov '09

15 Nov '09

Revision: 4468 Author: edi URL: http://bknr.net/trac/changeset/4468 Debugging acceptors (Andreas Fuchs) U trunk/thirdparty/hunchentoot/CHANGELOG U trunk/thirdparty/hunchentoot/acceptor.lisp U trunk/thirdparty/hunchentoot/doc/index.xml U trunk/thirdparty/hunchentoot/packages.lisp U trunk/thirdparty/hunchentoot/request.lisp Modified: trunk/thirdparty/hunchentoot/CHANGELOG =================================================================== --- trunk/thirdparty/hunchentoot/CHANGELOG 2009-11-10 12:19:13 UTC (rev 4467) +++ trunk/thirdparty/hunchentoot/CHANGELOG 2009-11-15 19:42:18 UTC (rev 4468) @@ -1,3 +1,4 @@ +Added debugging acceptors and the corresponding generic methods (Andreas Fuchs) Treat :UNSPECIFIC like NIL in pathname components (reported by Frode Fjeld) Prepare for LispWorks 6 (Nico de Jager) Fix reading of post parameters (Peter Seibel) Modified: trunk/thirdparty/hunchentoot/acceptor.lisp =================================================================== --- trunk/thirdparty/hunchentoot/acceptor.lisp 2009-11-10 12:19:13 UTC (rev 4467) +++ trunk/thirdparty/hunchentoot/acceptor.lisp 2009-11-15 19:42:18 UTC (rev 4468) @@ -174,6 +174,17 @@ active instances of ACCEPTOR \(listening on different ports) at the same time.")) +(defclass debugging-acceptor (acceptor) + ((debug-connection-errors-p :initarg :debug-connection-errors-p + :accessor debug-connection-errors-p + :documentation "A flag that enables +entering the debugger if a connection-related error (e.g. a premature +connection drop by the client) occurs.")) + (:default-initargs + :debug-connection-errors-p nil) + (:documentation "This class provides a Hunchentoot webserver that +enters the debugger if an error handler occurs during request handling.")) + (defmethod print-object ((acceptor acceptor) stream) (print-unreadable-object (acceptor stream :type t) (format stream "\(host ~A, port ~A)" @@ -236,6 +247,19 @@ subclasses of ACCEPTOR must specialize this method to signal that they're using secure connections - see the SSL-ACCEPTOR class.")) +(defgeneric invoke-process-connection-with-error-handling + (acceptor socket continuation) + (:documentation "Handles connection errors on SOCKET for ACCEPTOR +that occur while running CONTINUATION.")) + +(defgeneric invoke-process-request-with-error-handling + (acceptor request continuation) + (:documentation "Handles errors that occur while running +CONTINUATION to process a REQUEST on ACCEPTOR. + +This is useful to specialize if you want to handle errors that occur +only on specific requests.")) + ;; general implementation (defmethod start ((acceptor acceptor)) @@ -271,24 +295,39 @@ (chunked-stream-stream stream)) (t stream))) -(defmethod process-connection :around ((*acceptor* acceptor) (socket t)) - ;; this around method is used for error handling +(defmethod invoke-process-connection-with-error-handling ((*acceptor* acceptor) + socket continuation) (declare (ignore socket)) - ;; note that this method also binds *ACCEPTOR* + ;; Handle connection errors if they occur. (handler-bind ((error ;; abort if there's an error which isn't caught inside (lambda (cond) (log-message *lisp-errors-log-level* "Error while processing connection: ~A" cond) - (return-from process-connection))) + (return-from invoke-process-connection-with-error-handling))) (warning ;; log all warnings which aren't caught inside (lambda (cond) (log-message *lisp-warnings-log-level* "Warning while processing connection: ~A" cond)))) - (with-mapped-conditions () - (call-next-method)))) + (funcall continuation))) +(defmethod invoke-process-connection-with-error-handling ((*acceptor* debugging-acceptor) + socket continuation) + (declare (ignore socket)) + ;; Use the default error handling behavior, which is governed by the + ;; host lisp's *debugger-hook* + (if (debug-connection-errors-p *acceptor*) + (funcall continuation) + (call-next-method))) + +(defmethod process-connection :around ((*acceptor* acceptor) (socket t)) + ;; this around method is used for error handling + (declare (ignore socket)) + ;; note that this method also binds *ACCEPTOR* + (with-mapped-conditions () + (invoke-process-connection-with-error-handling *acceptor* socket #'call-next-method))) + (defmethod process-connection ((*acceptor* acceptor) (socket t)) (let ((*hunchentoot-stream* (initialize-connection-stream *acceptor* (make-socket-stream socket *acceptor*)))) @@ -297,44 +336,44 @@ ;; *CLOSE-HUNCHENTOOT-STREAM* has been set to T by the ;; handler, or the peer fails to send a request (loop - (let ((*close-hunchentoot-stream* t)) - (when (acceptor-shutdown-p *acceptor*) - (return)) - (multiple-value-bind (headers-in method url-string protocol) - (get-request-data *hunchentoot-stream*) - ;; check if there was a request at all - (unless method - (return)) - ;; bind per-request special variables, then process the - ;; request - note that *ACCEPTOR* was bound above already - (let ((*reply* (make-instance (acceptor-reply-class *acceptor*))) - (*session* nil) - (transfer-encodings (cdr (assoc* :transfer-encoding headers-in)))) - (when transfer-encodings - (setq transfer-encodings - (split "\\s*,\\*" transfer-encodings)) - (when (member "chunked" transfer-encodings :test #'equalp) - (cond ((acceptor-input-chunking-p *acceptor*) - ;; turn chunking on before we read the request body - (setf *hunchentoot-stream* (make-chunked-stream *hunchentoot-stream*) - (chunked-stream-input-chunking-p *hunchentoot-stream*) t)) - (t (hunchentoot-error "Client tried to use ~ + (let ((*close-hunchentoot-stream* t)) + (when (acceptor-shutdown-p *acceptor*) + (return)) + (multiple-value-bind (headers-in method url-string protocol) + (get-request-data *hunchentoot-stream*) + ;; check if there was a request at all + (unless method + (return)) + ;; bind per-request special variables, then process the + ;; request - note that *ACCEPTOR* was bound above already + (let ((*reply* (make-instance (acceptor-reply-class *acceptor*))) + (*session* nil) + (transfer-encodings (cdr (assoc* :transfer-encoding headers-in)))) + (when transfer-encodings + (setq transfer-encodings + (split "\\s*,\\*" transfer-encodings)) + (when (member "chunked" transfer-encodings :test #'equalp) + (cond ((acceptor-input-chunking-p *acceptor*) + ;; turn chunking on before we read the request body + (setf *hunchentoot-stream* (make-chunked-stream *hunchentoot-stream*) + (chunked-stream-input-chunking-p *hunchentoot-stream*) t)) + (t (hunchentoot-error "Client tried to use ~ chunked encoding, but acceptor is configured to not use it."))))) - (multiple-value-bind (remote-addr remote-port) - (get-peer-address-and-port socket) - (process-request (make-instance (acceptor-request-class *acceptor*) - :acceptor *acceptor* - :remote-addr remote-addr - :remote-port remote-port - :headers-in headers-in - :content-stream *hunchentoot-stream* - :method method - :uri url-string - :server-protocol protocol)))) - (force-output *hunchentoot-stream*) - (setq *hunchentoot-stream* (reset-connection-stream *acceptor* *hunchentoot-stream*)) - (when *close-hunchentoot-stream* - (return))))) + (multiple-value-bind (remote-addr remote-port) + (get-peer-address-and-port socket) + (process-request (make-instance (acceptor-request-class *acceptor*) + :acceptor *acceptor* + :remote-addr remote-addr + :remote-port remote-port + :headers-in headers-in + :content-stream *hunchentoot-stream* + :method method + :uri url-string + :server-protocol protocol)))) + (force-output *hunchentoot-stream*) + (setq *hunchentoot-stream* (reset-connection-stream *acceptor* *hunchentoot-stream*)) + (when *close-hunchentoot-stream* + (return))))) (when *hunchentoot-stream* ;; as we are at the end of the request here, we ignore all ;; errors that may occur while flushing and/or closing the @@ -425,3 +464,51 @@ when action return (funcall action) finally (setf (return-code *reply*) +http-not-found+))) +;;; Handling errors that occur in request handling: + +(defmethod invoke-process-request-with-error-handling ((*acceptor* acceptor) + *request* continuation) + "Standard error handling mechanism for the request processor. Logs +errors if *LOG-LISP-ERRORS-P* is set and logs warnings for +*LOG-LISP-WARNINGS-P*." + (handler-bind ((error + (lambda (cond) + (when *log-lisp-errors-p* + (log-message *lisp-errors-log-level* "~A" cond)) + ;; if the headers were already sent + ;; the error happens within the body + ;; and we have to close the stream + (when *headers-sent* + (setq *close-hunchentoot-stream* t)) + (throw 'handler-done + (values nil cond)))) + (warning + (lambda (cond) + (when *log-lisp-warnings-p* + (log-message *lisp-warnings-log-level* "~A" cond))))) + (funcall continuation))) + +(defmethod invoke-process-request-with-error-handling ((*acceptor* + debugging-acceptor) + *request* continuation) + "Mechanism for entering the debugger if an unhandled error occurs +while handling a request." + (let* ((aborted t)) + (unwind-protect + (let ((*debugger-hook* + (lambda (cond prev-hook) + (setf aborted cond) + (let ((*debugger-hook* prev-hook)) + (invoke-debugger cond))))) + (with-simple-restart (abort "Abort handling ~A ~A" + (request-method *request*) + (request-uri *request*)) + (multiple-value-prog1 + (funcall continuation) + ;; When execution continues, close the stream only if so + ;; desired: + (setq aborted nil)))) + (when aborted + (when *headers-sent* + (setq *close-hunchentoot-stream* t)) + (throw 'handler-done (values nil aborted)))))) \ No newline at end of file Modified: trunk/thirdparty/hunchentoot/doc/index.xml =================================================================== --- trunk/thirdparty/hunchentoot/doc/index.xml 2009-11-10 12:19:13 UTC (rev 4467) +++ trunk/thirdparty/hunchentoot/doc/index.xml 2009-11-15 19:42:18 UTC (rev 4468) @@ -350,7 +350,14 @@ same time.</p> </clix:description> </clix:class> - + + <clix:class name='debugging-acceptor'> + <clix:description>The default Hunchentoot webserver behavior is to catch errors and + log them (see <clix:ref>*log-lisp-errors-p*</clix:ref> and + <clix:ref>*log-lisp-warnings-p*</clix:ref>). If you prefer to open a debugger window instead (e.g., for development), you can use this class instead of <clix:ref>acceptor</clix:ref>. + </clix:description> + </clix:class> + <clix:class name='ssl-acceptor'> <clix:description>Create and <clix:ref>START</clix:ref> an instance of this class (instead of <clix:ref>ACCEPTOR</clix:ref>) if you want an https server. There are two @@ -655,6 +662,23 @@ </clix:description> </clix:function> + <clix:function generic='true' name='invoke-process-request-with-error-handling'> + <clix:lambda-list>acceptor request continuation</clix:lambda-list> + <clix:description>Can be used to override the error handling behavior of an acceptor. +The default method of <clix:ref>ACCEPTOR</clix:ref> logs errors if +<clix:ref>*log-lisp-errors-p*</clix:ref> is set. + </clix:description> + </clix:function> + + <clix:function generic='true' name='invoke-process-connection-with-error-handling'> + <clix:lambda-list>acceptor socket continuation</clix:lambda-list> + <clix:description>Can be used to override the error handling behavior for connection +handling. The default method of <clix:ref>ACCEPTOR</clix:ref> logs connection errors +as they occur, while <clix:ref>DEBUGGING-ACCEPTOR</clix:ref> invokes the debugger if +debug-connection-errors-p is set. + </clix:description> + </clix:function> + </clix:subchapter> <clix:subchapter name="taskmasters" title="Taskmasters"> Modified: trunk/thirdparty/hunchentoot/packages.lisp =================================================================== --- trunk/thirdparty/hunchentoot/packages.lisp 2009-11-10 12:19:13 UTC (rev 4467) +++ trunk/thirdparty/hunchentoot/packages.lisp 2009-11-15 19:42:18 UTC (rev 4468) @@ -133,6 +133,9 @@ "ACCEPTOR-REPLY-CLASS" "ACCEPTOR-REQUEST-CLASS" "ACCEPTOR-SSL-P" + "DEBUGGING-ACCEPTOR" + "INVOKE-PROCESS-REQUEST-WITH-ERROR-HANDLING" + "INVOKE-PROCESS-CONNECTION-WITH-ERROR-HANDLING" #-:hunchentoot-no-ssl "ACCEPTOR-SSL-CERTIFICATE-FILE" #-:hunchentoot-no-ssl "ACCEPTOR-SSL-PRIVATEKEY-FILE" #-:hunchentoot-no-ssl "ACCEPTOR-SSL-PRIVATEKEY-PASSWORD" Modified: trunk/thirdparty/hunchentoot/request.lisp =================================================================== --- trunk/thirdparty/hunchentoot/request.lisp 2009-11-10 12:19:13 UTC (rev 4467) +++ trunk/thirdparty/hunchentoot/request.lisp 2009-11-15 19:42:18 UTC (rev 4468) @@ -216,39 +216,27 @@ doing." (let (*tmp-files* *headers-sent*) (unwind-protect - (with-mapped-conditions () - (let* ((*request* request) - (*within-request-p* t)) - (multiple-value-bind (body error) - (catch 'handler-done - (handler-bind ((error - (lambda (cond) - (when *log-lisp-errors-p* - (log-message *lisp-errors-log-level* "~A" cond)) - ;; if the headers were already sent - ;; the error happens within the body - ;; and we have to close the stream - (when *headers-sent* - (setq *close-hunchentoot-stream* t)) - (throw 'handler-done - (values nil cond)))) - (warning - (lambda (cond) - (when *log-lisp-warnings-p* - (log-message *lisp-warnings-log-level* "~A" cond))))) + (with-mapped-conditions () + (let* ((*request* request) + (*within-request-p* t)) + (multiple-value-bind (body error) + (catch 'handler-done + (invoke-process-request-with-error-handling + *acceptor* *request* + (lambda () ;; skip dispatch if bad request (when (eql (return-code *reply*) +http-ok+) ;; now do the work - (funcall (acceptor-request-dispatcher *acceptor*) *request*)))) - (when error - (setf (return-code *reply*) - +http-internal-server-error+)) - (start-output :content (cond ((and error *show-lisp-errors-p*) - (format nil "<pre>~A</pre>" - (escape-for-html (format nil "~A" error)))) - (error - "An error has occured.") - (t body)))))) + (funcall (acceptor-request-dispatcher *acceptor*) *request*))))) + (when error + (setf (return-code *reply*) + +http-internal-server-error+)) + (start-output :content (cond ((and error *show-lisp-errors-p*) + (format nil "<pre>~A</pre>" + (escape-for-html (format nil "~A" error)))) + (error + "An error has occured.") + (t body)))))) (dolist (path *tmp-files*) (when (and (pathnamep path) (probe-file path)) ;; the handler may have chosen to (re)move the uploaded

1 0

[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/
by BKNR Commits 10 Nov '09

10 Nov '09

Revision: 4467 Author: edi URL: http://bknr.net/trac/changeset/4467 Treat :UNSPECIFIC like NIL U trunk/thirdparty/hunchentoot/CHANGELOG U trunk/thirdparty/hunchentoot/misc.lisp Modified: trunk/thirdparty/hunchentoot/CHANGELOG =================================================================== --- trunk/thirdparty/hunchentoot/CHANGELOG 2009-11-10 09:08:55 UTC (rev 4466) +++ trunk/thirdparty/hunchentoot/CHANGELOG 2009-11-10 12:19:13 UTC (rev 4467) @@ -1,3 +1,4 @@ +Treat :UNSPECIFIC like NIL in pathname components (reported by Frode Fjeld) Prepare for LispWorks 6 (Nico de Jager) Fix reading of post parameters (Peter Seibel) Fix STOP by supplying the :READY-ONLY keyword to USOCKET:WAIT-FOR-INPUT Modified: trunk/thirdparty/hunchentoot/misc.lisp =================================================================== --- trunk/thirdparty/hunchentoot/misc.lisp 2009-11-10 09:08:55 UTC (rev 4466) +++ trunk/thirdparty/hunchentoot/misc.lisp 2009-11-10 12:19:13 UTC (rev 4467) @@ -194,9 +194,11 @@ (plusp (length uri-prefix)) (char= (char uri-prefix (1- (length uri-prefix))) #\/)) (parameter-error "~S must be string ending with a slash." uri-prefix)) - (when (or (pathname-name base-path) - (pathname-type base-path)) - (parameter-error "~S is supposed to denote a directory." base-path)) + (let ((name (pathname-name base-path)) + (type (pathname-type base-path))) + (when (or (and name (not (eq name :unspecific))) + (and type (not (eq type :unspecific)))) + (parameter-error "~S is supposed to denote a directory." base-path))) (flet ((handler () (let* ((script-name (url-decode (script-name*))) (script-path (enough-url (regex-replace-all "\\\\" script-name "/")

1 0

[bknr-cvs] edi changed trunk/thirdparty/drakma/
by BKNR Commits 10 Nov '09

10 Nov '09

Revision: 4466 Author: edi URL: http://bknr.net/trac/changeset/4466 Don't add GET parameters to redirects U trunk/thirdparty/drakma/CHANGELOG.txt U trunk/thirdparty/drakma/request.lisp Modified: trunk/thirdparty/drakma/CHANGELOG.txt =================================================================== --- trunk/thirdparty/drakma/CHANGELOG.txt 2009-11-09 21:01:43 UTC (rev 4465) +++ trunk/thirdparty/drakma/CHANGELOG.txt 2009-11-10 09:08:55 UTC (rev 4466) @@ -1,3 +1,4 @@ +Don't send GET parameters again when redirecting (reported by Eugene Ossintsev) Solidify feature expressions (thanks to Joshua Taylor) Make SEND-COOKIE-P work for pathless URIs (thanks to Tomo Matsumoto) Modified: trunk/thirdparty/drakma/request.lisp =================================================================== --- trunk/thirdparty/drakma/request.lisp 2009-11-09 21:01:43 UTC (rev 4465) +++ trunk/thirdparty/drakma/request.lisp 2009-11-10 09:08:55 UTC (rev 4466) @@ -654,6 +654,8 @@ (t redirect)) :stream (and re-use-stream http-stream) :additional-headers additional-headers + ;; don't send GET parameters again in redirect + :parameters (and (not (eq method :get)) parameters) args))))) (let ((transfer-encodings (header-value :transfer-encoding headers))) (when transfer-encodings

1 0

[bknr-cvs] hans changed deployed/bos/projects/bos/payment-website/infosystem/
by BKNR Commits 09 Nov '09

09 Nov '09

Revision: 4465 Author: hans URL: http://bknr.net/trac/changeset/4465 Further edits. U deployed/bos/projects/bos/payment-website/infosystem/de/satellitenkarte.htm U deployed/bos/projects/bos/payment-website/infosystem/en/satellitenkarte.htm Modified: deployed/bos/projects/bos/payment-website/infosystem/de/satellitenkarte.htm =================================================================== --- deployed/bos/projects/bos/payment-website/infosystem/de/satellitenkarte.htm 2009-11-09 20:28:04 UTC (rev 4464) +++ deployed/bos/projects/bos/payment-website/infosystem/de/satellitenkarte.htm 2009-11-09 21:01:43 UTC (rev 4465) @@ -443,7 +443,7 @@ </div> </div> <div id="Ueberschrift" style="position:absolute; width:290px; height:20px; z-index:5; left: 169px; top: 80px;">Samboja Lestari im Überblick</div> - <div id="Untertitel" style="position:absolute; width:350px; height:20px; z-index:5; left: 169px; top: 469px;" align="right">Über 17 Millionen Quadratmeter für die Ewigkeit</div> + <div id="Untertitel" style="position:absolute; width:350px; height:20px; z-index:5; left: 169px; top: 469px;" align="right">18,5 Millionen Quadratmeter neuen Lebenswald schaffen!</div> <div class="Links" style="position:absolute; width:178px; height:132px; z-index:3; top: 482px; left: 550px;"> <span style="padding-right:2px"> <img src="/images/pfeil_link_on.gif" border="0" /> Modified: deployed/bos/projects/bos/payment-website/infosystem/en/satellitenkarte.htm =================================================================== --- deployed/bos/projects/bos/payment-website/infosystem/en/satellitenkarte.htm 2009-11-09 20:28:04 UTC (rev 4464) +++ deployed/bos/projects/bos/payment-website/infosystem/en/satellitenkarte.htm 2009-11-09 21:01:43 UTC (rev 4465) @@ -444,7 +444,7 @@ </div> </div> <div id="Ueberschrift" style="position:absolute; width:290px; height:20px; z-index:5; left: 169px; top: 80px;">Samboja Lestari - Overview</div> - <div id="Untertitel" style="position:absolute; width:350px; height:20px; z-index:5; left: 169px; top: 469px;" align="right">More than 17 million square metres for eternity.</div> + <div id="Untertitel" style="position:absolute; width:350px; height:20px; z-index:5; left: 169px; top: 469px;" align="right">Creating 18.5 million square meters new rainforest.</div> <div class="Links" style="position:absolute; width:178px; height:132px; z-index:3; top: 482px; left: 550px;"> <span style="padding-right:2px"> <img src="/images/pfeil_link_on.gif" border="0" />

1 0

[bknr-cvs] hans changed deployed/bos/projects/bos/payment-website/templates/en/
by BKNR Commits 09 Nov '09

09 Nov '09

Revision: 4464 Author: hans URL: http://bknr.net/trac/changeset/4464 Update of english version. U deployed/bos/projects/bos/payment-website/templates/en/contact.xml U deployed/bos/projects/bos/payment-website/templates/en/disclaimer.xml U deployed/bos/projects/bos/payment-website/templates/en/headline2.xml U deployed/bos/projects/bos/payment-website/templates/en/headline3.xml U deployed/bos/projects/bos/payment-website/templates/en/idea.xml U deployed/bos/projects/bos/payment-website/templates/en/idea_subtitle1.xml U deployed/bos/projects/bos/payment-website/templates/en/idea_subtitle2.xml U deployed/bos/projects/bos/payment-website/templates/en/impressum.xml U deployed/bos/projects/bos/payment-website/templates/en/index.xml U deployed/bos/projects/bos/payment-website/templates/en/privacy.xml Modified: deployed/bos/projects/bos/payment-website/templates/en/contact.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/en/contact.xml 2009-11-03 10:20:18 UTC (rev 4463) +++ deployed/bos/projects/bos/payment-website/templates/en/contact.xml 2009-11-09 20:28:04 UTC (rev 4464) @@ -77,7 +77,7 @@ </td> </tr> <tr> - <td>On these webpages you will also find links to our BOS partner organisations worldwide. + <td>On these webpages you will also find links to the BOS supporting organisations worldwide. </td> </tr> </table> Modified: deployed/bos/projects/bos/payment-website/templates/en/disclaimer.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/en/disclaimer.xml 2009-11-03 10:20:18 UTC (rev 4463) +++ deployed/bos/projects/bos/payment-website/templates/en/disclaimer.xml 2009-11-09 20:28:04 UTC (rev 4464) @@ -13,12 +13,12 @@ <p><b>Disclaimer</b></p> <p> -Each sponsor of one or more square metres of renewable rainforest of the forestation -and nature protection project Samboja Lestari/Borneo/ Indonesia has no claims or other -rights to the respective land. No one is entitled to resell the land. Sponsors have no -duties whatsoever. This is a mere symbolic act of an informative nature. BOS guarantees -that the land will always be reserved for -the benefit of sustainable nature,- and wildlife protection. +No sponsor of one or more square metres of renewable rainforest of the forestation and nature protection project Samboja Lestari (Borneo, Indonesia) +has any claims or other rights to the respective land. You help financing the lease respectively the concession of land, ecological reforestation, +a nursery, ecological agriculture, sugar palm plantations, wages for Indonesian employees, surveillance and protection of the area, fire fighting, +environmental education, infrastructure, research and arboretum, orangutan islands, and sunbear areas. +With your donation you have no duties whatsoever. This is a mere symbolic act of an informative nature. BOS guarantees that the land will +exclusively be reserved for the benefit of sustainable nature- and wildlife protection. </p> </p> </bknr:toplevel> Modified: deployed/bos/projects/bos/payment-website/templates/en/headline2.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/en/headline2.xml 2009-11-03 10:20:18 UTC (rev 4463) +++ deployed/bos/projects/bos/payment-website/templates/en/headline2.xml 2009-11-09 20:28:04 UTC (rev 4464) @@ -37,7 +37,8 @@ <td valign="top"> Nature conservation and the needs of the population must not be in conflict with each other. <br /><br /> - The nature reserve Samboja Lestari offers a safe income, health and education to the local population. The people will be included into all phases of the project. Agriculture, nursery, production of compost, reforestation and the creation of infrastructure provide safe workplaces. + The nature reserve Samboja Lestari offers a safe income, health and education to the local population. +Agriculture, nursery, production of compost, reforestation and the creation of infrastructure provide safe workplaces. <br /> </td> <td align="right" colspan="2"><img src="../images/pic_headline2_big.jpg" width="256" height="150" border="0" alt="" /></td> @@ -76,7 +77,8 @@ </tr> <tr> <td colspan="3"> - The safety of the nature reserve is guaranteed by the acceptance through the Indonesian population. The success of the project guarantees a better standard of living and vice versa. + The safety of the nature reserve can be guaranteed in the long run only by the acceptance through the local people. +The success of the project guarantees a better standard of living and vice versa. </td> </tr> <tr><td height="16"></td></tr> Modified: deployed/bos/projects/bos/payment-website/templates/en/headline3.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/en/headline3.xml 2009-11-03 10:20:18 UTC (rev 4463) +++ deployed/bos/projects/bos/payment-website/templates/en/headline3.xml 2009-11-09 20:28:04 UTC (rev 4464) @@ -40,9 +40,9 @@ great apes serves at the same time to preserve the rainforest's eco system. <br /><br /> Nowadays, orangutans live only on Sumatra and Borneo. Massive rainforest destruction and unscrupulous pet trade could - mean the end of their species. Malaysian bears are also in danger of losing their natural habitat. The nature reserve Samboja Lestari - represents the last refuge for several animals - a last chance for their survival. Malaysian bears are already living in the reserve, in - a specially set aside area. In a few years time also orangutans will be able to live there in freedom. + mean the end of their species. Sunbears are also in danger of losing their natural habitat. The nature reserve Samboja Lestari represents +refuge for several species of animals - a chance for their survival. 52 sunbears are already living in a specially confined area. Infected orang-utans, unfit for realease, +live on artificial islands. In the forest school young orang-utans train for their future release <br /><br /> Rare species such as the Rhinoceros bird, the dwarf deer and the king cobra can already be observed in Samboja Lestari nowadays. </td> Modified: deployed/bos/projects/bos/payment-website/templates/en/idea.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/en/idea.xml 2009-11-03 10:20:18 UTC (rev 4463) +++ deployed/bos/projects/bos/payment-website/templates/en/idea.xml 2009-11-09 20:28:04 UTC (rev 4464) @@ -18,7 +18,7 @@ <span class="headline"> Samboja Lestari - Creative reforestation <br /> - A sanctuary for Borneo + A sancutary for endangered species. </span> </td> <td align="center"><img src="/images/pfeil_back.gif" width="10" height="9" alt="" /> @@ -35,8 +35,9 @@ <tr><td height="6"></td></tr> <tr> <td colspan="3"> - By means of a unique reforestation concept BOS is creating a sanctuary for orangutans, sunbears and other endangered species on Borneo -maybe the last one. -Satellite pictures here on the internet make it possible to observe the progress of this concept. + BOS regenerates rainforest through an unique concept of afforestation and at the same time creates a sanctuary for +orangutans, sunbears and other endangered species on Borneo. +Satellite pictures here on the internet make it possible to observe the progress of this concept on this website and in Google Earth <br /><br /> During the last decades the once species-rich rainforest of <a href="/en/satmap" class="titlegreen"> @@ -44,7 +45,11 @@ </a> was cleared and burnt down relentlessly. Nutrient-consuming elephant grass took over completely. What remained was an ecological waste land. -Nowadays it is already visible that this doesn't have to stay - since 2001 BOS is creating new rainforest. An innovative concept of reforestation and protection is changing this area of over 16 mio sqm into a natural habitat again. In tropical Borneo plants grow much faster than in Europe. Already within a few years the first orangutans can be released to share their freedom with other animals. A nature reserve is being created for the permanent use of humans, animals and plants in Samboja Lestari ("eternal Samboja"). +Nowadays it is already visible that this doesn't have to stay - since 2001 BOS is creating new rainforest. +In the long term an innovative concept of reforestation and protection is converting this area of more than 18.5 mio sqm into a natural habitat again. +In tropical Borneo plants grow much faster than in Europe. +Already after a few years the first orangutans enjoy their new freedom on artificial islands. Young orang-utans train in the forest school of Samboja-Lestari for their future release. +A nature reserve is being created for the permanent use of humans, animals and plants in Samboja Lestari ("eternal Samboja"). </td> <td></td> </tr> Modified: deployed/bos/projects/bos/payment-website/templates/en/idea_subtitle1.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/en/idea_subtitle1.xml 2009-11-03 10:20:18 UTC (rev 4463) +++ deployed/bos/projects/bos/payment-website/templates/en/idea_subtitle1.xml 2009-11-09 20:28:04 UTC (rev 4464) @@ -60,13 +60,15 @@ <td colspan="2"> A <img src="/images/pfeil_link_on.gif" width="10" height="9" alt="" /> <a href="javascript:window_ringdetail();" -class="content_green">circle of sugar-palm plantations</a> is being planted all around the nature reserve. Over 650 families will profit from the main product sugar. And - the circle forms a barrier against the much feared forest fires. +class="content_green">circle of sugar-palm plantations</a> is being planted all around the nature reserve. +Sugar as a main product is supposed to support hundreds of families in the future. And - the circle forms a barrier against the much feared forest fires. <br /><br /> -A penetration of humans into the nature reserve, as well as the breakout of orangutans is prevented by an inner protection wall of thickly growing, prickly salac palms. Moreover, the fruit of these palms provides pleasant tasting food for humans and animals. +An inner wall of thick thorny salak palms is supposed to prevent the intrusion of cattle into the nature reserve as well as the breakout of orangutans. +Moreover, the fruit of these palms provides pleasant tasting food for humans and animals. </td> </tr> <tr><td colspan="3"> -Ultra-light aeroplanes and modern satellite technique support the permanent surveillance of the BOS projects. Thus, slash-and-burn and illegal logging can be fought much more effectively. + </td> </tr> </table> Modified: deployed/bos/projects/bos/payment-website/templates/en/idea_subtitle2.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/en/idea_subtitle2.xml 2009-11-03 10:20:18 UTC (rev 4463) +++ deployed/bos/projects/bos/payment-website/templates/en/idea_subtitle2.xml 2009-11-09 20:28:04 UTC (rev 4464) @@ -35,7 +35,9 @@ </tr> <tr> <td colspan="2"> - You help financing the purchase of land, ecological reforestation, a nursery, ecological agriculture, sugar palm plantations, wages for Indonesian employees, surveillance and protection of the area, fire fighting, environmental education, infrastructure, research and arboretum, orangutan islands and sunbear areas. + You help financing the lease and concession of land, ecological reforestation, a nursery, +ecological agriculture, sugar palm plantations, wages for Indonesian employees, surveillance and protection of the area, fire fighting, environmental +education, infrastructure, research and arboretum, orangutan islands and sunbear areas. <br /><br /> Contribute to a better future and observe the development of the Samboja Lestari project on the internet. </td> Modified: deployed/bos/projects/bos/payment-website/templates/en/impressum.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/en/impressum.xml 2009-11-03 10:20:18 UTC (rev 4463) +++ deployed/bos/projects/bos/payment-website/templates/en/impressum.xml 2009-11-09 20:28:04 UTC (rev 4464) @@ -13,8 +13,7 @@ <p class="text_content"> <strong>www.create-rainforest.org </strong>is a webpage by:<br /><br /> - The Borneo Orangutan Survival Foundation (BOS) in collaboration with - the partner organisation BOS Deutschland e.V.. <br /> <br /> + BOS Deutschland e.V.. in collaboration with the Borneo Orangutan Survival Foundation (BOS) <br /> <br /> Postal address:<br /><br /> BOS Deutschland e.V.<br /><br /> @@ -36,7 +35,8 @@ <br /><br /> Chairman: Boris Thiemig<br /> Vice chairman: Maik Schaffer<br /><br /> - BOS Deutschland e.V. is registered under no. 24216 Nz. at the Amtsgericht Berlin-Charlottenburg (county court).<br /><br /> + BOS Germany is officially registered under no. 502 VR 24216 B at the Amtsgericht (county court) Berlin Charlottenburg; +exemption paper of the Finanzamt (tax office) in Kiel-Nord, no. GL5105.<br /><br /> The images on the webpage are protected by copyright, and are not freely available for commercial purposes. If you wish to make use of BOS images, please contact us under the above mentioned contact details. <br /><br /> Modified: deployed/bos/projects/bos/payment-website/templates/en/index.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/en/index.xml 2009-11-03 10:20:18 UTC (rev 4463) +++ deployed/bos/projects/bos/payment-website/templates/en/index.xml 2009-11-09 20:28:04 UTC (rev 4464) @@ -16,8 +16,8 @@ <tr> <td colspan="3"> <a href="idea" class="titlegreen"> - Samboja Lestari - creative reforestation<br /> -A sanctuary for Borneo + Samboja - Lestari creative reforestation.<br /> + A sanctuary for endangered species. </a> </td> <td></td> @@ -34,7 +34,8 @@ <tr><td height="6"></td></tr> <tr> <td colspan="3"> -By means of a unique reforestation concept BOS is creating a sanctuary for orangutans, sunbears and other endangered species on Borneo -maybe the last one. Satellite pictures here on the internet make it possible to observe the progress of this concept. +By means of a unique reforestation concept BOS is creating a sanctuary for orangutans, sunbears and other endangered species on Borneo. +You can watch the progress on this website and in Google Earth. <br /> <a href="idea" class="more"> ... more Modified: deployed/bos/projects/bos/payment-website/templates/en/privacy.xml =================================================================== --- deployed/bos/projects/bos/payment-website/templates/en/privacy.xml 2009-11-03 10:20:18 UTC (rev 4463) +++ deployed/bos/projects/bos/payment-website/templates/en/privacy.xml 2009-11-09 20:28:04 UTC (rev 4464) @@ -13,10 +13,10 @@ <p class="text_content"> <p> The protection of your personal data via electronic processing is strictly regulated, -and is something BOS Deutschland e.V. takes very seriously.BOS Deutschland e.V. -is a renowned and not-for-profit foundation complying with the Bundesdatenschutzgesetz -(German Privacy Policy Law). BOS is registered under no. 502 VR 4228 at the Amtsgericht (county court) in Kiel; -exemption paper of the Finanzamt (tax office) in Kiel-Nord, no. GL5105. +and is something BOS Deutschland e.V. takes very seriously.BOS Deutschland e.V. (BOS Germany) is an officially registered and eligible +not-for-profit society complying with the Bundesdatenschutzgesetz (German Privacy Policy Law). +BOS Germany is officially registered under no. 502 VR 24216 B at the Amtsgericht (county court) Berlin Charlottenburg; exemption paper of +the Finanzamt (tax office) in Kiel-Nord, no. GL5105. </p> <p> <b>What happens with your personal data?</b>

1 0

[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/doc/index.xml
by BKNR Commits 03 Nov '09

03 Nov '09

Revision: 4463 Author: edi URL: http://bknr.net/trac/changeset/4463 Rename "server" to "acceptor" in documentation U trunk/thirdparty/hunchentoot/doc/index.xml Modified: trunk/thirdparty/hunchentoot/doc/index.xml =================================================================== --- trunk/thirdparty/hunchentoot/doc/index.xml 2009-10-29 15:01:32 UTC (rev 4462) +++ trunk/thirdparty/hunchentoot/doc/index.xml 2009-11-03 10:20:18 UTC (rev 4463) @@ -908,7 +908,7 @@ <a href="http://www.lispworks.com/documentation/HyperSpec/Body/03_de.htm">destructuring lambda list</a> </p> - <pre>(name &key uri server-names default-parameter-type default-request-type).</pre> + <pre>(name &key uri acceptor-names default-parameter-type default-request-type).</pre> <clix:arg>lambda-list</clix:arg> is a list the elements of which are either a symbol <clix:arg>var</clix:arg> or a list matching the destructuring lambda list @@ -939,14 +939,14 @@ object</a> returns a true value. </p> <p> - <clix:arg>server-names</clix:arg> (which is evaluated) can be a + <clix:arg>acceptor-names</clix:arg> (which is evaluated) can be a list of symbols which means that the handler will only be returned by <clix:ref>DISPATCH-EASY-HANDLERS</clix:ref> in - servers which have one of these names - (see <clix:ref>SERVER-NAME</clix:ref>). <clix:arg>server-names</clix:arg> can also be the + acceptors which have one of these names + (see <clix:ref>ACCEPTOR-NAME</clix:ref>). <clix:arg>acceptor-names</clix:arg> can also be the symbol <code>T</code> which means that the handler will be returned by <clix:ref>DISPATCH-EASY-HANDLERS</clix:ref> - in <em>every</em> server. + in <em>every</em> acceptor. </p> <p> Whether the GET or POST parameter (or both) will be taken into

1 0

[bknr-cvs] edi changed tags/thirdparty/cl-ppcre-2.0.3/
by BKNR Commits 29 Oct '09

29 Oct '09

Revision: 4462 Author: edi URL: http://bknr.net/trac/changeset/4462 Tag cl-ppcre 2.0.3 A tags/thirdparty/cl-ppcre-2.0.3/

1 0

[bknr-cvs] edi changed trunk/thirdparty/cl-ppcre/
by BKNR Commits 29 Oct '09

29 Oct '09

Revision: 4461 Author: edi URL: http://bknr.net/trac/changeset/4461 Update to 2.0.3 U trunk/thirdparty/cl-ppcre/CHANGELOG U trunk/thirdparty/cl-ppcre/cl-ppcre.asd U trunk/thirdparty/cl-ppcre/doc/index.html U trunk/thirdparty/cl-ppcre/regex-class.lisp U trunk/thirdparty/cl-ppcre/specials.lisp U trunk/thirdparty/cl-ppcre/util.lisp Modified: trunk/thirdparty/cl-ppcre/CHANGELOG =================================================================== --- trunk/thirdparty/cl-ppcre/CHANGELOG 2009-10-28 06:28:34 UTC (rev 4460) +++ trunk/thirdparty/cl-ppcre/CHANGELOG 2009-10-29 15:00:44 UTC (rev 4461) @@ -1,3 +1,7 @@ +Version 2.0.3 +2009-10-28 +Use LW:SIMPLE-TEXT-STRING throughout for LispWorks + Version 2.0.2 2009-09-17 Fixed typo in chartest.lisp (caught by Peter Seibel) Modified: trunk/thirdparty/cl-ppcre/cl-ppcre.asd =================================================================== --- trunk/thirdparty/cl-ppcre/cl-ppcre.asd 2009-10-28 06:28:34 UTC (rev 4460) +++ trunk/thirdparty/cl-ppcre/cl-ppcre.asd 2009-10-29 15:00:44 UTC (rev 4461) @@ -1,5 +1,5 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/cl-ppcre.asd,v 1.48 2009/09/17 19:17:30 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/cl-ppcre.asd,v 1.49 2009/10/28 07:36:15 edi Exp $ ;;; This ASDF system definition was kindly provided by Marco Baringer. @@ -37,7 +37,7 @@ (in-package :cl-ppcre-asd) (defsystem :cl-ppcre - :version "2.0.2" + :version "2.0.3" :serial t :components ((:file "packages") (:file "specials") Modified: trunk/thirdparty/cl-ppcre/doc/index.html =================================================================== --- trunk/thirdparty/cl-ppcre/doc/index.html 2009-10-28 06:28:34 UTC (rev 4460) +++ trunk/thirdparty/cl-ppcre/doc/index.html 2009-10-29 15:00:44 UTC (rev 4461) @@ -151,7 +151,7 @@ CL-PPCRE together with this documentation can be downloaded from <a href="http://weitz.de/files/cl-ppcre.tar.gz">http://weitz.de/files/cl-ppcre.tar.gz</a>. The -current version is 2.0.2. +current version is 2.0.3. <p> CL-PPCRE comes with a system definition for <a href="http://www.cliki.net/asdf">ASDF</a> and you compile and @@ -2208,7 +2208,7 @@ OpenMCL. <p> -$Header: /usr/local/cvsrep/cl-ppcre/doc/index.html,v 1.199 2009/09/17 19:13:00 edi Exp $ +$Header: /usr/local/cvsrep/cl-ppcre/doc/index.html,v 1.200 2009/10/28 07:36:31 edi Exp $ <p><a href="http://weitz.de/index.html">BACK TO MY HOMEPAGE</a> </body> Modified: trunk/thirdparty/cl-ppcre/regex-class.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/regex-class.lisp 2009-10-28 06:28:34 UTC (rev 4460) +++ trunk/thirdparty/cl-ppcre/regex-class.lisp 2009-10-29 15:00:44 UTC (rev 4461) @@ -1,5 +1,5 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/regex-class.lisp,v 1.43 2009/09/17 19:17:31 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/regex-class.lisp,v 1.44 2009/10/28 07:36:15 edi Exp $ ;;; This file defines the REGEX class. REGEX objects are used to ;;; represent the (transformed) parse trees internally @@ -248,7 +248,12 @@ (declare (ignore init-args)) "Automatically computes the length of a STR after initialization." (let ((str-slot (slot-value str 'str))) - (unless (typep str-slot 'simple-string) - (setf (slot-value str 'str) (coerce str-slot 'simple-string)))) + (unless (typep str-slot + #-:lispworks 'simple-string + #+:lispworks 'lw:simple-text-string) + (setf (slot-value str 'str) + (coerce str-slot + #-:lispworks 'simple-string + #+:lispworks 'lw:simple-text-string)))) (setf (len str) (length (str str)))) Modified: trunk/thirdparty/cl-ppcre/specials.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/specials.lisp 2009-10-28 06:28:34 UTC (rev 4460) +++ trunk/thirdparty/cl-ppcre/specials.lisp 2009-10-29 15:00:44 UTC (rev 4461) @@ -1,5 +1,5 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/specials.lisp,v 1.42 2009/09/17 19:17:32 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/specials.lisp,v 1.43 2009/10/28 07:36:15 edi Exp $ ;;; globally declared special variables @@ -65,6 +65,9 @@ (defvar *string* "" "The string which is currently scanned by SCAN. Will always be coerced to a SIMPLE-STRING.") +#+:lispworks +(declaim (lw:simple-text-string *string*)) +#-:lispworks (declaim (simple-string *string*)) (defvar *start-pos* 0 Modified: trunk/thirdparty/cl-ppcre/util.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/util.lisp 2009-10-28 06:28:34 UTC (rev 4460) +++ trunk/thirdparty/cl-ppcre/util.lisp 2009-10-29 15:00:44 UTC (rev 4461) @@ -1,5 +1,5 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/util.lisp,v 1.47 2009/09/17 19:17:32 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/util.lisp,v 1.48 2009/10/28 07:36:15 edi Exp $ ;;; Utility functions and constants dealing with the character sets we ;;; use to encode character classes @@ -137,10 +137,15 @@ "Coerces STRING to a simple STRING unless it already is one." (with-unique-names (=string=) `(let ((,=string= ,string)) - (cond ((simple-string-p ,=string=) + (cond (#+:lispworks + (lw:simple-text-string-p ,=string=) + #-:lispworks + (simple-string-p ,=string=) ,=string=) (t - (coerce ,=string= 'simple-string)))))) + (coerce ,=string= + #+:lispworks 'lw:simple-text-string + #-:lispworks 'simple-string)))))) (declaim (inline nsubseq)) (defun nsubseq (sequence start &optional (end (length sequence))) @@ -171,7 +176,9 @@ (dolist (string string-list) #-:genera (declare (string string)) (incf total-size (length string))) - (let ((result-string (make-sequence 'simple-string total-size)) + (let ((result-string (make-sequence #-:lispworks 'simple-string + #+:lispworks 'lw:simple-text-string + total-size)) (curr-pos 0)) (declare (fixnum curr-pos)) (dolist (string string-list)

1 0

[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/request.lisp
by BKNR Commits 28 Oct '09

28 Oct '09

Revision: 4460 Author: hans URL: http://bknr.net/trac/changeset/4460 Pass REQUEST from MAYBE-READ-POST-PARAMETERS to RAW-POST-DATA, patch supplied by Desmond O. Chang. U trunk/thirdparty/hunchentoot/request.lisp Modified: trunk/thirdparty/hunchentoot/request.lisp =================================================================== --- trunk/thirdparty/hunchentoot/request.lisp 2009-10-14 21:51:47 UTC (rev 4459) +++ trunk/thirdparty/hunchentoot/request.lisp 2009-10-28 06:28:34 UTC (rev 4460) @@ -313,7 +313,7 @@ (cond ((and (string-equal type "application") (string-equal subtype "x-www-form-urlencoded")) (form-url-encoded-list-to-alist - (split "&" (raw-post-data :external-format +latin-1+)) + (split "&" (raw-post-data :request request :external-format +latin-1+)) external-format)) ((and (string-equal type "multipart") (string-equal subtype "form-data"))

1 0

[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/
by BKNR Commits 14 Oct '09

14 Oct '09

Revision: 4459 Author: edi URL: http://bknr.net/trac/changeset/4459 Typos U trunk/thirdparty/hunchentoot/easy-handlers.lisp U trunk/thirdparty/hunchentoot/specials.lisp Modified: trunk/thirdparty/hunchentoot/easy-handlers.lisp =================================================================== --- trunk/thirdparty/hunchentoot/easy-handlers.lisp 2009-10-14 21:45:48 UTC (rev 4458) +++ trunk/thirdparty/hunchentoot/easy-handlers.lisp 2009-10-14 21:51:47 UTC (rev 4459) @@ -184,7 +184,7 @@ ACCEPTOR-NAMES \(which is evaluated) can be a list of symbols which means that the handler will be returned by DISPATCH-EASY-HANDLERS in -acceptor which have one of these names \(see ACCEPTOR-NAME). +acceptors which have one of these names \(see ACCEPTOR-NAME). ACCEPTOR-NAMES can also be the symbol T which means that the handler will be returned by DISPATCH-EASY-HANDLERS in every acceptor. Modified: trunk/thirdparty/hunchentoot/specials.lisp =================================================================== --- trunk/thirdparty/hunchentoot/specials.lisp 2009-10-14 21:45:48 UTC (rev 4458) +++ trunk/thirdparty/hunchentoot/specials.lisp 2009-10-14 21:51:47 UTC (rev 4459) @@ -270,7 +270,7 @@ DEFAULT-DISPATCHER.") (defvar *easy-handler-alist* nil - "An alist of \(URI server-names function) lists defined by + "An alist of \(URI acceptor-names function) lists defined by DEFINE-EASY-HANDLER.") (defvar *http-error-handler* nil

1 0