bknr-cvs

bknr-cvs@common-lisp.net

1964 discussions

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

30 Mar '10

Revision: 4522 Author: edi URL: http://bknr.net/trac/changeset/4522 Safeguard measures against XSS attacks (J.P. Larocque) U trunk/thirdparty/hunchentoot/CHANGELOG U trunk/thirdparty/hunchentoot/headers.lisp U trunk/thirdparty/hunchentoot/util.lisp Modified: trunk/thirdparty/hunchentoot/CHANGELOG =================================================================== --- trunk/thirdparty/hunchentoot/CHANGELOG 2010-03-23 12:57:15 UTC (rev 4521) +++ trunk/thirdparty/hunchentoot/CHANGELOG 2010-03-30 13:22:17 UTC (rev 4522) @@ -1,3 +1,4 @@ +Safeguard measures against XSS attacks (J.P. Larocque) Prevent potential leak when closing stream (Matt Lamari, Martin Simmons) Change some occurrences of HANDLER-CASE* to HANDLER-CASE (Hans Hübner, Allan Dee) Modified: trunk/thirdparty/hunchentoot/headers.lisp =================================================================== --- trunk/thirdparty/hunchentoot/headers.lisp 2010-03-23 12:57:15 UTC (rev 4521) +++ trunk/thirdparty/hunchentoot/headers.lisp 2010-03-30 13:22:17 UTC (rev 4522) @@ -157,15 +157,15 @@ ((#.+http-internal-server-error+) content) ((#.+http-moved-temporarily+ #.+http-moved-permanently+) (format nil "The document has moved <a href='~A'>here</a>" - (header-out :location))) + (escape-for-html (header-out :location)))) ((#.+http-authorization-required+) "The server could not verify that you are authorized to access the document requested. Either you supplied the wrong credentials \(e.g., bad password), or your browser doesn't understand how to supply the credentials required.") ((#.+http-forbidden+) (format nil "You don't have permission to access ~A on this server." - (script-name request))) + (escape-for-html (script-name request)))) ((#.+http-not-found+) (format nil "The requested URL ~A was not found on this server." - (script-name request))) + (escape-for-html (script-name request)))) ((#.+http-bad-request+) "Your browser sent a request that this server could not understand.") (otherwise "")) Modified: trunk/thirdparty/hunchentoot/util.lisp =================================================================== --- trunk/thirdparty/hunchentoot/util.lisp 2010-03-23 12:57:15 UTC (rev 4521) +++ trunk/thirdparty/hunchentoot/util.lisp 2010-03-30 13:22:17 UTC (rev 4522) @@ -302,7 +302,7 @@ +implementation-link+ (escape-for-html (lisp-implementation-type)) (escape-for-html (lisp-implementation-version)) - (or (host *request*) (acceptor-address *acceptor*)) + (escape-for-html (or (host *request*) (acceptor-address *acceptor*))) (scan ":\\d+$" (or (host *request*) "")) (acceptor-port *acceptor*)))

1 0

[bknr-cvs] hans changed deployed/bos/projects/bos/
by BKNR Commits 23 Mar '10

23 Mar '10

Revision: 4521 Author: hans URL: http://bknr.net/trac/changeset/4521 Format tweaks in sponsor list. U deployed/bos/projects/bos/payment-website/static/contracts.xsl U deployed/bos/projects/bos/web/reports-xml-handler.lisp Modified: deployed/bos/projects/bos/payment-website/static/contracts.xsl =================================================================== --- deployed/bos/projects/bos/payment-website/static/contracts.xsl 2010-03-23 10:54:57 UTC (rev 4520) +++ deployed/bos/projects/bos/payment-website/static/contracts.xsl 2010-03-23 12:57:15 UTC (rev 4521) @@ -10,7 +10,7 @@ <body> <table border="1"> <thead> - <tr><th>Name</th><th>ID</th><th>Country</th><th>Coordinate (x/y)</th><th>qm</th></tr> + <tr><th>Name</th><th>ID</th><th>Country</th><th>Coordinate</th><th>qm</th></tr> </thead> <tbody> <xsl:apply-templates/> @@ -23,10 +23,10 @@ <xsl:template match="contract"> <tr> <td><xsl:value-of select="@sponsor-name" /></td> - <td><xsl:value-of select="@sponsor-id" /></td> - <td><xsl:value-of select="@country" /></td> - <td><xsl:value-of select="@utm-x" />/<xsl:value-of select="@utm-y" /></td> - <td><xsl:value-of select="@sqm-count" /></td> + <td align="right"><xsl:value-of select="@sponsor-id" /></td> + <td align="right"><xsl:value-of select="@country" /></td> + <td align="right"><xsl:value-of select="@coords" /></td> + <td align="right"><xsl:value-of select="@sqm-count" /></td> </tr> </xsl:template> </xsl:stylesheet> Modified: deployed/bos/projects/bos/web/reports-xml-handler.lisp =================================================================== --- deployed/bos/projects/bos/web/reports-xml-handler.lisp 2010-03-23 10:54:57 UTC (rev 4520) +++ deployed/bos/projects/bos/web/reports-xml-handler.lisp 2010-03-23 12:57:15 UTC (rev 4521) @@ -53,9 +53,8 @@ (attribute "country" (sponsor-country sponsor)) (attribute "sqm-count" (length (contract-m2s contract))) (when include-coords - (let ((m2 (first (contract-m2s contract)))) - (attribute "utm-x" (m2-x m2)) - (attribute "utm-y" (m2-y m2)))))))) + (destructuring-bind (lon lat) (m2-lon-lat (first (contract-m2s contract))) + (attribute "coords" (with-output-to-string (s) (geometry:format-lon-lat s lon lat))))))))) (defreport all-contracts () (all-contracts/internal))

1 0

[bknr-cvs] hans changed deployed/bos/projects/bos/
by BKNR Commits 23 Mar '10

23 Mar '10

Revision: 4520 Author: hans URL: http://bknr.net/trac/changeset/4520 Make /reports-xml/all-contracts-m2s into a HTML table by default, requested by the SL team in Indonesia. A deployed/bos/projects/bos/payment-website/static/contracts.xsl U deployed/bos/projects/bos/web/reports-xml-handler.lisp Added: deployed/bos/projects/bos/payment-website/static/contracts.xsl =================================================================== --- deployed/bos/projects/bos/payment-website/static/contracts.xsl (rev 0) +++ deployed/bos/projects/bos/payment-website/static/contracts.xsl 2010-03-23 10:54:57 UTC (rev 4520) @@ -0,0 +1,34 @@ +<?xml version="1.0" encoding="utf-8"?> +<xsl:stylesheet xmlns:xsl="http://www.w3.org/1999/XSL/Transform" + version="1.0"> + <xsl:output method="html"/> + + <xsl:template match="/"> + <html xmlns="http://www.w3.org/1999/xhtml"> + <head> + <title>Samboja Lestari Donor List</title></head> + <body> + <table border="1"> + <thead> + <tr><th>Name</th><th>ID</th><th>Country</th><th>Coordinate (x/y)</th><th>qm</th></tr> + </thead> + <tbody> + <xsl:apply-templates/> + </tbody> + </table> + </body> + </html> + </xsl:template> + + <xsl:template match="contract"> + <tr> + <td><xsl:value-of select="@sponsor-name" /></td> + <td><xsl:value-of select="@sponsor-id" /></td> + <td><xsl:value-of select="@country" /></td> + <td><xsl:value-of select="@utm-x" />/<xsl:value-of select="@utm-y" /></td> + <td><xsl:value-of select="@sqm-count" /></td> + </tr> + </xsl:template> +</xsl:stylesheet> + + Modified: deployed/bos/projects/bos/web/reports-xml-handler.lisp =================================================================== --- deployed/bos/projects/bos/web/reports-xml-handler.lisp 2010-03-09 16:47:23 UTC (rev 4519) +++ deployed/bos/projects/bos/web/reports-xml-handler.lisp 2010-03-23 10:54:57 UTC (rev 4520) @@ -41,17 +41,19 @@ (defun all-contracts/internal (&key include-coords) (dolist (contract *contracts-to-process*) - (with-element "contract" - (attribute "id" (store-object-id contract)) - (attribute "sponsor-id" (store-object-id (contract-sponsor contract))) - (attribute "universal-time" (contract-date contract)) - (attribute "paid" (contract-paidp contract)) - (attribute "date-time" (format-date-time (contract-date contract) :xml-style t)) - (attribute "country" (sponsor-country (contract-sponsor contract))) - (attribute "sqm-count" (length (contract-m2s contract))) - (when include-coords - (dolist (m2 (contract-m2s contract)) - (with-element "m2" + (let ((sponsor (contract-sponsor contract))) + (with-element "contract" + (attribute "id" (store-object-id contract)) + (attribute "sponsor-id" (store-object-id sponsor)) + (when (user-full-name sponsor) + (attribute "sponsor-name" (user-full-name sponsor))) + (attribute "universal-time" (contract-date contract)) + (attribute "paid" (contract-paidp contract)) + (attribute "date-time" (format-date-time (contract-date contract) :xml-style t)) + (attribute "country" (sponsor-country sponsor)) + (attribute "sqm-count" (length (contract-m2s contract))) + (when include-coords + (let ((m2 (first (contract-m2s contract)))) (attribute "utm-x" (m2-x m2)) (attribute "utm-y" (m2-y m2)))))))) @@ -59,6 +61,7 @@ (all-contracts/internal)) (defreport all-contracts-m2s () + (sax:processing-instruction cxml::*sink* "xml-stylesheet" "href=\"/static/contracts.xsl\" type=\"text/xsl\"") (all-contracts/internal :include-coords t)) (defun week-of-contract (contract)

1 0

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

09 Mar '10

Revision: 4519 Author: hans URL: http://bknr.net/trac/changeset/4519 Documentation update and typo fix from Andrey Moskvitin. U trunk/thirdparty/hunchentoot/conditions.lisp U trunk/thirdparty/hunchentoot/doc/index.xml Modified: trunk/thirdparty/hunchentoot/conditions.lisp =================================================================== --- trunk/thirdparty/hunchentoot/conditions.lisp 2010-03-07 09:16:10 UTC (rev 4518) +++ trunk/thirdparty/hunchentoot/conditions.lisp 2010-03-09 16:47:23 UTC (rev 4519) @@ -104,10 +104,10 @@ "Used to enable debug mode" (setf *catch-errors-p* nil)) -(defun debug-mode-off (&optional (kill-debuging-threads t)) +(defun debug-mode-off (&optional (kill-debugging-threads t)) "Used to turn off debug mode" (setf *catch-errors-p* t) - (when kill-debuging-threads + (when kill-debugging-threads (kill-all-debugging-threads))) (defun after-close-swank-connection (connection) @@ -129,8 +129,8 @@ "The default method invokes the debugger with CONDITION if *CATCH-ERRORS-P* is NIL." (unless (or *catch-errors-p* - (< *max-debugging-threads* - (length *debugging-threads*))) + (<= *max-debugging-threads* + (length *debugging-threads*))) (let ((thread (bt:current-thread))) (with-lock-held (*debugging-threads-lock*) (push thread *debugging-threads*)) Modified: trunk/thirdparty/hunchentoot/doc/index.xml =================================================================== --- trunk/thirdparty/hunchentoot/doc/index.xml 2010-03-07 09:16:10 UTC (rev 4518) +++ trunk/thirdparty/hunchentoot/doc/index.xml 2010-03-09 16:47:23 UTC (rev 4519) @@ -152,6 +152,12 @@ <a href="http://common-lisp.net/~loliveira/ediware/">http://common-lisp.net/~loliveira/ediware/</a>. </p> + <p> + Andrey Moskvitin maintains a <a href="http://git-scm.com/">git</a> + repository of Hunchentoot at + <a href="http://github.com/archimag/hunchentoot">http://github.com/archimag/hunchentoot</a>. + </p> + <clix:subchapter name="proxy" title="Hunchentoot behind a proxy"> If you're feeling unsecure about exposing Hunchentoot to the wild, @@ -2646,6 +2652,45 @@ </clix:description> </clix:special-variable> + <clix:function name='debug-mode-on'> + <clix:description> +Enable debug mode: sets the value of <clix:ref>*CATCH-ERRORS-P*</clix:ref> to <code>NIL</code>. + </clix:description> + </clix:function> + + <clix:function name='debug-mode-off'> + <clix:lambda-list><clix:lkw>optional</clix:lkw> kill-debugging-threads + </clix:lambda-list> + <clix:description> +Disable debug mode: sets the value +of <clix:ref>*CATCH-ERRORS-P*</clix:ref> to <code>T</code>. If the +value of <clix:arg>kill-debugging-threads</clix:arg> +is <code>T</code>, which is the default, all threads that are sent to +the debugger by <clix:ref>MAYBE-INVOKE-DEBUGGER</clix:ref> will be +terminated. If +a <a href="http://common-lisp.net/project/slime/">swank</a> server is +present, <code>(debug-mode-off t)</code> will be automatically be +called after the connection to the swank server is established: this +provides some protection when debug mode has accidentially been +enabled in a production environment. + </clix:description> + </clix:function> + + <clix:special-variable name='*max-debugging-threads*'> + <clix:description> +This variable determines the maximum number of threads that are sent +to +the <a href="http://www.lispworks.com/documentation/HyperSpec/Body/26_glo_d.htm#debugger">debugger</a> +by <clix:ref>MAYBE-INVOKE-DEBUGGER</clix:ref>. The default for this +parameter is 5. Once this limit is +reached, <clix:ref>MAYBE-INVOKE-DEBUGGER</clix:ref> does not invoke +the debugger for new threads that signal an error. This behavior can +be helpful for safer debugging a production environment. +See <clix:ref>MAYBE-INVOKE-DEBUGGER</clix:ref> if you want to +fine-tune this behaviour. + </clix:description> + </clix:special-variable> + <clix:function generic='true' name='maybe-invoke-debugger'> <clix:lambda-list>condition </clix:lambda-list> @@ -2660,7 +2705,9 @@ method <a href="http://www.lispworks.com/documentation/HyperSpec/Body/f_invoke.htm">invokes the debugger</a> with <clix:arg>condition</clix:arg> if -<clix:ref>*CATCH-ERRORS-P*</clix:ref> is <code>NIL</code>. +<clix:ref>*CATCH-ERRORS-P*</clix:ref> is <code>NIL</code> and the number of active <a +href="http://www.lispworks.com/documentation/HyperSpec/Body/26_glo_d.htm#debugger">debuggers</a> +is less than <clix:ref>*MAX-DEBUGGING-THREADS*</clix:ref>. </clix:description> </clix:function>

1 0

[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/
by BKNR Commits 07 Mar '10

07 Mar '10

Revision: 4518 Author: hans URL: http://bknr.net/trac/changeset/4518 Debugging improved, patch supplied by Andrey Moskvitin. Introduces a new parameter: (defparameter *max-debugging-threads* 5 "Maximum number of simultaneous active calls invoke-debuger") This can be used to limit the number of debuggers that can be opened at once. U trunk/thirdparty/hunchentoot/conditions.lisp U trunk/thirdparty/hunchentoot/packages.lisp U trunk/thirdparty/hunchentoot/specials.lisp Modified: trunk/thirdparty/hunchentoot/conditions.lisp =================================================================== --- trunk/thirdparty/hunchentoot/conditions.lisp 2010-02-26 11:39:21 UTC (rev 4517) +++ trunk/thirdparty/hunchentoot/conditions.lisp 2010-03-07 09:16:10 UTC (rev 4518) @@ -90,15 +90,55 @@ "Used to signal an error if an operation named NAME is not implemented." (error 'operation-not-implemented :operation name)) +(defun kill-all-debugging-threads () + "Used for destroy all debugging threads" + (with-lock-held (*debugging-threads-lock*) + (dolist (thread *debugging-threads*) + (when (ignore-errors + (bt:destroy-thread thread) + t) + (setf *debugging-threads* + (remove thread *debugging-threads*)))))) + +(defun debug-mode-on () + "Used to enable debug mode" + (setf *catch-errors-p* nil)) + +(defun debug-mode-off (&optional (kill-debuging-threads t)) + "Used to turn off debug mode" + (setf *catch-errors-p* t) + (when kill-debuging-threads + (kill-all-debugging-threads))) + +(defun after-close-swank-connection (connection) + "Turns off debug mode and destroy debugging threads after closing the connection with the swank-server" + (declare (ignore connection)) + (debug-mode-off t)) + +(when (find-package :swank) + (ignore-errors + (eval `(,(find-symbol (string '#:add-hook) :swank) + ,(find-symbol (string '#:*connection-closed-hook*) :swank) + 'after-close-swank-connection)))) + (defgeneric maybe-invoke-debugger (condition) (:documentation "This generic function is called whenever a condition CONDITION is signaled in Hunchentoot. You might want to specialize it on specific condition classes for debugging purposes.") (:method (condition) - "The default method invokes the debugger with CONDITION if + "The default method invokes the debugger with CONDITION if *CATCH-ERRORS-P* is NIL." - (unless *catch-errors-p* - (invoke-debugger condition)))) + (unless (or *catch-errors-p* + (< *max-debugging-threads* + (length *debugging-threads*))) + (let ((thread (bt:current-thread))) + (with-lock-held (*debugging-threads-lock*) + (push thread *debugging-threads*)) + (unwind-protect + (invoke-debugger condition) + (with-lock-held (*debugging-threads-lock*) + (setf *debugging-threads* + (remove thread *debugging-threads*)))))))) (defmacro with-debugger (&body body) "Executes BODY and invokes the debugger if an error is signaled and Modified: trunk/thirdparty/hunchentoot/packages.lisp =================================================================== --- trunk/thirdparty/hunchentoot/packages.lisp 2010-02-26 11:39:21 UTC (rev 4517) +++ trunk/thirdparty/hunchentoot/packages.lisp 2010-03-07 09:16:10 UTC (rev 4518) @@ -62,6 +62,7 @@ "*LOG-LISP-BACKTRACES-P*" "*LOG-LISP-ERRORS-P*" "*LOG-LISP-WARNINGS-P*" + "*MAX-DEBUGGING-THREADS*" "*MESSAGE-LOG-PATHNAME*" "*METHODS-FOR-POST-PARAMETERS*" "*REPLY*" @@ -264,5 +265,7 @@ "URL-DECODE" "URL-ENCODE" "USER-AGENT" - "WITHIN-REQUEST-P")) + "WITHIN-REQUEST-P" + "DEBUG-MODE-ON" + "DEBUG-MODE-OFF")) Modified: trunk/thirdparty/hunchentoot/specials.lisp =================================================================== --- trunk/thirdparty/hunchentoot/specials.lisp 2010-02-26 11:39:21 UTC (rev 4517) +++ trunk/thirdparty/hunchentoot/specials.lisp 2010-03-07 09:16:10 UTC (rev 4518) @@ -236,6 +236,16 @@ "Whether Hunchentoot should catch and log errors \(or rather invoke the debugger).") +(defparameter *max-debugging-threads* 5 + "Maximum number of simultaneous active calls invoke-debuger") + +(defvar *debugging-threads* nil + "List debugged threads") + +(defvar *debugging-threads-lock* (make-lock "debugging threads lock") + "A global lock to prevent two threads from modifying *debugging-threads* at +the same time") + (defvar-unbound *acceptor* "The current ACCEPTOR object while in the context of a request.")

1 0

[bknr-cvs] hans changed deployed/bos/projects/bos/m2/m2.lisp
by BKNR Commits 26 Feb '10

26 Feb '10

Revision: 4517 Author: hans URL: http://bknr.net/trac/changeset/4517 fail gracefully when pdf cannot be read U deployed/bos/projects/bos/m2/m2.lisp Modified: deployed/bos/projects/bos/m2/m2.lisp =================================================================== --- deployed/bos/projects/bos/m2/m2.lisp 2010-02-21 13:24:29 UTC (rev 4516) +++ deployed/bos/projects/bos/m2/m2.lisp 2010-02-26 11:39:21 UTC (rev 4517) @@ -368,12 +368,16 @@ (defmethod contract-issue-cert ((contract contract) name &key address language) (when (contract-cert-issued contract) (warn "re-issuing cert for ~A" contract)) - (contract-delete-certificate-files contract) - (make-certificate contract name :address address :language language) - (when (and (equal language "de") - (not (contract-download-only-p contract))) - (make-certificate contract name :address address :language language :print t)) - (change-slot-values contract 'cert-issued t)) + (handler-case + (progn + (contract-delete-certificate-files contract) + (make-certificate contract name :address address :language language) + (when (and (equal language "de") + (not (contract-download-only-p contract))) + (make-certificate contract name :address address :language language :print t)) + (change-slot-values contract 'cert-issued t)) + (error (e) + (warn "error generating certificate: ~A" e)))) (defmethod contract-image-tiles ((contract contract)) (let (image-tiles)

1 0

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

21 Feb '10

Revision: 4516 Author: edi URL: http://bknr.net/trac/changeset/4516 Prevent potential leaks U trunk/thirdparty/hunchentoot/CHANGELOG U trunk/thirdparty/hunchentoot/acceptor.lisp Modified: trunk/thirdparty/hunchentoot/CHANGELOG =================================================================== --- trunk/thirdparty/hunchentoot/CHANGELOG 2010-02-21 13:14:50 UTC (rev 4515) +++ trunk/thirdparty/hunchentoot/CHANGELOG 2010-02-21 13:24:29 UTC (rev 4516) @@ -1,3 +1,6 @@ +Prevent potential leak when closing stream (Matt Lamari, Martin Simmons) +Change some occurrences of HANDLER-CASE* to HANDLER-CASE (Hans Hübner, Allan Dee) + Version 1.1.0 2010-01-08 Architectural changes - see HANDLE-REQUEST (thanks to Andreas Fuchs and Frode Fjeld) Modified: trunk/thirdparty/hunchentoot/acceptor.lisp =================================================================== --- trunk/thirdparty/hunchentoot/acceptor.lisp 2010-02-21 13:14:50 UTC (rev 4515) +++ trunk/thirdparty/hunchentoot/acceptor.lisp 2010-02-21 13:24:29 UTC (rev 4516) @@ -346,7 +346,8 @@ ;; errors that may occur while flushing and/or closing the ;; stream. (ignore-errors* - (force-output *hunchentoot-stream*) + (force-output *hunchentoot-stream*)) + (ignore-errors* (close *hunchentoot-stream* :abort t)))))) (defmethod acceptor-ssl-p ((acceptor t))

1 0

[bknr-cvs] edi changed tags/thirdparty/cl-webdav-0.2.0/
by BKNR Commits 21 Feb '10

21 Feb '10

Revision: 4515 Author: edi URL: http://bknr.net/trac/changeset/4515 Tag cl-webdav 0.2.0 A tags/thirdparty/cl-webdav-0.2.0/

1 0

[bknr-cvs] edi changed trunk/thirdparty/cl-webdav/
by BKNR Commits 21 Feb '10

21 Feb '10

Revision: 4514 Author: edi URL: http://bknr.net/trac/changeset/4514 More compatibility fixes from Matthew Prepare for 0.2.0 release U trunk/thirdparty/cl-webdav/CHANGELOG.txt U trunk/thirdparty/cl-webdav/authorized-file-resources.lisp U trunk/thirdparty/cl-webdav/cl-webdav.asd U trunk/thirdparty/cl-webdav/doc/index.html U trunk/thirdparty/cl-webdav/file-resources.lisp U trunk/thirdparty/cl-webdav/handlers.lisp U trunk/thirdparty/cl-webdav/packages.lisp U trunk/thirdparty/cl-webdav/properties.lisp U trunk/thirdparty/cl-webdav/resources.lisp U trunk/thirdparty/cl-webdav/specials.lisp U trunk/thirdparty/cl-webdav/util.lisp U trunk/thirdparty/cl-webdav/xml.lisp Modified: trunk/thirdparty/cl-webdav/CHANGELOG.txt =================================================================== --- trunk/thirdparty/cl-webdav/CHANGELOG.txt 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/CHANGELOG.txt 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,3 +1,5 @@ +Version 0.2.0 +2010-02-21 Changes to make CL-WEBDAV compatible with new Hunchentoot (Cyrus Harmon, Matthew Curry, and Ralf Mattes) Version 0.1.2 Modified: trunk/thirdparty/cl-webdav/authorized-file-resources.lisp =================================================================== --- trunk/thirdparty/cl-webdav/authorized-file-resources.lisp 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/authorized-file-resources.lisp 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/authorized-file-resources.lisp,v 1.7 2007/04/18 19:21:00 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions Modified: trunk/thirdparty/cl-webdav/cl-webdav.asd =================================================================== --- trunk/thirdparty/cl-webdav/cl-webdav.asd 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/cl-webdav.asd 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/cl-webdav.asd,v 1.7 2007/10/21 21:20:56 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions @@ -29,7 +29,7 @@ (asdf:defsystem :cl-webdav :serial t - :version "0.1.2" + :version "0.2.0" :components ((:file "packages") (:file "specials") (:file "util") Modified: trunk/thirdparty/cl-webdav/doc/index.html =================================================================== --- trunk/thirdparty/cl-webdav/doc/index.html 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/doc/index.html 2010-02-21 13:14:21 UTC (rev 4514) @@ -74,13 +74,13 @@ <br> <br><h3><a class=none name="download">Download and installation</a></h3> CL-WEBDAV together with this documentation can be downloaded -from <a -href="http://weitz.de/files/cl-webdav.tar.gz">http://weitz.de/files/cl-webdav.tar.gz</a>. The -current version is 0.1.2. It depends +from <a href="http://weitz.de/files/cl-webdav.tar.gz">http://weitz.de/files/cl-webdav.tar.gz</a>. The +current version is 0.2.0. It depends on <a href="http://common-lisp.net/project/cxml/">Closure XML</a>, <a href="http://weitz.de/cl-fad/">CL-FAD</a>, -and <a href="http://weitz.de/hunchentoot/">Hunchentoot</a>, and can be -compiled and loaded with <a href="http://www.cliki.net/asdf">ASDF</a>. +and <a href="http://weitz.de/hunchentoot/">Hunchentoot</a> (version +1.1.0 or higher), and can be compiled and loaded +with <a href="http://www.cliki.net/asdf">ASDF</a>. <p> A <a href="http://www.selenic.com/mercurial/wiki/">Mercurial</a> repository of older versions is available Modified: trunk/thirdparty/cl-webdav/file-resources.lisp =================================================================== --- trunk/thirdparty/cl-webdav/file-resources.lisp 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/file-resources.lisp 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/file-resources.lisp,v 1.7 2007/04/18 19:21:00 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions Modified: trunk/thirdparty/cl-webdav/handlers.lisp =================================================================== --- trunk/thirdparty/cl-webdav/handlers.lisp 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/handlers.lisp 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/handlers.lisp,v 1.13 2007/05/19 22:34:35 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions @@ -176,7 +176,7 @@ (setf (header-out :content-language) content-language)) (handle-if-modified-since write-date) (when (equal etag (header-in* :if-none-match)) - (setf (return-code) +http-not-modified+) + (setf (return-code*) +http-not-modified+) (abort-request-handler)) (setf (header-out :last-modified) (rfc-1123-date write-date) (content-length*) (resource-length resource)) Modified: trunk/thirdparty/cl-webdav/packages.lisp =================================================================== --- trunk/thirdparty/cl-webdav/packages.lisp 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/packages.lisp 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/packages.lisp,v 1.16 2007/04/18 19:49:32 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions Modified: trunk/thirdparty/cl-webdav/properties.lisp =================================================================== --- trunk/thirdparty/cl-webdav/properties.lisp 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/properties.lisp 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/properties.lisp,v 1.9 2008/06/25 08:04:25 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions Modified: trunk/thirdparty/cl-webdav/resources.lisp =================================================================== --- trunk/thirdparty/cl-webdav/resources.lisp 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/resources.lisp 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/resources.lisp,v 1.12 2007/04/18 19:21:00 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions Modified: trunk/thirdparty/cl-webdav/specials.lisp =================================================================== --- trunk/thirdparty/cl-webdav/specials.lisp 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/specials.lisp 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/specials.lisp,v 1.10 2008/06/25 08:02:17 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions Modified: trunk/thirdparty/cl-webdav/util.lisp =================================================================== --- trunk/thirdparty/cl-webdav/util.lisp 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/util.lisp 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/util.lisp,v 1.3 2007/04/17 07:42:08 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions @@ -36,7 +36,7 @@ `(defun ,name () ,(format nil "Sets RETURN-CODE to ~A and then calls ABORT-REQUEST-HANDLER." return-code) - (setf (return-code) ,return-code) + (setf (return-code*) ,return-code) (abort-request-handler))) (define-return-code-shortcut not-implemented +http-not-implemented+) Modified: trunk/thirdparty/cl-webdav/xml.lisp =================================================================== --- trunk/thirdparty/cl-webdav/xml.lisp 2010-02-18 13:07:34 UTC (rev 4513) +++ trunk/thirdparty/cl-webdav/xml.lisp 2010-02-21 13:14:21 UTC (rev 4514) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-WEBDAV; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-webdav/xml.lisp,v 1.10 2007/10/21 21:20:56 edi Exp $ -;;; Copyright (c) 2007-2009, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2007-2010, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions

1 0

[bknr-cvs] edi changed trunk/thirdparty/cl-webdav/
by BKNR Commits 18 Feb '10

18 Feb '10

Revision: 4513 Author: edi URL: http://bknr.net/trac/changeset/4513 Doc patch from Ralf Mattes U trunk/thirdparty/cl-webdav/CHANGELOG.txt U trunk/thirdparty/cl-webdav/doc/index.html Modified: trunk/thirdparty/cl-webdav/CHANGELOG.txt =================================================================== --- trunk/thirdparty/cl-webdav/CHANGELOG.txt 2010-02-18 11:02:41 UTC (rev 4512) +++ trunk/thirdparty/cl-webdav/CHANGELOG.txt 2010-02-18 13:07:34 UTC (rev 4513) @@ -1,4 +1,4 @@ -Changes to make CL-WEBDAV compatible with new Hunchentoot (Cyrus Harmon and Matthew Curry) +Changes to make CL-WEBDAV compatible with new Hunchentoot (Cyrus Harmon, Matthew Curry, and Ralf Mattes) Version 0.1.2 2007-10-21 Modified: trunk/thirdparty/cl-webdav/doc/index.html =================================================================== --- trunk/thirdparty/cl-webdav/doc/index.html 2010-02-18 11:02:41 UTC (rev 4512) +++ trunk/thirdparty/cl-webdav/doc/index.html 2010-02-18 13:07:34 UTC (rev 4513) @@ -97,6 +97,7 @@ (#<Closure ((METHOD CL-WEBDAV:CREATE-DAV-DISPATCHER (SYMBOL)) . 1) 200B8992> HUNCHENTOOT:DEFAULT-DISPATCHER) CL-USER 2 > (<a href="http://weitz.de/hunchentoot/#start-server" class=noborder>tbnl:start-server</a> :port 4242) +CL-USER 2 > (<a href="http://weitz.de/hunchentoot/#start" class=noborder>hunchentoot:start</a> (make-instance <a class="noborder" href="http://weitz.de/hunchentoot/#acceptor">'hunchentoot:acceptor</a> :port 4242)) #<HUNCHENTOOT::SERVER 200BCBCF> </pre>

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

bknr-cvs