・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 3138020..5d64457 100644 (file)
--- 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 21c39e9..7030523 100644 (file)
--- 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/" _
     }