开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > SNMP编程 > 查看源码
cfgmaker.cisco
资源名称：mrtg-2.13.2.zip　[点击查看]
上传用户：shbosideng
上传日期：2013-05-04
资源大小：1555k
文件大小：19k
源码类别：

SNMP编程

开发平台：

C/C++

cfgmaker.cisco：源码内容
  1. #! /pkg/gnu/bin/perl
  2. # -*- mode: Perl -*-
  3. ##################################################################
  4. # MRTG 2.7.2  -- Config file creator
  5. ##################################################################
  6. # Created by Tobias Oetiker <oetiker@ee.ethz.ch>
  7. # this produces a config file for one router, by bulling info
  8. # off the router via snmp
  9. #################################################################
  10. #
  11. # Distributed under the GNU copyleft
  13. use BER "0.57";
  14. use SNMP_Session "0.59";
  15. use SNMP_util "0.57";
  17. use Socket;
  18. use strict;
  19. use vars '$DEBUG';
  20. my $DEBUG = 0;
  22. my ($session, %ipaddr, %iphost);
  24. sub main {
  26.     snmpmapOID('ipAdEntAddr' => '1.3.6.1.2.1.4.20.1.1',
  27.        'ipAdEntIfIndex' => '1.3.6.1.2.1.4.20.1.2',
  28.        'sysObjectID' => '1.3.6.1.2.1.1.2.0',
  29.        'CiscolocIfDescr' => '1.3.6.1.4.1.9.2.2.1.1.28',
  30.        'ifAlias' => '1.3.6.1.2.1.31.1.1.1.18');
  32.   my(%ifType_d)=('1'=>'Other',
  33.  '2'=>'regular1822',
  34.  '3'=>'hdh1822',
  35.  '4'=>'ddnX25',
  36.  '5'=>'rfc877x25',
  37.  '6'=>'ethernetCsmacd',
  38.  '7'=>'iso88023Csmacd',
  39.  '8'=>'iso88024TokenBus',
  40.  '9'=>'iso88025TokenRing',
  41.  '10'=>'iso88026Man',
  42.  '11'=>'starLan',
  43.  '12'=>'proteon10Mbit',
  44.  '13'=>'proteon80Mbit',
  45.  '14'=>'hyperchannel',
  46.  '15'=>'fddi',
  47.  '16'=>'lapb',
  48.  '17'=>'sdlc',
  49.  '18'=>'ds1',
  50.  '19'=>'e1',
  51.  '20'=>'basicISDN',
  52.  '21'=>'primaryISDN',
  53.  '22'=>'propPointToPointSerial',
  54.  '23'=>'ppp',
  55.  '24'=>'softwareLoopback',
  56.  '25'=>'eon',
  57.  '26'=>'ethernet-3Mbit',
  58.  '27'=>'nsip',
  59.  '28'=>'slip',
  60.  '29'=>'ultra',
  61.  '30'=>'ds3',
  62.  '31'=>'sip',
  63.  '32'=>'frame-relay',
  64.  '33'=>'rs232',
  65.  '34'=>'para',
  66.  '35'=>'arcnet',
  67.  '36'=>'arcnetPlus',
  68.  '37'=>'atm',
  69.  '38'=>'miox25',
  70.  '39'=>'sonet',
  71.  '40'=>'x25ple',
  72.  '41'=>'iso88022llc',
  73.  '42'=>'localTalk',
  74.  '43'=>'smdsDxi',
  75.  '44'=>'frameRelayService',
  76.  '45'=>'v35',
  77.  '46'=>'hssi',
  78.  '47'=>'hippi',
  79.  '48'=>'modem',
  80.  '49'=>'aal5',
  81.  '50'=>'sonetPath',
  82.  '51'=>'sonetVT',
  83.  '52'=>'smdsIcip',
  84.  '53'=>'propVirtual',
  85.  '54'=>'propMultiplexor',
  86.  '55'=>'100BaseVG',
  87.                  #### New IF Types added 9/24/98 by Russ Carleton (roccor@livenetworking.com)
  88.                  #### based on the IANA file updated at ftp://ftp.isi.edu/mib/ianaiftype.mib
  89.                  '56'=>'Fibre Channel',
  90.                  '57'=>'HIPPI Interface',
  91.                  '58'=>'Obsolete for FrameRelay',
  92.                  '59'=>'ATM Emulation of 802.3 LAN',
  93.                  '60'=>'ATM Emulation of 802.5 LAN',
  94.                  '61'=>'ATM Emulation of a Circuit',
  95.                  '62'=>'FastEthernet (100BaseT)',
  96.                  '63'=>'ISDN & X.25',
  97.                  '64'=>'CCITT V.11/X.21',
  98.                  '65'=>'CCITT V.36',
  99.                  '66'=>'CCITT G703 at 64Kbps',
  100.                  '67'=>'Obsolete G702 see DS1-MIB',
  101.                  '68'=>'SNA QLLC',
  102.                  '69'=>'Full Duplex Fast Ethernet (100BaseFX)',
  103.                  '70'=>'Channel',
  104.                  '71'=>'Radio Spread Spectrum (802.11)',
  105.                  '72'=>'IBM System 360/370 OEMI Channel',
  106.                  '73'=>'IBM Enterprise Systems Connection',
  107.                  '74'=>'Data Link Switching',
  108.                  '75'=>'ISDN S/T Interface',
  109.                  '76'=>'ISDN U Interface',
  110.                  '77'=>'Link Access Protocol D (LAPD)',
  111.                  '78'=>'IP Switching Opjects',
  112.                  '79'=>'Remote Source Route Bridging',
  113.                  '80'=>'ATM Logical Port',
  114.                  '81'=>'AT&T DS0 Point (64 Kbps)',
  115.                  '82'=>'AT&T Group of DS0 on a single DS1',
  116.                  '83'=>'BiSync Protocol (BSC)',
  117.                  '84'=>'Asynchronous Protocol',
  118.                  '85'=>'Combat Net Radio',
  119.                  '86'=>'ISO 802.5r DTR',
  120.                  '87'=>'Ext Pos Loc Report Sys',
  121.                  '88'=>'Apple Talk Remote Access Protocol',
  122.                  '89'=>'Proprietary Connectionless Protocol',
  123.                  '90'=>'CCITT-ITU X.29 PAD Protocol',
  124.                  '91'=>'CCITT-ITU X.3 PAD Facility',
  125.                  '92'=>'MultiProtocol Connection over Frame/Relay',
  126.                  '93'=>'CCITT-ITU X213',
  127.                  '94'=>'Asymetric Digitial Subscriber Loop (ADSL)',
  128.                  '95'=>'Rate-Adapt Digital Subscriber Loop (RDSL)',
  129.                  '96'=>'Symetric Digitial Subscriber Loop (SDSL)',
  130.                  '97'=>'Very High Speed Digitial Subscriber Loop (HDSL)',
  131.                  '98'=>'ISO 802.5 CRFP',
  132.                  '99'=>'Myricom Myrinet',
  133.                  '100'=>'Voice recEive and transMit (voiceEM)',
  134.                  '101'=>'Voice Foreign eXchange Office (voiceFXO)',
  135.                  '102'=>'Voice Foreign eXchange Station (voiceFXS)',
  136.                  '103'=>'Voice Encapulation',
  137.                  '104'=>'Voice Over IP Encapulation',
  138.                  '105'=>'ATM DXI',
  139.                  '106'=>'ATM FUNI',
  140.                  '107'=>'ATM IMA',
  141.                  '108'=>'PPP Multilink Bundle',
  142.                  '109'=>'IBM IP over CDLC',
  143.                  '110'=>'IBM Common Link Access to Workstation',
  144.                  '111'=>'IBM Stack to Stack',
  145.                  '112'=>'IBM Virtual IP Address (VIPA)',
  146.                  '113'=>'IBM Multi-Protocol Channel Support',
  147.                  '114'=>'IBM IP over ATM',
  148.                  '115'=>'ISO 802.5j Fiber Token Ring',
  149.                  '116'=>'IBM Twinaxial Data Link Control (TDLC)',
  150.                  '117'=>'Gigabit Ethernet',
  151.                  '118'=>'Higher Data Link Control (HDLC)',
  152.                  '119'=>'Link Access Protocol F (LAPF)',
  153.                  '120'=>'CCITT V.37',
  154.                  '121'=>'CCITT X.25 Multi-Link Protocol',
  155.                  '122'=>'CCITT X.25 Hunt Group',
  156.                  '123'=>'Transp HDLC',
  157.                  '124'=>'Interleave Channel',
  158.                  '125'=>'Fast Channel',
  159.                  '126'=>'IP (for APPN HPR in IP Networks)',
  160.                  '127'=>'CATV MAC Layer',
  161.                  '128'=>'CATV Downstream Interface',
  162.                  '129'=>'CATV Upstream Interface',
  163.                  '130'=>'Avalon Parallel Processor',
  164.                  '131'=>'Encapsulation Interface',
  165.                  '132'=>'Coffee Pot',
  166.                  '133'=>'Circuit Emulation Service',
  167.                  '134'=>'ATM Sub Interface',
  168.                  '135'=>'Layer 2 Virtual LAN using 802.1Q',
  169.                  '136'=>'Layer 3 Virtual LAN using IP',
  170.                  '137'=>'Layer 3 Virtual LAN using IPX',
  171.                  '138'=>'IP Over Power Lines',
  172.                  '139'=>'Multi-Media Mail over IP',
  173.                  '140'=>'Dynamic synchronous Transfer Mode (DTM)',
  174.                  '141'=>'Data Communications Network',
  175.                  '142'=>'IP Forwarding Interface'
  176.                  );
  178.   my($vendor)=0;
  179.   if ($ARGV[0] eq '--vendor') {
  180. $vendor = 1; shift @ARGV};
  182.   my($community,$router) = ($1,$2) if $ARGV[0] =~ /(.*)@(.*)/;
  183.   die <<USAGE  unless $community && $router;
  185. USAGE: cfgmaker [--vendor] 'community'@'router'
  187. use the --vendor option to try and wrestle some better information
  188. from willing livingston and cisco routers ... (may not work)
  190. EXAMPLE:  cfgmaker public@ezwf7.ethz.ch >>mrtg.cfg
  193. USAGE
  194.   print "# Add a WorkDir: /some/path line to this filenn";
  196.     $session = SNMP_Session->open ($router, $community, 161)
  197. || die "Error opening SNMP session to $router";
  198.   
  199.   my($sysDescr,$sysContact,$sysName,$sysLocation,$ifNumber,$sysObjectID) =
  200.     snmpget("$community@$router",
  201.     'sysDescr','sysContact','sysName', 'sysLocation', 'ifNumber', 'sysObjectID');
  203.    $sysDescr =~ s/rn?/<BR>/g;  # Change returns to <BR>
  204.    my($cisco_router_sysid) = '1.3.6.1.4.1.9';
  205.    my($livingston_router_sysid) = '1.3.6.1.4.1.307';
  206.    my($ciscobox) = ($sysObjectID =~ /^$cisco_router_sysid/);
  207.    my($portmaster) = ($sysObjectID =~ /^$livingston_router_sysid/);
  209.     print <<ECHO;
  211. WorkDir: /pkg/mon/www/mrtg/
  212. Refresh: 300
  213. Interval: 5
  214. WriteExpires: yes 
  216. #Global Modifications:
  217. Unscaled[_]: ymwd
  218. Options[_]: bits,growright
  219. YLegend[_]: Bits Per Second
  220. ShortLegend[_]: b/s
  221. LegendI[_]: &nbsp;Bits/s:
  222. LegendO[_]: &nbsp;Bits/s: 
  224. #################################################################
  225. #    Location: $sysLocation
  226. #     Contact: $sysContact
  227. # System Name: $sysName
  228. #
  229. # System Description including Software and Hardware Versions.
  230. #
  231. # $sysDescr
  232. #################################################################
  233. # Modified Mrtg cfgmaker Configuration file for SMNP Equipment
  234. # Last edited - 1999, Mar 31th, revision 2.0
  235. # Edited By   - mpburton (mpburton@europa.com)
  236. # Time        - 11:10 pm
  237. # Created By  - Jlatimer (J.Latimer@sussex.ac.uk)  
  238. ################################################################# 
  239. #---------------------------------------------------------------  
  240. ECHO
  242.   $session->map_table ([[1,3,6,1,2,1,4,20,1,1], # ipAdEntAddr
  243. [1,3,6,1,2,1,4,20,1,2]], # ipAdEntIf
  244.        sub ($@) {
  245.    my ($index, $ipadentaddr, $ipadentif) = @_;
  246.    grep (defined $_ && ($_=pretty_print $_),
  247.  ($ipadentif, $ipadentaddr));
  248.    $ipaddr{$ipadentif} = $ipadentaddr;
  249.    $iphost{$ipadentif} = 
  250.        gethostbyaddr(pack('C4',split(/./,$ipaddr{$ipadentif})), AF_INET);
  251.    if (!defined $iphost{$ipadentif} || ($iphost{$ipadentif} eq '')){
  252.        $iphost{$ipadentif} = 'No hostname defined for IP address';
  253.    }
  254.        });
  256.   print STDERR "Got Addressesn" if $DEBUG;
  257.   print STDERR "Got IfTablen" if $DEBUG;
  259.   my(%sifdesc,%siftype,%sifspeed,%sifadminstatus,%sifoperstatus,%sciscodescr,%sifrawdesc);
  261.   ### May need the cisco IOS version number so we know which oid to use
  262.   ###   to get the cisco description.
  263.   ###
  264.   ### - mjd 2/5/98 (Mike Diehn) (mdiehn@mindspring.net)
  265.   ###
  266.   my ($cisco_ver, $cisco_descr_oid, @ciscodescr);
  267.   if ( $ciscobox ) {
  268.     ($cisco_ver) = ($sysDescr =~ m/Versions+([d.]+)(d/o);
  269.     $cisco_descr_oid = ($cisco_ver ge "11.2") ? "ifAlias" : "CiscolocIfDescr";
  270.   }
  273. #mod by jon: create a hash table to map ifIndex integers to module/port names:
  274. my $cat5500 = 0;
  275. if ( $sysDescr =~ /WS-C55.*/i ) {
  276.   $cat5500 = 1;
  277. }
  279. my (%iftomp, %iftovlan);
  280. if ($cat5500) {
  282. $session->map_table ([[1,3,6,1,4,1,9,5,1,4,1,1,11]], #5500 port group
  284. sub ($@) {
  285.   my ($rowindex, $index) = @_;
  286.   grep (defined $_ && ($_=pretty_print $_),
  287. ($index));
  289. #  $rowindex =~ s/.///g;
  290.   $iftomp{$index} = $rowindex;
  291. #  print "row:$rowindex; idx:$index";
  292. #  print "nn";
  293. });
  295. #foreach my $key (sort(keys %iftomp)) {
  296. #  print $key, '=', $iftomp{$key}, "n";
  297. #}
  300. $session->map_table ([[1,3,6,1,4,1,9,5,1,9,3,1,3]],
  302. sub ($@) {
  303.   my ($rowindex, $vlan_no) = @_;
  304.   grep (defined $_ && ($_=pretty_print $_),
  305.         ($vlan_no));
  307.   my $ifindex;
  308.   foreach my $key (keys %iftomp) {
  309.     if ($iftomp{$key} eq $rowindex) {
  310.       $ifindex = $key;
  311.     }
  312.   }
  313.   $iftovlan{$ifindex} = $vlan_no;
  315. });
  317. #foreach my $key (sort(keys %iftovlan)) {   
  318. #  print $key, '=', $iftovlan{$key}, "n";
  319. #}
  320. } #end if cat5500
  322. $session->map_table ([[1,3,6,1,2,1,2,2,1,1], # ifIndex
  323.       [1,3,6,1,2,1,2,2,1,2], # ifDescr
  324.       [1,3,6,1,2,1,2,2,1,3], # ifType
  325.       [1,3,6,1,2,1,2,2,1,5], # ifSpeed
  326.       [1,3,6,1,2,1,2,2,1,7], # ifAdminStatus
  327.       [1,3,6,1,2,1,2,2,1,8]], # ifOperStatus
  328. sub ($@) {
  329.     my ($rowindex,$index,$ifdescr,$iftype,$ifspeed,$ifadminstatus,$ifoperstatus) = @_;
  330.     grep (defined $_ && ($_=pretty_print $_),
  331.   ($index,$ifdescr,$iftype,$ifspeed,$ifadminstatus,$ifoperstatus));
  333.   if ($cat5500) {
  334.     my ($intname, $tmp_vlan_no) = split (' ',$ifdescr);
  335.     if ( ($intname eq "sc0") || ($intname eq "sl0") ) {
  336.       return;
  337.     }
  338.     if ($intname eq "VLAN") {
  339.       if ($tmp_vlan_no >= 1000) {
  340.         return;
  341.       }
  342. #The Catalyst software version 4.5 seems to return '0' as the ifSpeed for a
  343. #VLAN.  We set it to 100Mb because we want to watch aggregate VLAN traffic.
  344.       if ($ifspeed == 0) {
  345.         $ifspeed = 100 * 10**6;
  346.       }
  347.     }
  348.     my ($port_num, $vlan_desc);
  349.     $port_num = $iftomp{$index};
  350.     $port_num =~ s/.///g;
  351.     if ($iftovlan{$index} != 1) {
  352.       $vlan_desc = "<font color="#8C1717"> Vlan $iftovlan{$index} </font>";
  353.     }
  354.     else {
  355.       $vlan_desc = "Vlan $iftovlan{$index}";
  356.     }
  357.     if ($iftype != 53) {
  358.       $sifdesc{$index} = "Port $port_num, $vlan_desc, $ifdescr";
  359.     }
  360.     else {
  361.       $sifdesc{$index} = "<font color="#6B238E"> <B> Aggregate Traffic: $ifdescr </B> </font>";
  362.       $sifrawdesc{$index} = $ifdescr;
  363.     }
  364.   }
  365.   else {
  366.     $sifdesc{$index} = $ifdescr;
  367.   }
  368.     $siftype{$index} = $iftype;
  369.     $sifspeed{$index} = $ifspeed;
  370.     $sifadminstatus{$index} = $ifadminstatus;
  371.     $sifoperstatus{$index} = $ifoperstatus;
  372.     if ($portmaster && $vendor) {
  373.       
  374.       # We can only approximate speeds
  375.       # 
  376.       # so we think that ppp can do 76800 bit/s, and slip 38400.
  377.       # (actualy, slip is a bit faster, but usualy users with newer modems
  378.       # use ppp). Alternatively, you can set async speed to 115200 or
  379.       # 230400 (the maximum speed supported by portmaster).
  380.       # 
  381.       # But if the interface is ptpW (sync), max speed is 128000
  382.       # change it to your needs. On various Portmasters there are
  383.       # various numbers of sync interfaces, so modify it.
  384.       # 
  385.       #  The most commonly used PM-2ER has only one sync.
  386.       # 
  387.       #  Paul Makeev (mac@redline.ru)
  388.       # 
  390.       if ($siftype{$index} eq '23') {
  391.               if ($sifdesc{$index} eq 'ptpW1') {
  392.                       $sifspeed{$index} = 128000;
  393.               } else {
  394.                       $sifspeed{$index} = 76800;
  395.               }
  396.       } elsif ($siftype{$index} eq '28') {
  397.               $sifspeed{$index} = 38400;
  398.       } elsif ($siftype{$index} eq '6') {
  399.               $sifspeed{$index} = 10000000;
  400.       }
  401.     }
  403.     ### Move this section south so we know what type of
  404.     ###  circuit we're looking at before we retrieve
  405.     ###  the cisco interface alias.
  406.     ###
  407.     ### This whole cicso thing should be re-written, but since
  408.     ###   this script doesn't need to run quickly...
  409.     ###
  410.     ###  - mjd 2/5/98
  411.     ###
  412.     # Get the user configurable interface description entered in the config 
  413.     # if it's a cisco-box
  414.     #
  415.     if ($ciscobox && $vendor) {
  417. my ($enoid, @descr);
  419. $enoid = $cisco_descr_oid . "." . $index;
  421. if ( $cisco_ver ge "11.2" or $siftype{$index} != '32' ) {
  423.   ### This is either not a frame-relay sub-interface or
  424.   ###  this router is running IOS 11.2+ and interface
  425.   ###  type won't matter. In either of these cases, it's
  426.   ###  ok to try getting the ifAlias or ciscoLocIfDesc.
  427.   ###
  428.   @descr = snmpget("$community@$router", $enoid);
  430. } else {
  432.   ### This is a frame-relay sub-interface *and* the router
  433.   ###  is running an IOS older than 11.2. Therefore, we can
  434.   ###  get neither ifAlias nor ciscoLocIfDesc. Do something
  435.   ###  useful.
  436.   ###
  437.   @descr = ("Cisco PVCs descriptions require IOS 11.2+.");
  439. } # end if else
  441. ### Put whatever I got into the array we'll use later to append the result
  442. ###   of this operation onto the results from the ifDescr fetch.
  443. ###
  444. push @ciscodescr, shift @descr;
  446.     } # end if ($cisco_box && $vendor)
  448.     # especially since cisco does not return a if
  449.     # descr for each interface it has ...
  450.     ## JB 2/8/97 - sometimes IOS inserts E1 controllers in the standard-MIB
  451.     ## interface table, but not in the local interface table. This puts the
  452.     ## local interface description table out-of-sync. the following 
  453.     ## modification skips over E1 cards as interfaces.
  454.     #
  455.     ### I suspect that the mod I made above, to use the ifAlias
  456.     ###   oid if possible, may cause problems here. If it seems
  457.     ###   that your descriptions are out of sync, try commenting
  458.     ###   out the "if ( condition )" and it's closing right brace
  459.     ###   so that the "shift @ciscodescr" get executed for *all*
  460.     ###   iterations of this loop.
  461.     ###
  462.     ### - mjd 2/5/95
  463.     ###
  464.     if ($ciscobox && $siftype{$index} != 18) {
  465.           $sciscodescr{$index} = "<BR>" . (shift @ciscodescr) if @ciscodescr;
  466.     }
  467. });
  468.   my $index;
  469.   foreach $index ( sort { $a <=> $b } keys %sifdesc) {
  470.     my $c;
  471.     my $speed = int($sifspeed{$index} / 8); # bits to byte
  472.     my $speed_str=&fmi($speed);
  473.     my $name="$iphost{$index}";
  474.     $name = "$router.$index" if not $name or $name =~ /s/;
  478.   if (($sifadminstatus{$index} != 1)
  479. # this check added by Josh - don't query E1-stack controllers
  480.       || ($siftype{$index} == 18)
  481. || ($siftype{$index} == 24)
  482. || ($speed == 0 ) 
  483. || ($speed > 400 * 10**6)  #speeds of 400 MByte/s are not realistic
  484. || ($sifoperstatus{$index} == 3)) {
  485.     print <<ECHO;
  486. ########
  487. ######## This Interface is one of the following
  488. ######## - administratively not UP
  489. ######## - it is in test mode
  490. ######## - it is a softwareLoopback interface
  491. ######## - has a unrealistic speed setting
  492. ######## It is commented out for this reason.
  493. ########
  494. ECHO
  495.   $c="# ";
  496.   }else {
  497.     $c = '';
  498.   }
  499.     
  500.   print <<ECHO;
  501. ${c}
  502. ECHO
  504. if ( ($cat5500) && ($siftype{$index} == 53) ) {
  505. #  print "nnhere!! desc:$sifrawdesc{$index}nn";
  506.   my $agg_vlan_no = $sifrawdesc{$index};
  507.   $agg_vlan_no =~ s/D//g;
  508.   my $ctr = 0;
  509.   foreach my $key (sort(keys %iftovlan)) {
  510. # print "key:$key;agg:$agg_vlan_no;index:$indexnnnn";
  511.     if ($iftovlan{$key} == $agg_vlan_no) {
  512. #      print "nna hit!!nn";
  513.       if ($ctr == 0) {
  514. print "${c}Target[$name]: $key:$community@$router";
  515.       }
  516.       else {
  517. print " + $key:$community@$router";
  518.       }
  519.       $ctr++;
  520.     }
  521.   }
  522. }
  523. else {
  524.   print "${c}Target[$name]: $index:$community@$router";
  525. }
  527. print <<ECHO;
  528. ${c}
  529. ${c}Directory[$name]:$sysName
  530. ${c}MaxBytes[$name]: $speed
  531. ${c}Title[$name]: $sysName ($iphost{$index}): $sifdesc{$index}
  532. ${c}PageTop[$name]: <H1>Traffic Analysis for $sifdesc{$index}
  533. ${c} $sciscodescr{$index}</H1>
  534. ${c} <TABLE>
  535. ${c}   <TR><TD>System:</TD><TD>$sysName in $sysLocation</TD></TR>
  536. ${c}   <TR><TD>Maintainer:</TD><TD>$sysContact</TD></TR>
  537. ${c}   <TR><TD>Interface:</TD><TD>$sifdesc{$index} ($index)</TD></TR>
  538. ${c}   <TR><TD>IP:</TD><TD>$iphost{$index} ($ipaddr{$index})</TD></TR>
  539. ${c}   <TR><TD>Max Speed:</TD>
  540. ${c}       <TD>$speed_str ($ifType_d{$siftype{$index}})</TD></TR>
  541. ${c}  </TABLE>
  542. ${c}
  543. #---------------------------------------------------------------
  544. ECHO
  545.   }
  546. }
  547.   
  548. main;
  549. exit(0);
  551. sub fmi {
  552.   my($number) = $_[0];
  553.   my(@short);
  554.   @short = ("Bytes/s","kBytes/s","MBytes/s","GBytes/s");
  555.   my $digits=length("".$number);
  556.   my $divm=0;
  557.   while ($digits-$divm*3 > 4) { $divm++; }
  558.   my $divnum = $number/10**($divm*3);
  559.   return sprintf("%1.1f %s",$divnum,$short[$divm]);
  560. }