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
|
package FusionInventory::Agent::Task::Inventory::Linux::Memory;
use strict;
use warnings;
use FusionInventory::Agent::Tools;
sub isEnabled {
return -r '/proc/meminfo';
}
sub doInventory {
my (%params) = @_;
my $inventory = $params{inventory};
my $logger = $params{logger};
my $handle = getFileHandle(file => '/proc/meminfo', logger => $logger);
return unless $handle;
my $memorySize;
my $swapSize;
while (my $line = <$handle>) {
$memorySize = $1 if $line =~ /^MemTotal:\s*(\S+)/;
$swapSize = $1 if $line =~ /^SwapTotal:\s*(\S+)/;
}
close $handle;
$inventory->setHardware({
MEMORY => int($memorySize/ 1024),
SWAP => int($swapSize / 1024),
});
}
1;
|
