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

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

Copyt trusty code

File size: 1.6 KB
Line 
1###
2# SNMP: OID:3375 SYSTEM:F5
3###
4
5package Ocsinventory::Agent::Modules::Snmp::3375;
6
7use strict;
8no strict 'refs';
9use warnings;
10
11sub snmp_info {
12   return ( { oid_value => "1.3.6.1.4.1.3375.2.1.1.1.1.1.0",
13            oid_name => "F5 Mib" } );
14}
15
16sub snmp_run()
17{
18  my ($session,$snmp) = @_;
19
20  my $common = $snmp->{common};
21  my $logger=$snmp->{logger};
22
23  $logger->debug("Running F5 (3375) MIB module");
24  $common->setSnmpCommons( {TYPE => "Load Balanceur"} );
25
26  my $list_mib=["If_Mib"];
27
28  foreach my $mib ( @{$list_mib} ) {
29     $snmp->snmp_oid_run($mib);
30  }
31
32  my $snmp_sysProductName="1.3.6.1.4.1.3375.2.1.4.1.0";
33  my $snmp_sysProductVersion="1.3.6.1.4.1.3375.2.1.4.2.0";
34  my $snmp_sysProductBuild="1.3.6.1.4.1.3375.2.1.4.3.0";
35  my $snmp_sysProductDate="1.3.6.1.4.1.3375.2.1.4.5.0";
36 
37  my $name=$session->get_request ( -varbindlist => [ $snmp_sysProductName ] );
38  if ( defined ( $name ) ) {
39     $name=$name->{$snmp_sysProductName};
40  }
41  my $version=$session->get_request ( -varbindlist => [ $snmp_sysProductVersion] );
42  if ( defined ( $version ) ) {
43     $version=$version->{$snmp_sysProductVersion};
44  }
45
46  my $comment=$session->get_request ( -varbindlist => [ $snmp_sysProductBuild] );
47  if ( defined ( $comment ) ) {
48     $comment=$comment->{$snmp_sysProductBuild};
49  }
50
51  my $date=$session->get_request ( -varbindlist => [ $snmp_sysProductDate ] );
52  if ( defined ( $date ) ) {
53     $date=$date->{$snmp_sysProductDate};
54  }
55
56  $common->addSoftware( { NAME => $name ,
57                 VERSION => $version ,
58                 INSTALLDATE => $date ,
59                 COMMENT => $comment,
60               });
61
62}
63
641;
Note: See TracBrowser for help on using the repository browser.