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
|
package Ocsinventory::Agent::Backend::OS::Generic::Dmidecode::Slots;
use strict;
sub run {
my $params = shift;
my $common = $params->{common};
my $dmidecode = `dmidecode`;
# some versions of dmidecode do not separate items with new lines
# so add a new line before each handle
$dmidecode =~ s/\nHandle/\n\nHandle/g;
my @dmidecode = split (/\n/, $dmidecode);
# add a new line at the end
push @dmidecode, "\n";
s/^\s+// for (@dmidecode);
my $flag;
my $description;
my $designation;
my $name;
my $status;
foreach (@dmidecode) {
if (/dmi type 9,/i) {
$flag=1;
} elsif ($flag && /^$/) {
$flag=0;
$common->addSlot({
DESCRIPTION => $description,
DESIGNATION => $designation,
NAME => $name,
STATUS => $status,
});
$description = $designation = $name = $status = undef;
} elsif ($flag) {
$description = $1 if /^type\s*:\s*(.+)/i;
$designation = $1 if /^id\s*:\s*(.+)/i;
$name = $1 if /^designation\s*:\s*(.+)/i;
$status = $1 if /^current usage\s*:\s*(.+)/i;
};
}
}
1;
|
