$NetBSD: patch-ad,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/Controllers.pm 2009-06-25 18:50:23.000000000 +0200 @@ -0,0 +1,26 @@ +package Ocsinventory::Agent::Backend::OS::BSD::Pcictl::Controllers; +use strict; +use Ocsinventory::Agent::Backend::OS::BSD::Pcictl::Pcictl; + +sub run { + my $params = shift; + my $inventory = $params->{inventory}; + + foreach (runpcictl()) { + if ($_ =~ m/^\S+:\s(.+)\s\(([^,]+)(,.+)?\)$/i) { + my $name = $1; + my $manufacturer = ""; + my $type = $2; + $manufacturer =~ s/\ *$//; # clean up the end of the string + + $inventory->addController({ + 'NAME' => $name, + 'MANUFACTURER' => $manufacturer, + 'TYPE' => $type, + }); + } + } + +} + +1