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

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

SNMP编程

开发平台：

C/C++

cfgmaker_dlci：源码内容
  1. #! /usr/bin/perl
  2. # -*- mode: Perl -*-
  3. ##################################################################
  4. # New MRTG 2.8.12 Based -- Config file creator
  5. ##################################################################
  6. # Created by Tobias Oetiker <oetiker@ee.ethz.ch>
  7. # this produces a config file for one router, by pulling info
  8. # off the router via snmp
  9. # Modified by Graziano Sommariva <Graziano.Sommariva@elsag.it>
  10. # to monitor DLCI's and to include some code from newer release(2.9.12).
  11. # NOTE: IPONLY has been disabled.
  12. #       Added --ip option
  13. #################################################################
  14. #
  15. # Distributed under the GNU copyleft
  17. require 5.004;
  18. use strict;
  20. BEGIN {
  21.     # Automatic OS detection ... do NOT touch
  22.     if ( $^O =~ /^(?:(ms)?(dos|win(32|nt)?))/i ) {
  23.         $main::OS = 'NT';
  24.         $main::SL = '\';
  25.         $main::PS = ';';
  26.     } elsif ( $^O =~ /^VMS$/i ) {
  27.         $main::OS = 'VMS';
  28.         $main::SL = '.';
  29.         $main::PS = ':';
  30.     } else {
  31.         $main::OS = 'UNIX';
  32.         $main::SL = '/';
  33.         $main::PS = ':';
  34.     }
  35. }
  37. use FindBin;
  38. use lib "${FindBin::Bin}";
  39. use lib "${FindBin::Bin}${main::SL}..${main::SL}lib${main::SL}mrtg2";
  41. use BER "0.57";
  42. use SNMP_Session "0.59";
  43. use SNMP_util "0.57";
  45. use Getopt::Long;
  46. use Socket;
  47. use strict;
  48. use vars '$DEBUG';
  49. my $DEBUG = 0;
  51. my (%optctl) = ();
  52. my ($session, %ipaddr, %iphost);
  54. sub main {
  56.     snmpmapOID('ipAdEntAddr' => '1.3.6.1.2.1.4.20.1.1',
  57.        'ipAdEntIfIndex' => '1.3.6.1.2.1.4.20.1.2',
  58.        'sysObjectID' => '1.3.6.1.2.1.1.2.0',
  59.        'CiscolocIfDescr' => '1.3.6.1.4.1.9.2.2.1.1.28',
  60.        'ifAlias' => '1.3.6.1.2.1.31.1.1.1.18');
  62.   my(%ifType_d)=('1'=>'Other',
  63.  '2'=>'regular1822',
  64.  '3'=>'hdh1822',
  65.  '4'=>'ddnX25',
  66.  '5'=>'rfc877x25',
  67.  '6'=>'ethernetCsmacd',
  68.  '7'=>'iso88023Csmacd',
  69.  '8'=>'iso88024TokenBus',
  70.  '9'=>'iso88025TokenRing',
  71.  '10'=>'iso88026Man',
  72.  '11'=>'starLan',
  73.  '12'=>'proteon10Mbit',
  74.  '13'=>'proteon80Mbit',
  75.  '14'=>'hyperchannel',
  76.  '15'=>'fddi',
  77.  '16'=>'lapb',
  78.  '17'=>'sdlc',
  79.  '18'=>'ds1',
  80.  '19'=>'e1',
  81.  '20'=>'basicISDN',
  82.  '21'=>'primaryISDN',
  83.  '22'=>'propPointToPointSerial',
  84.  '23'=>'ppp',
  85.  '24'=>'softwareLoopback',
  86.  '25'=>'eon',
  87.  '26'=>'ethernet-3Mbit',
  88.  '27'=>'nsip',
  89.  '28'=>'slip',
  90.  '29'=>'ultra',
  91.  '30'=>'ds3',
  92.  '31'=>'sip',
  93.  '32'=>'frame-relay',
  94.  '33'=>'rs232',
  95.  '34'=>'para',
  96.  '35'=>'arcnet',
  97.  '36'=>'arcnetPlus',
  98.  '37'=>'atm',
  99.  '38'=>'miox25',
  100.  '39'=>'sonet',
  101.  '40'=>'x25ple',
  102.  '41'=>'iso88022llc',
  103.  '42'=>'localTalk',
  104.  '43'=>'smdsDxi',
  105.  '44'=>'frameRelayService',
  106.  '45'=>'v35',
  107.  '46'=>'hssi',
  108.  '47'=>'hippi',
  109.  '48'=>'modem',
  110.  '49'=>'aal5',
  111.  '50'=>'sonetPath',
  112.  '51'=>'sonetVT',
  113.  '52'=>'smdsIcip',
  114.  '53'=>'propVirtual',
  115.  '54'=>'propMultiplexor',
  116.  '55'=>'100BaseVG',
  117.              '56'=>'Fibre Channel',
  118.              '57'=>'HIPPI Interface',
  119.              '58'=>'Obsolete for FrameRelay',
  120.              '59'=>'ATM Emulation of 802.3 LAN',
  121.              '60'=>'ATM Emulation of 802.5 LAN',
  122.              '61'=>'ATM Emulation of a Circuit',
  123.              '62'=>'FastEthernet (100BaseT)',
  124.              '63'=>'ISDN & X.25',
  125.              '64'=>'CCITT V.11/X.21',
  126.              '65'=>'CCITT V.36',
  127.              '66'=>'CCITT G703 at 64Kbps',
  128.              '67'=>'Obsolete G702 see DS1-MIB',
  129.              '68'=>'SNA QLLC',
  130.              '69'=>'Full Duplex Fast Ethernet (100BaseFX)',
  131.              '70'=>'Channel',
  132.              '71'=>'Radio Spread Spectrum (802.11)',
  133.                  '72'=>'IBM System 360/370 OEMI Channel',
  134.                  '73'=>'IBM Enterprise Systems Connection',
  135.                  '74'=>'Data Link Switching',
  136.                  '75'=>'ISDN S/T Interface',
  137.                  '76'=>'ISDN U Interface',
  138.                  '77'=>'Link Access Protocol D (LAPD)',
  139.                  '78'=>'IP Switching Opjects',
  140.                  '79'=>'Remote Source Route Bridging',
  141.                  '80'=>'ATM Logical Port',
  142.                  '81'=>'AT&T DS0 Point (64 Kbps)',
  143.                  '82'=>'AT&T Group of DS0 on a single DS1',
  144.                  '83'=>'BiSync Protocol (BSC)',
  145.                  '84'=>'Asynchronous Protocol',
  146.                  '85'=>'Combat Net Radio',
  147.                  '86'=>'ISO 802.5r DTR',
  148.                  '87'=>'Ext Pos Loc Report Sys',
  149.                  '88'=>'Apple Talk Remote Access Protocol',
  150.                  '89'=>'Proprietary Connectionless Protocol',
  151.                  '90'=>'CCITT-ITU X.29 PAD Protocol',
  152.                  '91'=>'CCITT-ITU X.3 PAD Facility',
  153.                  '92'=>'MultiProtocol Connection over Frame/Relay',
  154.                  '93'=>'CCITT-ITU X213',
  155.                  '94'=>'Asymetric Digitial Subscriber Loop (ADSL)',
  156.                  '95'=>'Rate-Adapt Digital Subscriber Loop (RDSL)',
  157.                  '96'=>'Symetric Digitial Subscriber Loop (SDSL)',
  158.                  '97'=>'Very High Speed Digitial Subscriber Loop (HDSL)',
  159.                  '98'=>'ISO 802.5 CRFP',
  160.                  '99'=>'Myricom Myrinet',
  161.                  '100'=>'Voice recEive and transMit (voiceEM)',
  162.                  '101'=>'Voice Foreign eXchange Office (voiceFXO)',
  163.                  '102'=>'Voice Foreign eXchange Station (voiceFXS)',
  164.                  '103'=>'Voice Encapulation',
  165.                  '104'=>'Voice Over IP Encapulation',
  166.                  '105'=>'ATM DXI',
  167.                  '106'=>'ATM FUNI',
  168.                  '107'=>'ATM IMA',
  169.                  '108'=>'PPP Multilink Bundle',
  170.                  '109'=>'IBM IP over CDLC',
  171.                  '110'=>'IBM Common Link Access to Workstation',
  172.                  '111'=>'IBM Stack to Stack',
  173.                  '112'=>'IBM Virtual IP Address (VIPA)',
  174.                  '113'=>'IBM Multi-Protocol Channel Support',
  175.                  '114'=>'IBM IP over ATM',
  176.                  '115'=>'ISO 802.5j Fiber Token Ring',
  177.                  '116'=>'IBM Twinaxial Data Link Control (TDLC)',
  178.                  '117'=>'Gigabit Ethernet',
  179.                  '118'=>'Higher Data Link Control (HDLC)',
  180.                  '119'=>'Link Access Protocol F (LAPF)',
  181.                  '120'=>'CCITT V.37',
  182.                  '121'=>'CCITT X.25 Multi-Link Protocol',
  183.                  '122'=>'CCITT X.25 Hunt Group',
  184.                  '123'=>'Transp HDLC',
  185.                  '124'=>'Interleave Channel',
  186.                  '125'=>'Fast Channel',
  187.                  '126'=>'IP (for APPN HPR in IP Networks)',
  188.                  '127'=>'CATV MAC Layer',
  189.                  '128'=>'CATV Downstream Interface',
  190.                  '129'=>'CATV Upstream Interface',
  191.                  '130'=>'Avalon Parallel Processor',
  192.                  '131'=>'Encapsulation Interface',
  193.                  '132'=>'Coffee Pot',
  194.                  '133'=>'Circuit Emulation Service',
  195.                  '134'=>'ATM Sub Interface',
  196.                  '135'=>'Layer 2 Virtual LAN using 802.1Q',
  197.                  '136'=>'Layer 3 Virtual LAN using IP',
  198.                  '137'=>'Layer 3 Virtual LAN using IPX',
  199.                  '138'=>'IP Over Power Lines',
  200.                  '139'=>'Multi-Media Mail over IP',
  201.                  '140'=>'Dynamic synchronous Transfer Mode (DTM)',
  202.                  '141'=>'Data Communications Network',
  203.                  '142'=>'IP Forwarding Interface',
  204.                  '162'=>'Cisco Express Forwarding Interface'
  205.                  );
  207.   my($vendor)=0;
  208. #  my($iponly)=0;
  209.   my($workdir)=0;
  210.   my($ip)=0;
  211.   my($community,$router,%defaults);
  212.   my($res);
  214.   # Just need to make sure that all perl installations have the GetOpt module
  215.   #   - fwo@obsidian.co.za
  216.   #
  217. #  $res = GetOptions(%optctl,"vendor","iponly","workdir=s","options=s","ip=s");
  218.   $res = GetOptions(%optctl,"vendor","workdir=s","options=s","ip=s");
  219.   if($res == 0 ) {
  220.       print "nError in arguments. Please run cfgmaker with no arguments for help!nn";
  221.       exit 1;
  222.   }
  224.   if($optctl{"vendor"})   { $vendor = 1; }
  225. #  if($optctl{"iponly"})   { $iponly = 1; }
  226.   if($optctl{"workdir"})  { $workdir = $optctl{"workdir"}; }
  227.   if($optctl{"ip"})  { $ip = $optctl{"ip"}; }
  228.   if($optctl{"options"}) { 
  229.       foreach $res(split(',',$optctl{"options"})) {
  230.   chomp($res);
  231.   next if($res eq "growright");
  232.   next if($res eq "bits");
  233.   next if($res eq "perminute");
  234.   next if($res eq "perhour");
  235.   next if($res eq "noinfo");
  236.   next if($res eq "nopercent");
  237.   next if($res eq "transparent");
  238.   next if($res eq "integer");
  239.   next if($res eq "dorelpercent");
  240.   next if($res eq "gauge");
  241.   next if($res eq "absolute");
  242.   next if($res eq "unknaszero");
  243.   print "nERROR:$res is not a valid option for --options, exiting!n";
  244.   exit 1;
  245.       }
  246.   }
  247.   $res = 0;
  248. #TODO: check for conflicting info in options - l->r and r->l
  249. #  print STDERR "iponly=$iponlyn" if $DEBUG;
  250.   print STDERR "vendor=$vendorn" if $DEBUG;
  251.   print STDERR "workdir=$workdirn" if $DEBUG;
  253.   ($community,$router) = ($1,$2) if $ARGV[0] =~ /(.*)@(.*)/;
  254.   if(!($community) && !($router)) {
  255.   print <<USAGE;
  257. USAGE: cfgmaker [--vendor] [other options] 'community'@'router'
  259. use the --vendor option to try and wrestle some better information
  260.     from willing livingston and cisco routers ... (may not work)
  262. [other options] can be one of the following:
  264. #use the --iponly option to force the targets to the ip adress of the router 
  265. #    being queried. Also note that the 'router' option must be the ip address
  266. #    and not the symbolic name.
  268. use the --workdir '/some/path' option to add the WorkDir option to the cfg file 
  269.     being generated.
  271. use the --ip 'IP Address' to use in SNMP requests 
  273. use the --options 'defaults' to set default options for each target. defaults 
  274.     is a comma seperated list and can contain the following :
  275.         growright bits perminute perhour noinfo nopercent transparent
  276. integer dorelpercent gauge absolute unknaszero
  278.     See the mrtg.cfg doccumentation for descriptions of the above options.
  279.     NOTE: no checking for conflicting options are done at the moment.
  281. EXAMPLE:  cfgmaker public@ezwf7.ethz.ch >>mrtg.cfg
  283. USAGE
  284.     exit 1;
  285.   }
  286. #  if($iponly) { 
  287. #      # We only want to work with ip numbers and not names
  288. #      # Check to see whether the name is a valid ip address
  289. #      # If not bail - we do not want to deal with reverse dns
  290. #      #    issues - fwo@obsidian.co.za 2000/01/17
  291. #      chomp($router);
  292. #      if(!($router =~ /^[0-9]{1,3}.([0-9]{1,3}).([0-9]{1,3}).([0-9]{1,3})$/)){
  293. #   print "nERROR: when specifying --iponly, please use a validn";
  294. #   print "ip address for the router. Do not use a symbolic name.nn";
  295. #   exit 1;
  296. #      }
  297. #  }
  298.     print "IconDir: /mrtgicons/nn";
  299.   if($workdir) {
  300.    print "WorkDir: $workdirnn";
  301.   } else {
  302.    print "# Add a WorkDir: /html line to this filenn";
  303.   }
  305.   my($sysDescr,$sysContact,$sysName,$sysLocation,$ifNumber,$sysObjectID);
  306.   my($sysDescr_orig,$cisco_router_sysid,$livingston_router_sysid,$ciscobox,$portmaster);
  308.   if($optctl{"ip"}) {
  309.      $session = SNMP_Session->open ($ip, $community, 161)
  310. || die "Error opening SNMP session to $ip";
  312.      ($sysDescr,$sysContact,$sysName,$sysLocation,$ifNumber,$sysObjectID) = snmpget("$community@$ip",'sysDescr','sysContact','sysName','sysLocation','ifNumber', 'sysObjectID');
  314.      $sysDescr_orig=$sysDescr;
  315.      $sysDescr_orig =~ s/[rn ]+/ /g;
  316.      $sysDescr =~ s/[rn]+/<BR>/g;  # Change returns to <BR>
  317.      $cisco_router_sysid = '1.3.6.1.4.1.9';
  318.      $livingston_router_sysid = '1.3.6.1.4.1.307';
  319.      $ciscobox = ($sysObjectID =~ /^$cisco_router_sysid/);
  320.      $portmaster = ($sysObjectID =~ /^$livingston_router_sysid/);
  321.   } else { 
  322.      $session = SNMP_Session->open ($router, $community, 161)
  323. || die "Error opening SNMP session to $router";
  324.      ($sysDescr,$sysContact,$sysName,$sysLocation,$ifNumber,$sysObjectID) = snmpget("$community@$router",'sysDescr','sysContact','sysName','sysLocation','ifNumber', 'sysObjectID');
  325.      $sysDescr_orig=$sysDescr;
  326.      $sysDescr_orig =~ s/[rn ]+/ /g;
  327.      $sysDescr =~ s/[rn]+/<BR>/g;  # Change returns to <BR>
  328.      $cisco_router_sysid = '1.3.6.1.4.1.9';
  329.      $livingston_router_sysid = '1.3.6.1.4.1.307';
  330.      $ciscobox = ($sysObjectID =~ /^$cisco_router_sysid/);
  331.      $portmaster = ($sysObjectID =~ /^$livingston_router_sysid/);
  332.   } 
  333.   print <<ECHO;
  336. ######################################################################
  337. # Description: $sysDescr_orig
  338. #     Contact: $sysContact
  339. # System Name: $sysName
  340. #    Location: $sysLocation
  341. #.....................................................................
  342. ECHO
  344.   $session->map_table ([[1,3,6,1,2,1,4,20,1,1], # ipAdEntAddr
  345. [1,3,6,1,2,1,4,20,1,2]], # ipAdEntIf
  346.        sub ($@) {
  347.    my ($index, $ipadentaddr, $ipadentif) = @_;
  348.    grep (defined $_ && ($_=pretty_print $_),
  349.  ($ipadentif, $ipadentaddr));
  350.    $ipaddr{$ipadentif} = $ipadentaddr;
  351.    $iphost{$ipadentif} = 
  352.        gethostbyaddr(pack('C4',split(/./,$ipaddr{$ipadentif})), AF_INET);
  353.    if (!defined $iphost{$ipadentif} || ($iphost{$ipadentif} eq '')){
  354.        $iphost{$ipadentif} = 'No hostname defined for IP address';
  355.    }
  356.        });
  358.   print STDERR "Got Addressesn" if $DEBUG;
  359.   print STDERR "Got IfTablen" if $DEBUG;
  361.   my(%sifdesc,%siftype,%sifspeed,%sifadminstatus,%sifoperstatus,%sciscodescr);
  363.   ### May need the cisco IOS version number so we know which oid to use
  364.   ###   to get the cisco description.
  365.   ###
  366.   ### - mjd 2/5/98 (Mike Diehn) (mdiehn@mindspring.net)
  367.   ###
  368.   my ($cisco_ver, $cisco_descr_oid, @ciscodescr);
  369.   if ( $ciscobox ) {
  370.     ($cisco_ver) = ($sysDescr =~ m/Versions+([d.]+)(d/o);
  371.     $cisco_descr_oid = ($cisco_ver ge "11.2") ? "ifAlias" : "CiscolocIfDescr";
  372.   }
  374. $session->map_table ([[1,3,6,1,2,1,2,2,1,1], # ifIndex
  375.       [1,3,6,1,2,1,2,2,1,2], # ifDescr
  376.       [1,3,6,1,2,1,2,2,1,3], # ifType
  377.       [1,3,6,1,2,1,2,2,1,5], # ifSpeed
  378.       [1,3,6,1,2,1,2,2,1,7], # ifAdminStatus
  379.       [1,3,6,1,2,1,2,2,1,8]], # ifOperStatus
  380. sub ($@) {
  381.     my ($rowindex,$index,$ifdescr,$iftype,$ifspeed,$ifadminstatus,$ifoperstatus) = @_;
  382.     grep (defined $_ && ($_=pretty_print $_),
  383.   ($index,$ifdescr,$iftype,$ifspeed,$ifadminstatus,$ifoperstatus));
  384.     $sifdesc{$index} = $ifdescr;
  385.     $siftype{$index} = $iftype;
  386.     $sifspeed{$index} = $ifspeed;
  387.     $sifadminstatus{$index} = $ifadminstatus;
  388.     $sifoperstatus{$index} = $ifoperstatus;
  389.     if ($portmaster && $vendor) {
  390.       
  391.       # We can only approximate speeds
  392.       # 
  393.       # so we think that ppp can do 76800 bit/s, and slip 38400.
  394.       # (actualy, slip is a bit faster, but usualy users with newer modems
  395.       # use ppp). Alternatively, you can set async speed to 115200 or
  396.       # 230400 (the maximum speed supported by portmaster).
  397.       # 
  398.       # But if the interface is ptpW (sync), max speed is 128000
  399.       # change it to your needs. On various Portmasters there are
  400.       # various numbers of sync interfaces, so modify it.
  401.       # 
  402.       #  The most commonly used PM-2ER has only one sync.
  403.       # 
  404.       #  Paul Makeev (mac@redline.ru)
  405.       # 
  407.       if ($siftype{$index} eq '23') {
  408.               if ($sifdesc{$index} eq 'ptpW1') {
  409.                       $sifspeed{$index} = 128000;
  410.               } else {
  411.                       $sifspeed{$index} = 76800;
  412.               }
  413.       } elsif ($siftype{$index} eq '28') {
  414.               $sifspeed{$index} = 38400;
  415.       } elsif ($siftype{$index} eq '6') {
  416.               $sifspeed{$index} = 10000000;
  417.       }
  418.     }
  420.     ### Move this section south so we know what type of
  421.     ###  circuit we're looking at before we retrieve
  422.     ###  the cisco interface alias.
  423.     ###
  424.     ### This whole cicso thing should be re-written, but since
  425.     ###   this script doesn't need to run quickly...
  426.     ###
  427.     ###  - mjd 2/5/98
  428.     ###
  429.     # Get the user configurable interface description entered in the config 
  430.     # if it's a cisco-box
  431.     #
  432.     my($cisco_descr_oid);
  433.     if ($ciscobox && $vendor) {
  435. my ($enoid, @descr);
  437. $enoid = $cisco_descr_oid . "." . $index;
  439. if ( $cisco_ver ge "11.2" or $siftype{$index} != '32' ) {
  441.   ### This is either not a frame-relay sub-interface or
  442.   ###  this router is running IOS 11.2+ and interface
  443.   ###  type won't matter. In either of these cases, it's
  444.   ###  ok to try getting the ifAlias or ciscoLocIfDesc.
  445.   ###
  446.   @descr = snmpget("$community@$router", $enoid);
  448. } else {
  450.   ### This is a frame-relay sub-interface *and* the router
  451.   ###  is running an IOS older than 11.2. Therefore, we can
  452.   ###  get neither ifAlias nor ciscoLocIfDesc. Do something
  453.   ###  useful.
  454.   ###
  455.   @descr = ("Cisco PVCs descriptions require IOS 11.2+.");
  457. } # end if else
  459. ### Put whatever I got into the array we'll use later to append the result
  460. ###   of this operation onto the results from the ifDescr fetch.
  461. ###
  462. push @ciscodescr, shift @descr;
  464.     } # end if ($cisco_box && $vendor)
  466.     # especially since cisco does not return a if
  467.     # descr for each interface it has ...
  468.     ## JB 2/8/97 - sometimes IOS inserts E1 controllers in the standard-MIB
  469.     ## interface table, but not in the local interface table. This puts the
  470.     ## local interface description table out-of-sync. the following 
  471.     ## modification skips over E1 cards as interfaces.
  472.     #
  473.     ### I suspect that the mod I made above, to use the ifAlias
  474.     ###   oid if possible, may cause problems here. If it seems
  475.     ###   that your descriptions are out of sync, try commenting
  476.     ###   out the "if ( condition )" and it's closing right brace
  477.     ###   so that the "shift @ciscodescr" get executed for *all*
  478.     ###   iterations of this loop.
  479.     ###
  480.     ### - mjd 2/5/95
  481.     ###
  482.     if ($ciscobox && $siftype{$index} != 18) {
  483.           $sciscodescr{$index} = "<BR>" . (shift @ciscodescr) if @ciscodescr;
  484.     }
  485. });
  486.   my $index;
  487.   foreach $index ( sort { $a <=> $b } keys %sifdesc) {
  488.     my $c;
  489.     my $speed = int($sifspeed{$index} / 8); # bits to byte
  490.     my $speed_str=&fmi($speed);
  491.     my $name="$iphost{$index}";
  493. #    $name = "$router.int.$index" if not $name or $name =~ /s/ or $iponly;
  494.     $name = "$router.int.$index";
  496.   my $err_msg;
  497.     
  498.   $err_msg .= "######## - administratively not UPn" if ($sifadminstatus{$index} != 1);
  499. # this check added by Josh - don't query E1-stack controllers
  500.   $err_msg .= "######## - DS1 typen" 
  501.   if ($siftype{$index} == 18);
  502. # i might be mistaken on this one - fwo@obsidian.co.za
  503.   $err_msg .= "######## - E1 typen" 
  504.   if ($siftype{$index} == 19);
  505.   $err_msg .= "######## - it is a softwareLoopback interfacen" 
  506.   if ($siftype{$index} == 24);
  507.   $err_msg .= "######## - it is a a DS3 contorllern" 
  508.   if ($siftype{$index} == 30);
  509.   $err_msg .= "######## - it is a ISDN S/T Interfacen" 
  510.   if ($siftype{$index} == 75);
  511.   $err_msg .= "######## - it is a AT&T DS0 Point (64 Kbps)n" 
  512.   if ($siftype{$index} == 81);
  513.   $err_msg .= "######## - it is a CEF Sub-interfacen" 
  514.   if ($siftype{$index} == 162);
  515.   $err_msg .= "######## - has an unrealistic speed settingn" 
  516.   if (($speed == 0 ) || ($speed > 400 * 10**6));  
  517.   $err_msg .= "######## - administratively not UPn" 
  518.   if ($sifoperstatus{$index} == 3) ;
  519.   if($err_msg ne "") {
  520.     print <<ECHO;
  521. ########
  522. ######## This Interface not configured :
  523. $err_msg######## It is commented out for this reason.
  524. ########
  525. ECHO
  526.     $c="# ";
  527.   }else {
  528.     $c = '';
  529.   }
  530.     
  531.   print <<ECHO;
  532. ${c}
  533. ECHO
  534. if($optctl{"ip"}) {
  535.   print "${c}Target[$name]: $index:$community@$ipn";
  536. } else {
  537.   print "${c}Target[$name]: $index:$community@$routern";
  538. }
  539. print <<ECHO;
  540. #${c}MaxBytes[$name]: $speed
  541. ${c}MaxBytes[$name]: 1250000
  542. ${c}YSize[$name]: 300
  543. ${c}XSize[$name]: 600
  544. ${c}Suppress[$name]: y
  545. ${c}Title[$name]: $sysName ($iphost{$index}): $sifdesc{$index}
  546. ${c}Options[$name]: bits, growright, nopercent
  547. ECHO
  548. #if($optctl{"options"}) {
  549. #    print "${c}Options[$name]: $optctl{'options'}n";
  550. #}
  551. print <<ECHO;
  552. ${c}PageTop[$name]: <H1>Traffic Analysis for $sifdesc{$index}
  553. ${c} $sciscodescr{$index}</H1>
  554. ${c} <TABLE>
  555. ${c}   <TR><TD>System:</TD><TD>$sysName in $sysLocation</TD></TR>
  556. ${c}   <TR><TD>Maintainer:</TD><TD>$sysContact</TD></TR>
  557. ${c}   <TR><TD>Interface:</TD><TD>$sifdesc{$index} ($index)</TD></TR>
  558. ${c}   <TR><TD>IP:</TD><TD>$iphost{$index} ($ipaddr{$index})</TD></TR>
  559. ${c}   <TR><TD>Max Speed:</TD>
  560. ${c}       <TD>$speed_str ($ifType_d{$siftype{$index}})</TD></TR>
  561. ${c}  </TABLE>
  562. ${c}
  563. #---------------------------------------------------------------
  564. ECHO
  565.   }
  566. #
  567. # Frame-Relay
  568. #
  570.   my(%circuits);
  572.   $session->map_table ([[1,3,6,1,2,1,10,32,2,1,1], # Ifindex
  573.                         [1,3,6,1,2,1,10,32,2,1,2]],# DLCI
  574.   sub ($@) {
  575.       my ($rwindex,$crindex,$dlci) = @_;
  576.       grep (defined $_ && ($_=pretty_print $_),
  577.      ($rwindex,$crindex,$dlci) );
  578.       my($tmpindex);
  579.       $tmpindex = $crindex.".".$dlci;
  580.       $circuits{$tmpindex} = $tmpindex;
  581.   });
  583.   foreach $index ( sort { $a <=> $b } keys %circuits) {
  584.     my ($tmpname) = $router.".dlci.".$index;
  585.     printf "nn";
  586.     printf "Options[%s]: bits, noinfo, growright, nopercentn",$tmpname;
  587.     printf "YSize[%s]: 300n",$tmpname;
  588.     printf "XSize[%s]: 600n",$tmpname;
  589.     printf "YLegend[%s]: Bits per Secondn",$tmpname;
  590.     printf "Suppress[%s]: yn",$tmpname;
  591.     if($optctl{"ip"}) {
  592.        printf "Target[%s]: .1.3.6.1.2.1.10.32.2.1.9.%s&.1.3.6.1.2.1.10.32.2.1.7.%s:%s@%sn",$tmpname,$index,$index,$community,$ip;
  593.     } else {
  594.        printf "Target[%s]: .1.3.6.1.2.1.10.32.2.1.9.%s&.1.3.6.1.2.1.10.32.2.1.7.%s:%s@%sn",$tmpname,$index,$index,$community,$router;
  595.     }
  596.     printf "MaxBytes[%s]: 1250000n",$tmpname;
  597.     printf "Title[%s]: Traffic Analysis for DLCI %sn",$tmpname,$index;
  598.     printf "PageTop[%s]: <H1>Traffic Analysis for DLCI %s</H1>n",$tmpname,$index;
  599.     printf " <TABLE>";
  600.     printf "  <TR><TD>System:</TD><TD>%s in %s</TD></TR>",$sysName,$sysLocation;
  601.     printf "  <TR><TD>Maintainer:</TD><TD>%s</TD></TR>",$sysContact;
  602.     printf "  <TR><TD>InterfaceID.DLCI:</TD><TD>%s</TD></TR>",$tmpname;
  603.     printf " </TABLE>";
  604.   }
  605. }
  606.   
  607. main;
  608. exit(0);
  610. sub fmi {
  611.   my($number) = $_[0];
  612.   my(@short);
  613.   @short = ("Bytes/s","kBytes/s","MBytes/s","GBytes/s");
  614.   my $digits=length("".$number);
  615.   my $divm=0;
  616.   while ($digits-$divm*3 > 4) { $divm++; }
  617.   my $divnum = $number/10**($divm*3);
  618.   return sprintf("%1.1f %s",$divnum,$short[$divm]);
  619. }