• R/O
  • HTTP
  • SSH
  • HTTPS

open-tween: Commit

開発に使用するリポジトリ


Commit MetaInfo

Revision7f803eae20d8c19c0388de2ca2e2170be05c0883 (tree)
Time2012-02-18 23:19:53
Authorkiri_feather <kiri_feather@user...>
CommiterKimura Youichi

Log Message

1070リリース
UAC不要な環境で、自動バージョンアップ後Tweenが起動してこないバグ修正
非公式RTで正規表現でのReplaceポカミス修正
投稿欄の文字数カウントで一部URLの認識バグ修正
Fav時のエラーメッセージがFavQueueのままになっていたので戻し

Change Summary

Incremental Difference

--- a/Tween/My Project/AssemblyInfo.vb
+++ b/Tween/My Project/AssemblyInfo.vb
@@ -55,5 +55,5 @@ Imports System.Runtime.InteropServices
5555 ' <Assembly: AssemblyVersion("1.0.*")>
5656
5757 <Assembly: AssemblyVersion("0.1.0.0")>
58-<Assembly: AssemblyFileVersion("1.0.6.0")>
58+<Assembly: AssemblyFileVersion("1.0.7.0")>
5959
--- a/Tween/Resources/ChangeLog.txt
+++ b/Tween/Resources/ChangeLog.txt
@@ -1,5 +1,9 @@
11 更新履歴
22
3+==== Ver 1.0.7.0(2011/9/11)
4+ * FIX: 非公式RT・QTで元発言中URLが{$title}となってしまうバグ修正
5+ * FIX: 一部URLのt.co換算文字カウントが正しくなかったのを修正
6+ * FIX: Fav失敗時のメッセージを一部修正
37 ==== Ver 1.0.6.0(2011/9/11)
48 * FIX: 起動するたびに発言詳細、投稿入力欄が小さくなってしまうバグ修正
59 * FIX: 非公式RT、QTで、元発言中のURLが表示通りの省略表記のまま発言欄にコピーされるバグ修正
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -8863,7 +8863,7 @@ RETRY:
88638863 'Else
88648864 ' status = Regex.Replace(status, "<a target=""_self"" href=""(?<url>[^""]+)""[^>]*>(?<link>(https?|shttp|ftps?)://[^<]+)</a>", "${link}")
88658865 'End If
8866- status = Regex.Replace(status, "<a target=""_self"" href=""(?<url>[^""]+)"" title=""(?<title>[^""]+)""[^>]*>(?<link>[^<]+)</a>", "{$title}")
8866+ status = Regex.Replace(status, "<a target=""_self"" href=""(?<url>[^""]+)"" title=""(?<title>[^""]+)""[^>]*>(?<link>[^<]+)</a>", "${title}")
88678867
88688868 'その他のリンク(@IDなど)を置き換える
88698869 status = Regex.Replace(status, "@<a target=""_self"" href=""https?://twitter.com/(#!/)?(?<url>[^""]+)""[^>]*>(?<link>[^<]+)</a>", "@${url}")
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -52,7 +52,7 @@ Public Class Twitter
5252 Public Const HASHTAG As String = "(" + HASHTAG_BOUNDARY + ")(#|#)(" + HASHTAG_ALPHANUMERIC + "*" + HASHTAG_ALPHA + HASHTAG_ALPHANUMERIC + "*)(?=" + HASHTAG_TERMINATOR + "|" + HASHTAG_BOUNDARY + ")"
5353 'URL正規表現
5454 Private Const url_valid_domain As String = "(?<domain>(?:[^\p{P}\s][\.\-_](?=[^\p{P}\s])|[^\p{P}\s]){1,}\.[a-z]{2,}(?::[0-9]+)?)"
55- Private Const url_valid_general_path_chars As String = "[a-z0-9!*';:=+$/%#\[\]\-_,~]"
55+ Private Const url_valid_general_path_chars As String = "[a-z0-9!*';:=+$/%#\[\]\-_&,~]"
5656 Private Const url_balance_parens As String = "(?:\(" + url_valid_general_path_chars + "+\))"
5757 Private Const url_valid_url_path_ending_chars As String = "(?:[a-z0-9=_#/\-\+]+|" + url_balance_parens + ")"
5858 Private Const pth As String = "(?:" + url_balance_parens +
@@ -1107,7 +1107,8 @@ Public Class Twitter
11071107 res = twCon.CreateFavorites(id, content)
11081108 Catch ex As Exception
11091109 'Me.favQueue.Add(id)
1110- Return "Err:->FavoriteQueue:" + ex.Message + "(" + GetCurrentMethod.Name + ")"
1110+ 'Return "Err:->FavoriteQueue:" + ex.Message + "(" + GetCurrentMethod.Name + ")"
1111+ Return "Err:" + ex.Message + "(" + GetCurrentMethod.Name + ")"
11111112 End Try
11121113
11131114 Select Case res
@@ -1123,15 +1124,15 @@ Public Class Twitter
11231124 If String.IsNullOrEmpty(errMsg) Then
11241125 Return "Err:Forbidden(" + GetCurrentMethod.Name + ")"
11251126 Else
1126- If errMsg.Contains("It's great that you like so many updates") Then
1127- 'Me.favQueue.Add(id)
1128- Return "Err:->FavoriteQueue:" + errMsg
1129- End If
1127+ 'If errMsg.Contains("It's great that you like so many updates") Then
1128+ ' 'Me.favQueue.Add(id)
1129+ ' Return "Err:->FavoriteQueue:" + errMsg
1130+ 'End If
11301131 Return "Err:" + errMsg
11311132 End If
1132- Case HttpStatusCode.BadGateway, HttpStatusCode.ServiceUnavailable, HttpStatusCode.InternalServerError, HttpStatusCode.RequestTimeout
1133- 'Me.favQueue.Add(id)
1134- Return "Err:->FavoriteQueue:" + res.ToString + "(" + GetCurrentMethod.Name + ")"
1133+ 'Case HttpStatusCode.BadGateway, HttpStatusCode.ServiceUnavailable, HttpStatusCode.InternalServerError, HttpStatusCode.RequestTimeout
1134+ ' 'Me.favQueue.Add(id)
1135+ ' Return "Err:->FavoriteQueue:" + res.ToString + "(" + GetCurrentMethod.Name + ")"
11351136 Case Else
11361137 Return "Err:" + res.ToString + "(" + GetCurrentMethod.Name + ")"
11371138 End Select
--- a/TweenUp/Form1.vb
+++ b/TweenUp/Form1.vb
@@ -253,6 +253,10 @@ Public Class Form1
253253 ' 「新しいTweenを起動しています」
254254 BackgroundWorker1.ReportProgress(0, userState:=My.Resources.ProgressExecuteTween)
255255
256+ If My.Application.CommandLineArgs.Count = 1 Then
257+ Process.Start(Path.Combine(TWEENEXEPATH, My.Resources.FilenameTweenExe))
258+ End If
259+
256260 'Process.Start(Path.Combine(TWEENEXEPATH, My.Resources.FilenameTweenExe))
257261
258262 End Sub
Show on old repository browser