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