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

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

Copyt trusty code

File size: 748 bytes
Line 
1package Ocsinventory::Agent::Backend::OS::HPUX::Slots;
2use strict;
3
4sub check { $^O =~ /hpux/ }
5
6sub run { 
7  my $params = shift;
8  my $common = $params->{common};
9
10  my $name;
11  my $interface;
12  my $info;
13  my $type;
14  my @typeScaned=('ioa','ba');
15  my $scaned;
16
17  for (@typeScaned ) {
18    $scaned=$_;
19    for ( `ioscan -kFC $scaned| cut -d ':' -f 9,11,17,18` ) {
20       if ( /(\S+):(\S+):(\S+):(.+)/ ) {
21           $name=$2;
22           $interface=$3;
23           $info=$4;
24           $type=$1;
25           $common->addSlots({
26               DESCRIPTION =>  "$name",
27               DESIGNATION =>  "$interface $info",
28               NAME            =>  "$type",
29               STATUS          =>  "OK",
30
31           });
32        };
33     };
34  };
35}
36
371;
Note: See TracBrowser for help on using the repository browser.