From: syo68k <syo68k@users.sourceforge.jp>
Date: Wed, 29 Dec 2010 19:34:51 +0000 (+0000)
Subject: ・ux.nu展開に対応
X-Git-Tag: Tween_v0.9.8.0~146
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=cde5c338ea3ad1fecb886fa8e660ef955f1854c9;p=opentween%2Fopen-tween.git

・ux.nu展開に対応
・転送先取得をHEADで行うように

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1283 e39ad16e-3079-482e-bb30-4b4d378143b6
---

diff --git a/Tween/Connection/HttpVarious.vb b/Tween/Connection/HttpVarious.vb
index 31380203..5d644573 100644
--- a/Tween/Connection/HttpVarious.vb
+++ b/Tween/Connection/HttpVarious.vb
@@ -6,10 +6,11 @@ Public Class HttpVarious
 
     Private Const PostMethod As String = "POST"
     Private Const GetMethod As String = "GET"
+    Private Const HeadMethod As String = "HEAD"
 
     Public Function GetRedirectTo(ByVal url As String) As String
         Try
-            Dim req As HttpWebRequest = CreateRequest(GetMethod, New Uri(url), Nothing, False)
+            Dim req As HttpWebRequest = CreateRequest(HeadMethod, New Uri(url), Nothing, False)
             req.Timeout = 5000
             req.AllowAutoRedirect = False
             Dim data As String = ""
diff --git a/Tween/ShortUrl.vb b/Tween/ShortUrl.vb
index 21c39e92..70305233 100644
--- a/Tween/ShortUrl.vb
+++ b/Tween/ShortUrl.vb
@@ -45,6 +45,7 @@ Public Class ShortUrl
         "http://htn.to/", _
         "http://amzn.to/", _
         "http://flic.kr/", _
+        "http://ux.nu/", _
         "http://moi.st/" _
     }