1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
# --
# Copyright (C) 2001-2021 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;
|
