#! /usr/sepp/bin/perl# -*- mode: Perl -*-BEGIN{$main::OS = 'UNIX';#$main::OS = 'NT';#$main::OS = 'VMS';################################################################### MRTG 2.8.12  -- Config file creator################################################################### Created by Tobias Oetiker <oetiker@ee.ethz.ch># this produces a config file for one router, by bulling info# off the router via snmp################################################################### Distributed under the GNU copyleft   # The path separator is a slash, backslash or semicolon, depending   # on the platform.   $main::SL = {     UNIX=>'/',     WINDOWS=>'\\',     NT=>'\\',     VMS=>''     }->{$main::OS};   # The search path separator is a colon or semicolon depending on the   # operating system.   $main::PS = {     UNIX=>':',     WINDOWS=>';',     NT=>';',     VMS=>':'     }->{$main::OS};  # We need to find the place where cfgmaker is installed, and  # then take the .pm and rateup programms from there.  $main::binpath ="";  if ($0 =~ /^(.+\Q${main::SL}\E)/) {    $main::binpath="$1";  } else {    foreach $pathname ( split ${main::PS}, $ENV{'PATH'}) {      if ((($main::OS eq 'NT') &&           (-e "$pathname${main::SL}$0")) ||           (-x "$pathname${main::SL}$0")) {        $main::binpath=$pathname;        last;      }    }  }  die "ERROR: Can\'t find location of cfgmaker executable\n"     unless $main::binpath;   unshift (@INC,$main::binpath);}use BER "0.57";use SNMP_Session "0.59";use SNMP_util "0.57";use Socket;use strict;use vars '$DEBUG';my ($session, %ipaddr, %iphost, %ipset);my $DEBUG = 10;my $codesc;my $name;my $argz = join($",@ARGV);# Setup your defaults:  my($vendor) = 0;  my($codescr) = 0;  my($withnodescr) = 0;  my($ipindex) = 0;  my($comments) = 0;  my($Gsubdir) = 0;  my($subdir) = 0;  my($WorkDir) = "";  my($Template) = "";  my($invertreg) = "";  my($noinvertreg) = "";  my($withtables) = 1;  my($match) = '.';  my($nomatch) = '';sub NormaliseDescr {  $codesc =~ s/<BR>//g;  $codesc =~ s/["|&\/><]//g;  $codesc =~ s/\-[0-9]+[km]//i;}sub ParseOptions { while ($ARGV[0] =~ /^\-/) {     if ($ARGV[0] eq '--vendor') {	$vendor = !$vendor; shift @ARGV}  elsif ($ARGV[0] eq '-d') {	$codescr = !$codescr; shift @ARGV}  elsif ($ARGV[0] eq '-i') {	$ipindex = !$ipindex; shift @ARGV}  elsif ($ARGV[0] eq '-c') {	$comments = !$comments; shift @ARGV}  elsif ($ARGV[0] eq '-s') {	$Gsubdir = $subdir ; $subdir = !$subdir; shift @ARGV}  elsif ($ARGV[0] eq '-S') {	$subdir = $Gsubdir ; $Gsubdir = !$Gsubdir; shift @ARGV}  elsif ($ARGV[0] eq '-n') {	$withnodescr = !$withnodescr; shift @ARGV}  elsif ($ARGV[0] eq '-T') {	$withtables = !$withtables; shift @ARGV}  elsif ($ARGV[0] eq '-w') {	shift @ARGV ; $WorkDir = $ARGV[0]; shift @ARGV}  elsif ($ARGV[0] eq '-t') {	shift @ARGV ; $Template = $ARGV[0]; shift @ARGV}  elsif ($ARGV[0] eq '-R') {	shift @ARGV ; $noinvertreg = ''; $invertreg = $ARGV[0]; shift @ARGV}  elsif ($ARGV[0] eq '-r') {	shift @ARGV ; $invertreg = ''; $noinvertreg = $ARGV[0]; shift @ARGV}  elsif ($ARGV[0] eq '-M') {	shift @ARGV ; $match = $ARGV[0]; shift @ARGV}  elsif ($ARGV[0] eq '-m') {	shift @ARGV ; $nomatch = $ARGV[0]; shift @ARGV}  else { Usage("Unknown option: $ARGV[0]\n") } }}sub Usage {  my ($str) = @_;  die <<USAGE;USAGE: cfgmaker_ip [--vendor] [options] 'community'\@'router'(This is an experimental version of cfgmaker for the new ip-get featrue of mrtg ... ) Options: --vendor : use this option to try and wrestle some better information   from willing livingston and cisco routers ... (may not work) (default: $vendor) -d : try to name Target[ifDescription] from --vendor interface description.      If it fails, it falls back to regular naming. (default: $codescr) -i : to use interface IP aadress in place of its ifIndex. Useful for devices      that may change ifIndex upon configuration changes. (default: $ipindex)      (This depends on support of ipAdEntIfIndex snmp lookup) -c : toggle. Add inactive interfaces into config file as commented targets.      (default: $comments) -s : add Directory[target]: router to the config file, so that each      router gets its own subdirectory in mrtg structure. (default: $subdir) -S : add single global "Directory[^]: router". Useful if you use one      config file per router. (default: $Gsubdir) -n : toggle. include/suppress interfaces without Description -w dir : specify relative or full mrtg WorkDir: (default: '$WorkDir') -t file : specify config file template, that is prepended to the generated conf -R regex : match final Titles that should be set as inverted counters -r regex : match final Titles that should NOT be set as inverted counters -M regex : include only interface whose final Title match given regex -m regex : from those that pass -M exclude those that match -m regex Note: -S and -s are exclusive. That is, using either resets the other.EXAMPLE:  cfgmaker public\@ezwf7.ethz.ch >>mrtg.cfg$strUSAGE}sub main {    snmpmapOID('ipAdEntAddr' => '1.3.6.1.2.1.4.20.1.1',	       'ipAdEntIfIndex' => '1.3.6.1.2.1.4.20.1.2',	       'sysObjectID' => '1.3.6.1.2.1.1.2.0',	       'CiscolocIfDescr' => '1.3.6.1.4.1.9.2.2.1.1.28',	       'ifAlias' => '1.3.6.1.2.1.31.1.1.1.18');  my(%ifType_d)=('1'=>'Other',		 '2'=>'regular1822',		 '3'=>'hdh1822',		 '4'=>'ddnX25',		 '5'=>'rfc877x25',		 '6'=>'ethernetCsmacd',		 '7'=>'iso88023Csmacd',		 '8'=>'iso88024TokenBus',		 '9'=>'iso88025TokenRing',		 '10'=>'iso88026Man',		 '11'=>'starLan',		 '12'=>'proteon10Mbit',		 '13'=>'proteon80Mbit',		 '14'=>'hyperchannel',		 '15'=>'fddi',		 '16'=>'lapb',		 '17'=>'sdlc',		 '18'=>'ds1',		 '19'=>'e1',		 '20'=>'basicISDN',		 '21'=>'primaryISDN',		 '22'=>'propPointToPointSerial',		 '23'=>'ppp',		 '24'=>'softwareLoopback',		 '25'=>'eon',		 '26'=>'ethernet-3Mbit',		 '27'=>'nsip',		 '28'=>'slip',		 '29'=>'ultra',		 '30'=>'ds3',		 '31'=>'sip',		 '32'=>'frame-relay',		 '33'=>'rs232',		 '34'=>'para',		 '35'=>'arcnet',		 '36'=>'arcnetPlus',		 '37'=>'atm',		 '38'=>'miox25',		 '39'=>'sonet',		 '40'=>'x25ple',		 '41'=>'iso88022llc',		 '42'=>'localTalk',		 '43'=>'smdsDxi',		 '44'=>'frameRelayService',		 '45'=>'v35',		 '46'=>'hssi',		 '47'=>'hippi',		 '48'=>'modem',		 '49'=>'aal5',		 '50'=>'sonetPath',		 '51'=>'sonetVT',		 '52'=>'smdsIcip',		 '53'=>'propVirtual',		 '54'=>'propMultiplexor',		 '55'=>'100BaseVG',                 #### New IF Types added 9/24/98 by Russ Carleton (roccor@livenetworking.com)                 #### based on the IANA file updated at ftp://ftp.isi.edu/mib/ianaiftype.mib                 '56'=>'Fibre Channel',                 '57'=>'HIPPI Interface',                 '58'=>'Obsolete for FrameRelay',                 '59'=>'ATM Emulation of 802.3 LAN',                 '60'=>'ATM Emulation of 802.5 LAN',                 '61'=>'ATM Emulation of a Circuit',                 '62'=>'FastEthernet (100BaseT)',                 '63'=>'ISDN & X.25',                 '64'=>'CCITT V.11/X.21',                 '65'=>'CCITT V.36',                 '66'=>'CCITT G703 at 64Kbps',                 '67'=>'Obsolete G702 see DS1-MIB',                 '68'=>'SNA QLLC',                 '69'=>'Full Duplex Fast Ethernet (100BaseFX)',                 '70'=>'Channel',                 '71'=>'Radio Spread Spectrum (802.11)',                 '72'=>'IBM System 360/370 OEMI Channel',                 '73'=>'IBM Enterprise Systems Connection',                 '74'=>'Data Link Switching',                 '75'=>'ISDN S/T Interface',                 '76'=>'ISDN U Interface',                 '77'=>'Link Access Protocol D (LAPD)',                 '78'=>'IP Switching Opjects',                 '79'=>'Remote Source Route Bridging',                 '80'=>'ATM Logical Port',                 '81'=>'AT&T DS0 Point (64 Kbps)',                 '82'=>'AT&T Group of DS0 on a single DS1',                 '83'=>'BiSync Protocol (BSC)',                 '84'=>'Asynchronous Protocol',                 '85'=>'Combat Net Radio',                 '86'=>'ISO 802.5r DTR',                 '87'=>'Ext Pos Loc Report Sys',                 '88'=>'Apple Talk Remote Access Protocol',                 '89'=>'Proprietary Connectionless Protocol',                 '90'=>'CCITT-ITU X.29 PAD Protocol',                 '91'=>'CCITT-ITU X.3 PAD Facility',                 '92'=>'MultiProtocol Connection over Frame/Relay',                 '93'=>'CCITT-ITU X213',                 '94'=>'Asymetric Digitial Subscriber Loop (ADSL)',                 '95'=>'Rate-Adapt Digital Subscriber Loop (RDSL)',                 '96'=>'Symetric Digitial Subscriber Loop (SDSL)',                 '97'=>'Very High Speed Digitial Subscriber Loop (HDSL)',                 '98'=>'ISO 802.5 CRFP',                 '99'=>'Myricom Myrinet',                 '100'=>'Voice recEive and transMit (voiceEM)',                 '101'=>'Voice Foreign eXchange Office (voiceFXO)',                 '102'=>'Voice Foreign eXchange Station (voiceFXS)',                 '103'=>'Voice Encapulation',                 '104'=>'Voice Over IP Encapulation',                 '105'=>'ATM DXI',                 '106'=>'ATM FUNI',                 '107'=>'ATM IMA',                 '108'=>'PPP Multilink Bundle',                 '109'=>'IBM IP over CDLC',                 '110'=>'IBM Common Link Access to Workstation',                 '111'=>'IBM Stack to Stack',                 '112'=>'IBM Virtual IP Address (VIPA)',                 '113'=>'IBM Multi-Protocol Channel Support',                 '114'=>'IBM IP over ATM',                 '115'=>'ISO 802.5j Fiber Token Ring',                 '116'=>'IBM Twinaxial Data Link Control (TDLC)',                 '117'=>'Gigabit Ethernet',                 '118'=>'Higher Data Link Control (HDLC)',                 '119'=>'Link Access Protocol F (LAPF)',                 '120'=>'CCITT V.37',                 '121'=>'CCITT X.25 Multi-Link Protocol',                 '122'=>'CCITT X.25 Hunt Group',                 '123'=>'Transp HDLC',                 '124'=>'Interleave Channel',                 '125'=>'Fast Channel',                 '126'=>'IP (for APPN HPR in IP Networks)',                 '127'=>'CATV MAC Layer',                 '128'=>'CATV Downstream Interface',                 '129'=>'CATV Upstream Interface',                 '130'=>'Avalon Parallel Processor',                 '131'=>'Encapsulation Interface',                 '132'=>'Coffee Pot',                 '133'=>'Circuit Emulation Service',                 '134'=>'ATM Sub Interface',                 '135'=>'Layer 2 Virtual LAN using 802.1Q',                 '136'=>'Layer 3 Virtual LAN using IP',                 '137'=>'Layer 3 Virtual LAN using IPX',                 '138'=>'IP Over Power Lines',                 '139'=>'Multi-Media Mail over IP',