package Ocsinventory::Agent::Backend::OS::AIX::Sounds; use strict; sub check { my $params = shift; my $common = $params->{common}; $common->can_run("lsdev") } sub run { my $params = shift; my $common = $params->{common}; for (`lsdev -Cc adapter -F 'name:type:description'`){ if (/audio/i){ if (/^\S+\s([^:]+):\s*(.+?)(?:\(([^()]+)\))?$/i){ $common->addSound({ 'DESCRIPTION' => $3, 'MANUFACTURER' => $2, 'NAME' => $1, }); } } } } 1;