スキップしてメイン コンテンツに移動

見に行く時代から見せてくる時代に、 メールからChatworkへ システムからの自己診断申告

【件名】
Login Report from WWW

【本文】
Login Report from WWW about yesterday - Fri 13 Aug 2021.

Aug 13 13:48:43 w********* from *.*.*.*
Aug 13 14:22:05 w2******** from *.*.*.*
Aug 13 14:22:38 w2******** from *.*.*.*
Aug 13 14:22:51 w2******** from *.*.*.*
Aug 13 14:23:02 w2******** from *.*.*.*

これは毎日病院ホームページサーバがPerlプログラムでログインログを探って何方がいつログインしたのを知らせてくれたメール内容です。

メールは仕事のメールもあれば、どうでもいいメールマガジンや宣伝や通知メールが沢山送ってくるし、スパムメールも少なくないですよね。

ChatworkのAPI(他のSNSも可能でしょうね)を使えば、送ってほしいルームに知らせてくれます。大事ではないシステムでも未読を0にすれば、うるさくもないし、かなりいい感じですよ。無償のアカウントは最大7グループに制限されていますが、各システムと二人きりのコンタクトルームをいくらでも作れますよ。(Chatworkさんに知られたら怒られるかもしれませんが。。。)

下記のようなコマンドをLinuxのCronやWindowsのタスクスケジューラーに登録すれば、
一定の時間おきに知らせてくれます。curlはWindows 10 や windows 2019 server 等にも標準搭載のコマンドなので、インストールすらいらないですよ。

curl -X POST -H "X-ChatWorkToken: 自分のAPIトークン" -d "body=Hello+Chatwork%21&self_unread=0" "https://api.chatwork.com/v2/rooms/{room_id}/messages"

いま試しに一時間おきに下記のようなSSHトンネルが生きている情報を送ってもらっています。(本当は一行にしたほうがスッキリですが。。。今後なおしま~す!)

2021年 8月 14日 土曜日 11:59:51 JST 8888 OK
2021年 8月 14日 土曜日 11:59:51 JST 25 OK
2021年 8月 14日 土曜日 11:59:51 JST 3389 OK

一台ずつのサーバを設定するのも効率が悪いので、
Chatwork送信担当サーバのRAMディスク(HDDやSSDの消耗をしないように、メモリをつかいま~す)
送信してほしいテキストファイルをアップロード(SCP、SFTP、rsync等々)すれば、一気に纏めて送ってくれます。

で、一行野郎っていわれるシェルプログラムは下記の通りです。gawkを使って半角スペースは+に、
改行を%0D%0Aに変換していきます。

/usr/bin/curl -X POST -H "X-ChatWorkToken: 自分のAPIトークン" -d "body=`/usr/bin/gawk 'BEGIN{c=""}{gsub(" ","+",$0);c=c $0 "%0D%0A"} END{print c}' /var/tmp/ram/l*.txt`&self_unread=0" "https://api.chatwork.com/v2/rooms/{room_id}/messages"



コメント

このブログの人気の投稿

余裕ですかね。

  いまの自分はやることが多いが、意外と慌てず一歩一歩現場と歩んでいき、地道にデータ入力から可視化までの利便性、完全性と正確性を追求する余裕が出ております。SpotfireというBIツールにハマり、人に使い方を教えながらもまたその恩恵を受けているといういい循環も大きいですね。大体自分のようなポストにいる人たちはあまりプログラムを書く余裕もないだが、自分は幸せのほうと思います。

自己流思い付き

 長年契約してきたさくらインターネットのVPSに稼働しているWordpressが何らかのものに削除されました。幸い残したいものはこのブログに移したので、あまり困ったことはありませんでした。もうVPSを解約しようと思いますが、今年の11月までの契約なので、正直って迷っております。  職場のホームページサーバがMacmini上のピュアDebianなので、実験台としてVPSを契約したのですが、もう実験しないし、解約してもよいだと思います。   このブログもこれをきっかけにタイトルを変えました。

Excel Power Query 英数字の全角から半角への変換

最近仕事上でExcelのPower Queryを始めました。しかし、英数字の全角から半角への変換関数がないため、下記のサイトを参考して、 作っちゃいました。  https://qiita.com/baku2san/items/8041d0259fe0db680e7e https://www.yoheim.net/blog.php?q=20191101 (original as text) as text =&gt; let    originalText = Text.Combine({original, ""}),    replaceResult =  Web.Page("<script>var originalText="&"'"&originalText&"'"&";var result=originalText.replace(/[A-Za-z0-9]/g, function(s) {return String.fromCharCode(s.charCodeAt(0) - 0xFEE0);});document.write(result);</script>")       [Data]{0}[Children]{0}[Children],    result = if (List.Count(replaceResult) &lt;= 1) then    {        "" as text // 変換して何も残らない場合    } else if (replaceResult{1}[Text]{0} = null) then    {       originalText   as text// 何も見つからない場合    }  else {       replaceResult{1}[Text]{0} as text    } in     result{0}