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