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
|
package FusionInventory::Agent::Task::Inventory::BSD::CPU;
use strict;
use warnings;
use FusionInventory::Agent::Tools;
use FusionInventory::Agent::Tools::Generic;
sub isEnabled {
return canRun('dmidecode');
}
sub doInventory {
my (%params) = @_;
my $inventory = $params{inventory};
my $speed;
my $hwModel = getFirstLine(command => 'sysctl -n hw.model');
if ($hwModel =~ /([\.\d]+)GHz/) {
$speed = $1 * 1000;
}
foreach my $cpu (getCpusFromDmidecode()) {
$cpu->{SPEED} = $speed;
$inventory->addEntry(
section => 'CPUS',
entry => $cpu
);
}
}
1;
|
