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

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

SNMP编程

开发平台：

C/C++

cfgmaker_atm.pl：源码内容
  1. #!/usr/drwho/local/bin/perl
  2. # -*- mode: Perl -*-
  3. ##################################################################
  4. # 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
  12. #
  13. # $Id: cfgmaker_atm.pl,v 1.1.1.1 2002/02/26 10:16:31 oetiker Exp $
  14. #
  15. use SNMP_Session "0.56";
  16. use BER "0.54";
  17. use Socket;
  18. use strict;
  19. use vars '$DEBUG';
  20. my $DEBUG = 0;
  22. %snmpget::OIDS = (  'sysDescr' => '1.3.6.1.2.1.1.1.0',
  23.     'sysContact' => '1.3.6.1.2.1.1.4.0',
  24.     'sysName' => '1.3.6.1.2.1.1.5.0',
  25.     'sysLocation' => '1.3.6.1.2.1.1.6.0',
  26.     'sysUptime' => '1.3.6.1.2.1.1.3.0',
  27.     'ifNumber' =>  '1.3.6.1.2.1.2.1.0',
  28.     ###################################
  29.     # add the ifNumber ....
  30.     'ifDescr' => '1.3.6.1.2.1.2.2.1.2',
  31.     'ifType' => '1.3.6.1.2.1.2.2.1.3',
  32.     'ifIndex' => '1.3.6.1.2.1.2.2.1.1',
  33.     'ifSpeed' => '1.3.6.1.2.1.2.2.1.5', 
  34.     'ifOperStatus' => '1.3.6.1.2.1.2.2.1.8',  
  35.     'ifAdminStatus' => '1.3.6.1.2.1.2.2.1.7',  
  36.     # up 1, down 2, testing 3
  37.     'ipAdEntAddr' => '1.3.6.1.2.1.4.20.1.1',
  38.     'ipAdEntIfIndex' => '1.3.6.1.2.1.4.20.1.2',
  39.     'sysObjectID' => '1.3.6.1.2.1.1.2.0',
  40.     'CiscolocIfDescr' => '1.3.6.1.4.1.9.2.2.1.1.28',
  41.     'ifAlias' => '1.3.6.1.2.1.31.1.1.1.18',
  42.              'ifAtmLecConfigEntry' =>    '1.3.6.1.4.1.18.3.5.9.5.20.1.1.8',
  43.  'ifAtmLecConfigName' =>    '1.3.6.1.4.1.18.3.5.9.5.20.1.1.3',
  44.              'ifAtmVclConfEntry' =>      '1.3.6.1.4.1.18.3.4.23.1.5.1.22',
  45.              'ifAtmVclConf2'     =>      '1.3.6.1.4.1.18.3.4.23.1.5.1.2',
  46.              'ifAtmVclConf3'     =>      '1.3.6.1.4.1.18.3.4.23.1.5.1.4',
  47.              'ifAtmizerVclStatsEntry' => '1.3.6.1.4.1.18.3.4.23.3.4.1.7',
  48.              'ifAtmizerVclStatsEntr1' => '1.3.6.1.4.1.18.3.4.23.3.4.1.1',
  49.              'ifAtmizerVclStatsEntr2' => '1.3.6.1.4.1.18.3.4.23.3.4.1.3',
  50.                     
  52.  );
  56. sub main {
  59.   my(%ifType_d)=('1'=>'Other',
  60.  '2'=>'regular1822',
  61.  '3'=>'hdh1822',
  62.  '4'=>'ddnX25',
  63.  '5'=>'rfc877x25',
  64.  '6'=>'ethernetCsmacd',
  65.  '7'=>'iso88023Csmacd',
  66.  '8'=>'iso88024TokenBus',
  67.  '9'=>'iso88025TokenRing',
  68.  '10'=>'iso88026Man',
  69.  '11'=>'starLan',
  70.  '12'=>'proteon10Mbit',
  71.  '13'=>'proteon80Mbit',
  72.  '14'=>'hyperchannel',
  73.  '15'=>'fddi',
  74.  '16'=>'lapb',
  75.  '17'=>'sdlc',
  76.  '18'=>'ds1',
  77.  '19'=>'e1',
  78.  '20'=>'basicISDN',
  79.  '21'=>'primaryISDN',
  80.  '22'=>'propPointToPointSerial',
  81.  '23'=>'ppp',
  82.  '24'=>'softwareLoopback',
  83.  '25'=>'eon',
  84.  '26'=>'ethernet-3Mbit',
  85.  '27'=>'nsip',
  86.  '28'=>'slip',
  87.  '29'=>'ultra',
  88.  '30'=>'ds3',
  89.  '31'=>'sip',
  90.  '32'=>'frame-relay',
  91.  '33'=>'rs232',
  92.  '34'=>'para',
  93.  '35'=>'arcnet',
  94.  '36'=>'arcnetPlus',
  95.  '37'=>'atm',
  96.  '38'=>'miox25',
  97.  '39'=>'sonet',
  98.  '40'=>'x25ple',
  99.  '41'=>'iso88022llc',
  100.  '42'=>'localTalk',
  101.  '43'=>'smdsDxi',
  102.  '44'=>'frameRelayService',
  103.  '45'=>'v35',
  104.  '46'=>'hssi',
  105.  '47'=>'hippi',
  106.  '48'=>'modem',
  107.  '49'=>'aal5',
  108.  '50'=>'sonetPath',
  109.  '51'=>'sonetVT',
  110.  '52'=>'smdsIcip',
  111.  '53'=>'propVirtual',
  112.  '54'=>'propMultiplexor',
  113.  '55'=>'100BaseVG'
  114.  );
  116.   my($vendor)=0;
  117.   if ($ARGV[0] eq '--vendor') {
  118. $vendor = 1; shift @ARGV};
  120.   my($community,$router) = split /@/, $ARGV[0];
  121.   die <<USAGE  unless $community && $router;
  123. USAGE: cfgmaker [--vendor] 'community'@'router'
  125. use the --vendor option to try and wrestle some better information
  126. from willing livingston and cisco routers ... (may not work)
  128. EXAMPLE:  cfgmaker public@ezwf7.ethz.ch >>mrtg.cfg
  131. USAGE
  133.   
  134.   
  135.   my($sysDescr,$sysContact,$sysName,$sysLocation,$ifNumber,$sysObjectID) =
  136.     snmpget($router,$community,
  137.     'sysDescr','sysContact','sysName', 'sysLocation', 'ifNumber', 'sysObjectID');
  139.    $sysDescr =~ s/r/<BR>/g;  # Change returns to <BR>
  140.    my($cisco_router_sysid) = '1.3.6.1.4.1.9';
  141.    my($livingston_router_sysid) = '1.3.6.1.4.1.307';
  142.    my($ciscobox) = ($sysObjectID =~ /^$cisco_router_sysid/);
  143.    my($portmaster) = ($sysObjectID =~ /^$livingston_router_sysid/);
  145.     print <<ECHO;
  147. WorkDir: d:\mrtg\pub\www\stats\mrtg
  149. ######################################################################
  150. # Description: $sysDescr
  151. #     Contact: $sysContact
  152. # System Name: $sysName
  153. #    Location: $sysLocation
  154. #.....................................................................
  155. ECHO
  157.   my @ipadent = snmpgettable($router,$community, 'ipAdEntAddr');
  158.   print  "Got Addressesn" if $DEBUG;
  159.   my @ipadentif = snmpgettable($router,$community, 'ipAdEntIfIndex');
  160.   print  "Got IfTablen" if $DEBUG;
  161.   my @ifatmlec = snmpgettable($router,$community, 'ifAtmLecConfigEntry');
  162.     print  "Got ifAtmLecConfigEntryn" if $DEBUG;
  163.   my @ifatmlecName = snmpgettable($router,$community, 'ifAtmLecConfigName');
  164.     print  "Got ifatmlecNamen" if $DEBUG;
  165.   my @ifatmvcl = snmpgettable($router,$community, 'ifAtmVclConfEntry');
  166.     print  "Got ifAtmVclConfEntryn" if $DEBUG;
  167.   my @ifatmpvc = snmpgettable($router,$community, 'ifAtmizerVclStatsEntry');
  168.     print  "Got ifAtmizerVclStatsEntryn" if $DEBUG;
  169.   my @ifatmVclConf2 = snmpgettable($router,$community, 'ifAtmVclConf2');
  170.     print  "Got ifAtmVclConf2n" if $DEBUG; 
  171.  my @ifatmVclConf3 = snmpgettable($router,$community, 'ifAtmVclConf3');
  172.     print  "Got ifAtmVclConf3n" if $DEBUG;
  173. my @ifatmpvc1 = snmpgettable($router,$community, 'ifAtmizerVclStatsEntr1');
  174.     print  "Got ifatmpvc1n" if $DEBUG;
  175. my @ifatmpvc2 = snmpgettable($router,$community, 'ifAtmizerVclStatsEntr2');
  176.     print  "Got ifatmpvc2n" if $DEBUG;
  179. # get circuit name  'ifAtmVclConf2'
  180. # get atm Interface number  'ifAtmVclConf3'
  181. # get atm interface -> atm_name  'ifAtmVclConfEntry'
  185.   my(%ipaddr, %iphost,$index);
  187.   while (scalar @ipadentif){
  188.     $index = shift @ipadentif;
  189.     $ipaddr{$index} = shift @ipadent;
  190.  #   $iphost{$index} = 
  191.  #     gethostbyaddr(pack('C4',split(/./,$ipaddr{$index})), AF_INET);
  192.  #   if ($iphost{$index} eq ''){
  193.  $iphost{$index} = ' '; 
  194.  #   }
  195.   }
  197.   my(@ifdescr) = snmpgettable($router,$community, 'ifDescr');
  198.   print  "Got IfDescrn" if $DEBUG;
  199.   my(@iftype) = snmpgettable($router,$community, 'ifType');
  200.   print  "Got IfTypen" if $DEBUG;
  201.   my(@ifspeed) = snmpgettable($router,$community, 'ifSpeed');
  202.   print  "Got IfSpeedn" if $DEBUG;
  203.   my(@ifadminstatus) = snmpgettable($router,$community, 'ifAdminStatus');
  204.   print  "Got IfAdminStatusn" if $DEBUG;
  205.   my(@ifoperstatus) = snmpgettable($router,$community, 'ifOperStatus');
  206.   print  "Got IfOperStatusn" if $DEBUG;
  207.   my(@ifindex) = snmpgettable($router,$community, 'ifIndex');
  208.   print  "Got IfIndexn" if $DEBUG;
  210.   my(%sifdesc,%siftype,%sifspeed,%sifadminstatus,%sifoperstatus,%sciscodescr);
  212.   ### May need the cisco IOS version number so we know which oid to use
  213.   ###   to get the cisco description.
  214.   ###
  215.   ### - mjd 2/5/98 (Mike Diehn) (mdiehn@mindspring.net)
  216.   ###
  217.   my ($cisco_ver, $cisco_descr_oid, @ciscodescr);
  218.  my (%atmindex, %atmindex2, %atmCir, %atmindex5, $atmindex2);
  220.   if ( $ciscobox ) {
  221.     ($cisco_ver) = ($sysDescr =~ m/Versions+([d.]+)(d+)w*?,/o);
  222.     $cisco_descr_oid = ($cisco_ver ge "11.2") ? "ifAlias" : "CiscolocIfDescr";
  223.   }
  224. print  "Print from ifatmlecname n" if $DEBUG;
  226.   while (scalar @ifatmlecName) {
  227.     $index = shift @ifatmlecName;
  228.     $sifdesc{$index} = shift @ifatmlec;
  229.     $siftype{$index} = '';
  230.     $sifspeed{$index} = '';
  231.     $sifadminstatus{$index} = '';
  232.     $sifoperstatus{$index} = '';
  233.     my $atm_Index = $index;
  234.     my $name = "$router.$index";
  235.     my $name2 = "$router.$sifdesc{$index}";
  237. print  "$sifdesc{$index}: '$sifdesc{$index}'n" if $DEBUG;
  238. print  "$index: $atm_Index: $name:  $name2:  $sifdesc{$index}n" if $DEBUG;
  239.  
  240.     }
  241.  my $jet2;
  242.   
  244.    print  " sifdesc  n" if $DEBUG; 
  245. foreach $jet2 (%sifdesc) {
  246. print  "$jet2  n" if $DEBUG; 
  247. }
  250. print  "Print from ifatmpvc1 n" if $DEBUG;
  252.     while  (scalar @ifatmpvc2) {
  253.    $index = shift @ifatmpvc2;
  254.     $atmindex{$index} = $index;
  255.     $atmCir{$index} = shift @ifatmpvc1;
  256.     my $atm_Index_Base = $index;
  257.     my $atm_Index = $atmindex{$index};
  258.     my $name = $atmCir{$index};
  259.     my $atm_index2 = $atmindex2{$index};
  260. print  "$index: $atm_Index_Base: $atm_Index:  $name: $atm_index2n" if $DEBUG;
  261.  
  263. print  "$index: '$index'n" if $DEBUG;
  264. print  "$atmindex{$index}: '$atmindex{$index}'n" if $DEBUG;
  265. print  "$atmCir{$index}: '$atmCir{$index}'n" if $DEBUG;
  266. print  "$atmindex2{$index}: '$atmindex2{$index}'n" if $DEBUG;    
  267. }
  269.     while  (scalar @ifatmVclConf3) {
  270.    $index = shift @ifatmVclConf3;
  271.    $atmindex2{$index} = shift @ifatmvcl;
  272. }
  273.    print  " atmindex  n" if $DEBUG; 
  275.  foreach $jet2 (%atmindex) {
  276. print  "$jet2  n" if $DEBUG; 
  277. }
  280.    print  " atmCir  n" if $DEBUG; 
  281. foreach $jet2 (%atmCir) {
  282. print  "$jet2  n" if $DEBUG; 
  283. }
  285.    print  " atmindex2 n" if $DEBUG; 
  286. foreach $jet2 (%atmindex2) {
  287. print  "$jet2  n" if $DEBUG; 
  288. }
  291. print  "Print from ifatmVclconf3 n" if $DEBUG;
  295.   while (scalar @ifindex) {
  297.   # as these arrays get filled from the bottom, 
  298.   # we need to empty them from the botom as well ...
  299.   # fifo
  301.     $index = shift @ifindex;
  302.     $sifdesc{$index} = shift @ifdescr;
  303.     $siftype{$index} = shift @iftype;
  304.     $sifspeed{$index} = shift @ifspeed;
  305.     $sifadminstatus{$index} = shift @ifadminstatus;
  306.     $sifoperstatus{$index} = shift @ifoperstatus;
  308.     if ($portmaster && $vendor) {
  309.       
  310.       # We can only approximate speeds
  311.       # 
  312.       # so we think that ppp can do 76800 bit/s, and slip 38400.
  313.       # (actualy, slip is a bit faster, but usualy users with newer modems
  314.       # use ppp). Alternatively, you can set async speed to 115200 or
  315.       # 230400 (the maximum speed supported by portmaster).
  316.       # 
  317.       # But if the interface is ptpW (sync), max speed is 128000
  318.       # change it to your needs. On various Portmasters there are
  319.       # various numbers of sync interfaces, so modify it.
  320.       # 
  321.       #  The most commonly used PM-2ER has only one sync.
  322.       # 
  323.       #  Paul Makeev (mac@redline.ru)
  324.       # 
  326.       if ($siftype{$index} eq '23') {
  327.               if ($sifdesc{$index} eq 'ptpW1') {
  328.                       $sifspeed{$index} = 128000;
  329.               } else {
  330.                       $sifspeed{$index} = 76800;
  331.               }
  332.       } elsif ($siftype{$index} eq '28') {
  333.               $sifspeed{$index} = 38400;
  334.       } elsif ($siftype{$index} eq '6') {
  335.               $sifspeed{$index} = 10000000;
  336.       }
  337.     }
  339.     ### Move this section south so we know what type of
  340.     ###  circuit we're looking at before we retrieve
  341.     ###  the cisco interface alias.
  342.     ###
  343.     ### This whole cicso thing should be re-written, but since
  344.     ###   this script doesn't need to run quickly...
  345.     ###
  346.     ###  - mjd 2/5/98
  347.     ###
  348.     # Get the user configurable interface description entered in the config 
  349.     # if it's a cisco-box
  350.     #
  351.     if ($ciscobox && $vendor) {
  353. my ($enoid, @descr);
  355. $enoid = $snmpget::OIDS{"$cisco_descr_oid"} . "." . $index;
  357. if ( $cisco_ver ge "11.2" or $siftype{$index} != '32' ) {
  359.   ### This is either not a frame-relay sub-interface or
  360.   ###  this router is running IOS 11.2+ and interface
  361.   ###  type won't matter. In either of these cases, it's
  362.   ###  ok to try getting the ifAlias or ciscoLocIfDesc.
  363.   ###
  364.   @descr = snmpget($router,$community, $enoid);
  366. } else {
  368.   ### This is a frame-relay sub-interface *and* the router
  369.   ###  is running an IOS older than 11.2. Therefore, we can
  370.   ###  get neither ifAlias nor ciscoLocIfDesc. Do something
  371.   ###  useful.
  372.   ###
  373.   @descr = ("Cisco PVCs descriptions require IOS 11.2+.");
  375. } # end if else
  377. ### Put whatever I got into the array we'll use later to append the result
  378. ###   of this operation onto the results from the ifDescr fetch.
  379. ###
  380. push @ciscodescr, shift @descr;
  382.     } # end if ($cisco_box && $vendor)
  384.     # especially since cisco does not return a if
  385.     # descr for each interface it has ...
  386.     ## JB 2/8/97 - sometimes IOS inserts E1 controllers in the standard-MIB
  387.     ## interface table, but not in the local interface table. This puts the
  388.     ## local interface description table out-of-sync. the following 
  389.     ## modification skips over E1 cards as interfaces.
  390.     #
  391.     ### I suspect that the mod I made above, to use the ifAlias
  392.     ###   oid if possible, may cause problems here. If it seems
  393.     ###   that your descriptions are out of sync, try commenting
  394.     ###   out the "if ( condition )" and it's closing right brace
  395.     ###   so that the "shift @ciscodescr" get executed for *all*
  396.     ###   iterations of this loop.
  397.     ###
  398.     ### - mjd 2/5/95
  399.     ###
  400.     if ($ciscobox && $siftype{$index} != 18) {
  401.           $sciscodescr{$index} = "<BR>" . (shift @ciscodescr) if @ciscodescr;
  402.     }
  403. }
  405.  my $jet;
  406.    print  " atmindex2  n" if $DEBUG; 
  408.  foreach $jet (%atmindex2) {
  409. print  "$jet  n" if $DEBUG; 
  410. }
  412.    print  " sifdesc  n" if $DEBUG; 
  413. foreach $jet (%sifdesc) {
  414. print  "$jet  n" if $DEBUG; 
  415. }
  417.    print  " atmCir  n" if $DEBUG; 
  418. foreach $jet (%atmCir) {
  419. print  "$jet  n" if $DEBUG; 
  420. }
  422.    print  " atmindex n" if $DEBUG; 
  423. foreach $jet (%atmindex) {
  424. print  "$jet  n" if $DEBUG; 
  425. }
  427. print  " Possible Targets  n" if $DEBUG; 
  429.   foreach $index ( sort { $atmindex2{$a} <=> $atmindex2{$b} } keys %atmindex2) {
  430.     my $c;
  431. my $index2 = $atmindex2{$index}; 
  432. #        my $name = "$router.$sifdesc{$index2}.$atmindex2{$index}.$index";
  433.         my $name = "$router.$index2.$index";
  434. my $target1 = "1.3.6.1.4.1.18.3.4.23.3.4.1.7.$atmCir{$index}.0.$index";
  435. my $target2 = "1.3.6.1.4.1.18.3.4.23.3.4.1.21.$atmCir{$index}.0.$index";
  437. print  "$index: $index2: $name: $target1: $target2:  n" if $DEBUG;
  439.    $c = '';
  440.     
  441.   print <<ECHO;
  442. ${c}
  443. ${c}Target[$name]: $target1&$target2:$community@$router * 53
  444. ${c}MaxBytes[$name]: 19400000 
  445. ${c}Title[$name]: $sysName ($iphost{$index}):  $index2 <- $index $sifdesc{$index2}
  446. ${c}PageTop[$name]: <H1>Traffic Analysis for $index2 <- $index $sifdesc{$index2}
  447. ${c} $sciscodescr{$index}</H1>
  448. ${c} <TABLE>
  449. ${c}   <TR><TD>System:</TD><TD>$sysName in $sysLocation</TD></TR>
  450. ${c}   <TR><TD>Maintainer:</TD><TD>$sysContact</TD></TR>
  451. ${c}   <TR><TD>Interface:</TD><TD>$sifdesc{$index} ($index)</TD></TR>
  452. ${c}   <TR><TD>IP:</TD><TD>$iphost{$index} ($ipaddr{$index})</TD></TR>
  453. ${c}   <TR><TD>Max Speed:</TD>
  454. ${c}       <TD>19.4MB ($ifType_d{$siftype{$index}})</TD></TR>
  455. ${c}  </TABLE>
  456. ${c}
  457. #---------------------------------------------------------------
  458. ECHO
  459.   }
  460. }
  461.   
  462. main;
  463. exit(0);
  465. sub snmpget{  
  466.   my($host,$community,@vars) = @_;
  467.   my(@enoid, $var,$response, $bindings, $binding, $value, $inoid,$outoid,
  468.      $upoid,$oid,@retvals);
  469.   my($hackcisco);
  470.   foreach $var (@vars) {
  471.     die "Unknown SNMP var $varn" 
  472.       unless $snmpget::OIDS{$var} || $var =~ /^d+[.d+]*.d+$/;
  473.     if ($var =~ /^d+[.d+]*.d+/) {
  474. push @enoid,  encode_oid((split /./, $var));
  475. $hackcisco = 1;
  476.     } else {
  477. push @enoid,  encode_oid((split /./, $snmpget::OIDS{$var}));
  478. $hackcisco = 0;
  479.     }
  480.   }
  481.   srand();
  482.   my $session = SNMP_Session->open ($host ,
  483.                                  $community, 
  484.                                  161);
  485.   if ($session->get_request_response(@enoid)) {
  486.     $response = $session->pdu_buffer;
  487.     ($bindings) = $session->decode_get_response ($response);
  488.     $session->close ();    
  489.     while ($bindings) {
  490.       ($binding,$bindings) = decode_sequence ($bindings);
  491.       ($oid,$value) = decode_by_template ($binding, "%O%@");
  492.       my $tempo = pretty_print($value);
  493.       $tempo=~s/t/ /g;
  494.       $tempo=~s/n/ /g;
  495.       $tempo=~s/^s+//;
  496.       $tempo=~s/s+$//;
  498.       push @retvals,  $tempo;
  499.     }
  500.     
  501.     return (@retvals);
  502.   } else {
  503.       if ($hackcisco) {
  504.   return ("");
  505.       } else {
  506.   die "No answer from $ARGV[0]. You may be using the wrong communityn";
  507.       }
  508.   }
  509. }
  511. sub snmpgettable{
  512.   my($host,$community,$var) = @_;
  513.   my($next_oid,$enoid,$orig_oid, 
  514.      $response, $bindings, $binding, $value, $inoid,$outoid,
  515.      $upoid,$oid,@table,$tempo);
  516.   die "Unknown SNMP var $varn" 
  517.     unless $snmpget::OIDS{$var};
  518.   
  519.   $orig_oid = encode_oid(split /./, $snmpget::OIDS{$var});
  520.   $enoid=$orig_oid;
  521.   srand();
  522.   my $session = SNMP_Session->open ($host ,
  523.                                  $community, 
  524.                                  161);
  525.   for(;;)  {
  526.     if ($session->getnext_request_response(($enoid))) {
  527.       $response = $session->pdu_buffer;
  528.       ($bindings) = $session->decode_get_response ($response);
  529.       ($binding,$bindings) = decode_sequence ($bindings);
  530.       ($next_oid,$value) = decode_by_template ($binding, "%O%@");
  531.       # quit once we are outside the table
  532.       last unless BER::encoded_oid_prefix_p($orig_oid,$next_oid);
  533.       $tempo = pretty_print($value);
  534.       print  "$var: '$tempo'n" if $DEBUG;
  535.       
  536.       $tempo=~s/t/ /g;
  537.       $tempo=~s/n/ /g;
  538.       $tempo=~s/^s+//;
  539.       $tempo=~s/s+$//;
  540.       push @table, $tempo;
  541.      
  542.     } else {
  543.       warn "No sensible answer from $ARGV[0] for $var ... results may be wrong!n";
  544. last;
  545.     }
  546.     $enoid=$next_oid;
  547.   }
  548.   $session->close ();    
  549.   return (@table);
  550. }
  552. sub fmi {
  553.   my($number) = $_[0];
  554.   my(@short);
  555.   @short = ("Bytes/s","kBytes/s","MBytes/s","GBytes/s");
  556.   my $digits=length("".$number);
  557.   my $divm=0;
  558.   while ($digits-$divm*3 > 4) { $divm++; }
  559.   my $divnum = $number/10**($divm*3);
  560.   return sprintf("%1.1f %s",$divnum,$short[$divm]);
  561. }