source: ocsinventory-agent/trunk/fuentes/lib/Ocsinventory/Agent/Backend/OS/AIX/Mem.pm @ 468

Last change on this file since 468 was 468, checked in by mabarracus, 4 years ago

Copyt trusty code

File size: 786 bytes
Line 
1package Ocsinventory::Agent::Backend::OS::AIX::Mem;
2use strict;
3
4sub check {
5        return unless can_run("lsdev");
6        return unless can_run("which");
7        return unless can_run("lsattr");
8       
9}
10
11sub run {
12  my $params = shift;
13  my $common = $params->{common};
14 
15  my $memory;
16  my $swap;
17 
18  #Memory informations
19  #lsdev -Cc memory -F 'name' -t totmem
20  #lsattr -EOlmem0
21  my (@lsdev, @lsattr, @grep);
22  $memory=0;
23  @lsdev=`lsdev -Cc memory -F 'name' -t totmem`;
24  for (@lsdev){
25        @lsattr=`lsattr -EOl$_`;
26        for (@lsattr){
27          if (! /^#/){
28                /^(.+):(.+)/;
29                $memory += $2;
30          }
31        }
32  }
33 
34  #Paging Space
35  @grep=`lsps -s`;
36  for (@grep){
37    if ( ! /^Total/){
38          /^\s*(\d+)\w*\s+\d+.+/;
39          $swap=$1;
40        }
41  }
42 
43  $common->setHardware({
44      MEMORY => $memory,
45      SWAP => $swap 
46    });
47
48}
49
501
Note: See TracBrowser for help on using the repository browser.