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

• package Ocsinventory::Agent::Backend::OS::Generic::Lspci::Controllers
  • check
  • run
• EOF

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

sub check {can_run("lspci")}

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

	my $driver;
	my $name;
	my $manufacturer;
  my $pciid;
	my $pcislot;
	my $type;


  foreach(`lspci -vvv -nn`){
		if (/^(\S+)\s+(\w+.*?):\s(.*)/) {
			$pcislot = $1;
			$name = $2;
			$manufacturer = $3;

			if ($manufacturer =~ s/ \((rev \S+)\)//) {
				$type = $1;
			}
			$manufacturer =~ s/\ *$//; # clean up the end of the string
			$manufacturer =~ s/\s+\(prog-if \d+ \[.*?\]\)$//; # clean up the end of the string

			if ($manufacturer =~ s/ \[([A-z\d]+:[A-z\d]+)\]$//) {
        $pciid = $1;
      }
		}
		if ($pcislot && /^\s+Kernel driver in use: (\w+)/) {
			$driver = $1;
		}

		

		if ($pcislot && /^$/) {
			$inventory->addController({
					'DRIVER'        => $driver,
					'NAME'          => $name,
					'MANUFACTURER'  => $manufacturer,
					'PCIID'       => $pciid,
					'PCISLOT'       => $pcislot,
					'TYPE'          => $type,
				});
			$driver = $name = $pciid = $pcislot = $manufacturer = $type = undef;
		}
  }

}

1