[bknr-cvs] hans changed deployed/quickhoney/projects/quickhoney/src/handlers.lisp

[BKNR Commits]

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