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
|
package Ocsinventory::Agent::Backend::OS::MacOS::CPU;
use strict;
sub check {
return(undef) unless -r '/usr/sbin/system_profiler';
return(undef) unless can_load("Mac::SysProfile");
return 1;
}
sub run {
my $params = shift;
my $common = $params->{common};
# create sysprofile obj. Return undef unless we get a return value
my $profile = Mac::SysProfile->new();
my $data = $profile->gettype('SPHardwareDataType');
return(undef) unless(ref($data) eq 'ARRAY');
my $h = $data->[0];
######### CPU
my $processort = $h->{'processor_name'} | $h->{'cpu_type'}; # 10.5 || 10.4
my $processorn = $h->{'number_processors'} || $h->{'number_cpus'};
my $processors = $h->{'current_processor_speed'} || $h->{'cpu_speed'};
# lamp spits out an sql error if there is something other than an int (MHZ) here....
if($processors =~ /GHz$/){
$processors =~ s/ GHz//;
# French Mac returns 2,60 Ghz instead of
# 2.60 Ghz :D
$processors =~ s/,/./;
$processors = ($processors * 1000);
}
if($processors =~ /MHz$/){
$processors =~ s/ MHz//;
}
### mem convert it to meg's if it comes back in gig's
my $mem = $h->{'physical_memory'};
if($mem =~ /GB$/){
$mem =~ s/\sGB$//;
$mem = ($mem * 1024);
}
if($mem =~ /MB$/){
$mem =~ s/\sMB$//;
}
$common->setHardware({
PROCESSORT => $processort,
PROCESSORN => $processorn,
PROCESSORS => $processors,
MEMORY => $mem,
});
}
1;
|
