75 lines
2.0 KiB
Perl
75 lines
2.0 KiB
Perl
# --
|
|
# Copyright (C) 2001-2019 OTRS AG, https://otrs.com/
|
|
# --
|
|
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
|
|
# the enclosed file COPYING for license information (GPL). If you
|
|
# did not receive this file, see https://www.gnu.org/licenses/gpl-3.0.txt.
|
|
# --
|
|
|
|
package Kernel::System::SupportDataCollector::Plugin::OS::Load;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use parent qw(Kernel::System::SupportDataCollector::PluginBase);
|
|
|
|
use Kernel::Language qw(Translatable);
|
|
|
|
our @ObjectDependencies = ();
|
|
|
|
sub GetDisplayPath {
|
|
return Translatable('Operating System');
|
|
}
|
|
|
|
sub Run {
|
|
my $Self = shift;
|
|
|
|
# Check if used OS is a linux system
|
|
if ( $^O !~ /(linux|unix|netbsd|freebsd|darwin)/i ) {
|
|
return $Self->GetResults();
|
|
}
|
|
|
|
my @Loads;
|
|
|
|
# If used OS is a linux system
|
|
if ( $^O =~ /(linux|unix|netbsd|freebsd|darwin)/i ) {
|
|
|
|
# linux systems
|
|
if ( -e "/proc/loadavg" ) {
|
|
my $LoadFile;
|
|
open( $LoadFile, '<', "/proc/loadavg" ); ## no critic
|
|
while (<$LoadFile>) {
|
|
@Loads = split( " ", $_ );
|
|
}
|
|
close($LoadFile);
|
|
}
|
|
|
|
# mac os
|
|
elsif ( $^O =~ /darwin/i ) {
|
|
if ( open( my $In, "-|", "sysctl vm.loadavg" ) ) { ## no critic
|
|
while (<$In>) {
|
|
if ( my ($Loads) = $_ =~ /vm\.loadavg: \s* \{ \s* (.*) \s* \}/smx ) {
|
|
@Loads = split ' ', $Loads;
|
|
}
|
|
}
|
|
close $In;
|
|
}
|
|
}
|
|
|
|
if (@Loads) {
|
|
$Self->AddResultInformation(
|
|
Label => Translatable('System Load'),
|
|
Value => $Loads[2],
|
|
Message =>
|
|
Translatable(
|
|
'The system load should be at maximum the number of CPUs the system has (e.g. a load of 8 or less on a system with 8 CPUs is OK).'
|
|
),
|
|
);
|
|
}
|
|
}
|
|
|
|
return $Self->GetResults();
|
|
}
|
|
|
|
1;
|