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

Last change on this file since 468 was 468, checked in by mabarracus, 4 years ago

Copyt trusty code

File size: 417 bytes
Line 
1package Ocsinventory::Agent::Backend::OS::AIX::Sounds;
2use strict;
3
4sub check {can_run("lsdev")}
5
6sub run {
7  my $params = shift;
8  my $common = $params->{common};
9 
10        for(`lsdev -Cc adapter -F 'name:type:description'`){
11                if(/audio/i){
12                        if(/^\S+\s([^:]+):\s*(.+?)(?:\(([^()]+)\))?$/i){
13                         $common->addSound({
14                                'DESCRIPTION'  => $3,
15                                'MANUFACTURER' => $2,
16                                'NAME'     => $1,
17                        });
18                        }
19                }
20        } 
21}
221
Note: See TracBrowser for help on using the repository browser.