Changeset 32742

Timestamp:

04/23/09 10:48:08 (4 years ago)

Author:

syo68k

Message:

tumblr.comのURL展開に対応

Location:

lang/vb2005/Tween/trunk/Tween

Files:

• Resources/ChangeLog.txt (modified) (1 diff)
• Twitter.vb (modified) (2 diffs)

lang/vb2005/Tween/trunk/Tween/Resources/ChangeLog.txt

@@ -11 +11 @@
 -設定保存に失敗した場合はリトライするように
 -初回起動時に空の設定ファイルを作成しないように
--twitthis.com,blip.fmのURL展開に対応
+-twitthis.com,blip.fm,tumblr.comのURL展開に対応
 -タブ名変更で重複名を指定すると例外になるバグ修正
 -例外処理を一部変更し、終了できないことがある問題に対応

lang/vb2005/Tween/trunk/Tween/Twitter.vb

@@ -105 +105 @@
             "http://ff.im/", _
             "http://twitthis.com/", _
-            "http://blip.fm/" _
+            "http://blip.fm/", _
+            "http://tumblr.com/" _
         }
 
@@ -1032 +1033 @@
                             Dim Response As String = ""
                             Dim retUrlStr As String = ""
-                            retUrlStr = DirectCast(CreateSocket.GetWebResponse(urlStr, Response, MySocket.REQ_TYPE.ReqGETForwardTo), String)
+                            Dim tmpurlStr As String = urlStr
+                            For i As Integer = 0 To 4   'とりあえず5回試す
+                                retUrlStr = DirectCast(CreateSocket.GetWebResponse(tmpurlStr, Response, MySocket.REQ_TYPE.ReqGETForwardTo), String)
+                                If retUrlStr.Length > 0 Then
+                                    ' 転送先URLが返された (まだ転送されるかもしれないので返値を引数にしてもう一度)
+                                    ' 取得試行回数オーバーの場合は取得結果を転送先とする
+                                    tmpurlStr = retUrlStr
+                                    Continue For
+                                Else
+                                    ' 転送先URLが返されなかった
+                                    If tmpurlStr <> urlStr Then
+                                        '少なくとも一度以上転送されている (前回の結果を転送先とする)
+                                        retUrlStr = tmpurlStr
+                                    Else
+                                        ' 一度も転送されていない
+                                        retUrlStr = ""
+                                    End If
+                                    Exit For
+                                End If
+                            Next
                             If retUrlStr.Length > 0 Then
                                 If Not retUrlStr.StartsWith("http") Then