• R/O
  • HTTP
  • SSH
  • HTTPS

open-tween: Commit

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


Commit MetaInfo

Revisão69e1596c24a35b75e6c2dfe1dc53861133b881ab (tree)
Hora2012-02-18 23:10:26
Autorkiri_feather <kiri_feather@user...>
CommiterKimura Youichi

Mensagem de Log

0780 公式RTをFavと誤認する問題を修正

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

Mudança Sumário

Diff

--- a/Tween/AnalyzeKey.vb
+++ b/Tween/AnalyzeKey.vb
@@ -20,9 +20,9 @@
2020 Public _parseDateTo As String = "'}"">"
2121 Public _getAuthKey As String = "<input name=""authenticity_token"" value="""
2222 Public _getAuthKeyTo As String = """"
23- Public _parseStar As String = "<a class="""
24- Public _parseStarTo As String = """"
25- Public _parseStarEmpty As String = "fav-action non-fav"
23+ 'Public _parseStar As String = "<a class="""
24+ 'Public _parseStarTo As String = """"
25+ 'Public _parseStarEmpty As String = "fav-action non-fav"
2626 Public _followerList As String = "<select id=""direct_message_user_id"" name=""user[id]""><option value="""" selected=""selected"">"
2727 Public _followerMbr1 As String = "/option>"
2828 Public _followerMbr2 As String = """>"
--- 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.7.*")>
58-<Assembly: AssemblyFileVersion("0.7.7.0")>
58+<Assembly: AssemblyFileVersion("0.7.8.0")>
5959
--- a/Tween/Resources/ChangeLog.txt
+++ b/Tween/Resources/ChangeLog.txt
@@ -1,5 +1,7 @@
11 更新履歴
22
3+==== Ver 0.7.8.0(2009/11/18)
4+ * Webモードで、公式ReTweetが有効になっている場合に、RT発言をFav発言と誤認する問題に対応
35 ==== Ver 0.7.7.0(2009/11/15)
46 * バージョンアップの確認ダイアログをキャンセルして、再度確認して表示する際に例外が発生するバグ修正
57 * バージョンアップの確認ダイアログに更新内容を表示するように変更
--- a/Tween/Tween.vbproj
+++ b/Tween/Tween.vbproj
@@ -339,6 +339,6 @@
339339 </Target>
340340 -->
341341 <PropertyGroup>
342- <PostBuildEvent>"C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0\Bin\sgen.exe" /f /a:"$(TargetPath)"</PostBuildEvent>
342+ <PostBuildEvent>"c:\Program Files\Microsoft.NET\SDK\v2.0\Bin\sgen.exe" /f /a:"$(TargetPath)"</PostBuildEvent>
343343 </PropertyGroup>
344344 </Project>
\ No newline at end of file
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -626,23 +626,28 @@ Public Module Twitter
626626 If gType = WORKERTYPE.Reply Then post.IsReply = True
627627
628628 'Get Fav
629- pos1 = strPost.IndexOf(_parseStar, pos2, StringComparison.Ordinal)
630- If pos1 > -1 Then
631- Try
632- pos2 = strPost.IndexOf(_parseStarTo, pos1 + _parseStar.Length, StringComparison.Ordinal)
633- If strPost.Substring(pos1 + _parseStar.Length, pos2 - pos1 - _parseStar.Length) = _parseStarEmpty Then
634- post.IsFav = False
635- Else
636- post.IsFav = True
637- End If
638- Catch ex As Exception
639- _signed = False
640- TraceOut("TM-Fav:" + strPost)
641- Return "GetTimeline -> Err: Can't get fav status."
642- End Try
629+ If strPost.IndexOf("class=""fav-action fav""") > -1 Then
630+ post.IsFav = True
643631 Else
644632 post.IsFav = False
645633 End If
634+ 'pos1 = strPost.IndexOf(_parseStar, pos2, StringComparison.Ordinal)
635+ 'If pos1 > -1 Then
636+ ' Try
637+ ' pos2 = strPost.IndexOf(_parseStarTo, pos1 + _parseStar.Length, StringComparison.Ordinal)
638+ ' If strPost.Substring(pos1 + _parseStar.Length, pos2 - pos1 - _parseStar.Length) = _parseStarEmpty Then
639+ ' post.IsFav = False
640+ ' Else
641+ ' post.IsFav = True
642+ ' End If
643+ ' Catch ex As Exception
644+ ' _signed = False
645+ ' TraceOut("TM-Fav:" + strPost)
646+ ' Return "GetTimeline -> Err: Can't get fav status."
647+ ' End Try
648+ 'Else
649+ ' post.IsFav = False
650+ 'End If
646651
647652
648653 If _endingFlag Then Return ""
@@ -2454,16 +2459,16 @@ Public Module Twitter
24542459 If ln.StartsWith(" ""tagto"": """) Then
24552460 _isReplyTo = ln.Substring(16, ln.Length - 1 - 16).Replace("\", "")
24562461 End If
2457- Case "GetStar"
2458- If ln.StartsWith(" ""tagfrom"": """) Then
2459- _parseStar = ln.Substring(18, ln.Length - 1 - 18).Replace("\", "")
2460- End If
2461- If ln.StartsWith(" ""tagfrom2"": """) Then
2462- _parseStarEmpty = ln.Substring(19, ln.Length - 1 - 19).Replace("\", "")
2463- End If
2464- If ln.StartsWith(" ""tagto"": """) Then
2465- _parseStarTo = ln.Substring(16, ln.Length - 1 - 16).Replace("\", "")
2466- End If
2462+ 'Case "GetStar"
2463+ ' If ln.StartsWith(" ""tagfrom"": """) Then
2464+ ' _parseStar = ln.Substring(18, ln.Length - 1 - 18).Replace("\", "")
2465+ ' End If
2466+ ' If ln.StartsWith(" ""tagfrom2"": """) Then
2467+ ' _parseStarEmpty = ln.Substring(19, ln.Length - 1 - 19).Replace("\", "")
2468+ ' End If
2469+ ' If ln.StartsWith(" ""tagto"": """) Then
2470+ ' _parseStarTo = ln.Substring(16, ln.Length - 1 - 16).Replace("\", "")
2471+ ' End If
24672472 Case "Follower"
24682473 If ln.StartsWith(" ""tagfrom"": """) Then
24692474 _followerList = ln.Substring(18, ln.Length - 1 - 18).Replace("\", "")
@@ -3482,9 +3487,9 @@ Public Module Twitter
34823487 sw.WriteLine(" Public _parseDateTo As String = " + Chr(34) + _parseDateTo.Replace(Chr(34), Chr(34) + Chr(34)) + Chr(34))
34833488 sw.WriteLine(" Public _getAuthKey As String = " + Chr(34) + _getAuthKey.Replace(Chr(34), Chr(34) + Chr(34)) + Chr(34))
34843489 sw.WriteLine(" Public _getAuthKeyTo As String = " + Chr(34) + _getAuthKeyTo.Replace(Chr(34), Chr(34) + Chr(34)) + Chr(34))
3485- sw.WriteLine(" Public _parseStar As String = " + Chr(34) + _parseStar.Replace(Chr(34), Chr(34) + Chr(34)) + Chr(34))
3486- sw.WriteLine(" Public _parseStarTo As String = " + Chr(34) + _parseStarTo.Replace(Chr(34), Chr(34) + Chr(34)) + Chr(34))
3487- sw.WriteLine(" Public _parseStarEmpty As String = " + Chr(34) + _parseStarEmpty.Replace(Chr(34), Chr(34) + Chr(34)) + Chr(34))
3490+ 'sw.WriteLine(" Public _parseStar As String = " + Chr(34) + _parseStar.Replace(Chr(34), Chr(34) + Chr(34)) + Chr(34))
3491+ 'sw.WriteLine(" Public _parseStarTo As String = " + Chr(34) + _parseStarTo.Replace(Chr(34), Chr(34) + Chr(34)) + Chr(34))
3492+ 'sw.WriteLine(" Public _parseStarEmpty As String = " + Chr(34) + _parseStarEmpty.Replace(Chr(34), Chr(34) + Chr(34)) + Chr(34))
34883493 sw.WriteLine(" Public _followerList As String = " + Chr(34) + _followerList.Replace(Chr(34), Chr(34) + Chr(34)) + Chr(34))
34893494 sw.WriteLine(" Public _followerMbr1 As String = " + Chr(34) + _followerMbr1.Replace(Chr(34), Chr(34) + Chr(34)) + Chr(34))
34903495 sw.WriteLine(" Public _followerMbr2 As String = " + Chr(34) + _followerMbr2.Replace(Chr(34), Chr(34) + Chr(34)) + Chr(34))
Show on old repository browser