1package Ocsinventory::Agent::Backend::OS::AIX::Sounds; 2use strict; 3 4sub check { 5 my $params = shift; 6 my $common = $params->{common}; 7 $common->can_run("lsdev") 8} 9 10sub run { 11 my $params = shift; 12 my $common = $params->{common}; 13 14 for (`lsdev -Cc adapter -F 'name:type:description'`){ 15 if (/audio/i){ 16 if (/^\S+\s([^:]+):\s*(.+?)(?:\(([^()]+)\))?$/i){ 17 $common->addSound({ 18 'DESCRIPTION' => $3, 19 'MANUFACTURER' => $2, 20 'NAME' => $1, 21 }); 22 } 23 } 24 } 25} 261; 27