Beta Shell v2.0

File Manager

~ /usr/share/fusioninventory/lib/FusionInventory/Agent/Task/Inventory/Generic/Dmidecode

Name	Size	Perms	Modified	Actions
[ .. / .. ]
Battery.pm	2.72 KB	-rw-r--r--	2020-08-04 07:36:42	Edit Del
Bios.pm	2.36 KB	-rw-r--r--	2020-08-04 07:36:42	Edit Del
Memory.pm	5.19 KB	-rw-r--r--	2020-11-13 05:54:08	Edit Del
Ports.pm	1.14 KB	-rw-r--r--	2020-08-04 07:36:42	Edit Del
Psu.pm	2.43 KB	-rw-r--r--	2020-11-13 05:54:08	Edit Del
Slots.pm	1.24 KB	-rw-r--r--	2020-08-04 07:36:42	Edit Del

Editing: Slots.pm (1.24 KB)

package FusionInventory::Agent::Task::Inventory::Generic::Dmidecode::Slots;

use strict;
use warnings;

use parent 'FusionInventory::Agent::Task::Inventory::Module';

use FusionInventory::Agent::Tools;
use FusionInventory::Agent::Tools::Generic;

my %status = (
    'Unknown'   => undef,
    'In Use'    => 'used',
    'Available' => 'free'
);

sub isEnabled {
    my (%params) = @_;
    return 0 if $params{no_category}->{slot};
    return 1;
}

sub doInventory {
    my (%params) = @_;

    my $inventory = $params{inventory};
    my $logger    = $params{logger};

    my $slots = _getSlots(logger => $logger);

    return unless $slots;

    foreach my $slot (@$slots) {
        $inventory->addEntry(
            section => 'SLOTS',
            entry   => $slot
        );
    }
}

sub _getSlots {
    my $infos = getDmidecodeInfos(@_);

    return unless $infos->{9};

    my $slots;
    foreach my $info (@{$infos->{9}}) {
        my $slot = {
            DESCRIPTION => $info->{'Type'},
            DESIGNATION => $info->{'ID'},
            NAME        => $info->{'Designation'},
            STATUS      => $info->{'Current Usage'} ?
                $status{$info->{'Current Usage'}} : undef,
        };

        push @$slots, $slot;
    }

    return $slots;
}

1;