きりの日記

TwitterのAPI がv1.1になるそうで

2013-01-16T21:49:31+09:00

Twitterで定期的に投稿するのも面倒なんで、こちらで済ませてしまおうかなとかなんとか。

これを張っておきたかっただけです。

なんでこんなリストを用意したのか、という背景をちょっと書いておきます。
TwitterのAPIについてのお話なんですが、開発関係者だけでなく、一般ユーザーにも影響のあるお話なので軽く目を通して頂ければ幸い。

これまでのおさらい

Twitterが提供しているAPIにはバージョンがあります。これは、TwitterがとあるAPIの機能・呼び出し方・応答内容などを変更してしまうと、その瞬間からそのAPIを使っているサービスやクライアント（以下クライアントでまとめます）がモロに影響を受けて正しく動作しなくなってしまうためです。そこで、新しいバージョンのAPIを設けて、各クライアントが新しいAPIに対応するまで新旧両方のAPIを提供することで時間に余裕をもたせていたわけです。というのは建前で、これまではバージョン変えずに応答内容の変更とかよくあったわけですが、まぁ、それは置いといて。
で、現在APIには２つのバージョンがあります。1.0と1.1です。数年間APIを提供していたわりにバージョンが少ないのは、初期のAPIはバージョニングされておらず、現在それらのAPIは無くなっているためです。

現在

現在使えるAPIは1.0と1.1の2つのバージョンです。つまり、今がまさに移行のための猶予期間なわけです。昨年の10月頃だったか、1.1がお目見えし、Twitterから開発者へ「さっさと移行しろ」とアナウンスが出されました。期限付きで。
旧来の1.0系APIは2013年3月5日を持って使えなくなります。公開から約半年の猶予期間ですね。

追記 2013/06/12 1.0系APIの停止は当初予定日から延期されていましたが、本日2013/06/12未明に停止されました。

今後

既に残り2ヶ月を切っており、各クライアントは対応作業を始めています。ただ、すべてのクライアントが対応するわけではなく、これを節目と開発をやめるクライアントも出てきています。すなわち1.1に対応せず、3月5日を以って使えなくなるクライアントもあるわけです。
現在は様々なTwitterクライアントが使われているわけですが、「自分の使っているクライアントは今後も使い続けられるのか？使い続けられないなら他にどんなクライアントが選択肢としてあるのか？」ってのが分かると便利だろうと思い、件のリストを作ったわけです。作ったといっても、私はひな形しか用意してないんですけどね。
クライアントはTwitter公式のものもありますし、Webも使えるので最終的にはどうとでもなるでしょう。Twitter自体がなくなるわけじゃないので。

件のリスト、誰でも編集可能なので、ご自分の使っているサービスやクライアントが載っていなければ追記してみて下さい。また、対応状況や開発状況など情報が有りましたら更新していただければ、みんなが幸せになれるかな、と思います。

ここまで書いてきてなんですが、結構多くのクライアントが1.1対応予定あるみたいで一安心です。

Twitterは過剰なブームを二山ぐらい超えて、アレヤコレヤと問題も出てきたりして落ち着いたんだか下火になったんだか微妙なところに差し掛かっているなーと思う今日このごろ。このまま消えるのか一線を保って定着するのか分かりませんが、乗りかかった船なんでボチボチ追従していくつもりです。

でわでわ

InstallShield 2011 Limited Edition

2011-06-08T10:50:32+09:00

.NET FrameworkベースのWindows フォームアプリケーションのインストーラーを作った時の話。

まずは環境から。

OS: Windows7 Pro (32bit)
IDE: Visual Studio 2010 Pro
フレームワーク: .NET Framework 4.0 Full
開発言語： Visual Basic
インストーラー： InstallShield 2011 Limited Edition

InstallShieldのLimited Editionは、VS2010のPro以上なら無料で使えるので助かります。今回初めて使ったのですが、パッと見分かりやすくてホホホィっとインストーラーが作れちゃいます。

http://www.atmarkit.co.jp/fdotnet/chushin/introwinform_12/introwinform_12_02.html

が、普通にアシスタントに沿って進めてコンパイルすると、こんな警告が出ます。

6245: One or more of the project's components contain .NET properties that require the .NET Framework. It is recommended that the release include the .NET Framework.

「.NET Frameworkに依存しているファイルをインストールするから、セットアップにも.NET Framework含めるのオススメ」って事なんだけど、警告だけなので無視しても問題はない。けど、今回はまさに、これをするためにインストーラーに手を出したわけでして。

で、この警告をダブルクリックして出てくる解決手順を試そうとしたけど、ドキュメントが古いのか手順中の該当項目が存在しない。Webでアレコレ検索してもヒットしない。もしかして、Limited Editionじゃ.NET Frameworkを含めることが出来ないのかしら、などと想像は膨らむ一方。

で、セットアッププロジェクトを隅から隅まで舐め回したところ、ようやく見つけました。ソリューションエクスプローラーで、

2 Specify Application Data
└Redistributables

です。
分かりにくい。アシスタント内に含めるかどうか質問してくれても良さそうだけど。

これで該当項目にチェックを付ければ解決、かと思いきや、また別の問題が。選択した再頒布パッケージがない場合は、自動でダウンロードしてくれる親切設計なのですが、そのダウンロードが出来ないと言われてしまう。「Administratorでやってるかい？」と書かれてたので、Adminでやってみたり、通信設定見直したりしたけどダメ。ググってみたところ、ダウンロード先のフォルダに書き込み権限が無いのが原因とのこと。良く見たらProgram Files下だし。なぜUAC出さないし・・・あまりお行儀は良くないけど、一般ユーザーに書き込み権限与えたところ、正常にダウンロードしてくれました。

C:\Program Files\InstallShield\2011LE\SetupPrerequisites

念のため、ISLEのオプションで指定されている2つのフォルダにも同じ対処をしておきました。私の環境では、これらのフォルダ。

C:\Program Files\InstallShield\2011LE\Objects
C:\Program Files\Common Files\Merge Modules

余談：オプションでPrerequisitesフォルダを変更できるけど、元のフォルダのファイルを全部移動する必要があるっぽい？(未確認)

めでたしめでたし。

2012/06/07追記
どうにも取り回しが悪いので、現在はVSのセットアッププロジェクトを使うことで落ち着いています。私の用途ではこちらで十分でした。

OAuth(xAuth)のVB.net実装サンプル

2010-03-05T00:00:00+09:00

OAuthのVB.netサンプルです。お好きにどうぞ。
PIN入力用のメソッドもついていますが、こちらはおまけということで。
オリジナルはこちら。

はじめは備忘録として言葉でゴチャっと書いて済まそうと思ってたんですが、見てみたい、という意見を見かけたのでアップしてみた次第。おかげで見落としてた依存関係とか消せてすっきりしました。

使い方サンプル（xAuth）

初期化〜認証まで

'HttpConnectionの初期化（HttpConnection.InitializeConnection呼び出し）
'プロキシ設定と通信タイムアウトの設定です。はじめに一回だけ呼べばOK。
HttpConnection.InitializeConnection(20, ProxyType.IE, "", 0, 0, "", "")

'HttpConnectionOAuthのインスタンス化
Dim httpCon as New HttpConnectionOAuth

'初期化（コンシューマーキーの設定など）
httpCon.Initialize("Your consumerKey", "Your consumerSecret", "", "", "screen_name") 'screen_nameはtwitter用

'認証
Dim result As Boolean = httpCon.AuthenticateXAuth("https://api.twitter.com/oauth/access_token", "Your username", "Your password")
If result Then
    MessageBox.Show("認証成功")
Else
    MessageBox.Show("認証失敗")
End If

通信

取得はこんな感じ。

Dim param As New Dictionary(Of String, String)
param.Add("count", 20)

Dim content As String = ""
Dim statusCode As HttpStatusCode = _
    httpCon.GetContent("GET", _
                            New Uri("http://api.twitter.com/1/statuses/home_timeline.xml"), _
                            param, _
                            content, _
                            Nothing)

更新も同じ。

Dim param As New Dictionary(Of String, String)
param.Add("status", "更新しちゃうよ！")

Dim content As String = ""
Dim statusCode As HttpStatusCode = _
    httpCon.GetContent("POST", _
                            New Uri("http://api.twitter.com/1/statuses/update.xml"), _
                            param, _
                            content, _
                            Nothing)

ソース

HTTP通信の大元。ストリームとか画像取得とかのメソッドは省略してあります。

Imports System.Net
Imports System.IO
Imports System.Collections.Generic
Imports System.Collections.Specialized
Imports System.Text

'''<summary>
'''HttpWebRequest,HttpWebResponseを使用した基本的な通信機能を提供する
'''</summary>
'''<remarks>
'''プロキシ情報などを設定するため、使用前に静的メソッドInitializeConnectionを呼び出すこと。
'''通信方式によって必要になるHTTPヘッダの付加などは、派生クラスで行う。
'''</remarks>
Public Class HttpConnection
    '''<summary>
    '''プロキシ
    '''</summary>
    Private Shared proxy As WebProxy = Nothing

    '''<summary>
    '''ユーザーが選択したプロキシの方式
    '''</summary>
    Private Shared proxyKind As ProxyType = proxyType.IE

    '''<summary>
    '''クッキー保存用コンテナ
    '''</summary>
    Private Shared cookieContainer As New CookieContainer

    '''<summary>
    '''初期化済みフラグ
    '''</summary>
    Private Shared isInitialize As Boolean = False

    Public Enum ProxyType
        None
        IE
        Specified
    End Enum

    '''<summary>
    '''HttpWebRequestオブジェクトを取得する。パラメータはGET/HEAD/DELETEではクエリに、POST/PUTではエンティティボディに変換される。
    '''</summary>
    '''<remarks>
    '''追加で必要となるHTTPヘッダや通信オプションは呼び出し元で付加すること
    '''（Timeout,AutomaticDecompression,AllowAutoRedirect,UserAgent,ContentType,Accept,HttpRequestHeader.Authorization,カスタムヘッダ）
    '''POST/PUTでクエリが必要な場合は、requestUriに含めること。
    '''</remarks>
    '''<param name="method">HTTP通信メソッド（GET/HEAD/POST/PUT/DELETE）</param>
    '''<param name="requestUri">通信先URI</param>
    '''<param name="param">GET時のクエリ、またはPOST時のエンティティボディ</param>
    '''<param name="withCookie">通信にcookieを使用するか</param>
    '''<returns>引数で指定された内容を反映したHttpWebRequestオブジェクト</returns>
    Protected Function CreateRequest(ByVal method As String, _
                                            ByVal requestUri As Uri, _
                                            ByVal param As Dictionary(Of String, String), _
                                            ByVal withCookie As Boolean _
                                        ) As HttpWebRequest
        If Not isInitialize Then Throw New Exception("Sequence error.(not initialized)")

        'GETメソッドの場合はクエリとurlを結合
        Dim ub As New UriBuilder(requestUri.AbsoluteUri)
        If method = "GET" OrElse method = "DELETE" OrElse method = "HEAD" Then
            ub.Query = CreateQueryString(param)
        End If

        Dim webReq As HttpWebRequest = DirectCast(WebRequest.Create(ub.Uri), HttpWebRequest)

        'プロキシ設定
        If proxyKind <> ProxyType.IE Then webReq.Proxy = proxy

        webReq.Method = method
        If method = "POST" OrElse method = "PUT" Then
            webReq.ContentType = "application/x-www-form-urlencoded"
            'POST/PUTメソッドの場合は、ボディデータとしてクエリ構成して書き込み
            Using writer As New StreamWriter(webReq.GetRequestStream)
                writer.Write(CreateQueryString(param))
            End Using
        End If
        'cookie設定
        If withCookie Then webReq.CookieContainer = cookieContainer
        'タイムアウト設定
        webReq.Timeout = DefaultTimeout

        Return webReq
    End Function

    '''<summary>
    '''HTTPの応答を処理し、応答ボディデータをテキストとして返却する
    '''</summary>
    '''<remarks>
    '''リダイレクト応答の場合（AllowAutoRedirect=Falseの場合のみ）は、headerInfoインスタンスがあればLocationを追加してリダイレクト先を返却
    '''WebExceptionはハンドルしていないので、呼び出し元でキャッチすること
    '''テキストの文字コードはUTF-8を前提として、エンコードはしていません
    '''</remarks>
    '''<param name="webRequest">HTTP通信リクエストオブジェクト</param>
    '''<param name="contentText">[OUT]HTTP応答のボディデータ</param>
    '''<param name="headerInfo">[IN/OUT]HTTP応答のヘッダ情報。ヘッダ名をキーにして空データのコレクションを渡すことで、該当ヘッダの値をデータに設定して戻す</param>
    '''<param name="withCookie">通信にcookieを使用する</param>
    '''<returns>HTTP応答のステータスコード</returns>
    Protected Function GetResponse(ByVal webRequest As HttpWebRequest, _
                                        ByRef contentText As String, _
                                        ByVal headerInfo As Dictionary(Of String, String), _
                                        ByVal withCookie As Boolean _
                                    ) As HttpStatusCode
        Try
            Using webRes As HttpWebResponse = CType(webRequest.GetResponse(), HttpWebResponse)
                Dim statusCode As HttpStatusCode = webRes.StatusCode
                'cookie保持
                If withCookie Then SaveCookie(webRes.Cookies)
                'リダイレクト応答の場合は、リダイレクト先を設定
                GetHeaderInfo(webRes, headerInfo)
                '応答のストリームをテキストに書き出し
                If contentText Is Nothing Then Throw New ArgumentNullException("contentText")
                If webRes.ContentLength > 0 Then
                    Using sr As StreamReader = New StreamReader(webRes.GetResponseStream)
                        contentText = sr.ReadToEnd()
                    End Using
                End If
                Return statusCode
            End Using
        Catch ex As WebException
            If ex.Status = WebExceptionStatus.ProtocolError Then
                Dim res As HttpWebResponse = DirectCast(ex.Response, HttpWebResponse)
                Return res.StatusCode
            End If
            Throw ex
        End Try
    End Function

    '''<summary>
    '''HTTPの応答を処理します。応答ボディデータが不要な用途向け。
    '''</summary>
    '''<remarks>
    '''リダイレクト応答の場合（AllowAutoRedirect=Falseの場合のみ）は、headerInfoインスタンスがあればLocationを追加してリダイレクト先を返却
    '''WebExceptionはハンドルしていないので、呼び出し元でキャッチすること
    '''</remarks>
    '''<param name="webRequest">HTTP通信リクエストオブジェクト</param>
    '''<param name="headerInfo">[IN/OUT]HTTP応答のヘッダ情報。ヘッダ名をキーにして空データのコレクションを渡すことで、該当ヘッダの値をデータに設定して戻す</param>
    '''<param name="withCookie">通信にcookieを使用する</param>
    '''<returns>HTTP応答のステータスコード</returns>
    Protected Function GetResponse(ByVal webRequest As HttpWebRequest, _
                                        ByVal headerInfo As Dictionary(Of String, String), _
                                        ByVal withCookie As Boolean _
                                    ) As HttpStatusCode
        Try
            Using webRes As HttpWebResponse = CType(webRequest.GetResponse(), HttpWebResponse)
                Dim statusCode As HttpStatusCode = webRes.StatusCode
                'cookie保持
                If withCookie Then SaveCookie(webRes.Cookies)
                'リダイレクト応答の場合は、リダイレクト先を設定
                GetHeaderInfo(webRes, headerInfo)
                Return statusCode
            End Using
        Catch ex As WebException
            If ex.Status = WebExceptionStatus.ProtocolError Then
                Dim res As HttpWebResponse = DirectCast(ex.Response, HttpWebResponse)
                Return res.StatusCode
            End If
            Throw ex
        End Try
    End Function

    '''<summary>
    '''クッキーを保存。ホスト名なしのドメインの場合、ドメイン名から先頭のドットを除去して追加しないと再利用されないため
    '''</summary>
    Private Sub SaveCookie(ByVal cookieCollection As CookieCollection)
        For Each ck As Cookie In cookieCollection
            If ck.Domain.StartsWith(".") Then
                ck.Domain = ck.Domain.Substring(1, ck.Domain.Length - 1)
                cookieContainer.Add(ck)
            End If
        Next
    End Sub

    '''<summary>
    '''headerInfoのキー情報で指定されたHTTPヘッダ情報を取得・格納する。redirect応答時はLocationヘッダの内容を追記する
    '''</summary>
    '''<param name="webResponse">HTTP応答</param>
    '''<param name="headerInfo">[IN/OUT]キーにヘッダ名を指定したデータ空のコレクション。取得した値をデータにセットして戻す</param>
    Private Sub GetHeaderInfo(ByVal webResponse As HttpWebResponse, _
                                    ByVal headerInfo As Dictionary(Of String, String))

        If headerInfo Is Nothing Then Exit Sub

        If headerInfo.Count > 0 Then
            Dim keys(headerInfo.Count - 1) As String
            headerInfo.Keys.CopyTo(keys, 0)
            For Each key As String In keys
                If Array.IndexOf(webResponse.Headers.AllKeys, key) > -1 Then
                    headerInfo.Item(key) = webResponse.Headers.Item(key)
                Else
                    headerInfo.Item(key) = ""
                End If
            Next
        End If

        Dim statusCode As HttpStatusCode = webResponse.StatusCode
        If statusCode = HttpStatusCode.MovedPermanently OrElse _
           statusCode = HttpStatusCode.Found OrElse _
           statusCode = HttpStatusCode.SeeOther OrElse _
           statusCode = HttpStatusCode.TemporaryRedirect Then
            If headerInfo.ContainsKey("Location") Then
                headerInfo.Item("Location") = webResponse.Headers.Item("Location")
            Else
                headerInfo.Add("Location", webResponse.Headers.Item("Location"))
            End If
        End If
    End Sub

    '''<summary>
    '''クエリコレクションをkey=value形式の文字列に構成して戻す
    '''</summary>
    '''<param name="param">クエリ、またはポストデータとなるkey-valueコレクション</param>
    Protected Function CreateQueryString(ByVal param As IDictionary(Of String, String)) As String
        If param Is Nothing OrElse param.Count = 0 Then Return String.Empty

        Dim query As New StringBuilder
        For Each key As String In param.Keys
            query.AppendFormat("{0}={1}&", UrlEncode(key), UrlEncode(param(key)))
        Next
        Return query.ToString(0, query.Length - 1)
    End Function

    '''<summary>
    '''クエリ形式（key1=value1&key2=value2&...）の文字列をkey-valueコレクションに詰め直し
    '''</summary>
    '''<param name="queryString">クエリ文字列</param>
    '''<returns>key-valueのコレクション</returns>
    Protected Function ParseQueryString(ByVal queryString As String) As NameValueCollection
        Dim query As New NameValueCollection
        Dim parts() As String = queryString.Split("&"c)
        For Each part As String In parts
            Dim index As Integer = part.IndexOf("="c)
            If index = -1 Then
                query.Add(Uri.UnescapeDataString(part), "")
            Else
                query.Add(Uri.UnescapeDataString(part.Substring(0, index)), Uri.UnescapeDataString(part.Substring(index + 1)))
            End If
        Next
        Return query
    End Function

    '''<summary>
    '''2バイト文字も考慮したUrlエンコード
    '''</summary>
    '''<param name="str">エンコードする文字列</param>
    '''<returns>エンコード結果文字列</returns>
    Protected Function UrlEncode(ByVal stringToEncode As String) As String
        Const UnreservedChars As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789-_.~"
        Dim sb As New StringBuilder
        Dim bytes As Byte() = Encoding.UTF8.GetBytes(stringToEncode)

        For Each b As Byte In bytes
            If UnreservedChars.IndexOf(Chr(b)) <> -1 Then
                sb.Append(Chr(b))
            Else
                sb.AppendFormat("%{0:X2}", b)
            End If
        Next
        Return sb.ToString()
    End Function

#Region "DefaultTimeout"
    '''<summary>
    '''通信タイムアウト時間（ms）
    '''</summary>
    Private Shared timeout As Integer = 20000

    '''<summary>
    '''通信タイムアウト時間（ms）。10〜120秒の範囲で指定。範囲外は20秒とする
    '''</summary>
    Protected Shared Property DefaultTimeout() As Integer
        Get
            Return timeout
        End Get
        Set(ByVal value As Integer)
            Const TimeoutMinValue As Integer = 10000
            Const TimeoutMaxValue As Integer = 120000
            Const TimeoutDefaultValue As Integer = 20000
            If value < TimeoutMinValue OrElse value > TimeoutMaxValue Then
                ' 範囲外ならデフォルト値設定
                timeout = TimeoutDefaultValue
            Else
                timeout = value
            End If
        End Set
    End Property
#End Region

    '''<summary>
    '''通信クラスの初期化処理。タイムアウト値とプロキシを設定する
    '''</summary>
    '''<remarks>
    '''通信開始前に最低一度呼び出すこと
    '''</remarks>
    '''<param name="timeout">タイムアウト値（秒）</param>
    '''<param name="proxyType">なし・指定・IEデフォルト</param>
    '''<param name="proxyAddress">プロキシのホスト名orIPアドレス</param>
    '''<param name="proxyPort">プロキシのポート番号</param>
    '''<param name="proxyUser">プロキシ認証が必要な場合のユーザ名。不要なら空文字</param>
    '''<param name="proxyPassword">プロキシ認証が必要な場合のパスワード。不要なら空文字</param>
    Public Shared Sub InitializeConnection( _
            ByVal timeout As Integer, _
            ByVal proxyType As ProxyType, _
            ByVal proxyAddress As String, _
            ByVal proxyPort As Integer, _
            ByVal proxyUser As String, _
            ByVal proxyPassword As String)
        isInitialize = True
        ServicePointManager.Expect100Continue = False
        DefaultTimeout = timeout * 1000     's -> ms
        Select Case proxyType
            Case proxyType.None
                proxy = Nothing
            Case proxyType.Specified
                proxy = New WebProxy("http://" + proxyAddress + ":" + proxyPort.ToString)
                If Not String.IsNullOrEmpty(proxyUser) OrElse Not String.IsNullOrEmpty(proxyPassword) Then
                    proxy.Credentials = New NetworkCredential(proxyUser, proxyPassword)
                End If
            Case proxyType.IE
                'IE設定（システム設定）はデフォルト値なので処理しない
        End Select
        proxyType = proxyType
    End Sub

End Class

それを使ったOAuth。

Imports System.Net
Imports System.Collections.Generic
Imports System.Collections.Specialized
Imports System.IO
Imports System.Text
Imports System.Security

'''<summary>
'''OAuth認証を使用するHTTP通信。HMAC-SHA1固定
'''</summary>
'''<remarks>
'''使用前に認証情報を設定する。認証確認を伴う場合はAuthenticate系のメソッドを、認証不要な場合はInitializeを呼ぶこと。
'''</remarks>
Public Class HttpConnectionOAuth
    Inherits HttpConnection
    Implements IHttpConnection

    '''<summary>
    '''OAuth署名のoauth_timestamp算出用基準日付（1970/1/1 00:00:00）
    '''</summary>
    Private Shared ReadOnly UnixEpoch As New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Unspecified)

    '''<summary>
    '''OAuth署名のoauth_nonce算出用乱数クラス
    '''</summary>
    Private Shared ReadOnly NonceRandom As New Random

    '''<summary>
    '''OAuthのアクセストークン。永続化可能（ユーザー取り消しの可能性はある）。
    '''</summary>
    Private token As String = ""

    '''<summary>
    '''OAuthの署名作成用秘密アクセストークン。永続化可能（ユーザー取り消しの可能性はある）。
    '''</summary>
    Private tokenSecret As String = ""

    '''<summary>
    '''OAuthのコンシューマー鍵
    '''</summary>
    Private consumerKey As String

    '''<summary>
    '''OAuthの署名作成用秘密コンシューマーデータ
    '''</summary>
    Private consumerSecret As String

    '''<summary>
    '''認証成功時の応答でユーザー情報を取得する場合のキー。設定しない場合は、AuthUsernameもブランクのままとなる
    '''</summary>
    Private userIdentKey As String

    '''<summary>
    '''OAuthの署名作成用秘密コンシューマーデータ
    '''</summary>
    Private authorizedUsername As String

    '''<summary>
    '''OAuth認証で指定のURLとHTTP通信を行い、結果を返す
    '''</summary>
    '''<param name="method">HTTP通信メソッド（GET/HEAD/POST/PUT/DELETE）</param>
    '''<param name="requestUri">通信先URI</param>
    '''<param name="param">GET時のクエリ、またはPOST時のエンティティボディ</param>
    '''<param name="content">[OUT]HTTP応答のボディデータ</param>
    '''<param name="headerInfo">[IN/OUT]HTTP応答のヘッダ情報。必要なヘッダ名を事前に設定しておくこと</param>
    '''<returns>HTTP応答のステータスコード</returns>
    Public Function GetContent(ByVal method As String, _
            ByVal requestUri As Uri, _
            ByVal param As Dictionary(Of String, String), _
            ByRef content As String, _
            ByVal headerInfo As Dictionary(Of String, String)) As HttpStatusCode Implements IHttpConnection.GetContent
        '認証済かチェック
        If String.IsNullOrEmpty(token) Then Throw New Exception("Sequence error. (Token is blank.)")

        Dim webReq As HttpWebRequest = CreateRequest(method, _
                                                    requestUri, _
                                                    param, _
                                                    False)
        'OAuth認証ヘッダを付加
        AppendOAuthInfo(webReq, param, token, tokenSecret)

        If content Is Nothing Then
            Return GetResponse(webReq, headerInfo, False)
        Else
            Return GetResponse(webReq, content, headerInfo, False)
        End If
    End Function

#Region "認証処理"
    '''<summary>
    '''OAuth認証の開始要求（リクエストトークン取得）。PIN入力用の前段
    '''</summary>
    '''<remarks>
    '''呼び出し元では戻されたurlをブラウザで開き、認証完了後PIN入力を受け付けて、リクエストトークンと共にAuthenticatePinFlowを呼び出す
    '''</remarks>
    '''<param name="requestTokenUrl">リクエストトークンの取得先URL</param>
    '''<param name="requestUri">ブラウザで開く認証用URLのベース</param>
    '''<param name="requestToken">[OUT]認証要求で戻されるリクエストトークン。使い捨て</param>
    '''<param name="authUri">[OUT]requestUriを元に生成された認証用URL。通常はリクエストトークンをクエリとして付加したUri</param>
    '''<returns>取得結果真偽値</returns>
    Public Function AuthenticatePinFlowRequest(ByVal requestTokenUrl As String, _
                                        ByVal authorizeUrl As String, _
                                        ByRef requestToken As String, _
                                        ByRef authUri As Uri) As Boolean
        'PIN-based flow
        authUri = GetAuthenticatePageUri(requestTokenUrl, authorizeUrl, requestToken)
        If authUri Is Nothing Then Return False
        Return True
    End Function

    '''<summary>
    '''OAuth認証のアクセストークン取得。PIN入力用の後段
    '''</summary>
    '''<remarks>
    '''事前にAuthenticatePinFlowRequestを呼んで、ブラウザで認証後に表示されるPINを入力してもらい、その値とともに呼び出すこと
    '''</remarks>
    '''<param name="accessTokenUrl">アクセストークンの取得先URL</param>
    '''<param name="requestUri">AuthenticatePinFlowRequestで取得したリクエストトークン</param>
    '''<param name="pinCode">Webで認証後に表示されるPINコード</param>
    '''<returns>取得結果真偽値</returns>
    Public Function AuthenticatePinFlow(ByVal accessTokenUrl As String, _
                                        ByVal requestToken As String, _
                                        ByVal pinCode As String) As Boolean
        'PIN-based flow
        If String.IsNullOrEmpty(requestToken) Then Throw New Exception("Sequence error.(requestToken is blank)")

        'アクセストークン取得
        Dim accessTokenData As NameValueCollection = GetOAuthToken(New Uri(accessTokenUrl), pinCode, requestToken, Nothing)

        If accessTokenData IsNot Nothing Then
            token = accessTokenData.Item("oauth_token")
            tokenSecret = accessTokenData.Item("oauth_token_secret")
            'サービスごとの独自拡張対応
            If Me.userIdentKey <> "" Then
                authorizedUsername = accessTokenData.Item(Me.userIdentKey)
            Else
                authorizedUsername = ""
            End If
            If token = "" Then Return False
            Return True
        Else
            Return False
        End If
    End Function

    '''<summary>
    '''OAuth認証のアクセストークン取得。xAuth方式
    '''</summary>
    '''<param name="accessTokenUrl">アクセストークンの取得先URL</param>
    '''<param name="username">認証用ユーザー名</param>
    '''<param name="password">認証用パスワード</param>
    '''<returns>取得結果真偽値</returns>
    Public Function AuthenticateXAuth(ByVal accessTokenUrl As String, ByVal username As String, ByVal password As String) As Boolean Implements IHttpConnection.Authenticate
        'ユーザー・パスワードチェック
        If String.IsNullOrEmpty(username) OrElse String.IsNullOrEmpty(password) Then
            Throw New Exception("Sequence error.(username or password is blank)")
        End If
        'xAuthの拡張パラメータ設定
        Dim parameter As New Dictionary(Of String, String)
        parameter.Add("x_auth_mode", "client_auth")
        parameter.Add("x_auth_username", username)
        parameter.Add("x_auth_password", password)

        'アクセストークン取得
        Dim accessTokenData As NameValueCollection = GetOAuthToken(New Uri(accessTokenUrl), "", "", parameter)

        If accessTokenData IsNot Nothing Then
            token = accessTokenData.Item("oauth_token")
            tokenSecret = accessTokenData.Item("oauth_token_secret")
            'サービスごとの独自拡張対応
            If Me.userIdentKey <> "" Then
                authorizedUsername = accessTokenData.Item(Me.userIdentKey)
            Else
                authorizedUsername = ""
            End If
            If token = "" Then Return False
            Return True
        Else
            Return False
        End If
    End Function

    '''<summary>
    '''OAuth認証のリクエストトークン取得。リクエストトークンと組み合わせた認証用のUriも生成する
    '''</summary>
    '''<param name="accessTokenUrl">リクエストトークンの取得先URL</param>
    '''<param name="authorizeUrl">ブラウザで開く認証用URLのベース</param>
    '''<param name="requestToken">[OUT]取得したリクエストトークン</param>
    '''<returns>取得結果真偽値</returns>
    Private Function GetAuthenticatePageUri(ByVal requestTokenUrl As String, _
                                        ByVal authorizeUrl As String, _
                                        ByRef requestToken As String) As Uri
        Const tokenKey As String = "oauth_token"

        'リクエストトークン取得
        Dim reqTokenData As NameValueCollection = GetOAuthToken(New Uri(requestTokenUrl), "", "", Nothing)
        If reqTokenData IsNot Nothing Then
            requestToken = reqTokenData.Item(tokenKey)
            'Uri生成
            Dim ub As New UriBuilder(authorizeUrl)
            ub.Query = String.Format("{0}={1}", tokenKey, requestToken)
            Return ub.Uri
        Else
            Return Nothing
        End If
    End Function

    '''<summary>
    '''OAuth認証のトークン取得共通処理
    '''</summary>
    '''<param name="requestUri">各種トークンの取得先URL</param>
    '''<param name="pinCode">PINフロー時のアクセストークン取得時に設定。それ以外は空文字列</param>
    '''<param name="requestToken">PINフロー時のリクエストトークン取得時に設定。それ以外は空文字列</param>
    '''<param name="parameter">追加パラメータ。xAuthで使用</param>
    '''<returns>取得結果のデータ。正しく取得出来なかった場合はNothing</returns>
    Private Function GetOAuthToken(ByVal requestUri As Uri, ByVal pinCode As String, ByVal requestToken As String, ByVal parameter As Dictionary(Of String, String)) As NameValueCollection
        Dim webReq As HttpWebRequest = Nothing
        'HTTPリクエスト生成。PINコードもパラメータも未指定の場合はGETメソッドで通信。それ以外はPOST
        If String.IsNullOrEmpty(pinCode) AndAlso parameter Is Nothing Then
            webReq = CreateRequest("GET", requestUri, Nothing, False)
        Else
            webReq = CreateRequest("POST", requestUri, parameter, False) 'ボディに追加パラメータ書き込み
        End If
        'OAuth関連パラメータ準備。追加パラメータがあれば追加
        Dim query As New Dictionary(Of String, String)
        If parameter IsNot Nothing Then
            For Each kvp As KeyValuePair(Of String, String) In parameter
                query.Add(kvp.Key, kvp.Value)
            Next
        End If
        'PINコードが指定されていればパラメータに追加
        If Not String.IsNullOrEmpty(pinCode) Then query.Add("oauth_verifier", pinCode)
        'OAuth関連情報をHTTPリクエストに追加
        AppendOAuthInfo(webReq, query, requestToken, "")
        'HTTP応答取得
        Try
            Dim contentText As String = ""
            Dim status As HttpStatusCode = GetResponse(webReq, contentText, Nothing, False)
            If status = HttpStatusCode.OK Then
                Return ParseQueryString(contentText)
            Else
                Return Nothing
            End If
        Catch ex As Exception
            Return Nothing
        End Try
    End Function
#End Region

#Region "OAuth認証用ヘッダ作成・付加処理"
    '''<summary>
    '''HTTPリクエストにOAuth関連ヘッダを追加
    '''</summary>
    '''<param name="webRequest">追加対象のHTTPリクエスト</param>
    '''<param name="query">OAuth追加情報＋クエリ or POSTデータ</param>
    '''<param name="token">アクセストークン、もしくはリクエストトークン。未取得なら空文字列</param>
    '''<param name="tokenSecret">アクセストークンシークレット。認証処理では空文字列</param>
    Private Sub AppendOAuthInfo(ByVal webRequest As HttpWebRequest, _
                                        ByVal query As Dictionary(Of String, String), _
                                        ByVal token As String, _
                                        ByVal tokenSecret As String)
        'OAuth共通情報取得
        Dim parameter As Dictionary(Of String, String) = GetOAuthParameter(token)
        'OAuth共通情報にquery情報を追加
        If query IsNot Nothing Then
            For Each item As KeyValuePair(Of String, String) In query
                parameter.Add(item.Key, item.Value)
            Next
        End If
        '署名の作成・追加
        parameter.Add("oauth_signature", CreateSignature(tokenSecret, webRequest.Method, webRequest.RequestUri, parameter))
        'HTTPリクエストのヘッダに追加
        Dim sb As New StringBuilder("OAuth ")
        For Each item As KeyValuePair(Of String, String) In parameter
            '各種情報のうち、oauth_で始まる情報のみ、ヘッダに追加する。各情報はカンマ区切り、データはダブルクォーテーションで括る
            If item.Key.StartsWith("oauth_") Then
                sb.AppendFormat("{0}=""{1}"",", item.Key, UrlEncode(item.Value))
            End If
        Next
        webRequest.Headers.Add(HttpRequestHeader.Authorization, sb.ToString)
    End Sub

    '''<summary>
    '''OAuthで使用する共通情報を取得する
    '''</summary>
    '''<param name="token">アクセストークン、もしくはリクエストトークン。未取得なら空文字列</param>
    '''<returns>OAuth情報のディクショナリ</returns>
    Private Function GetOAuthParameter(ByVal token As String) As Dictionary(Of String, String)
        Dim parameter As New Dictionary(Of String, String)
        parameter.Add("oauth_consumer_key", consumerKey)
        parameter.Add("oauth_signature_method", "HMAC-SHA1")
        parameter.Add("oauth_timestamp", Convert.ToInt64((DateTime.UtcNow - UnixEpoch).TotalSeconds).ToString())   'epoch秒
        parameter.Add("oauth_nonce", NonceRandom.Next(123400, 9999999).ToString())
        parameter.Add("oauth_version", "1.0")
        If Not String.IsNullOrEmpty(token) Then parameter.Add("oauth_token", token) 'トークンがあれば追加
        Return parameter
    End Function

    '''<summary>
    '''OAuth認証ヘッダの署名作成
    '''</summary>
    '''<param name="tokenSecret">アクセストークン秘密鍵</param>
    '''<param name="method">HTTPメソッド文字列</param>
    '''<param name="uri">アクセス先Uri</param>
    '''<param name="parameter">クエリ、もしくはPOSTデータ</param>
    '''<returns>署名文字列</returns>
    Private Function CreateSignature(ByVal tokenSecret As String, _
                                            ByVal method As String, _
                                            ByVal uri As Uri, _
                                            ByVal parameter As Dictionary(Of String, String) _
                                        ) As String
        'パラメタをソート済みディクショナリに詰替（OAuthの仕様）
        Dim sorted As New SortedDictionary(Of String, String)(parameter)
        'URLエンコード済みのクエリ形式文字列に変換
        Dim paramString As String = CreateQueryString(sorted)
        'アクセス先URLの整形
        Dim url As String = String.Format("{0}://{1}{2}", uri.Scheme, uri.Host, uri.AbsolutePath)
        '署名のベース文字列生成（&区切り）。クエリ形式文字列は再エンコードする
        Dim signatureBase As String = String.Format("{0}&{1}&{2}", method, UrlEncode(url), UrlEncode(paramString))
        '署名鍵の文字列をコンシューマー秘密鍵とアクセストークン秘密鍵から生成（&区切り。アクセストークン秘密鍵なくても&残すこと）
        Dim key As String = UrlEncode(consumerSecret) + "&"
        If Not String.IsNullOrEmpty(tokenSecret) Then key += UrlEncode(tokenSecret)
        '鍵生成＆署名生成
        Dim hmac As New Cryptography.HMACSHA1(Encoding.ASCII.GetBytes(key))
        Dim hash As Byte() = hmac.ComputeHash(Encoding.ASCII.GetBytes(signatureBase))
        Return Convert.ToBase64String(hash)
    End Function

#End Region

    '''<summary>
    '''初期化。各種トークンの設定とユーザー識別情報設定
    '''</summary>
    '''<param name="consumerKey">コンシューマー鍵</param>
    '''<param name="consumerSecret">コンシューマー秘密鍵</param>
    '''<param name="accessToken">アクセストークン</param>
    '''<param name="accessTokenSecret">アクセストークン秘密鍵</param>
    '''<param name="userIdentifier">アクセストークン取得時に得られるユーザー識別情報。不要なら空文字列</param>
    Public Sub Initialize(ByVal consumerKey As String, _
                                    ByVal consumerSecret As String, _
                                    ByVal accessToken As String, _
                                    ByVal accessTokenSecret As String, _
                                    ByVal userIdentifier As String)
        Me.consumerKey = consumerKey
        Me.consumerSecret = consumerSecret
        Me.token = accessToken
        Me.tokenSecret = accessTokenSecret
        Me.userIdentKey = userIdentifier
    End Sub

    '''<summary>
    '''初期化。各種トークンの設定とユーザー識別情報設定
    '''</summary>
    '''<param name="consumerKey">コンシューマー鍵</param>
    '''<param name="consumerSecret">コンシューマー秘密鍵</param>
    '''<param name="accessToken">アクセストークン</param>
    '''<param name="accessTokenSecret">アクセストークン秘密鍵</param>
    '''<param name="username">認証済みユーザー名</param>
    '''<param name="userIdentifier">アクセストークン取得時に得られるユーザー識別情報。不要なら空文字列</param>
    Public Sub Initialize(ByVal consumerKey As String, _
                                ByVal consumerSecret As String, _
                                ByVal accessToken As String, _
                                ByVal accessTokenSecret As String, _
                                ByVal username As String, _
                                ByVal userIdentifier As String)
        Initialize(consumerKey, consumerSecret, accessToken, accessTokenSecret, userIdentifier)
        authorizedUsername = username
    End Sub

    '''<summary>
    '''アクセストークン
    '''</summary>
    Public ReadOnly Property AccessToken() As String
        Get
            Return token
        End Get
    End Property

    '''<summary>
    '''アクセストークン秘密鍵
    '''</summary>
    Public ReadOnly Property AccessTokenSecret() As String
        Get
            Return tokenSecret
        End Get
    End Property

    '''<summary>
    '''認証済みユーザー名
    '''</summary>
    Public ReadOnly Property AuthUsername() As String Implements IHttpConnection.AuthUsername
        Get
            Return authorizedUsername
        End Get
    End Property
End Class

他の類似クラスとの共通化のために定義したインターフェース

Imports System.Net

Public Interface IHttpConnection

    Function GetContent(ByVal method As String, _
            ByVal requestUri As Uri, _
            ByVal param As Dictionary(Of String, String), _
            ByRef content As String, _
            ByVal headerInfo As Dictionary(Of String, String)) As HttpStatusCode

    Function Authenticate(ByVal url As String, ByVal username As String, ByVal password As String) As Boolean

    ReadOnly Property AuthUsername() As String
End Interface

Ubuntu 8.04 LTS(Hardy Heron)のClamAV(0.94.x)サポート打ち切り

2009-12-14T00:00:00+09:00

ちょっとメモ。

運用しているUbuntu 8.04(Hardy Heron)で動かしているClamAVが10月頃からウィルスを捕まえなくなっていてなぜだろう？と思っていたのですが、今日になって原因が判明した。

[Clamav-announce] End of Life Announcement: ClamAV 0.94.x
http://lurker.clamav.net/message/20091006.143601.d27bbd20.ja.html

2009年10月6日のMLで流れてた。

すでに2ヶ月経過しているけど、Ubuntuのセキュリティアップデートには更新が来てない。新しいバージョンのUbuntuには0.95系が乗っているみたいだけど。次のLTSのリリースは来年の4月頃なわけで、あと4ヶ月も待っていられない。

で、色々探したら、backportsには0.95が入ってた。安定運用を第一に考えていたので、souces.listにはbackportsは入れてなかったのです。

で、souces.listのhardy-backports行のコメントを外して更新したら、無事clamavだけ更新がかかった。一安心。

この件に関しては、（Ubuntu側で全パッケージを把握するのは難しいにしても）バージョンアップしないと新しい定義ファイルが受け付けられない、というセキュリティ的に致命的な問題なので、security updateで対応して欲しかったなぁ、と思った次第。

TweetUp Tokyo 09 へ行ってきた

2009-10-18T23:54:37+09:00

10月15日に恵比寿で行われたTwitterオフィシャルのユーザーイベントへ行ってきました。
数週間前に行われた、こちらもオフィシャルの開発者イベントに出席したばかりだったこともあり初めは欠席するつもりだったのですが、ありがたいことにLTのお誘いを頂いたので出席を決めました。

イベント一週間前にお誘いを頂き、それからプレゼン資料を作りはじめたわけですが、お題を決めるのに時間を取られました。作りはじめたらサクッっと出来たのですが、途中ファイル形式の指定があって焼き直したり、いつの間にか資料提出の締切が早まったりと、微妙に準備不足な感がありました。最終的には、会場へ向かう電車のなかで最終確認をする羽目に。

家も勤務先も田舎のため、事前に決められていた集合時間には間に合わず、皆さんと同じ時間に受付をしました。ですが、Webからの参加申込をしていなかったためか参加者名簿に名前がない、というアクシデントも。すんなり通して頂けましたけど。

すぐに開発者の方々（cheebowさん、lynmockさん、takuma104さん）に会えたのは助かりました。

イベントが始まると、会場は人だらけで動き回るのに苦労するほど。開始してしばらくすると、そこかしこで話が盛り上がりはじめ、オープニングのbizの話を聞くのも難しい状態に。早々に諦めましたよ。

まぁ、それはいいとして、一番困ったのは、「誰が誰だかわからん！！」ことでした。名札にアイコン必須です。ちぃ覚えた！
もう少し人数少なければコミュニケーションの取りようもあったと思うのですが。

日本専用携帯電話向けTwitter公式サイト http://twtr.jp の発表があり、会場は盛り上がりました。スマートフォンは未対応のようで残念でしたが、iPhoneには対応していました。
その後、Willcomの公式コンテンツ対応と新PHSの発表があり、いよいよクライアント開発者のLTです。

始めはTwit!のcheebowさん。クライアント開発の苦労話と命名裏話を面白おかしく話されました。さすがうまいっす。みんなつぶやきのことをtwitって言うのやめようぜ！ｗ

次に携帯百景のkimzaさん。元々はTwitterと連携していなかったとは驚き。単体サービスとしても面白そうだな、と認識を改めました。赤字はなんとかなるといいですねｗ

NatsuLion for iPhoneのtakuma104さん。Twitter向けのiPhoneアプリをこれでもか！と紹介されました。すげーなiPhone。でも、実は最近話題のTiltShiftの方もすごく気になっちゃいました。

P3:PeraPeraPrvのlynmockさん。P3の魅力（マルチプラットフォーム、カスタマイズ幅、大槍さんアイコンｗ）を詰め込んだプレゼンでした。グッズ楽しげ。欲しいわー。

そして私。お題は「Twitterの出会い力」。開発寄りの話題にするか、クライアントアピールにするか、など悩んだのですが、ユーザーイベントなのでクライアントの話も絡めつつTwitter自体にフォーカスしてみました。ある意味無難なお題になっちゃったかな？まぁ、大外しするよりはいいか、と。
お題は、まぁ流行りってことでつけたんですが、後でご本人登場して、ひそかに冷や汗かきました。
内容は、クライアント作ってたら協力者がいっぱいできて、twitterってすごいと思った、という体験談。そこから膨らませて、テレビでも話題になってるしどんどん広めて行きましょう！という締めに持って行った感じです。
こんなところがいいよね、とか書こうかとも思ったのですが、そんなこと語れるほど偉くも頭良くもないので体験談にとどめました。ここはぜひDGさんに頑張って欲しいところ。

その後、なんとか数人の方々とお話させて頂きました。ほんの数人でしたけど。

イベント終わった後は、cheebowさん、lynmockさん、arawasさん、takuma104さんと軽く飲みました。
みんな面白いし、こっちの方が落ち着きますねｗ
ぜひまた飲みたいです。

初のLTという貴重な体験と、ネットの向こう側にいた皆さんと実際に引き合わせてくれたこのイベントは、本当に良い思い出になりそうです。

091019追記
LT資料 http://www.slideshare.net/kirifeather/kirifeathers-lt-in-tweetup-tokyo-09-fall

This diary was written with HatenaSync

ReTweetについての戸惑い

2009-10-18T00:51:12+09:00

RTって、

周知（晒し上げ、オープンチャット）
引用返信

に使われています。
で、引用返信の時と周知の時って、内容を見ればどっちの用途で使ったのか分かるんですが、見栄えも機能（到達範囲）も同じ訳です。
一方、通常の返信は、ある程度到達範囲が絞られていて、返信元の発言情報も付加されていて、より会話っぽくなります。

通常の返信はお互い向き合って普通の声量で話しているイメージなのですが、引用返信はそっぽを向いて大声を張り上げて返事をするイメージです。

こちらが通常返信で話しかけているのに相手が引用返信で返して来ると、「なんですぐ隣にいるのにそっぽ向いて返事するのさ」、と感じて、私は戸惑ってしまうのです。

両者の違いを知らずに使っている人も多いと思いますので、多くの方にこの違いを知って頂けたらいいな、と思うわけでした。

This diary was written with HatenaSync

マークについて

2009-10-04T00:54:49+09:00

APIについては、まあ予想通りの反応。
ただ、「webモードとかapiモードって何？」という反応については説明不足だったかな、と反省しています。あと、警告メッセージの文章もイマイチ分かりにくい、もしくは誤解を招いたかと、こちらも反省点。

で、意外だったのはフィルタヒット時のマークについて。

今回、新着時未読クリアを実装するにあたって、フィルタヒット時は除外するようにしたのですが、その目印としてヒットマーク有無で判定するようにしました。

で、以前の「何もしない」というよくわからない名称のオプションを排して、マークを全てに付けるように変更しました。活用している、という話をあまり聞かなかったのでこの変更に踏み切ったわけですが、油断していました。

全てにマークがついて不便なのでバージョンアップしない、といった意見がある一方で、「♪」マークって何？というつぶやきも見かけるわけで、なかなか難しいところです。

不便、という意見以上に新着時未読クリアが便利！という意見が多ければこのままでもいいかと思ったのですが、予想以上に少なかったという（汗
完全に裏目にでた修正となりました。

マークを活用しているユーザーがいることが分かったので、この機能はパワーアップして再実装しようと思います。

フィルタ（振り分けルール）周りを弄るので、要望のあった除外条件も合わせて実装してみるつもりです。

機能の変更は難しいね、というお話でした。

This diary was written with HatenaSync

Tween0700リリース-変更内容と所感など

2009-10-02T01:55:00+09:00

久しぶりにTween関連エントリー。

投稿日時

webのhtmlに日時情報が追加されていたので、一抹の不安を感じながらも対応してみました。消えてからずうっとまっていましたし。
ただ、これはいつものtwitter不具合の匂いがするんですよね･･･

APIモード

あと、APIモードをデフォルトに変更。これについてはまたそのうち。

フィルタヒット時動作

フィルタヒット時の動作を三択から二択に。何もしない、という表現が分かりにくかったのと、新着時未読クリア機能を追加したことによります。選択肢はコピーと移動で、ヒットマーク（♪）は必ず付くようになりました。

bit.lyとj.mp

bit.lyとj.mpの選択を分離。
bit.lyを使いたい、というシチュエーションがあるらしいので。

ショートカット追加

キーボード操作の利便性向上のため、PageUp/Downに対応するショートカット、f/bを追加しました。自分が不便だったので。本当はC-f/bにしたかったんだけど、やり過ぎ感あったので思い止まりました。

follower情報

follower情報取得をカーソル対応。片思い表示が正しくない問題が解消されるはずです。

今後ですが、フォロー、リムーブをブラウザを開かず、必要な情報を確認しながら出来るようにすることと、そのユーザーの過去発言を取得したいな、と思っています。

This diary was written with HatenaSync

twitter不具合

2009-09-16T16:40:23+09:00

ここ一週間ぐらいtwitterの調子が悪かったんですが、今日は比較的調子良さそう。不具合情報の収集しているとドキドキするのでこのまま調子いいと嬉しいなぁ。

開発者ミーティング

2009-09-16T16:40:22+09:00

twitterとデジタルガレージ主催で、東京で開催されたデベロッパーミーティングに参加してきました。「これは！？」という特ダネ情報はありませんでしたが、ちーぼーさん、りんもっくさん、akrさん、t_traceさん、あらわずさんなどなど、開発者の方々と会えたのは有意義でした。楽しかったー。公式じゃなくていいのでまたやりたいです。

テーマ追加

2009-09-16T16:40:21+09:00

テーマが追加されて、見栄えが少し変わりましたね。デフォルトアイコンも変わったようです。

Tweenの紹介

2009-09-16T16:40:20+09:00

2週間ほど前だと思いますが、TwitterのWebページ（ユーザーのhome）の右サイドバー中にTweenが紹介されるようになりました。今のところ、もばついとTweenでランダムに表示されるようです。

ありがたいなぁ。

twitter公式ナビゲーター[ついなび] twinavi

2009-09-16T16:40:19+09:00

ついに日本語のTwitter公式サイトができました。

「twitter公式ナビゲーター[ついなび] twinavi」 http://twinavi.jp/

これでようやく人に勧めやすくなりそうです。
このサイトは、デジタルガレージの子会社CGM マーケティングが運営しているようです。

サイトの目的とか目指すところとかは書かれていませんが、ナビゲーターっていうぐらいですから、まぁ、そういう目的のところです。

で、「Twitterって何？」とか「Twitter使い方ガイド」という導入部分へアクセスしやすいというのが良い点です。多分、twitterのヘルプページとか辿れば、似たような話は書かれていると思います。

こういう、twitterの概要とか便利な点や楽しい点などを公式なサイトとして用意したのは大きいだろうなぁ、と思います。巷にはtwitterを紹介するもっと良いブログ記事がありますので、そういうブログの紹介とかもしてどんどん盛り上がってくれることを期待して紹介してみました。

Win7対応について

2009-09-14T00:00:00+09:00

TweenのWin7対応ですが、RCでの動作報告もあり、一応動くようです。ですが、パフォーマンスが悪かったり、設定により動かない場合もあるらしい、という話も聞いています。

今のところ、私の環境にWin7が加わる予定がないため、動作確認とか不具合対応とかどうしたものか、と思っていました。で、この間「ふぁぼったーでGoogleAdsenseを通すためのフィルタを設定した」、とか「究極のスモールスタートの方法　自宅サーバからEC2へ」、「モバツイッターがEC2に移転したその後の話を聞いてきた(Amazon EC2 ナイトセミナ第2回)」といった話を聞きまして、開発コストを賄えないかと調べ始めたわけです。（当面の目標はWin7購入です。）

アフィリエイトとかAdsenseとか、大雑把なイメージ（リンクをクリックして収入を得る）しか持っていなかったので、勉強になりました。

幸い、ついこの間移転したsourceforge.jpのTweenまとめサイトでは、GoogleAdsenseが使えるとのことだったので、申請を出し、先日承認が下りたので、ぺたぺた貼ってみました。

さらに、「副収入でWin7買えないかな〜」と呟いたら、「受け口があれば寄付しますよ」と言っていただいたので、寄付の受け口を作ってみました。実はこっちの方がサービスが色々あってややこしかったです。結局、Amazonギフト券、はてなポイント、ぷちカンパでお願いすることにしました。

「こんなことやってないで開発したい！」というのが本音なのですが、背に腹は代えられません。とりあえずここまでやって一段落ついたので、また開発を続けたいと思っています。

Twitterの発言アーカイブ

2009-09-04T00:00:00+09:00

Twitterでは、自分の発言は3200ポストまでしか取得できません。（多分、溜め込んでいるとは思うけど、取得する術がない。）

でも、自分でアウトプットした情報は、日記として読み返したり、メモ代わりにつぶやいた情報を後で検索したりしたいのです。そこで、前回の日記で書いたアーカイブ方法でバックアップを取っています。

LoudTwitterやtwtr2srcでは、はてなダイアリーに送りつけていますが、これには一つ問題があります。

はてなダイアリーに限らず、ほとんどのブログ系サービスには容量に限界がありますし、サービス自体の存続も保証されません。私の場合、公開が主目的ではないので、どうせメールでブログ更新するなら、直接自分にメールを送ってもいいのですが、味気ないのでGoogle Readerでブログのフィードを取得して、二重でバックアップするようにしています。

現在、twtr2srcの不具合時バックアップとして、Twitterのプロファイルページのフィードも購読していますが、こちらはやめようと思います。1発言1記事なので、記事数が嵩張って邪魔なのです。

一点怖いのは、Google Readerの仕様です。今のところ古い記事も溜め込んでいますが、いつ古い情報が切り落とされるのか分かりません。そう考えると、メールで取っておいた方がいいのかな、などと悩んでいるところです。

LoudTwitterに変わるもの

2009-07-14T13:50:53+09:00

~~LoudTwitterの存続が怪しいので、自前で用意してみた。~~

9/4追記：復活しましたね。一安心。絶賛ドネーション受付中です。でもtwtr2srcに移行しました。まだβですが全く問題ありません。類似サービスとして、t2bとか、専用サイトまで用意してくれるTwilogなどもあります。

仕様や注意点

取得結果をメール送信するので、自分宛に送ってもいいし、はてダに送ってもいい。
手抜き仕様として、200件しか取得しません。一日200件以上発言する人はページング処理など追加する必要があります。
抽出範囲は前日分（0:00〜23:59）となります。前日分なので、cron回すときは日付が変わってからにしてください。
Twitterの認証はBasicです。oAuthは面倒です。
メール送信はmb_send_mailを素で使っているので、mailコマンドでメール送信できる環境が必要かも。
メールの書式はLoudTwitterに似せてありますが、各発言へのリンクは張っていませんのであしからず。
未確認事項として、エンコーディングにUTF-8を指定していますが、これは環境依存かもしれません。文字化けするようならEUC-JPやShift_JISなんかも試してみて下さい。でも半角カナは化けます。
PHPだけど、PHPのcliから実行することを想定しています。アカウント情報も埋め込みなので、Webから使うのはやめた方がいいと思います。

環境

私は自前のUbuntu鯖で動かしました。

導入

My Twitter

まずは、My Twitterというphpクラスを入手する。
これは、TwitterのAPIをラップしたもの。
http://www.phpclasses.org/browse/package/4075.html
ただし、このスクリプトはPOSTメソッドで取得しようとするので、このままでは動きません。
myTimeLineParse関数内の、CURLOPT_POST指定部分をコメントアウトします。

//              curl_setopt($ch, CURLOPT_POST, true);

cUrl

このスクリプトはcURLを使うので、「php5-curl」パッケージをインストール。

cli

cronで回すので、cliのインタプリタ用パッケージ「php5-cli」をインストール。

今回のスクリプト

で、今回作ったスクリプトはこれ。

<?php
$username = 'xxxxxxxx';
$password = 'xxxxxxxx';
$send_to = "xxxxxxxx@d.hatena.ne.jp";
$from = "xxxxxxxx@xxxxx.xx.jp";

require_once('./my_twitter.php');
$twitter = new MyTwitter($username, $password);
$archive = $twitter->userTimeline(200);
$tcount = count($archive);
if ($tcount > 0)
{
        $body = '';
        $today = mktime(0, 0, 0, date('m'), date('d'), date('Y'));
        $yesterday = $today - 86400;
        for ($i = 0; $i < $tcount; $i++)
        {
                $tm = strtotime($archive[$i]['created_at']);
                if ($tm >= $yesterday and $tm < $today)
                {
                        $sts = date('H:i ', $tm) . $archive[$i]['text'] . "\n";
                        $body = $body . $sts;
                }
        }
        mb_language("japanese");
        mb_internal_encoding("UTF-8");
        $subj = date('Y/m/d分', $yesterday);
        mb_send_mail($send_to, $subj, $body, "From:".$from);
}
?>

protectedじゃない人の発言取るときは認証要らないんだけど、面倒なのでそのまま。
冒頭の4行を書き換えれば使えると思います。（通常Fromヘッダは不要ですね。）
あと、my_twitter.phpのインポート先は、php.iniでパスを通してあるところ（例：/usr/share/php:/usr/share/pear）に配置するか、フルパスで指定するかしてあげればよいかと。cronから実行するときは相対パスだとうまくいかないみたい。

あとは、my_twitter.phpと上記スクリプトを適当なフォルダに配置して、cronで回します。

TenageM:オフラインに焦点を当てたWM用Twitter投稿ツール。

2009-04-29T15:18:20+09:00

要：.Net Compact Framework 2.0
※Willcom03（WindowsMobile6.1 Classic）で動作確認。他環境でも多分行ける。根拠はない。

どんな人が使うの？

パケットは従量制が基本
通信するなら無線か有線
いつも接続を「既定のインターネット設定」にして、勝手にダイヤルアップしないようにしている

そんな人。つまり俺。

タイムラインの取得は？

ありません。割り切り大事。目指せ単機能ツール。

使い道ないんじゃない？

そうですね。
とは言っても、定額で使いまくりの人だって使えます。
接続を「センタ名称設定」にしておいて、なんらかの手段で事前にダイヤルアップ接続を確立している必要はありますが。
接続が確立されてない場合は、アプリで発言を保存しておきますので、あとでまとめて投稿できます。
電波の届きにくいところなんかで使えるのではないでしょうか。
でも、そういう使い方は検証してません。なので、アプリで「オフラインモード」とかは持ってません。それなりに判定します。

機能

投稿時オン／オフライン判定
発言保存機能。以下の場合は保存します。
- 投稿時にオフライン
- 投稿失敗（ネットワークやサービスの問題）
- 保存ボタン
保存発言の1件削除、全件削除
保存発言をまとめて投稿（20秒に1発言：近所迷惑対応）
コマンドライン対応（他アプリと連携。投稿即終了）

Today常駐は.netの機能だけでは難しそうだったのでやめました。

私の場合

Actionキー長押しに割り当てて、電車で思いついたことを保存したりしてます。

入手＆導入

以下からどうぞ。
インストーラーとか作ってません。多分みんな使わないから。
使う場合は、事前に\Application Data(だっけ？)に「TenageM」というフォルダを手動で作ってください。手抜きですね。

http://tween.sourceforge.jp/TenageM.exe

ソース

ライセンスとか気にしない。お行儀悪くてすいません。
ソースはcodereposに置いてあります。
煮るなり焼くなり改変するなり流用するなり。リポジトリから捨てなければお好きにどうぞ。

http://coderepos.org/share/browser/lang/vb2005/TenageM

WindowsMobile用Twitter投稿単機能ツール0.0.0.1α

2009-04-21T00:00:00+09:00

お試しで作ってみた。ただ単に投稿するだけ。UIもない。
とりあえず、MortScriptと組み合わせて使ってみようかと思う。
Today常駐できて、オフライン時は発言溜め込めるようにするのが最終目標。

動作も遅くて実用になるのか分からないので、今は公開しない。
ほしい人は教えてください。（もちろん自己責任）

js(wscript)製twitter投稿・取得ツール

2009-04-15T00:00:00+09:00

ぷーる様が公開しているブログ「muumoo.jp」 http://muumoo.jp/ でjs製のtwitter投稿ツールが公開されています。手軽につぶやきたいときは、ランチャのbluewindから呼び出して使っていました。

で、jsで投稿できるんだから、取得もできそうだよね、と思って探したら、このブログでバージョンアップ版として公開されていました。

http://muumoo.jp/news/2008/06/24/0twitterclientjs.html

喜び勇んで試してみたのですが、最近のtwitter側仕様変更のため動きません。ならば、と修正と微妙な変更を加えましたので、ここで公開いたします。
とりあえず、twitterclient2.jsとでもしておきます。

(function() {
  var Twitter = function(id, pass){
    this.id = id;
    this.pass = pass;
    this.log = {};
  };
  Twitter.prototype.Update = function(message) {
    return this._get('http://twitter.com/statuses/update.json', message, 'POST');
  }
  Twitter.prototype.FriendTimeline = function() {
    return this._format(eval(this._get('http://twitter.com/statuses/friends_timeline.json', null, 'GET')));
  }
  Twitter.prototype.Mentions = function() {
    return this._format(eval(this._get('http://twitter.com/statuses/mentions.json', null, 'GET')));
  }
  Twitter.prototype._get = function(url, data, method) {
    var xmlhttp = new ActiveXObject('Msxml2.XMLHTTP');
    xmlhttp.open(method, url, false, this.id, this.pass);
    xmlhttp.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
    xmlhttp.send(data);
    if(xmlhttp.status != 200) WScript.echo(xmlhttp.status + ' ' + xmlhttp.statusText);
    return xmlhttp.responseText;
  }
  Twitter.prototype._format = function(items) {
    if(items.length == 0) return '';
    var statuses = '';
    items.sort(function(a, b){ return a.id - b.id; });
    for(var i = 0; i < items.length; i++) {
      var item = items[i];
      if(this.log[item.id]) continue;
      
      var t = item.created_at.split(' ');
      var d = new Date(t[1] + ' ' + t[2] + ',' + t[5] + ' ' + t[3] + ' ' + t[4]);
      var line =
	  '●' +
          item.user.screen_name + ' [' +
          d.getFullYear() + '.' +
          (d.getMonth() + 1) + '.' +
          d.getDate() + ' ' +
          d.getHours() + ':' +
          d.getMinutes() + '] ' + '\n' +
          item.text + '\n';
      this.log[item.id] = 1;
      statuses += line;
    }
    return statuses;
  }
    
  
  var args = WScript.Arguments;
  if(args.length < 2) return;
  
  var twitter = new Twitter(args.Item(0), args.Item(1));
  if(args.length == 2) {
    var statuses = twitter.FriendTimeline();
    if(statuses.length > 0) WScript.echo(statuses);
  } else if(args.length == 3 && args.Item(2) == '@') {
    while(true) {
        var statuses = twitter.Mentions();
        if(statuses.length > 0) WScript.echo(statuses);
	WScript.Sleep(60 * 1000 * 10); // interval 10min
    }
  } else {
    var statuses = [];
    for(var i = 2; i < args.length; i++) {
      statuses.push(args.Item(i));
    }
    twitter.Update('status=' + encodeURIComponent(statuses.join(' ')));
  }
})();

使い方

オリジナルとほぼ変わりません。

WScriptで実行すると、結果がダイアログで表示されます。

wscript twitterclient2.js ユーザー名パスワード

CScriptで実行すると、結果が標準出力（コマンドプロンプト）に出力されます。

cscript twitterclient2.js ユーザー名パスワード

オリジナルとの変更点

タイムライン取得は一度きりで（常駐せずに）結果を表示して終了します。引数はユーザー名とパスワードです。
返信取得は常駐します。10分ごとにチェックします。引数はユーザー名とパスワードと@です。

（例：wscript twitterclient2.js ユーザー名パスワード @）

発言も一度きりで常駐しません。引数はユーザー名とパスワードと投稿内容です。間違って@のみの投稿をしてしまうと、裏で返信取得として常駐しちゃうのでお気をつけください。
表示フォーマットを微調整

注意

タイムライン取得の場合、常駐しないため、cscriptで実行すると結果が一瞬で閉じてしまって見えません（汗
コマンドプロンプトから実行すれば見えるのですが、基本的にはWScriptからの実行を想定しています。（仕事中のチラミとかを想定）

返信取得は常駐するので、どちらで実行しても問題ありません。（不意の＠を教えてほしいので、常駐します。）

あと、取得に関しては大なり小なりは文字化けします。
固定で置換すればよさそうですが、サボってます。

常駐した場合の終了方法ですが、cscriptならCtrl-cで。wscriptの場合は、タスクマネージャからwscript.exeを終了させてください。

Tween

2008-11-25T19:17:06+09:00

Tween is the client program of twitter.

Software requirements

OS: Windows 2k/XP/Vista
.Net Framework2.0 SP1(or later)

Overview

~~Not use twitter API, but get the html(/home,/replies,/directmessage) from twitter web page and scrape it.~~
State is beta, so if you have any problems or requests, please contact to @kiri_feather freely.

Operation manual(Japanese only)

Please visit Manual Site. (Author @syo68k)

（Thanks a lot!）

Screen shot

Additional icons for Tween(Japanese only)

The icons using in Tween are created by Minami.(Thanks a lot!)

You can replace the icons in Tween. Make a folder in the binary placed folder, and rename 'icons', then put some icons in the folder.

You can get extra icons here.
http://sourceforge.jp/projects/tween/wiki/%E3%82%A2%E3%82%A4%E3%82%B3%E3%83%B3%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%81%AE%E9%85%8D%E5%B8%83

Download site

Latest version
http://sourceforge.jp/projects/tween/wiki/%E3%83%80%E3%82%A6%E3%83%B3%E3%83%AD%E3%83%BC%E3%83%89

More informations (Developer's site. Japanese only)

TwitterとのHTTP通信内容

2008-06-03T00:00:00+09:00

HTTPヘッダについて
keep-alive,connectionは変更する可能性あり。

＜サインイン＞
URL：http://twitter.com/sessions
ヘッダ：
	POST /sessions HTTP/1.1
	HOST: twitter.com
	User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ja; rv:1.9) Gecko/2008051206 Firefox/3.0		適当でもOK
	Accept-Encoding: gzip,deflate
	Connection: close
	Cookie: 初回は空。以後はTwitter関連接続で保持しているクッキー
	Content-Type: application/x-www-form-urlencoded
	Content-Length: データサイズ
データ：username_or_email=ユーザーID&password=パスワード

HTTP応答　302

＜Recent取得＞
URL：http://twitter.com/home
クエリ：
	1ページ目　　＝なし
	2ページ目以降＝?page=n
ヘッダ：
	GET /home HTTP/1.1
	HOST: twitter.com
	User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ja; rv:1.9) Gecko/2008051206 Firefox/3.0
	Accept-Encoding: gzip,deflate
	Connection: close
	Cookie: Twitter関連接続で保持しているクッキー
	Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
	Accept-Language: ja,en-us;q=0.7,en;q=0.3
	Accept-Charset: Shift_JIS,utf-8;q=0.7,*;q=0.7

HTTP応答：200

＜Replies取得＞
※Recent取得との違いは、URLのみ
URL：http://twitter.com/replies
クエリ：
	1ページ目　　＝なし
	2ページ目以降＝?page=n
ヘッダ：
	GET /replies HTTP/1.1
	HOST: twitter.com
	User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ja; rv:1.9) Gecko/2008051206 Firefox/3.0
	Accept-Encoding: gzip,deflate
	Connection: close
	Cookie: Twitter関連接続で保持しているクッキー
	Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
	Accept-Language: ja,en-us;q=0.7,en;q=0.3
	Accept-Charset: Shift_JIS,utf-8;q=0.7,*;q=0.7

HTTP応答：200

＜受信DirectMessage取得＞
※Recent取得との違いは、URLと1ページ目もクエリを付けていること。（なくても可）
URL：http://twitter.com/direct_messages
クエリ：?page=n
ヘッダ：
	GET /direct_messages HTTP/1.1
	HOST: twitter.com
	User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ja; rv:1.9) Gecko/2008051206 Firefox/3.0
	Accept-Encoding: gzip,deflate
	Connection: close
	Cookie: Twitter関連接続で保持しているクッキー
	Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
	Accept-Language: ja,en-us;q=0.7,en;q=0.3
	Accept-Charset: Shift_JIS,utf-8;q=0.7,*;q=0.7

HTTP応答：200

＜送信DirectMessage取得＞
※Recent取得との違いは、URLと1ページ目もクエリを付けていること。（なくても可）
URL：http://twitter.com/direct_messages/sent
クエリ：?page=n
ヘッダ：
	GET /direct_messages/sent HTTP/1.1
	HOST: twitter.com
	User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ja; rv:1.9) Gecko/2008051206 Firefox/3.0
	Accept-Encoding: gzip,deflate
	Connection: close
	Cookie: Twitter関連接続で保持しているクッキー
	Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
	Accept-Language: ja,en-us;q=0.7,en;q=0.3
	Accept-Charset: Shift_JIS,utf-8;q=0.7,*;q=0.7

HTTP応答：200

＜投稿（Web）＞
※通常、＠、DMで差異なし
URL：http://twitter.com/status/update
クエリ：?page=1&tab=home
ヘッダ：
	POST /status/update HTTP/1.1
	HOST: twitter.com
	User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ja; rv:1.9) Gecko/2008051206 Firefox/3.0
	Accept-Encoding: gzip,deflate
	Connection: close
	Cookie: Twitter関連接続で保持しているクッキー
	Content-Type: application/x-www-form-urlencoded; charset=UTF-8
	Accept: text/javascript, text/html, application/xml, text/xml, */*
	x-prototype-version: 1.6.0.1
	x-requested-with: XMLHttpRequest
	Accept-Language: ja,en-us;q=0.7,en;q=0.3
	Accept-Charset: Shift_JIS,utf-8;q=0.7,*;q=0.7
	Content-Length: データサイズ
データ：authenticity_token=認証トークン&authenticity_token=認証トークン&status=発言内容

HTTP応答　200

＜投稿（API）＞
※通常、＠、DMで差異なし
URL：http://twitter.com/statuses/update.xml
クエリ：?page=1&tab=home
ヘッダ：
	POST /statuses/update.xml HTTP/1.1
	HOST: twitter.com
	User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ja; rv:1.9) Gecko/2008051206 Firefox/3.0
	Connection: close
	Content-Type: application/x-www-form-urlencoded
	Accept: text/html, */*
	X-Twitter-Client: Tween
	X-Twitter-Client-Version: 0.0.8.0
	X-Twitter-Client-URL: http://www.asahi-net.or.jp/~ne5h-ykmz/tween.xml
	Authorization: Basic ユーザー名:パスワードのBASE64エンコード
	Content-Length: データサイズ
データ：status=発言内容&source=Tween

HTTP応答　200

＜発言削除（DM除く）＞
URL:http://twitter.com/status/destroy/発言ID
ヘッダ：
	POST /status/destroy/発言ID HTTP/1.1
	HOST: twitter.com
	User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ja; rv:1.9) Gecko/2008051206 Firefox/3.0
	Accept-Encoding: gzip,deflate
	Connection: close
	Cookie: Twitter関連接続で保持しているクッキー
	Content-Type: application/x-www-form-urlencoded
	Accept: text/xml,application/xml,application/xhtml+xml,text/html,text/plain,image/png,*/*
	Referer: http://twitter.com/home
	Content-Length: データサイズ
データ：authenticity_token=認証トークン

HTTP応答　200

＜DirectMessage削除＞
URL：http://twitter.com/direct_messages/destroy/発言ID
ヘッダ：
	GET /direct_messages/destroy/発言ID HTTP/1.1
	HOST: twitter.com
	User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ja; rv:1.9) Gecko/2008051206 Firefox/3.0
	Accept-Encoding: gzip,deflate
	Connection: close
	Cookie: Twitter関連接続で保持しているクッキー
	Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
	Accept-Language: ja,en-us;q=0.7,en;q=0.3
	Accept-Charset: Shift_JIS,utf-8;q=0.7,*;q=0.7

HTTP応答：200

＜Fav追加＞
URL：http://twitter.com/favourings/create/発言ID
ヘッダ：
	POST /favourings/create/発言ID HTTP/1.1
	HOST: twitter.com
	User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ja; rv:1.9) Gecko/2008051206 Firefox/3.0
	Accept-Encoding: gzip,deflate
	Connection: close
	Cookie: Twitter関連接続で保持しているクッキー
	Content-Type: application/x-www-form-urlencoded; charset=UTF-8
	Accept: text/javascript, text/html, application/xml, text/xml, */*
	x-prototype-version: 1.6.0.1
	x-requested-with: XMLHttpRequest
	Accept-Language: ja,en-us;q=0.7,en;q=0.3
	Accept-Charset: Shift_JIS,utf-8;q=0.7,*;q=0.7
	Content-Length: データサイズ
データ：authenticity_token=認証トークン

HTTP応答　200

＜Fav削除＞
URL：http://twitter.com/favourings/destroy/発言ID
ヘッダ：
	POST /favourings/destroy/発言ID HTTP/1.1
	HOST: twitter.com
	User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; ja; rv:1.9) Gecko/2008051206 Firefox/3.0
	Accept-Encoding: gzip,deflate
	Connection: close
	Cookie: Twitter関連接続で保持しているクッキー
	Content-Type: application/x-www-form-urlencoded; charset=UTF-8
	Accept: text/javascript, text/html, application/xml, text/xml, */*
	x-prototype-version: 1.6.0.1
	x-requested-with: XMLHttpRequest
	Accept-Language: ja,en-us;q=0.7,en;q=0.3
	Accept-Charset: Shift_JIS,utf-8;q=0.7,*;q=0.7
	Content-Length: データサイズ
データ：authenticity_token=認証トークン

HTTP応答　200

GoogleReaderPreviewEnhancedでキーボードショートカットを使えるように

2008-03-05T02:05:18+09:00

＜＜＜追記＞＞＞
最新版で直っていると思います。

今日はTweenではない話。
最近Fx2からFx3β3に乗り換えたり、キーボードランチャ（倉）を導入したりで、キーボードオペレーションをちょこちょこ見直していました。
なるべくアドオンやグリモンの導入は控えめにして、元々メモリ食いのFxを少しでも軽く使えるように心がけていました。常用しているのは、

Googlebar Lite
Greasemonkey
Remember The Milk for GMail

ぐらい。
グリモンは、

AutoPagerize
GoogleReaderPreviewEnhanced（リンク先を画面内にフレーム表示）

といったところ。（少ないでしょ？）

キーボードで操作を済ませようとすると、LDRize+Minibufferはすごく便利なので、導入してみました。Google検索結果の移動をキーボードで済ませられるようになって便利便利。

ただ、前々から気になっていたのがGoogleReaderPreviewEnhancedのキーボードショートカット。通常Shift+Vで機能するはずなのに利かない。これが不満だけど、便利なので捨てる気にもなれず悶々としていたんですが、一度グリモンも作ってみたいなーと思っていたので、勉強がてら改造してみました。JavaScript自体、ほとんど触ったことがないんですけどねｗ

デバッグ用にとFireBugを導入して、DOMなどを眺めつつ、試行錯誤を繰り返してたら、なんとか動くようになりました。この拡張自体、あんまり使っている人がいない気がしますが、自分用にソースを張っておきます。

// Google Reader Preview Enhanced
// version 1.07d + KiriCustomize
// 2008-03-06
// Copyright (c) 2007, Julien CAROSI (jcarosi@gmail.com)
// Released under the GPL license
// http://www.gnu.org/copyleft/gpl.html
//
// --------------------------------------------------------------------
//
// This is a Greasemonkey user script.
//
// To install, you need Greasemonkey Firefox extension : http://greasemonkey.mozdev.org/
// Then restart Firefox and revisit this script.
// Click on install.
//
// --------------------------------------------------------------------
// ==UserScript==
// @name            GPE
// @namespace       http://userscripts.org/scripts/show/9455
// @description     Adds a "Preview button" that allows you to view actual article in a frame. Clicking again on that button goes back to RSS view. Does work both in List view and expanded view.
// @include         http://reader.google.com/reader/*
// @include         https://reader.google.com/reader/*
// @include         http://www.google.com/reader/*
// @include         https://www.google.com/reader/*
// ==/UserScript==
//
// --------------------------------------------------------------------
// This script adds a "Preview button" that allows you to view actual article in a frame.
// Clicking again on that button goes back to RSS view. Does work both in List view and expanded view.
//
// Feel free to address comments or improvement suggestions to jcarosi@gmail.com
//
// --------------------------------------------------------------------
// Changelog :
// v1.07d + KiriCustomize : ショートカットキーShift+Vを有効に
// v1.07d : makes scrolling to top of article work again because google's code was changed. Same for shortcut
// v1.07c : fixes problem with Shift V shortcut that prevented typing capital V in GR's dialog boxes
//          added support for https urls
// v1.07b : makes scrolling to top of article work again because google's code was changed. Same for shortcut
// v1.07a : makes the script work again because google's code was changed.
//          added a try/catch statement in order to make the script work even if the code changes again, though not scrolling to the top of article
//          so people can still use the script until an upgrade is released
// v1.07  : allows clicking on an article's title to show the preview, so you don't need to scroll it down to preview it (was opening the article in a new window previously, now not needed with preview functionnality)
// v1.06a : fixes compatibility with "find as you type" firefox functionality
// v1.06  : adds a keyboard shortcut for previewing an article. Now you can press Shift-V to go to preview mode or go back to rss view.
// v1.05a : adds better support for Better GReader extension.
// v1.05  : makes the script work again because offline functionnality broke it when it was added by Google.
// v1.0   : initial release.
// --------------------------------------------------------------------
// Tested on Firefox 1.5 and 2.0
// --------------------------------------------------------------------

function getFirstElementMatchingClassName(root,tag,class)
{
  var elements=root.getElementsByTagName(tag); var i=0;
  while (elements[i] && !elements[i].className.match(class)) { i++; }
  return ((!elements[i]) ? null : (elements[i]));
}

function getElementsByClassName(root,tag,class)
{
  var elements = root.getElementsByTagName(tag);
  var results = new Array();
  for(var i=0; i<elements.length; i++) { if(elements[i].className.indexOf(class)>-1) { results.push(elements[i]); } }
  return (results);
}

function findParentNode(el,tag,class)
{
  el=el.parentNode;
  if (arguments.length==3)
  {
    // Find first element's parent node matching tag and className
    while (el.nodeName.toLowerCase()!='body' && (el.nodeName.toLowerCase()!=tag || (el.className!=class && el.className.indexOf(class+' ')==-1))) { el=el.parentNode; }
    return ((el.nodeName.toLowerCase()!='body') ? el : false);
  }
  else
  {
    // Find first element's parent node matching tag
    while (el.nodeName.toLowerCase()!='body' && el.nodeName.toLowerCase()!=tag) { el=el.parentNode; }
    return ((el.nodeName.toLowerCase()!='body') ? el : false);
  }	
}

function addStyles(css)
{
  var head=document.getElementsByTagName('head')[0];
  if (head)
  {
    var style=document.createElement('style');
    style.type='text/css';
    style.innerHTML=css;
    head.appendChild(style);
  }
}

function catchEntryAdded(e)
{
    var el=e.target;
    if (el.nodeName=='DIV' && el.className.indexOf('entry')>-1)
    {
      if (el.className.indexOf('entry-actions')>-1)
      {
        // Expanding article in list view
        addPreviewButton(el);	
      }
      else if (getFirstElementMatchingClassName(el,'tbody','card-tbody'))
      {
        // Adding article in expanded view
        addPreviewButton(getFirstElementMatchingClassName(el,'div','entry-actions'));
      }
    }
}

function addPreviewButton(el)
{
  // Top link
  var entry=findParentNode(el,'div','entry');	
  var link=getFirstElementMatchingClassName(entry,'a','entry-title-link');
  link.addEventListener('click', previewMouseClick, false);
  // link.addEventListener('click', function(e) { if (e.ctrlKey) { previewMouseClick(e); }  }, false);
  	
  // Bottom button
  var preview=document.createElement('span');
  preview.className='item-preview preview link';
  preview.innerHTML='Preview';
  el.appendChild(preview);
  preview.addEventListener('click', previewMouseClick, false);	
}

function calcEntryIndex(e)
{
    var index=0;
    while (e.previousSibling)
    {
      index++;
      e=e.previousSibling;
    }
    return index;
}

function previewMouseClick(e)
{
    var el=e.target;
    var entry=findParentNode(el,'div','entry');
    var index = calcEntryIndex(entry);
    preview(entry,index);
    e.preventDefault();
}

function previewShortcut()
{
// Add below 3 lines by Kiri 2008-3-6
    var entry=document.getElementById('current-entry');
    var index = calcEntryIndex(entry);
    preview(entry,index);
// Delete below 6 lines by Kiri 2008-3-6
//  var index=unsafeWindow.s.ma;
//  if (index>-1)
//  {
//    // An article is selected, preview it
//    preview(getEntryDOMObject(index),index);
//  }
}

function preview(entry,index)
{
    var preview;
    var button = getFirstElementMatchingClassName(entry,'span','item-preview');
    
    // Update entry with preview mode, need to do it before scrolling, because scrolling will repaint preview button (list view only)
    if (entry.className.indexOf('preview')==-1)
    {
      entry.className=entry.className+' preview';
      preview=true;
    }
    else
    {
      entry.className=entry.className.replace('preview','');    	
      preview=false;
    }
    	    
    // Need to scroll before changing entry-body, because scrolling repaints article from scratch (list view only)
    scrollTo(index);
    
    root = getEntryDOMObject(index);
    var body = getFirstElementMatchingClassName(entry,'div','entry-body');
    var ins = body.getElementsByTagName('ins')[0];

    if (preview)
    {
       // classic mode-> preview mode

       // hide rss item
       ins.style.display='none';
       
       // iframe creation/display
       var iframe = getFirstElementMatchingClassName(entry,'iframe','preview');
       if (iframe)
       {
         // iframe already in document, display it
         iframe.style.display='block';
       }
       else
       {
         // iframe not in document, create it
         iframe = document.createElement('iframe');
         iframe.setAttribute('width','100%');
         iframe.setAttribute('height','500px');
         iframe.setAttribute('src',getFirstElementMatchingClassName(entry,'a','entry-title-link'));
         iframe.className='preview';
         body.appendChild(iframe);
       }		
       
       // Scale article container to fullwidth
       body.setAttribute('style','max-width: 98%');
    }
    else
    {
       // preview mode -> classic mode
       
       // hide iframe
       var iframe = getFirstElementMatchingClassName(entry,'iframe','preview');
       if (iframe) iframe.style.display='none';
       
       // show rss item
       ins.style.display='block';
       
       // Go back to initial width
       body.removeAttribute('style','');     
    }  
}      

function handleKeypress(e)
{
  // Handle a Shift-V keypress
  if (e.target.nodeName.toLowerCase()!='input' && e.shiftKey && e.keyCode==86)
  {
    previewShortcut();
    e.preventDefault();
  }
}

function getEntryDOMObject(index)
{
    // Because of repaint, entry doesn't point to correct DOM object, we need to find entry using index
    var entries=document.getElementById('entries');
    var i=0;
    entry=entries.firstChild;
    while ((i++)<index)
    {
      entry=entry.nextSibling;
    }	
    return entry;
}       

function scrollTo(index)
{   
    // Force scrolling to top of article
    try
    {
      location.href = 'javascript:void(s.ma=-1);';
      location.href = 'javascript:void(s.hf('+index+'));';    
    }
    catch(err) { }
}      
       
function restyle()
{
    // Overwrites Better GReader extension css modifications regarding entry-actions class.
    // Indeed, entry-actions was set to "float : right", thus div was not in document flow.
    // Then, clicking on preview button let entry actions div in place instead of going down automatically when iframe was added.
    // That's why I use here text-align: right. That has the same effect, but keeps div in document flow.
    // restyle() is called after document load, in order to ensure that Better GReader has already added its styles modifications
    var styles = document.getElementsByTagName('head')[0].getElementsByTagName('style');
    var i=0;
    
    while (i<styles.length)
    {
    	if (styles[i].innerHTML.indexOf('.entry-actions { float:right !important; }')>-1)
    	{
          styles[i].innerHTML=styles[i].innerHTML.replace('.entry-actions { float:right !important; }','.entry-actions { text-align: right; !important; }');
    	}
    	i++;
    }
}

function init()
{
  restyle();
  addStyles('span.item-preview { background: url("data:image/gif,GIF89a%10%00%10%00%D5%13%00%D8%D8%D8%FA%FA%FA%CB%CB%CB%C8%C8%C8%D2%D2%D2%BA%BA%BA%C6%C6%C6%A1%A1%A1%9C%9C%9C%BD%BD%BD%C9%C9%C9%AB%AB%AB%F4%F4%F4%BF%BF%BF%FC%FC%FC%DB%DB%DB%AD%AD%AD%FF%FF%FF%CC%CC%CC%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00%00!%F9%04%01%00%00%13%00%2C%00%00%00%00%10%00%10%00%00%06I%C0%89pH%2C%1A%8F%C8d%F1!i%3A%9F%8F%E1%03B%ADZ%A9%D1%89%04%12%E9z%BF%10%89p%FB-G%C2c%AE%D9%8B%D6%AA%03_%F8Y%EC%8E%C8%E3%F3%F4%9AM\'%7B%1D%0E%60t%00W%85%10%00RO%8A%12YJ%8E%8EA%00%3B") no-repeat; padding-left: 16px; } div.entry.preview span.item-preview { background: url("data:image/gif,GIF89a%10%00%10%00%A2%05%00%D8%D8%D8%DB%DB%DB%AD%AD%AD%CC%CC%CC%FE%9A%20%FF%FF%FF%00%00%00%00%00%00!%F9%04%01%00%00%05%00%2C%00%00%00%00%10%00%10%00%00%03%3BX%BA%DC%FE0%B60%AA%BDa%05%C1%BB%E7Y1%08Di%9E%C2%A0%8C%A6%D7%AA%22Y%CA2%91%AE%B5%3B%C3%EC%7C%EE%B8%D6%CF%C6%AB%0D%89%0A%C0g)%00h.%D0AHB%A5%26%00%00%3B") no-repeat; padding-left: 16px; }');
}
      
document.body.addEventListener('DOMNodeInserted', catchEntryAdded, false);
document.addEventListener('keydown',handleKeypress, false);
window.addEventListener('load',init,false);

0.0.4.3

2008-02-23T02:22:53+09:00

URL中のTwitterコマンドを無視するように修正

更新履歴はこちら→http://d.hatena.ne.jp/Kiri_Feather/20071121
ダウンロードはこちら→http://www.asahi-net.or.jp/~ne5h-ykmz/index.html

0.0.4.4

2008-02-23T02:22:52+09:00

リスト描画方式変更（0.0.4.1〜3よりメモリにやさしい、と思う）
Fav追加／削除を同期処理に戻した
Fav追加／削除したとき、発言詳細の名前文字色を即時変更するようにした
DMリストで「ステータスを開く」コマンドを無効にした（まだ暴発しますが・・・）
Twitterコマンドの判別条件を緩和。発言に失敗した場合はお知らせいただけると助かります。
発言詳細の表示が変更された場合のナビゲート音を出さないように変更
複数発言のFav時に、確認メッセージを追加

0.0.4.5

2008-02-23T02:22:51+09:00

Fav削除でエラーが発生する問題に対応

0.0.4.1

2008-02-21T17:10:39+09:00

リストのチラつきをなくしました
Twitterコマンドが含まれる発言が「DM宛先間違い」で投稿できない問題に対応しました

自分でも使用に耐えないぐらいリストがチラついていたので、ダブルバッファをONにしてみました。今のところ良い感じ。チラつきがほぼなくなりました！
Twitterコマンドが含まれる投稿をしようとした場合に、「DM宛先間違い」というエラー（←本当は正しくない＞＜）で投稿できない場合が結構あったので、投稿文をちょびっとだけいじって、引っかからないようにしました。
「エラーで投稿できないよ！」とか「本文が変になっちゃったよ！」とかありましたら、お知らせくださいませ。

更新履歴はこちら→http://d.hatena.ne.jp/Kiri_Feather/20071121
ダウンロードはこちら→http://www.asahi-net.or.jp/~ne5h-ykmz/index.html

0.0.4.2

2008-02-21T17:10:38+09:00

はわわ。ちょいと広範にいじりすぎました。（という言い訳）
バグ修正＆手動での最新版取得機能追加です。

Recentのリストで、リストアイコンサイズ24,48の場合に、折り返し表示されないバグ修正
Reply,DMのリストで、右クリックメニューが表示されないバグ修正
手動での最新版取得メニューを追加

0.0.4.0

2008-02-20T09:27:09+09:00

バグ修正でーす。

DMの発言詳細表示がされないバグ修正
新着取得時に発言詳細部が再描画される問題を修正
POST中のreply、DM発言操作補助が効いてしまうバグ修正

更新履歴はこちら→http://d.hatena.ne.jp/Kiri_Feather/20071121
ダウンロードはこちら→http://www.asahi-net.or.jp/~ne5h-ykmz/index.html

0.0.3.8

2008-02-19T18:26:11+09:00

0.0.3.8。なぜかRepliesページの2ページ目が取得できなくなっていることへの対応。
まあ、1ページ目しかとっていないんですが。

Recent、Repliesの1ページ目取得時に、pageクエリを付加しないよう変更

更新履歴はこちら→http://d.hatena.ne.jp/Kiri_Feather/20071121
ダウンロードはこちら→http://www.asahi-net.or.jp/~ne5h-ykmz/index.html

0.0.3.9

2008-02-19T18:26:10+09:00

0.0.3.9。リスト描画の高速化、とは名ばかりで、リストの色変えと発言詳細部の書き換えを0.1秒後に行うよう変更。
ついでに、次から自動バージョンチェックが走るようになります。

リスト描画高速化
自動バージョンチェック＆更新追加

更新履歴はこちら→http://d.hatena.ne.jp/Kiri_Feather/20071121
ダウンロードはこちら→http://www.asahi-net.or.jp/~ne5h-ykmz/index.html