#!/usr/bin/perl -w
#
#
$workingdir="/usr/local/scripts/tmp/work";
$snmpro="blah1";      
#
$rtrlist="$workingdir/RTR_LIST";
$snmpwalk="/usr/local/bin/snmpwalk -v 1 -c $snmpro";
$snmpget="/usr/local/bin/snmpget -v 1 -c $snmpro";
open (RTR, "$rtrlist") || die "Can't open $rtrlist file";
open (CSV, ">$workingdir/RESULT.csv") || die "Can't open RESULT.csv file";
   print CSV "Hostname,Interface,IP-Address,Mask,MTU,Speed,Admin,Operational";
while (<RTR>) {
   chomp($rtr="$_");
   @ifIndex=`$snmpwalk $rtr .1.3.6.1.2.1.4.20.1.2`;
   @ipAddress=`$snmpwalk $rtr .1.3.6.1.2.1.4.20.1.1`;
   @ipMask=`$snmpwalk $rtr .1.3.6.1.2.1.4.20.1.3`;
   @cardDescription=`$snmpwalk $rtr enterprises.9.3.6.11.1.3`;
   @cardSerialN=`$snmpwalk $rtr enterprises.9.3.6.11.1.4`;
   $arraynum=0;
   for $ifnumber (@ifIndex) {
      chomp(($foo, $ifnum) = split(/: /, $ifnumber));
      $ifDescription=`$snmpget $rtr ifDescr.$ifnum`;
      $ifMTU=`$snmpget $rtr ifMtu.$ifnum`;
      $ifSpeed=`$snmpget $rtr ifSpeed.$ifnum`;
      $ifAdminstatus=`$snmpget $rtr ifAdminStatus.$ifnum`;
      $ifOperstatus=`$snmpget $rtr ifOperStatus.$ifnum`;
      $sysName=`$snmpget $rtr sysName.0`;
      $sysHware=`$snmpget $rtr sysDescr.0`;
      $SerialN=`$snmpget $rtr enterprises.9.3.6.3.0`;
      chomp(($foo, $ipaddr) = split(/: /, $ipAddress[$arraynum]));
      chomp(($foo, $mask) = split(/: /, $ipMask[$arraynum]));
      chomp(($foo, $carddes) = split(/: /, $cardDescription[$arraynum]));
      chomp(($foo, $cardsn) = split(/: /, $cardSerialN[$arraynum]));
      chomp(($foo, $ifdes) = split(/: /, $ifDescription));
      chomp(($foo, $mtu) = split (/: /, $ifMTU));
      chomp(($foo, $speed) = split (/: /, $ifSpeed));
      chomp(($foo, $admin) = split (/: /, $ifAdminstatus));
      chomp(($foo, $oper) = split (/: /, $ifOperstatus));
      chomp(($foo, $sysname) = split (/: /, $sysName));
      chomp(($foo, $syshw) = split (/: /, $sysHware));
      chomp(($foo, $sn) = split (/: /, $SerialN));
      if ( $speed > 3194967295 ) { $speed = 0 };
      $admin =~ s/\(.*\)//;
      $oper  =~ s/\(.*\)//;
      if ( $oper eq "dormant" ) { $oper = "up(spoofing)"};
      $speed = $speed/1000;
      if ( $speed > 1000) {
         $speed = $speed/1000;
         $speed =~ s/$/ Mb\/s/;
      }
      else {
      $speed =~ s/$/ Kb\/s/;
      }
      print CSV "\n$sysname,$rtr,$ifdes,$ipaddr,$mask,$mtu,$speed,$admin,$oper,$sn,\"$syshw\",$carddes,$cardsn";
      $arraynum++;
   }
} 
close(RTR);
close(CSV);