Heray-Was-Here
Server : Apache
System : Linux vps103298.mylogin.co 4.18.0-513.11.1.el8_9.x86_64 #1 SMP Wed Jan 17 02:00:40 EST 2024 x86_64
User : calvet ( 273824)
PHP Version : 7.4.33
Disable Function : NONE
Directory :  /usr/share/perl5/vendor_perl/Ocsinventory/Agent/Backend/OS/MacOS/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //usr/share/perl5/vendor_perl/Ocsinventory/Agent/Backend/OS/MacOS/Controllers.pm
package Ocsinventory::Agent::Backend::OS::MacOS::Controllers;


sub check {
    my $params = shift;
    my $common = $params->{common};
    return(undef) unless -r '/usr/sbin/system_profiler'; # check perms
    return (undef) unless $common->can_load("Mac::SysProfile");
    return 1;
}

sub run {
    my $params = shift;
    my $common = $params->{common};
    my ($caption, $description, $name, $type);
    
    my $datatypes = {
        #usb => 'SPUSBDataType',  TODO: fix problems with SPUSBDataType in Mac::Sysprofile
        firewire => 'SPFireWireDataType',
        thunderbolt => 'SPThunderboltDataType',
        ethernet => 'SPEthernetDataType',
    };

    for my $datatype (keys %$datatypes) {
        # create the profile object and return undef unless we get something back
        my $pro = Mac::SysProfile->new();
        my $data = $pro->gettype($datatypes->{$datatype});
        return(undef) unless(ref($data) eq 'ARRAY');
        
        foreach my $port (@$data) {
            if ($datatype =~ /usb/) {
                $name = $port->{'usb_bus_number'};
                $type = 'USB Bus';
                $description = $port->{'controller_location'} . ", PCI Device ID: " . $port->{'pci_device'};
            } elsif ($datatype =~ /firewire/) {
                $name = 'FireWire';
                $type = 'FireWire Bus';
                $description = 'Max Speed: ' . $port->{'max_device_speed'};
            } elsif ($datatype =~ /thunderbolt/) {
                $name = $port->{'device_name_key'};
                next unless $name;
                $type = 'Thunderbolt';
                $description = 'UID: ' . $port->{'switch_uid_key'};
            } elsif ($datatype =~ /ethernet/) {
                    $name = $port->{'_name'};
                    if ($name ne '') {
                        $name = $port->{'spethernet_device-id'} if ($name eq 'ethernet');
                        $type = 'Ethernet Controller';
                        $description = 'BSD: ' . $port->{'spethernet_BSD_Name'};
                    }
            }
            
            $common->addController({
                CAPTION => $caption,
                DESCRIPTION => $description,
                NAME => $name,
                TYPE => $type,
            });
            $caption = $description = $name = $type = undef;
        }
    }
}

1;

Hry