source: ocsinventory-agent/trunk/fuentes/lib/Ocsinventory/Agent/Backend/OS/MacOS/Sound.pm @ 468

package Ocsinventory::Agent::Backend::OS::MacOS::Sound;
use strict;


sub check {
    return(undef) unless -r '/usr/sbin/system_profiler'; # check perms
    return 1;
}

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

    # create profiler obj, bail if datatype fails
    my $data = $common->get_sysprofile_devices_names('SPAudioDataType');

    return(undef) unless(ref($data) eq 'ARRAY');

    # add sound cards
    foreach my $sound (@$data){
        $common->addSound({
            'NAME'          => $sound,
            'MANUFACTURER'  => $sound,
            'DESCRIPTION'   => $sound,
        });
    }
}
1;