la_checker [SmartNote]

Sidebar

la_checker

This is an old revision of the document!

Table of Contents

Скрипт проверки уровня LA

Скрипт проверки уровня LA

#!/usr/bin/perl

use strict;

my $email = '[email protected]';

open my $PROC, "/proc/loadavg" or die $!;

while (<$PROC>) {
    /(^\d{0,3}).\d{0,}\s(.*)/;
    my $la = $1;
    if($la gt 10) {
        system("top -b -n 2 | /usr/sbin/sendmail -svasechkin_LA $email");
    }
}

close $PROC or die $!;

la_checker.1306155512.txt.gz · Last modified: 2011/05/23 12:58 by kyxap