[AppleScript] Bit.lyで短縮URL作成 [要API]

bit.lyで短縮したURLを返すルーチン。
用途的にルーチンにする必要は無いですが・・・書いちゃったので。
前に本家が公開してた方法は閉鎖してました。

Bit.ly URL shortening with Mac OS X Snow Leopard Services and Applescript
いっても410 GONEが返ってきます
しかし410なんてエラーあったんですね、知らなかった・・・

現行の記述はググッても中々見つからず、公式の隅っこに埋まってる感じ。
もうbit.ly自体あまり使われていないのかもしれませんが、念のため。
僕としては、かなり便利だと思うんですけどねぇ。。。
format=txtをxml、jsonに変えると、そのタイプで取得できます。

ApiDocumentation - bitly-api - bitly REST API method documentation - API Libraries and Documentation for bitly - Google Project Hosting
v3/shortenってとこ

残念ながら、直リンを返してくれるのはユーザー名、API持ってる人だけみたい。
無い場合はhttp://bit.ly/longURLに飛ばされてからでないと、短縮URLが作れません。
「アカウント持ってないヤツ、ちょっとウチこいよ」ってことなのかな？
ワンクッション無くURLを作る方法をご存知の方いましたら、教えてください。

set bitly_user to "" --bit.ly ユーザー名
set bitly_api to "" --bit.ly API
set longURL to "" --短縮前URL

to bitly(longURL, bitly_user, bitly_api)
	set inputResult to (longURL as string)
	if (((characters 1 thru 4 of inputResult) as string) = "http") then
		set curlCMD to "curl --stderr /dev/null \"http://api.bitly.com/v3/shorten?login=" & bitly_user & "&apiKey=" & bitly_api & "&longUrl=" & longURL & "&format=txt\""
		set tinyURL to (do shell script curlCMD)
		return tinyURL
	end if
end bitly