source: ocsinventory-agent/trunk/fuentes/lib/Ocsinventory/Agent/Modules/Snmp/8072.pm @ 468

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

Copyt trusty code

File size: 1.5 KB
Line 
1###
2# SNMP: OID:8072 SYSTEM:Linux
3###
4
5package Ocsinventory::Agent::Modules::Snmp::8072;
6
7use strict;
8no strict 'refs';
9use warnings;
10
11sub snmp_run() {
12  my ($session,$snmp) = @_;
13
14  my $common = $snmp->{common};
15  my $logger=$snmp->{logger};
16  my $snmp_nom="1.3.6.1.2.1.1.5.0";
17  my $list_mib=["If_Mib", "Host_Resources_Mib"];
18
19  $logger->debug("Running Linux (8072) MIB module");
20  $common->setSnmpCommons( {TYPE => "Linux"} );
21  $common->setSnmpComputer({SYSTEM => 'Linux'});
22
23  foreach my $mib ( @{$list_mib} ) {
24     $snmp->snmp_oid_run($mib);
25  }
26
27  my $snmp_oids="1.3.6.1.4.1.8072.1.2.1.1.4";
28  my $list_oid_done={8072 => 1};
29 
30  my $result;
31  my $results_oids=$session->get_next_request(-varbindlist => [$snmp_oids]) ;
32  while ( defined ($results_oids ) ) {
33     foreach $result ( keys %{$results_oids} ) {
34        $snmp_oids=$result;
35        if ( defined ( $results_oids->{$result} ) ) {
36           if ( $results_oids->{$result} =~ /endOfMibView/ ) {
37              print "fin\n";
38              $snmp_oids=undef;
39           } 
40           elsif ( $result =~ /^1\.3\.6\.1\.4\.1\.8072\.1\.2\.1\.1\.4\S+1\.3\.6\.1\.4\.1\.(\d+)\./ )
41           {
42              my $find_oid=$1;
43              if ( ! defined $list_oid_done->{$find_oid} )
44              {
45                 $list_oid_done->{$find_oid}=1;
46                 $snmp->snmp_oid_run($find_oid);
47              }
48           }
49        }
50     }
51     $results_oids=$session->get_next_request(-varbindlist => [$snmp_oids]) ;
52  }
53}
54
551;
Note: See TracBrowser for help on using the repository browser.