Perl - Plack::Middleware::StatusHtml を書いた

web サーバの死活監視として /status.html へアクセスしてみるということをよくやると思う。

ということで、これだけをやる Middleware を書いた。

外部ファイルに http status code を書いておいてそれを返すにはこんな感じ。

use Plack::Builder;

builder {
    enable 'StatusHtml', status => sub {
        open my $fh, "<", "status.txt" or return 503;
        chomp( my $status = <$fh> );
        $status;
    };
    $app;
};