added bit.ly url shortener

Author: aptonic

bit.ly.dropzone

@@ -0,0 +1,52 @@
+# Dropzone Destination Info
+# Name: bit.ly
+# Description: A dropped URL will be converted to an bit.ly URL.
+# Handles: NSStringPboardType
+# Creator: Sergej Müller
+# URL: http://www.ebiene.de
+# IconURL: http://aptonic.com/destinations/icons/bit.ly.png
+# OptionsNIB: Login
+# LoginTitle: bit.ly Login Details
+
+require 'open-uri'
+require 'net/http'
+require 'cgi'
+require 'rexml/document'
+
+def dragged
+  $dz.determinate(false)
+  $dz.begin("Getting bit.ly URL")
+  
+  if $items[0] =~ /http/
+    Net::HTTP.start('api.bit.ly') do |http|
+      req = Net::HTTP::Get.new('/shorten?version=2.0.1&format=xml&longUrl=' + CGI::escape($items[0]))
+      req.basic_auth ENV['USERNAME'], ENV['PASSWORD']
+      res = http.request(req)
+      
+      doc = REXML::Document.new(res.body)
+      doc.elements.each("bitly/statusCode") do |a|
+      	if a.text == "ERROR"
+      		$dz.finish("Invalid user or password")
+    			$dz.url(false)
+      	else
+      		doc.elements.each("bitly/results/nodeKeyVal/shortUrl") do |b|
+      			if b.text.empty?
+      				$dz.finish("Empty URL is returned")
+    					$dz.url(false)
+    				else
+      				$dz.finish("URL is now on clipboard")
+    					$dz.url(b.text)
+    				end
+      		end
+      	end
+      end
+    end
+  else
+    $dz.finish("Invalid URL")
+    $dz.url(false)
+  end
+end
+
+def clicked
+  system("open http://bit.ly/")
+end