svnno****@sourc*****
svnno****@sourc*****
2010年 12月 30日 (木) 04:34:51 JST
Revision: 1283
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1283
Author: syo68k
Date: 2010-12-30 04:34:51 +0900 (Thu, 30 Dec 2010)
Log Message:
-----------
・ux.nu展開に対応
・転送先取得をHEADで行うように
Modified Paths:
--------------
trunk/Tween/Connection/HttpVarious.vb
trunk/Tween/ShortUrl.vb
-------------- next part --------------
Modified: trunk/Tween/Connection/HttpVarious.vb
===================================================================
--- trunk/Tween/Connection/HttpVarious.vb 2010-12-29 18:22:17 UTC (rev 1282)
+++ trunk/Tween/Connection/HttpVarious.vb 2010-12-29 19:34:51 UTC (rev 1283)
@@ -6,10 +6,11 @@
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 = ""
Modified: trunk/Tween/ShortUrl.vb
===================================================================
--- trunk/Tween/ShortUrl.vb 2010-12-29 18:22:17 UTC (rev 1282)
+++ trunk/Tween/ShortUrl.vb 2010-12-29 19:34:51 UTC (rev 1283)
@@ -45,6 +45,7 @@
"http://htn.to/", _
"http://amzn.to/", _
"http://flic.kr/", _
+ "http://ux.nu/", _
"http://moi.st/" _
}