File: Controller.pm

package info (click to toggle)
ocsinventory-agent 2%3A2.0.5-1.2
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 4,120 kB
  • ctags: 899
  • sloc: perl: 20,687; sh: 576; objc: 468; ansic: 333; makefile: 55
file content (33 lines) | stat: -rw-r--r-- 676 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
package Ocsinventory::Agent::Backend::OS::AIX::Controller;
use strict;

sub check {
	return unless can_run('lsdev');
	my @lsdev = `lsdev -Cc adapter -F 'name:type:description'`;	
	return 1 if @lsdev;
	0
}

sub run {
	my $params = shift;
	my $common = $params->{common};
	
	my $name;
	my $type;
	my $manufacturer;
	
	for(`lsdev -Cc adapter -F 'name:type:description'`){
		chomp($_);
		/^(.+):(.+):(.+)/;
		my $name = $1;
		my $type = $2;
		my $manufacturer = $3;
		$common->addController({
                        'NAME'          => $name,
                        'MANUFACTURER'  => $manufacturer,
                        'TYPE'          => $type,
                });
	}
}

1;