Beta Shell v2.0

File Manager

~ /usr/share/perl5/vendor_perl/Ocsinventory/Agent/Backend/OS/Linux/Archs/PowerPC

Name	Size	Perms	Modified	Actions
[ .. / .. ]
CPU.pm	1.29 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del
Various.pm	1.62 KB	-rw-r--r--	2024-10-28 14:52:47	Edit Del

Editing: CPU.pm (1.29 KB)

package Ocsinventory::Agent::Backend::OS::Linux::Archs::PowerPC::CPU;

use strict;

#processor       : 0
#cpu             : POWER4+ (gq)
#clock           : 1452.000000MHz
#revision        : 2.1
#
#processor       : 1
#cpu             : POWER4+ (gq)
#clock           : 1452.000000MHz
#revision        : 2.1
#
#timebase        : 181495202
#machine         : CHRP IBM,7029-6C3
#
#

sub check { 
    my $params = shift;
    my $common = $params->{common};
    $common->can_read ("/proc/cpuinfo") 
}

sub run {
    my $params = shift;
    my $common = $params->{common};

    my @cpus;
    my $current;
    my $isIBM;
    open CPUINFO, "</proc/cpuinfo" or warn;
    foreach(<CPUINFO>) {
        $isIBM = 1 if /^machine\s*:.*IBM/;
        $current->{TYPE} = $1 if /cpu\s+:\s+(\S.*)/;
        $current->{SPEED} = $1 if /clock\s+:\s+(\S.*)/;
        $current->{SPEED} =~ s/\.[0-9]+MHz//;

        if (/^\s*$/) {
            if ($current->{TYPE}) {
                push @cpus, $current;
            }
            $current = {};
        }
    }

    if (/^\s*$/) {
        if ($current->{TYPE}) {
            push @cpus, $current;
        }
        $current = {};
    }

    foreach my $cpu (@cpus) {
        $cpu->{MANUFACTURER} = 'IBM' if $isIBM;
        $cpu->{CPUARCH} = 'PowerPC';
        $common->addCPU($cpu);
    }
}

1;