Mojo::UserAgentを使ってアクティブチェック（外部監視）
表題の通り、cron等で適当にアクティブチェックのプログラムを書き捨てるならMojo::UserAgentが便利ですよというお話。
MojoliciousはPerl標準モジュール以外に依存していないので、サクッとインストールして実行環境を用意することができる（まあディストロのパッケージマネージャでインストールすればたいていのものはストレスなくインストールできますが）
サンプルコード
以下コードは監視対象HTTPサーバへアクセスした後、ステータスコードが200,301以外を返された場合にSlackへ通知する例。
use strict;
use warnings;
use utf8;
use Encode;
use Mojo::UserAgent;
### Slackで通知する場合のapi url
my $slack = 'https://your.slack.channel.example.com/services/A/B/C';
### 監視対象の設定
my $external = [
{name => 'my site 1', url => 'https://your.site1.example.com/'},
{name => 'my site 2', url => 'https://your.site2.example.com/'},
];
### 実行
my $ext_ua = Mojo::UserAgent->new;
for(0 .. $#$external){
my $instance = $external->[$_];
my $con_error = '';
my $code = 1000;
eval{
$code = $ext_ua->get($instance->{url})->result->code;
};
if($@){
$con_error = $@;
}
if($code != 200 and $code != 301){
my $message = $instance->{name} . ' : ' . $code . ' : ' . "$con_error\n";
my $tmp_res = $ext_ua->post(
$slack
=>
{ 'Content-type' => 'application/json' }
=> json => { text => $message }
)->result;
}
}
障害の発生と継続
例えばこのコードを10分間隔で実行した場合、監視対象の障害が継続していれば10分間隔でSlack通知が来てしまう。
「新たに発生した時だけ通知」という動作にしたい場合は、例えば、 SQLiteをDBにして障害の発生したURLと日時（エポックタイム）を記録するようにして、最後に検知してからの経過秒数 + α > 監視間隔 を満たした場合だけSlack通知するように書けば良い。
SQLiteの簡単なCRUD操作を提供してくれるMojo::SQLiteというラッパーモジュールがあるので使うとよい。
Mojo::SQLite : リンク
が、こちらはMojoliciousと違って依存モジュール満載なので、それが嫌であればストイックにファイル操作でurlとエポック時間を保存するだけの適当なcsvやjsonをストレージにすればよい（と思います）
next: ブログツール nikki.pl を作った
updated at : 2020-04-02 11:01:38
author : Toshiaki Yokoda