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
|
package Ocsinventory::Agent::Backend::OS::Linux::Mem;
use strict;
sub check {
my $params = shift;
my $common = $params->{common};
$common->can_read ("/proc/meminfo")
}
sub run {
my $params = shift;
my $common = $params->{common};
my $unit = 1024;
my $PhysicalMemory;
my $SwapFileSize;
# Memory informations
open MEMINFO, "/proc/meminfo";
while(<MEMINFO>){
$PhysicalMemory=$1 if /^memtotal\s*:\s*(\S+)/i;
$SwapFileSize=$1 if /^swaptotal\s*:\s*(\S+)/i;
}
# TODO
$common->setHardware({
MEMORY => sprintf("%i",$PhysicalMemory/$unit),
SWAP => sprintf("%i", $SwapFileSize/$unit),
});
}
1;
|
