source: ocsinventory-agent/trunk/fuentes/lib/Ocsinventory/Agent/Backend/OS/Linux/Archs/PowerPC/CPU.pm @ 468

Last change on this file since 468 was 468, checked in by mabarracus, 4 years ago

Copyt trusty code

File size: 1.1 KB
Line 
1package Ocsinventory::Agent::Backend::OS::Linux::Archs::PowerPC::CPU;
2
3use strict;
4
5#processor       : 0
6#cpu             : POWER4+ (gq)
7#clock           : 1452.000000MHz
8#revision        : 2.1
9#
10#processor       : 1
11#cpu             : POWER4+ (gq)
12#clock           : 1452.000000MHz
13#revision        : 2.1
14#
15#timebase        : 181495202
16#machine         : CHRP IBM,7029-6C3
17#
18#
19
20sub check { can_read ("/proc/cpuinfo") };
21
22
23sub run {
24  my $params = shift;
25  my $common = $params->{common};
26
27  my @cpus;
28  my $current;
29  my $isIBM;
30  open CPUINFO, "</proc/cpuinfo" or warn;
31  foreach(<CPUINFO>) {
32
33    $isIBM = 1 if /^machine\s*:.*IBM/;
34    $current->{TYPE} = $1 if /cpu\s+:\s+(\S.*)/;
35    $current->{SPEED} = $1 if /clock\s+:\s+(\S.*)/;
36    $current->{SPEED} =~ s/\.0+MHz/MHz/;
37
38    if (/^\s*$/) {
39      if ($current->{TYPE}) {
40        push @cpus, $current;
41      }
42      $current = {};
43    }
44  }
45  if (/^\s*$/) {
46      if ($current->{TYPE}) {
47          push @cpus, $current;
48      }
49      $current = {};
50  }
51
52  foreach my $cpu (@cpus) {
53    $cpu->{MANUFACTURER} = 'IBM' if $isIBM;
54    $common->addCPU($cpu);
55  }
56}
57
581
Note: See TracBrowser for help on using the repository browser.