あくまで非力なH/Wでしかも1台しかない状況で一人しかいないんだけど色々都合があって24時間は貼り付いていられない状況で何とかしないといけないけどどうしたものかという人向けで。 負荷が高い状態でジャンジャンリクエスト受け付けてCPUくってswapくって瀕死になるっていうパターンでよくサーバーが落ちてる訳なんですが(落ちるというか応答不能)ロードアベレージが高い時には503(Service Unavailable)を返すようにしようかなと思案。 CPANで探したら Sys::CpuLoad というのが有ったんですがファイルかパイプ読む込むという作りになってたのでちょっといやだなぁと。 結局ダンコーガイの BSD::getloadavg でいってみます。 という訳でCGI作ってみました。(SWAPも考慮対象にしたいんだけどちょっと後回し) load.cgi #!/usr/local/bin/p