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

[bknr-cvs] hans changed deployed/quickhoney/projects/quickhoney/src/init.lisp
by BKNR Commits 08 May '09

08 May '09

Revision: 4389 Author: hans URL: http://bknr.net/trac/changeset/4389 Another Hunchentoot 1.0 fix U deployed/quickhoney/projects/quickhoney/src/init.lisp Modified: deployed/quickhoney/projects/quickhoney/src/init.lisp =================================================================== --- deployed/quickhoney/projects/quickhoney/src/init.lisp 2009-05-08 10:13:51 UTC (rev 4388) +++ deployed/quickhoney/projects/quickhoney/src/init.lisp 2009-05-08 10:22:08 UTC (rev 4389) @@ -39,6 +39,7 @@ (setf *acceptor* (make-instance 'hunchentoot:acceptor :port *webserver-port* :taskmaster (make-instance 'hunchentoot:single-threaded-taskmaster) - :persistent-connections-p nil)) + :persistent-connections-p nil + :request-dispatcher 'bknr.web:bknr-dispatch)) (bt:make-thread (curry #'hunchentoot:start *acceptor*) :name (format nil "HTTP server on port ~A" *webserver-port*)))

1 0

[bknr-cvs] hans changed deployed/quickhoney/projects/quickhoney/src/init.lisp
by BKNR Commits 08 May '09

08 May '09

Revision: 4388 Author: hans URL: http://bknr.net/trac/changeset/4388 another hunchentoot 1.0 change U deployed/quickhoney/projects/quickhoney/src/init.lisp Modified: deployed/quickhoney/projects/quickhoney/src/init.lisp =================================================================== --- deployed/quickhoney/projects/quickhoney/src/init.lisp 2009-05-08 10:09:10 UTC (rev 4387) +++ deployed/quickhoney/projects/quickhoney/src/init.lisp 2009-05-08 10:13:51 UTC (rev 4388) @@ -38,7 +38,7 @@ (load "site-config.lisp"))) (setf *acceptor* (make-instance 'hunchentoot:acceptor :port *webserver-port* - :taskmaster 'hunchentoot:single-threaded-taskmaster + :taskmaster (make-instance 'hunchentoot:single-threaded-taskmaster) :persistent-connections-p nil)) (bt:make-thread (curry #'hunchentoot:start *acceptor*) :name (format nil "HTTP server on port ~A" *webserver-port*)))

1 0

[bknr-cvs] hans changed deployed/quickhoney/projects/quickhoney/src/
by BKNR Commits 08 May '09

08 May '09

Revision: 4387 Author: hans URL: http://bknr.net/trac/changeset/4387 hunchentoot 1.0 changes U deployed/quickhoney/projects/quickhoney/src/handlers.lisp U deployed/quickhoney/projects/quickhoney/src/init.lisp Modified: deployed/quickhoney/projects/quickhoney/src/handlers.lisp =================================================================== --- deployed/quickhoney/projects/quickhoney/src/handlers.lisp 2009-05-08 09:54:06 UTC (rev 4386) +++ deployed/quickhoney/projects/quickhoney/src/handlers.lisp 2009-05-08 10:09:10 UTC (rev 4387) @@ -587,6 +587,10 @@ (defclass shutdown-handler (admin-only-handler page-handler) ()) +(defvar *acceptor* nil) + (defmethod handle ((handler shutdown-handler)) - (hunchentoot:stop-server hunchentoot:*server*) + (when *acceptor* + (hunchentoot:stop *acceptor*) + (setf *acceptor* nil)) "Shutting down HTTP server") Modified: deployed/quickhoney/projects/quickhoney/src/init.lisp =================================================================== --- deployed/quickhoney/projects/quickhoney/src/init.lisp 2009-05-08 09:54:06 UTC (rev 4386) +++ deployed/quickhoney/projects/quickhoney/src/init.lisp 2009-05-08 10:09:10 UTC (rev 4387) @@ -36,8 +36,9 @@ (format t "; loading site configuration file~%") (let ((*package* (find-package :quickhoney.config))) (load "site-config.lisp"))) - (bt:make-thread (curry #'hunchentoot:start-server - :port *webserver-port* - :threaded nil - :persistent-connections-p nil) + (setf *acceptor* (make-instance 'hunchentoot:acceptor + :port *webserver-port* + :taskmaster 'hunchentoot:single-threaded-taskmaster + :persistent-connections-p nil)) + (bt:make-thread (curry #'hunchentoot:start *acceptor*) :name (format nil "HTTP server on port ~A" *webserver-port*)))

1 0

[bknr-cvs] hans changed deployed/quickhoney/projects/quickhoney/src/handlers.lisp
by BKNR Commits 08 May '09

08 May '09

Revision: 4386 Author: hans URL: http://bknr.net/trac/changeset/4386 remove auto-twitter functionality as requested U deployed/quickhoney/projects/quickhoney/src/handlers.lisp Modified: deployed/quickhoney/projects/quickhoney/src/handlers.lisp =================================================================== --- deployed/quickhoney/projects/quickhoney/src/handlers.lisp 2009-05-03 15:12:13 UTC (rev 4385) +++ deployed/quickhoney/projects/quickhoney/src/handlers.lisp 2009-05-08 09:54:06 UTC (rev 4386) @@ -334,13 +334,6 @@ :spider-keywords spider-keywords)))) (with-http-response () (with-http-body () - (let ((tinyurl (drakma:http-request - (format nil "http://tinyurl.com/api-create.php?url=~A" - (hunchentoot:url-encode (format nil "http://quickhoney.com~A/~A" - (handler-path handler) image-name)))))) - (twitter:update-status (bknr-session-user) - (format nil "Uploaded new image ~A: ~A" - image-name tinyurl))) (html (:html (:head (:title "Upload successful") @@ -405,8 +398,6 @@ (apply #'make-store-image :image uploaded-image args) (apply #'import-image (upload-pathname uploaded-file) args)))) (declare (ignore item)) ; for now - (twitter:update-status (bknr-session-user) - (format nil "Posted news item: http://quickhoney.com/news/~A" name)) (with-http-response () (with-http-body () (html (:html

1 0

[bknr-cvs] hans changed deployed/bos/thirdparty/usocket/condition.lisp
by BKNR Commits 03 May '09

03 May '09

Revision: 4385 Author: hans URL: http://bknr.net/trac/changeset/4385 merge usocket fix U deployed/bos/thirdparty/usocket/condition.lisp Modified: deployed/bos/thirdparty/usocket/condition.lisp =================================================================== --- deployed/bos/thirdparty/usocket/condition.lisp 2009-05-03 15:02:07 UTC (rev 4384) +++ deployed/bos/thirdparty/usocket/condition.lisp 2009-05-03 15:12:13 UTC (rev 4385) @@ -183,7 +183,7 @@ ((49 99) . address-not-available-error) ((9) . bad-file-descriptor-error) ((61 111) . connection-refused-error) - ((64 131) . connection-reset-error) + ((54 104) . connection-reset-error) ((53 103) . connection-aborted-error) ((22) . invalid-argument-error) ((55 105) . no-buffers-error)

1 0

[bknr-cvs] hans changed deployed/quickhoney/thirdparty/usocket/condition.lisp
by BKNR Commits 03 May '09

03 May '09

Revision: 4384 Author: hans URL: http://bknr.net/trac/changeset/4384 Correct errno for ECONNRESET U deployed/quickhoney/thirdparty/usocket/condition.lisp Modified: deployed/quickhoney/thirdparty/usocket/condition.lisp =================================================================== --- deployed/quickhoney/thirdparty/usocket/condition.lisp 2009-04-16 16:42:38 UTC (rev 4383) +++ deployed/quickhoney/thirdparty/usocket/condition.lisp 2009-05-03 15:02:07 UTC (rev 4384) @@ -183,7 +183,7 @@ ((49 99) . address-not-available-error) ((9) . bad-file-descriptor-error) ((61 111) . connection-refused-error) - ((64 131) . connection-reset-error) + ((54 104) . connection-reset-error) ((53 103) . connection-aborted-error) ((22) . invalid-argument-error) ((55 105) . no-buffers-error)

1 0