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
|
package Ocsinventory::Agent::Backend::OS::AIX::Memory;
use strict;
sub check { 1 } # TODO create a better check here
sub run {
my $params = shift;
my $common = $params->{common};
my $capacity;
my $description;
my $numslots;
my $speed;
my $type;
my $n;
my $serial;
my $mversion;
my $caption;
my $flag=0;
#lsvpd
my @lsvpd = `lsvpd`;
# Remove * (star) at the beginning of lines
s/^\*// for (@lsvpd);
$numslots = -1;
for(@lsvpd){
if(/^DS Memory DIMM/){
$description = $_;
$flag=1; (defined($n))?($n++):($n=0);
$description =~ s/DS //;
$description =~ s/\n//;
}
if((/^SZ (.+)/) && ($flag)) {$capacity = $1;}
if((/^PN (.+)/) && ($flag)) {$type = $1;}
# localisation slot dans type
if((/^YL\s(.+)/) && ($flag)) {$caption = "Slot ".$1;}
if((/^SN (.+)/) && ($flag)) {$serial = $1;}
if((/^VK (.+)/) && ($flag)) {$mversion = $1};
#print $numslots."\n";
# On rencontre un champ FC alors c'est la fin pour ce device
if((/^FC .+/) && ($flag)) {
$flag=0;
$numslots = $numslots +1;
$common->addMemory({
CAPACITY => $capacity,
DESCRIPTION => $description,
CAPTION => $caption,
NUMSLOTS => $numslots,
VERSION => $mversion,
TYPE => $type,
SERIALNUMBER=> $serial,
})
};
}
$numslots = $numslots +1;
# End of Loop
# The last *FC ???????? missing
$common->addMemory({
CAPACITY => $capacity,
DESCRIPTION => $description,
CAPTION => $caption,
NUMSLOTS => $numslots,
VERSION => $mversion,
TYPE => $type,
SERIALNUMBER=> $serial,
});
}
1;
|
