mirror of
https://github.com/Cacti/cacti.git
synced 2026-11-08 21:16:17 +09:00
Ian Berry
e5f7ae5400
git-svn-id: svn+ssh://repo.cacti.net/var/data/svnroot/cacti/trunk/cacti@1222 860744bd-22fc-0310-8c96-e9fe5004b5ca
22 lines
354 B
Perl
22 lines
354 B
Perl
#!/usr/bin/perl
|
|
|
|
#get load avg for 5;15;30 min
|
|
$avg = `uptime`;
|
|
$avg =~ s/.*://;
|
|
|
|
if ($ARGV[0] eq "5") {
|
|
$avg = `echo "$avg" | awk '\{print \$1 \}'`;
|
|
}
|
|
|
|
if ($ARGV[0] eq "15") {
|
|
$avg = `echo "$avg" | awk '\{print \$2 \}'`;
|
|
}
|
|
|
|
if ($ARGV[0] eq "30") {
|
|
$avg = `echo "$avg" | awk '\{print \$3 \}'`;
|
|
}
|
|
|
|
chomp $avg;
|
|
$avg =~ s/,//;
|
|
$avg =~ s/\n//;
|
|
print $avg; |