package Ocsinventory::Agent::Backend::OS::BSD::CPU;
use strict;
use warnings;

sub check {
    my $params = shift;
    my $common = $params->{common};
    $common->can_run("lscpu");
}

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

    my @cpuinfos=$common->runcmd('lscpu');
    my $cpu;
    my $nbcpus;

    foreach my $info (@cpuinfos) {
	chomp $info;
	$cpu->{CPUARCH}=$1 if ($info =~ /Architecture:\s*(.*)/i);
	$cpu->{NBCPUS}=$1 if ($info =~ /^CPU\(s\):\s*(\d+)/i);
	$cpu->{CORES}=$1 if ($info =~ /Core\(s\)\sper\ssocket:\s*(\d+)/i);
	$cpu->{NBSOCKET}=$1 if ($info =~ /Socket\(s\):\s*(.*)/i);
	$cpu->{TYPE}=$1 if ($info =~ /Model\sname:\s*(.*)/i);
	if ($info =~ /Vendor ID:\s*(Authentic|Genuine)(.+)/i){
	    $cpu->{MANUFACTURER}=$2;
	    $cpu->{MANUFACTURER}=~ s/(TMx86|TransmetaCPU)/Transmeta/;
	    $cpu->{MANUFACTURER}=~ s/(CyrixInstead)/Cyrix/;
	    $cpu->{MANUFACTURER}=~ s/(CentaurHauls)/VIA/;
	}

	$cpu->{CURRENT_SPEED}=$1 if ($info =~ /CPU\sMHz:\s*(\d+)(|\.\d+)$/i);
	$cpu->{L2CACHESIZE}=$1 if ($info =~ /L2\scache:\s*(.*)/i);
	if ($cpu->{CPUACRH} && $cpu->{CPUARCH} eq 'x86_64') {
	    $cpu->{DATA_WIDTH}='64';
	} else { 
            $cpu->{DATA_WIDTH}='32';
	}
        if ($cpu->{TYPE}) {
	    if ($cpu->{TYPE} =~ /([\d\.]+)MHz$/){
		$cpu->{SPEED}=$1;
	    } elsif ($cpu->{TYPE} =~ /([\d\.]+)GHz$/){
	        $cpu->{SPEED}=$1*1000;
            }
        }
    }

    # set CURRENT_ADDRESS_WIDTH with DATA_WIDTH value
    $cpu->{CURRENT_ADDRESS_WIDTH}=$cpu->{DATA_WIDTH};

    my $infos=$common->getDmidecodeInfos();
    foreach my $info (@{$infos->{4}}) {
        next if $info->{Status} && $info->{Status} =~ /Unpopulated|Disabled/i;
	$cpu->{SERIALNUMBER}=$info->{'Serial Number'};
	$cpu->{THREADS}=$info->{'Thread Count'};
	$cpu->{VOLTAGE}=$info->{'Voltage'};
	$cpu->{SOCKET}=$info->{'Socket Description'};
    }

    # Set LOGICAL_CPUS with THREADS value;
    $cpu->{LOGICAL_CPUS}=$cpu->{THREADS};

    if ($cpu->{NBSOCKET} and $cpu->{CORES} and $cpu->{THREADS} ){
        if ($cpu->{THREADS} >= $cpu->{CORES}) {
            $cpu->{THREADS}=$cpu->{THREADS}/$cpu->{CORES};
        } elsif ($cpu->{THREADS} >= $cpu->{NBSOCKETS}) {
            $cpu->{THREADS}=$cpu->{THREADS}/$cpu->{NBSOCKETS};
        }
    }

    for (my $i=0;$i<$cpu->{NBSOCKET};$i++) {
        $common->addCPU($cpu);
    }
    
    # Set the architecture
    $common->setHardware({ ARCH => "$cpu->{CPUARCH}" });

}
1;