$NetBSD: patch-ae,v 1.1.1.1 2009/08/16 18:25:53 bouyer Exp $ --- /dev/null 2009-06-25 18:52:46.000000000 +0200 +++ ./lib/Ocsinventory/Agent/Backend/OS/BSD/Pcictl/Sounds.pm 2009-06-25 18:50:29.000000000 +0200 @@ -0,0 +1,22 @@ +package Ocsinventory::Agent::Backend::OS::BSD::Pcictl::Sounds; +use strict; +use Ocsinventory::Agent::Backend::OS::BSD::Pcictl::Pcictl; + +sub run { + my $params = shift; + my $inventory = $params->{inventory}; + + foreach (runpcictl()) { + + if(/audio/i && /^\S+:\s(.+)\s\(([^,]+)(,.+)?\)$/i) { + + $inventory->addSounds({ + 'DESCRIPTION' => $2, + 'MANUFACTURER' => "", + 'NAME' => $1, + }); + + } + } +} +1