source: ocsinventory-agent/trunk/fuentes/lib/Ocsinventory/Agent/Backend/OS/AIX/Slots.pm @ 468

Last change on this file since 468 was 468, checked in by mabarracus, 4 years ago

Copyt trusty code

File size: 766 bytes
Line 
1package Ocsinventory::Agent::Backend::OS::AIX::Slots;
2use strict;
3sub check {can_run("lsdev")}
4
5sub run {
6  my $params = shift;
7  my $common = $params->{common};
8 
9  my $description;
10  my $designation;
11  my $name;
12  my $status; 
13  my @slot;
14  my $flag=0;
15 
16  @slot=`lsdev -Cc bus -F 'name:description'`;
17  for(@slot){   
18        /^(.+):(.+)/;   
19        $name = $1;
20        $status = 'available';
21        $designation = $2;     
22        $flag=0;
23        my @lsvpd = `lsvpd`;
24        s/^\*// for (@lsvpd);
25        for (@lsvpd){
26         if ((/^AX $name/) ) {$flag=1}
27         if ((/^YL (.+)/) && ($flag)){   
28            $description = $2;
29            }
30         if ((/^FC .+/) && $flag) {$flag=0;last}
31         }               
32    $common->addSlot({
33          DESCRIPTION =>  $description,
34          DESIGNATION =>  $designation,
35          NAME            =>  $name,
36          STATUS          =>  $status,
37        });
38  }
39}
401;
Note: See TracBrowser for help on using the repository browser.