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
|
package Ocsinventory::Agent::Backend::OS::Generic::Packaging::RPM;
use strict;
use warnings;
sub check {
return unless can_run("rpm");
# Some time rpm is a wrapper or an alias for another
`rpm --version 2>&1`;
return if ($? >> 8)!=0;
1;
}
sub run {
my $params = shift;
my $common = $params->{common};
my $logger = $params->{logger};
my @list;
my $buff;
foreach (`rpm -qa --queryformat "%{NAME}.%{ARCH} %{VERSION}-%{RELEASE} --%{INSTALLTIME:date}-- --%{SIZE}-- %{SUMMARY}\n--\n" 2>/dev/null`) {
if (! /^--/) {
chomp;
$buff .= $_;
} elsif ($buff =~ s/^(\S+)\s+(\S+)\s+--(.*)--\s+--(.*)--\s+(.*)//) {
$common->addSoftware({
'NAME' => $1,
'VERSION' => $2,
'INSTALLDATE' => $3,
'FILESIZE' => $4,
'COMMENTS' => $5,
'FROM' => 'rpm'
});
} else {
$logger->debug("Should never go here!");
$buff = '';
}
}
}
1;
|
