###
# SNMP: OID: 2 SYSTEM: If_Mib
###
package Ocsinventory::Agent::Modules::Snmp::If_Mib;

use strict;
use warnings;

sub snmp_info {
   return ( { oid_value => "1.3.6.1.2.1.2.1.0",
            oid_name => "If_Mib" } );
}

sub snmp_run {
   my ($session , $snmp )= @_;
   my $logger=$snmp->{logger};
   my $common=$snmp->{common};
   
   $logger->debug("Running If MIB module");   

   # OID a recuperer
   my $snmp_ifdescr="1.3.6.1.2.1.2.2.1.2";
   my $snmp_iftype="1.3.6.1.2.1.2.2.1.3.";
   my $snmp_ifspeed="1.3.6.1.2.1.2.2.1.5.";
   my $snmp_physAddr="1.3.6.1.2.1.2.2.1.6.";
   my $snmp_ifadminstatus="1.3.6.1.2.1.2.2.1.7.";

   my $SPEED=undef; 
   my $MACADDR=undef;
   my $SLOT=undef; 
   my $STATUS=undef; 
   my $TYPE=undef;

   my $ref;
   my $result_snmp;

   # We look for interfaces
   $result_snmp=$session->get_entries(-columns => [$snmp_ifdescr]);
   foreach my $result ( keys  %{$result_snmp} ) {
      # We work on real interface and no vlan
      if ( $result_snmp->{$result} =~ /[eE]th|FC/ ) {
         if ( $result =~ /1\.3\.6\.1\.2\.1\.2\.2\.1\.2\.(\S+)/ ) {
            $ref=$1;
            $SLOT=$result_snmp->{$result};

            $TYPE=$session->get_request(-varbindlist => [$snmp_iftype.$ref]);
            if ( defined( $TYPE->{$snmp_iftype.$ref} ) ) {
               $TYPE= $TYPE->{$snmp_iftype.$ref};
               if ( $TYPE == 6 ) {
                  $TYPE="ethernetCsmacd";
               } elsif ( $TYPE ==  56 ) {
                  $TYPE="fibreChannel";
               }
            }

            $SPEED=$session->get_request(-varbindlist => [$snmp_ifspeed.$ref]);
            if ( defined( $SPEED->{$snmp_ifspeed.$ref}) ) {
               $SPEED=$SPEED->{$snmp_ifspeed.$ref};
	       if ( $SPEED / 1000000000000 >= 1 ) {
                  $SPEED=$SPEED / 1000000000000;
                  $SPEED=$SPEED." T";
               } elsif ( $SPEED / 1000000000 >= 1 ) {
                  $SPEED=$SPEED / 1000000000;
                  $SPEED=$SPEED." G";
               } elsif ( $SPEED / 1000000 >= 1 ) {
                  $SPEED=$SPEED / 1000000;
                  $SPEED=$SPEED." M";
               }

            }

            $MACADDR=$session->get_request(-varbindlist => [$snmp_physAddr.$ref]);
            if ( defined( $MACADDR->{$snmp_physAddr.$ref}) ) {
               # For MACADDR, we need a translation beetween Hexa and string
               $MACADDR=$MACADDR->{$snmp_physAddr.$ref};
               #$MACADDR= sprintf "%02x:%02x:%02x:%02x:%02x:%02x" ,
               #         map hex, split /\:/, $MACADDR->{$snmp_physAddr.$ref};
            }

            $STATUS=$session->get_request(-varbindlist => [ $snmp_ifadminstatus.$ref ]);
            if ( $STATUS->{$snmp_ifadminstatus.$ref} == 1 ) {
               $STATUS="Up";
            } else {
               $STATUS="Down";
            }

           $common->addSnmpNetwork( {
                TYPE => $TYPE,
                SLOT => $SLOT,
                SPEED => $SPEED,
                MACADDR => $MACADDR,
                STATUS => $STATUS,
                });
           $MACADDR=undef;
           $SLOT=undef;
           $STATUS=undef;
           $TYPE=undef;
           $SPEED=undef;
        }
      }
   } # End foreach result
}

1;