/usr/local/CPAN/Ocsinventory-Agent/Ocsinventory/Agent/Backend/OS/Generic/Lspci/Videos.pm

• package Ocsinventory::Agent::Backend::OS::Generic::Lspci::Videos
  • run
• EOF

package Ocsinventory::Agent::Backend::OS::Generic::Lspci::Videos;
use strict;

sub run {
  my $params = shift;
  my $inventory = $params->{inventory};

  foreach(`lspci`){

    if(/graphics|vga|video/i && /^\S+\s([^:]+):\s*(.+?)(?:\(([^()]+)\))?$/i){

      $inventory->addVideo({
	  'CHIPSET'  => $1,
	  'NAME'     => $2,
	});

    }
  }
}
1