2015-02-22

slackのOutgoing WebHooksをこにゃこにゃ

Zombie

SlackのBOT作るのに、適当なネタがないかなぁと思っていたら、
なんか喋ったら末尾に「なっし〜」つけて返信すればOK＞＜と言われ、
それならできそうなのでチャレンジしてみた。

環境

書いたこと

適当なコントローラに↓書いた。

        Function SlackOut(ByVal val As dtoSlackOutgoingWebHook)
            If val.user_name = "slackbot" OrElse _
               val.user_name = "NassyBot" Then
                Return Nothing
            Else
                Return Json(New With {.text = val.text & "なっし〜"})
            End If
        End Function

これだけ、後はAppHarborにデプロイして、
slackのOutgoingWebHookの設定すればOK

簡単ですね＾＾

一回返信した自分の投稿にさらに返信してしまい。
無限ループしたのはご愛嬌＞＜

2015-02-20

slackに.netのWebClientからつぶやく

Zombie

Ingressで、お世話になっているコミュニティが、slackになった。
Hubot系はLAMPな方々が頑張りそうなので、
僕は.netからつぶやいてみることにした。

最終的には(Herokuではなくて)AppHorborからつぶやきくことになると思うけど、
とりあえずはローカルのWebClientから。

Imports Newtonsoft.Json

Module Module1

Sub Main()
    Dim strUrl As String = "https://hooks.slack.com/services/XXXXX/YYYYY/ZZZZZ"
    Dim objEnc As System.Text.Encoding = New System.Text.UTF8Encoding

    'ﾒｯｾｰｼﾞ作る
    Dim strPostMsg As String = JsonConvert.SerializeObject(New With {.text = "Hellow World", _
                                                                     .icon_emoji = ":grin:", _
                                                                     .username = "botbotbot"})

    'ﾒｯｾｰｼﾞ投稿
    Using objWC As Net.WebClient = New Net.WebClient
        Dim objKV As New System.Collections.Specialized.NameValueCollection
        objKV("payload") = strPostMsg
        Dim objRes As Byte() = objWC.UploadValues(strUrl, "POST", objKV)
        Dim strRes As String = objEnc.GetString(objRes)
    End Using
End Sub
End Module

2015-02-17

DapperでORACLEのテーブル定義を抽出する

Zombie

Dapperを使ってテーブルデータのまるまるコピーバッチを作ってた。
で、コピー元のテーブル定義をコピー先にも反映してよ！！っと言われました。

でも、都合上、DB_LINKが使えない→Create select×

じゃーしょうがないDDL流すか。。。→定義はDB見てね(お約束)

素敵なサイトを発見
http://utsuutsu.blogspot.jp/2010/02/oracle9idbmsmetadatagetddltableindextri.html
DDL取るところまではマルパクリでうまくいきそう。

でもね、この部分、どうやってDapperで流すんだろう。。。

exec DBMS_METADATA.SET_TRANSFORM_PARAM(DBMS_METADATA.SESSION_TRANSFORM,'SQLTERMINATOR', TRUE  );
exec DBMS_METADATA.SET_TRANSFORM_PARAM(DBMS_METADATA.SESSION_TRANSFORM,'STORAGE'      , FALSE );

これで出来た＾＾

        Dim objSql As New StringBuilder
        With objSql
            .AppendLine("begin")
            .AppendLine("   DBMS_METADATA.SET_TRANSFORM_PARAM(DBMS_METADATA.SESSION_TRANSFORM,'STORAGE', false );")
            .AppendLine("end;")
        End With
        'ｽﾄｱﾄﾞ実行
        objDbConnection.Execute(objSql.ToString, Nothing, CommandType.Text)

        objSql.Length = 0
        With objSql
            .AppendLine("begin")
            .AppendLine("   DBMS_METADATA.SET_TRANSFORM_PARAM(DBMS_METADATA.SESSION_TRANSFORM,'SQLTERMINATOR', true );")
            .AppendLine("end;")
        End With
        'ｽﾄｱﾄﾞ実行
        objDbConnection.Execute(objSql.ToString, Nothing, CommandType.Text)

後は↑の素敵サイトのSQLをまるっと実行すればOK
めでたしめでたし

2015-02-13

Fessの検索結果にファイル名を使いたい

Zombie

(多分)クロールがファイルシステムだけの時しかうまくいかないけど
下記にて対応した。

ファイル：%FessRoot%\webapps\fess\WEB-INF\view\searchResults.jsp

修正前

<h3 class="title ellipsis">
	<a class="link" href="${doc.urlLink}" data-uri="${doc.urlLink}" data-id="${doc.docId}">${f:h(doc.contentTitle)}</a>
</h3>

このdoc.contentTitleがよくわかっていないけど、
ファイルによってうまい事タイトル的なところを抜いてきてくれている感じはあるものの、
今回の案件ではおいしくないところを取ってくる場合が多く、利用者的にはファイル名を出してほしいと。。。

修正後

<h3 class="title ellipsis">
	<!-- 15.02.13 mod START -->
	<!-- タイトルではなくファイル名を出してほしいとのこと -->
	<a class="link" href="${doc.urlLink}" data-uri="${doc.urlLink}" data-id="${doc.docId}">${f:h(fn:split(doc.urlLink,"/")[fn:length(fn:split(doc.urlLink,"/"))-1])}</a>
	<!-- 15.02.13 mod END -->
</h3>