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

• package Ocsinventory::Agent::Backend::OS::AIX::Videos
  • check
  • run
• EOF

package Ocsinventory::Agent::Backend::OS::AIX::Videos;
use strict;

sub check {can_run("lsdev")}

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

 for(`lsdev -Cc adapter -F 'name:type:description'`){
		if(/graphics|vga|video/i){
			if(/^\S+\s([^:]+):\s*(.+?)(?:\(([^()]+)\))?$/i){
				 $inventory->addVideo({
	  				'CHIPSET'  => $1,
	  				'NAME'     => $2,
				});
				
			}
		}
	}
}
1