byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

loadcheck: perltidy

Browse Source
This commit is contained in:
Matt Simerson 2014-03-21 09:33:16 -07:00
parent 2e356a7cab
commit 767a797dbd
1 changed files with 56 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
plugins/loadcheck
View File

@ -62,13 +62,13 @@ sub register {
%{$self->{_args}} = @args;
$self->{_args}->{max_load} = 7
if (! defined $self->{_args}->{max_load});
if (!defined $self->{_args}->{max_load});
$self->{_args}->{uptime} = '/usr/bin/uptime'
if (! defined $self->{_args}->{uptime});
if (!defined $self->{_args}->{uptime});
$self->{_args}->{cache_time} = 10
if (! defined $self->{_args}->{cache_time});
if (!defined $self->{_args}->{cache_time});
$self->{_load} = -1;
$self->{_time} = 0;
@ -80,9 +80,10 @@ sub loadcheck {
my ($self, $transaction) = @_;
if (time() > ($self->{_time} + $self->{_args}->{cache_time})) {
# cached value expired
if ( -r '/kern/loadavg' ) { # *BSD
if (-r '/kern/loadavg') { # *BSD
# contains fix-point scaling value
open(LD, "</kern/loadavg");
my $res = <LD>;
@ -91,7 +92,8 @@ sub loadcheck {
$self->{_load} = ($val[0] / $val[3]);
$self->{_time} = time();
$self->log(LOGDEBUG, "/kern/loadavg reported: $self->{_load}");
} elsif ( -r '/proc/loadavg' ) { # *inux
}
elsif (-r '/proc/loadavg') { # *inux
# contains decimal value
# contains fix-point scaling value
open(LD, "</proc/loadavg");
@ -100,7 +102,8 @@ sub loadcheck {
$self->{_load} = (split(/ /, $res))[0];
$self->{_time} = time();
$self->log(LOGDEBUG, "/proc/loadavg reported: $self->{_load}");
} else {
}
else {
# the various formats returned:
#10:33AM up 2:06, 1 user, load averages: 6.55, 3.76, 2.48
# 12:29am 2 users, load average: 0.05, 0.05, 0.06
@ -110,7 +113,8 @@ sub loadcheck {
if ($res =~ /aver\S+: (\d+\.\d+)/) {
$self->{_load} = $1;
$self->{_time} = time();
$self->log(LOGDEBUG, "$self->{_args}->{uptime} reported: $self->{_load}");
$self->log(LOGDEBUG,
"$self->{_args}->{uptime} reported: $self->{_load}");
}
}
}