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

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

SNMP编程

开发平台：

C/C++

atmmaker：源码内容
  1. #!/opt/gnu/bin/perl
  2. # -*- mode: Perl -*-
  3. ##################################################################
  4. # Config file creator
  5. ##################################################################
  6. # Cloned form cfgmaker Mark Trettin <mkt@lucent.com>
  7. # Created by Tobias Oetiker <oetiker@ee.ethz.ch>
  8. # this produces a config file for one router, by bulling info
  9. # off the router via snmp
  10. #################################################################
  11. #
  12. # Distributed under the GNU copyleft
  13. #
  14. # $Id: atmmaker,v 1.1.1.1 2002/02/26 10:16:31 oetiker Exp $
  15. #
  16. use SNMP_Session;
  17. use BER;
  18. use Socket;
  19. use strict;
  21. %snmpget::OIDS = (  'sysDescr' => '1.3.6.1.2.1.1.1.0',
  22.     'sysContact' => '1.3.6.1.2.1.1.4.0',
  23.     'sysName' => '1.3.6.1.2.1.1.5.0',
  24.     'sysLocation' => '1.3.6.1.2.1.1.6.0',
  25.     'sysUptime' => '1.3.6.1.2.1.1.3.0',
  26.     'ifNumber' =>  '1.3.6.1.2.1.2.1.0',
  27.     ###################################
  28.     # add the ifNumber ....
  29.     'ifDescr' => '1.3.6.1.2.1.2.2.1.2',
  30.     'ifType' => '1.3.6.1.2.1.2.2.1.3',
  31.     'ifIndex' => '1.3.6.1.2.1.2.2.1.1',
  32.     'ifSpeed' => '1.3.6.1.2.1.2.2.1.5', 
  33.     'ifOperStatus' => '1.3.6.1.2.1.2.2.1.8',  
  34.     'ifAdminStatus' => '1.3.6.1.2.1.2.2.1.7',  
  35.     # up 1, down 2, testing 3
  36.     'ipAdEntAddr' => '1.3.6.1.2.1.4.20.1.1',
  37.     'ipAdEntIfIndex' => '1.3.6.1.2.1.4.20.1.2',
  38.     'sysObjectID' => '1.3.6.1.2.1.1.2.0',
  39.     'CiscolocIfDescr' => '1.3.6.1.4.1.9.2.2.1.1.28',
  40.     # asx port group info
  41.     'asxPortAdmnStat' => '1.3.6.1.4.1.326.2.2.2.1.2.2.1.2',
  42.     'asxPortOperStat' => '1.3.6.1.4.1.326.2.2.2.1.2.2.1.3',
  43.     'asxPortRemoteIpAddress'=> '1.3.6.1.4.1.326.2.2.2.1.2.2.1.6',
  44.     'asxPortILMIRemoteIpAddress' => '1.3.6.1.4.1.326.2.2.2.1.2.2.1.22',
  45.     'asxPortMaxBandwidthIn' => '1.3.6.1.4.1.326.2.2.2.1.2.2.1.9',
  46.     'asxhwPortName' => '1.3.6.1.4.1.326.2.2.1.1.2.3.1.13',
  47.     'asxPortNumber' => '1.3.6.1.4.1.326.2.2.2.1.2.2.1.1',
  48.  );
  53. sub main {
  56.   my(%ifType_d)=('1'=>'Other',
  57.  '2'=>'regular1822',
  58.  '3'=>'hdh1822',
  59.  '4'=>'ddnX25',
  60.  '5'=>'rfc877x25',
  61.  '6'=>'ethernetCsmacd',
  62.  '7'=>'iso88023Csmacd',
  63.  '8'=>'iso88024TokenBus',
  64.  '9'=>'iso88025TokenRing',
  65.  '10'=>'iso88026Man',
  66.  '11'=>'starLan',
  67.  '12'=>'proteon10Mbit',
  68.  '13'=>'proteon80Mbit',
  69.  '14'=>'hyperchannel',
  70.  '15'=>'fddi',
  71.  '16'=>'lapb',
  72.  '17'=>'sdlc',
  73.  '18'=>'ds1',
  74.  '19'=>'e1',
  75.  '20'=>'basicISDN',
  76.  '21'=>'primaryISDN',
  77.  '22'=>'propPointToPointSerial',
  78.  '23'=>'ppp',
  79.  '24'=>'softwareLoopback',
  80.  '25'=>'eon',
  81.  '26'=>'ethernet-3Mbit',
  82.  '27'=>'nsip',
  83.  '28'=>'slip',
  84.  '29'=>'ultra',
  85.  '30'=>'ds3',
  86.  '31'=>'sip',
  87.  '32'=>'frame-relay',
  88.  '33'=>'rs232',
  89.  '34'=>'para',
  90.  '35'=>'arcnet',
  91.  '36'=>'arcnetPlus',
  92.  '37'=>'atm',
  93.  '38'=>'miox25',
  94.  '39'=>'sonet',
  95.  '40'=>'x25ple',
  96.  '41'=>'iso88022llc',
  97.  '42'=>'localTalk',
  98.  '43'=>'smdsDxi',
  99.  '44'=>'frameRelayService',
  100.  '45'=>'v35',
  101.  '46'=>'hssi',
  102.  '47'=>'hippi',
  103.  '48'=>'modem',
  104.  '49'=>'aal5',
  105.  '50'=>'sonetPath',
  106.  '51'=>'sonetVT',
  107.  '52'=>'smdsIcip',
  108.  '53'=>'propVirtual',
  109.  '54'=>'propMultiplexor',
  110.  '55'=>'100BaseVG'
  111.  );
  113.   my($community,$router) = split /@/, $ARGV[0];
  114.   die <<USAGE  unless $community && $router;
  116. USAGE: cfgmaker 'community'@'router'
  118. EXAMPLE:  cfgmaker public@ezwf7.ethz.ch >>mrtg.cfg
  120. USAGE
  122.   
  123.   my($sysDescr,$sysContact,$sysName,$sysLocation,$ifNumber,$sysObjectID) =
  124.     snmpget($router,$community,
  125.     'sysDescr','sysContact','sysName', 'sysLocation', 'ifNumber',
  126.     'sysObjectID');
  127.    $sysDescr =~ s/r/<BR>/g;  # Change returns to <BR>
  128.    my($cisco_router_sysid) = '1.3.6.1.4.1.9';
  129.    my($ciscobox) = ($sysObjectID =~ /^$cisco_router_sysid/);
  130.    my($foreasx_switch_sysid) = '1.3.6.1.4.1.326';
  131.    my($foreasx) = ($sysObjectID =~ /^$foreasx_switch_sysid/);
  133.     print <<ECHO;
  136. ######################################################################
  137. # Description: $sysDescr
  138. #     Contact: $sysContact
  139. # System Name: $sysName
  140. #    Location: $sysLocation
  141. #.....................................................................
  142. ECHO
  144.   my @ipadent = snmpgettable($router,$community, 'ipAdEntAddr');
  145.   my @ipadentif = snmpgettable($router,$community, 'ipAdEntIfIndex');
  147.   my(%ipaddr, %iphost,$index);
  148.   while (scalar @ipadentif){
  149.     $index = shift @ipadentif;
  150.     $ipaddr{$index} = shift @ipadent;
  151.     $iphost{$index} = 
  152.       gethostbyaddr(pack('C4',split(/./,$ipaddr{$index})), AF_INET);
  153.     if ($iphost{$index} eq ''){
  154.  $iphost{$index} = 'No hostname defined for IP address';
  155.     }
  156.   }
  158.   my(@ifdescr) = snmpgettable($router,$community, 'ifDescr');
  159.   my(@iftype) = snmpgettable($router,$community, 'ifType');
  160.   my(@ifspeed) = snmpgettable($router,$community, 'ifSpeed');
  161.   my(@ifadminstatus) = snmpgettable($router,$community, 'ifAdminStatus');
  162.   my(@ifoperstatus) = snmpgettable($router,$community, 'ifOperStatus');
  163.   my(@ifindex) = snmpgettable($router,$community, 'ifIndex');
  165.   # Get the user configurable interface description entered in the config 
  166.   # if it's a cisco-box
  167.   my @ciscodescr;
  168.   if ($ciscobox) {
  169.       @ciscodescr = snmpgettable($router,$community, 'CiscolocIfDescr');
  170.   }
  173.   if ($foreasx) {
  174.       # Get the FORE ATM Switch port configurations
  175.       # if it's a ASX Switch
  177.       my @asxipaddress;
  178.       my @asxilmiaddress;
  179.       my @asxifadminstatus;
  180.       my @asxifoperstatus;
  181.       my @asxifilmiaddress;
  182.       my @asxifipaddress;
  183.       my @asxmaxbandwidthin;
  184.       my @asxhwportname;
  185.       my @asxportnumber;
  187.       @asxportnumber = snmpgettable($router,$community, 'asxPortNumber');
  188.       @asxhwportname = snmpgettable($router,$community, 'asxhwPortName');
  189.       @asxipaddress = snmpgettable($router,$community, 'asxPortRemoteIpAddress');
  190.       @asxilmiaddress = snmpgettable($router,$community, 'asxPortILMIRemoteIpAddress');
  191.       @asxmaxbandwidthin = snmpgettable($router,$community, 'asxPortMaxBandwidthIn');
  192.       @asxifadminstatus = snmpgettable($router,$community, 'asxPortAdmnStat');
  193.       @asxifoperstatus = snmpgettable($router,$community, 'asxPortOperStat');
  196.       my(%ipaddr, %iphost,%ipiladdr, %ipilhost);
  198.       my(%sportnumber, %sportname, %sifadminstatus, %sifoperstatus, %smaxbandwidth);
  200.       while (scalar @asxportnumber) {
  201.     $index = shift @asxportnumber;
  202.     $sportnumber{$index} = $index;
  203.     $sportname{$index} = shift @asxhwportname;
  204.     $smaxbandwidth{$index} = shift @asxmaxbandwidthin;
  205.     $sifadminstatus{$index} = shift @asxifadminstatus;
  206.     $sifoperstatus{$index} = shift @asxifoperstatus;
  207.     $ipaddr{$index} = shift @asxipaddress;
  208.     $ipiladdr{$index} = shift @asxilmiaddress;
  210.     $iphost{$index} = 
  211.       gethostbyaddr(pack('C4',split(/./,$ipaddr{$index})), AF_INET);
  212.     if ($iphost{$index} eq ''){
  213.  $iphost{$index} = $ipaddr{$index};
  214.     }
  215.     $ipilhost{$index} = 
  216.       gethostbyaddr(pack('C4',split(/./,$ipiladdr{$index})), AF_INET);
  217.     if ($ipilhost{$index} eq ''){
  218.  $ipilhost{$index} = $ipiladdr{$index};
  219.     }
  220.       }
  222.       foreach $index (keys %sportnumber) {
  223.   my $c;
  224. my $speed = int($smaxbandwidth{$index}*53); # cells to bytes
  225.   my $speed_str=&fmi($speed);
  226. my $name="$router.$index";
  228. if (($sifoperstatus{$index} != 1)
  229. && ($sifadminstatus{$index} == 3)) {
  230.     print <<ECHO;
  231. ########
  232. ######## This Interface is one of the following
  233. ######## - administratively not UP
  234. ######## - it is in test mode
  235. ######## - it is a softwareLoopback interface
  236. ######## - has a unrealistic speed setting
  237. ######## It is commented out for this reason.
  238. ########
  239. ECHO
  240.     $c="# ";
  241. } else {
  242.     $c = '';
  243. }
  244.     
  245. print <<ECHO;
  246. ${c}
  247. ${c}Target[$name]: CellsRcvd.$index&CellsTrans.$index:$community@$router * 53
  248. ${c}MaxBytes[$name]: $speed
  249. ${c}Options[$name]: growright
  250. ${c}WithPeak[$name]: dwmy
  251. ${c}Title[$name]: $sysName ($iphost{$index}): $sportname{$index}
  252. ${c}PageTop[$name]: <H1>Traffic Analysis for $sportname{$index}
  253. ${c} </H1>
  254. ${c} <TABLE>
  255. ${c}   <TR><TD>System:</TD><TD>$sysName in $sysLocation</TD></TR>
  256. ${c}   <TR><TD>Maintainer:</TD><TD>$sysContact</TD></TR>
  257. ${c}   <TR><TD>Interface:</TD><TD>$sportname{$index} ($index)</TD></TR>
  258. ECHO
  259. print <<ECHO if $iphost{$index}!="255.255.255.255";
  260. ${c}   <TR><TD>Remote IP:</TD><TD>$iphost{$index} ($ipaddr{$index})</TD></TR>
  261. ECHO
  262. print <<ECHO if $ipilhost{$index}!="255.255.255.255";
  263. ${c}   <TR><TD>Remote ILMI IP:</TD><TD>$ipilhost{$index} ($ipiladdr{$index})</TD></TR>
  264. ECHO
  265. print <<ECHO;
  266. ${c}   <TR><TD>Max Speed:</TD>
  267. ${c}       <TD>$speed_str (Sonet)</TD></TR>
  268. ${c}  </TABLE>
  269. ${c}
  270. #---------------------------------------------------------------
  271. ECHO
  272.     }
  273.   }
  274.   else {
  276.   my(%sifdesc,%siftype,%sifspeed,%sifadminstatus,%sifoperstatus,%sciscodescr);
  277.   while (scalar @ifindex) {
  278.   # as these arrays get filled from the bottom, 
  279.   # we need to empty them from the botom as well ...
  280.   # fifo
  281.     $index = shift @ifindex;
  282.     $sifdesc{$index} = shift @ifdescr;
  283.     $siftype{$index} = shift @iftype;
  284.     print STDERR $siftype{$index};
  285.     $sifspeed{$index} = shift @ifspeed;
  286.     $sifadminstatus{$index} = shift @ifadminstatus;
  287.     $sifoperstatus{$index} = shift @ifoperstatus;
  288.     # especially since cisco does not return a if
  289.     # descr for each interface it has ...
  290.     $sciscodescr{$index} = "<BR>" . (shift @ciscodescr) if @ciscodescr;
  291. }
  293. foreach $index (keys %sifdesc) {
  294. my $c;
  295. my $speed = int($sifspeed{$index} / 8); # bits to byte
  296.   my $speed_str=&fmi($speed);
  297. my $name="$router.$index";
  299. if (($sifadminstatus{$index} != 1)
  300. || ($siftype{$index} == 24)
  301. || ($speed == 0 ) 
  302. || ($speed > 400 * 10**6)  #speeds of 400 MByte/s are not realistic
  303. || ($sifoperstatus{$index} == 3)) {
  304. print <<ECHO;
  305. ########
  306. ######## This Interface is one of the following
  307. ######## - administratively not UP
  308. ######## - it is in test mode
  309. ######## - it is a softwareLoopback interface
  310. ######## - has a unrealistic speed setting
  311. ######## It is commented out for this reason.
  312. ########
  313. ECHO
  314.   $c="# ";
  315.   }else {
  316.     $c = '';
  317.   }
  318.     
  319.   print <<ECHO;
  320. ${c}
  321. ${c}Target[$name]: $index:$community@$router
  322. ${c}MaxBytes[$name]: $speed
  323. ${c}Options[$name]: growright
  324. ${c}WithPeak[$name]: dwmy
  325. ${c}Title[$name]: $sysName ($iphost{$index}): $sifdesc{$index}
  326. ${c}PageTop[$name]: <H1>Traffic Analysis for $sifdesc{$index}
  327. ${c} $sciscodescr{$index}</H1>
  328. ${c} <TABLE>
  329. ${c}   <TR><TD>System:</TD><TD>$sysName in $sysLocation</TD></TR>
  330. ${c}   <TR><TD>Maintainer:</TD><TD>$sysContact</TD></TR>
  331. ${c}   <TR><TD>Interface:</TD><TD>$sifdesc{$index} ($index)</TD></TR>
  332. ${c}   <TR><TD>IP:</TD><TD>$iphost{$index} ($ipaddr{$index})</TD></TR>
  333. ${c}   <TR><TD>Max Speed:</TD>
  334. ${c}       <TD>$speed_str ($ifType_d{$siftype{$index}})</TD></TR>
  335. ${c}  </TABLE>
  336. ${c}
  337. #---------------------------------------------------------------
  338. ECHO
  339.   }
  340.  }
  341. }
  342.   
  343. main;
  344. exit(0);
  346. sub snmpget{  
  347.   my($host,$community,@vars) = @_;
  348.   my(@enoid, $var,$response, $bindings, $binding, $value, $inoid,$outoid,
  349.      $upoid,$oid,@retvals);
  350.   foreach $var (@vars) {
  351.     die "Unknown SNMP var $varn" 
  352.       unless $snmpget::OIDS{$var};
  353.     push @enoid,  encode_oid((split /./, $snmpget::OIDS{$var}));
  354.   }
  355.   srand();
  356.   my $session = SNMP_Session->open ($host ,
  357.                                  $community, 
  358.                                  161);
  359.   if ($session->get_request_response(@enoid)) {
  360.     $response = $session->pdu_buffer;
  361.     ($bindings) = $session->decode_get_response ($response);
  362.     $session->close ();    
  363.     while ($bindings) {
  364.       ($binding,$bindings) = decode_sequence ($bindings);
  365.       ($oid,$value) = decode_by_template ($binding, "%O%@");
  366.       my $tempo = pretty_print($value);
  367.       $tempo=~s/t/ /g;
  368.       $tempo=~s/n/ /g;
  369.       $tempo=~s/^s+//;
  370.       $tempo=~s/s+$//;
  372.       push @retvals,  $tempo;
  373.     }
  374.     
  375.     return (@retvals);
  376.   } else {
  377.     die "No answer from $ARGV[0]. You may be using the wrong communityn";
  378.   }
  379. }
  381. sub snmpgettable{
  382.   my($host,$community,$var) = @_;
  383.   my($next_oid,$enoid,$orig_oid, 
  384.      $response, $bindings, $binding, $value, $inoid,$outoid,
  385.      $upoid,$oid,@table,$tempo);
  386.   die "Unknown SNMP var $varn" 
  387.     unless $snmpget::OIDS{$var};
  388.   
  389.   $orig_oid = encode_oid(split /./, $snmpget::OIDS{$var});
  390.   $enoid=$orig_oid;
  391.   srand();
  392.   my $session = SNMP_Session->open ($host ,
  393.                                  $community, 
  394.                                  161);
  395.   for(;;)  {
  396.     if ($session->getnext_request_response(($enoid))) {
  397.       $response = $session->pdu_buffer;
  398.       ($bindings) = $session->decode_get_response ($response);
  399.       ($binding,$bindings) = decode_sequence ($bindings);
  400.       ($next_oid,$value) = decode_by_template ($binding, "%O%@");
  401.       # quit once we are outside the table
  402.       last unless BER::encoded_oid_prefix_p($orig_oid,$next_oid);
  403.       $tempo = pretty_print($value);
  404.       #print "$var: '$tempo'n";
  405.       $tempo=~s/t/ /g;
  406.       $tempo=~s/n/ /g;
  407.       $tempo=~s/^s+//;
  408.       $tempo=~s/s+$//;
  409.       push @table, $tempo;
  410.      
  411.     } else {
  412.       die "No answer from $ARGV[0]n";
  413.     }
  414.     $enoid=$next_oid;
  415.   }
  416.   $session->close ();    
  417.   return (@table);
  418. }
  420. sub fmi {
  421.   my($number) = $_[0];
  422.   my(@short);
  423.   @short = ("Bytes/s","kBytes/s","MBytes/s","GBytes/s","TBytes/s");
  424.   my $digits=length("".$number);
  425.   my $divm=0;
  426.   while ($digits-$divm*3 > 4) { $divm++; }
  427.   my $divnum = $number/10**($divm*3);
  428.   return sprintf("%1.1f %s",$divnum,$short[$divm]);
  429. }