#! /usr/bin/perl
# -*- mode: Perl -*-
##################################################################
# MRTG 2.14.7  -- Config file creator for Enviromux-SEMS-16
##################################################################
# Modified by Network Technologies Inc. to generate configuration
# file for Enviromux-SEMS-16 - 12/26/2006
#
# Updated 3/20/2009 to add support for more sensor types
##################################################################
# Created by Tobias Oetiker <tobi@oetiker.ch>
# this produces an mrtg config file for one router or more routers
# by pulling info off the router via snmp
##################################################################
# Distributed under the GNU copyleft
# Copyright 2000 by Tobias Oetiker
##################################################################

# DEBUG TARGETS
# base - basic program flow
# snpo - SNMP Polling
# snpd - SNMP Detail
#@main::DEBUG=qw(base snpo coca);
@main::DEBUG=qw();

require 5.005;
use strict;

BEGIN {
    # Automatic OS detection ... do NOT touch
    if ( $^O =~ /^(?:(ms)?(dos|win(32|nt)?))/i ) {
        $main::OS = 'NT';
        $main::SL = '\\';
        $main::PS = ';';
    } elsif ( $^O =~ /^NetWare$/i ) {
        $main::OS = 'NW';
        $main::SL = '/';
        $main::PS = ';';
    } elsif ( $^O =~ /^VMS$/i ) {
        $main::OS = 'VMS';
        $main::SL = '.';
        $main::PS = ':';
    } else {
        $main::OS = 'UNIX';
        $main::SL = '/';
        $main::PS = ':';
    }
}

use FindBin;
use lib "${FindBin::Bin}";
use lib "${FindBin::Bin}${main::SL}..${main::SL}lib${main::SL}mrtg2";

use MRTG_lib "2.100015";
use Getopt::Long;
use Pod::Usage;
use Socket;


sub main {

    my %opt;
    my %routers;
    my %confcache;
    my $ipv4only;
    my %v3opt;
    $opt{fullcmd} =
            "$0 ".(join " ",
            map {$_ =~ /[ \[\]\*\{\}\;\>\<\&]/ ? "'$_'" : $_ } @ARGV);
    $opt{community}="public";
    $opt{interfaces}=1;
    options(\%opt,\%routers);

    # Check for IPv6 libraries if IPv6 is enabled.
    # If the check fails, IPv6 is disabled.
    $ipv4only = 1;
    if ($opt{'enable-ipv6'} == 1) {
        if ((eval {local $SIG{__DIE__};require Socket6;}) && (eval {local $SIG{__DIE__};require IO::Socket::INET6;})) {
            debug ('base',"IPv6 libraries found, IPv6 enabled.");
            $ipv4only = 0;
        } else {
            warn "WARNING: IPv6 libraries not found, IPv6 disabled.\n";
            $opt{'enable-ipv6'} = 0;
        }
    }

    if ($opt{'use-16bit'} == 1) {
        warn "WARNING: Using 16bit RequestIDs\n";
        $SNMP_Session::default_use_16bit_request_ids=1;
    }
    # Check for SNMP V3
    #
    	if (lc($opt{enablesnmpv3}) eq "yes") {
	       if  (eval {local $SIG{__DIE__};require Net_SNMP_util;})   {
	            import Net_SNMP_util;
	            debug('base', "SNMP V3 libraries found, SNMP V3 enabled.");
		    $opt{enablesnmpv3} = "yes";
	  	    push @{$opt{global}}, "enablesnmpv3: yes";
	        } else {
	            warn "WARNING: SNMP V3 libraries not found, SNMP V3 disabled. Falling back to V2c.\n";
	            require SNMP_util;
	            import SNMP_util;
		    $opt{enablesnmpv3} = "revert";
	        }															
	}
	else	{
	        require SNMP_util;
	        import SNMP_util;
		$opt{enablesnmpv3} = "no";
	}

    init();

    foreach my $router
    (sort
     {($routers{$a}{noofrouter}) <=> ($routers{$b}{noofrouter})}
     keys %routers)
    {
#	my @snmpopt = split(/:/,$routers{$router}{'snmp-options'});
#	if ($snmpopt[5] == 3) {
#		if ($opt{enablesnmpv3} eq "revert") {
#			$snmpopt[5] = 2;
#			warn "reverting to snmpV2c for router $router\n";
#			$routers{$router}{'snmp-options'} = join(":",@snmpopt);
#		} else {
#			die "SNMP V3 requires a --username parameter as part of the User Security Model for router $routers{$router}{routerkey}" if $opt{enablesnmpv3} eq "no";
#			%v3opt = parsev3(\%opt);
#		}
#	} else {
#		debug('base',"snmpv3 available, but using v1/v2c for $routers{$router}{routerkey}") if $opt{enablesnmpv3} eq "yes";
#	}
#
#			
        # pod2usage(-verbose=>1,-message=>"ERROR: Could not Parse $router\n")
        #     unless  $router =~ /.*\@.*/;
        debug('base',"Get Device Info on $router");
        $routers{$router}{ipv4only} = $ipv4only;
        if ( my $devinfo = DeviceInfo($router,\%routers,\%v3opt) ) {
            $routers{$router}{deviceinfo} = $devinfo;
        } else {
            warn "WARNING: Skipping $router as no info could be retrieved\n\n";
            sleep 5;
            next;
        }

        if ($opt{interfaces}) {
            debug('base',"Populating confcache");
            populateconfcache(\%confcache,$router,$routers{$router}{ipv4only},1,\%v3opt);
            debug('base',"Get Interface Info");
            InterfaceInfo(\%confcache,\%routers,$router,\%opt,\%v3opt);
        }
    }
    GenConf(\%opt,\%routers,\%confcache,\%v3opt);
} # end main

main;
exit 0;

sub InterfaceInfo($$$$$) {
    my $confcache = shift;
    my $routers = shift;
    my $router = shift;
    my $opt = shift;
    my $v3opt = shift;
    my @Variables = qw (ifIndex ifType ifAdminStatus ifOperStatus ifMtu);

    my $snmphost = v4onlyifnecessary($router, $routers->{$router}{ipv4only});

    if ($routers->{$router}{deviceinfo}{Vendor} eq 'cisco' &&
        $routers->{$router}{deviceinfo}{sysDescr} =~ m/Version\s+(\d+\.\d+)/) {
        push @Variables,  ($1 > 11.0 or $1 < 10.0 ) ? "ifAlias" : "CiscolocIfDescr";
        if ($1 > 11.2) {push @Variables, "vmVlan";};
    } elsif ( $routers->{$router}{deviceinfo}{Vendor} =~ /(?:hp|juniper|foundry|dellLan|force10|3com|extremenetworks)/) {
        push @Variables, "ifAlias";
    }

    my $descr = $routers->{$router}{deviceinfo}{sysDescr};
    if ($routers->{$router}{deviceinfo}{Vendor} eq 'cisco' &&
        $descr =~ m/Catalyst\sOperating\sSystem|Cisco\sSystems\sWS-C2900/ ) {
        push @Variables,  "CiscoCatalystPortName";
        push @Variables, "vmVlan";
    }

    foreach my $var (@Variables) {
        debug('base',"Walking $var");
        foreach my $tuple (snmpwalk($snmphost,$v3opt, $var)){
            my($if,$value) = split /:/, $tuple, 2;
            $value =~ s/[\0- ]+$//; # no trailing space
            $routers->{$router}{$if}{$var} = $value;
	    debug('snpd',"  $router -> $if -> $var = $value");
        }
    }

    # interface speed var depends on snmp version

    my $snmp_version = ($router =~ /:/)? (split(':', $router, 6))[5] : 1;

    if ( $snmp_version =~ /[23]/ ) {
        debug('base',"Walking ifSpeed");
        my @ifSpeed = snmpwalk($snmphost, $v3opt,'ifSpeed');
	debug('snpd',"\@ifSpeed = @ifSpeed\n");
        debug('base',"Walking ifHighSpeed");
        my @ifHighSpeed = snmpwalk($snmphost,$v3opt, 'ifHighSpeed');
        for ( my $i=0; $i<=$#ifHighSpeed; $i++ ) {
            my ($if,$value) = split /:/, $ifSpeed[$i], 2;
# the mib entry on ifSpeed says
#            "An estimate of the interface's current bandwidth in bits
#            per second.  For interfaces which do not vary in bandwidth
#            or for those where no accurate estimation can be made, this
#            object should contain the nominal bandwidth.  If the
#            bandwidth of the interface is greater than the maximum value
#            reportable by this object then this object should report its
#            maximum value (4,294,967,295) and ifHighSpeed must be used
#            to report the interace's speed.  For a sub-layer which has
#            no concept of bandwidth, this object should be zero."
            if ( (not defined $value) || ($value == 2**32-1)) {
                ($if, $value) = split /:/, $ifHighSpeed[$i], 2;
	        $value = $value * 1000000;  # highSpeed = contador * 10^6
                #debug('base',"Speed: $if - $value");
            }
            $routers->{$router}{$if}{'ifSpeed'} = $value;
        }
    } else {
        debug('base',"Walking ifSpeed");
        foreach my $tuple (snmpwalk($snmphost,$v3opt, 'ifSpeed')){
            my($if,$value) = split /:/, $tuple, 2;
            $routers->{$router}{$if}{'ifSpeed'} = $value;
	    debug('snpd',"  $router -> $if -> ifSpeed = $value");
        }
    }

    # magic speed determination for portmaster IFs

    if ($routers->{$router}{deviceinfo}{Vendor} eq 'portmaster') {
        # We can only approximate speeds
        #
        # so we think that ppp can do 76800 bit/s, and slip 38400.
        # (actualy, slip is a bit faster, but usualy users with newer modems
        # use ppp). Alternatively, you can set async speed to 115200 or
        # 230400 (the maximum speed supported by portmaster).
        #
        # But if the interface is ptpW (sync), max speed is 128000
        # change it to your needs. On various Portmasters there are
        # various numbers of sync interfaces, so modify it.
        #
        #  The most commonly used PM-2ER has only one sync.
        #
        #  Paul Makeev (mac@redline.ru)
        #
        foreach my $if (keys %{$routers->{$router}}) {
            next unless $if =~ /^\d+$/;
            my $ift = $routers->{$router}{$if}{ifType};
            my $ifd = $routers->{$router}{$if}{Descr};
            if ($ift ==  23) {
                if ($ifd eq 'ptpW1') {
                    $routers->{$router}{$if}{ifSpeed} = 128000;
                } else {
                    $routers->{$router}{$if}{ifSpeed} = 76800;
                }
            } elsif ($ift == 28) {
                $routers->{$router}{$if}{ifSpeed} = 38400;
            } elsif ($ift == 6) {
                $routers->{$router}{$if}{ifSpeed} = 10000000;
            }
        }
    }

    # match confcache info into tree
    my $cachekey = cleanhostkey $router;

    foreach my $method (keys %{$$confcache{$cachekey}}) {
        foreach my $key (keys %{$$confcache{$cachekey}{$method}}) {
            my $if = readfromcache($confcache,$router,$method,$key);
            next unless $if =~ /^\d+$/;
            $routers->{$router}{$if}{$method} = $key;
            for ($method) {
                #fix special chars in ifdescr
                # no need for this we fix if references later on
                # /^Descr|Name$/ && do {
                #     $routers->{$router}{$if}{"R$method"} = $routers->{$router}{$if}{$method};
                #     $routers->{$router}{$if}{$method} =~ s/(:)/\\$1/g;
                #     next;
                # };

                #find hostname of IF
                !$$opt{noreversedns} && /^Ip$/ and do {
                    my $name =
                    gethostbyaddr(
                    pack('C4',
                         split(/\./,
                         $routers->{$router}{$if}{$method})),
                         AF_INET);
                    $routers->{$router}{$if}{DNSName} = ($name or "");
                    next;
                };
            }
        }
    }
} # end InterfaceInfo

sub GenConf ($$$$) {
    my $opt = shift;
    my $routers = shift;
    my $confcache = shift;
    my $v3opt = shift;
    my $conf = "# Created by \n# $$opt{fullcmd}\n\n";

    # print global options
    $conf .= <<ECHO;

### Global Config Options

#  for UNIX
# WorkDir: /home/http/mrtg

#  or for NT
# WorkDir: c:\\mrtgdata

### Global Defaults

#  to get bits instead of bytes and graphs growing to the right
# Options[_]: growright, bits

ECHO

    # Add EnableIPv6 option to configuration file
    if ($$opt{'enable-ipv6'} == 1) {
        $conf .= "EnableIPv6: yes\n";
    } else {
        $conf .= "EnableIPv6: no\n";
    }

    foreach my $router
      (sort {($$routers{$a}{noofrouter}) <=> ($$routers{$b}{noofrouter})}
       keys %$routers ) {
        my $router_ref = $$routers{$router};
        my $router_opt = $$router_ref{opt};
        my $router_dev = $$router_ref{deviceinfo};

        # Did any global options appear on the command line
        # before this router?  If so, include them into the
        # configuration file.
        if (defined $$router_opt{global}) {
            foreach my $key (@{$$router_opt{global}}) {
                $conf .= "$key\n";
            }
        }

        # If IPv6 is enabled, add IPv4Only target directive for targets
        # that do not support SNMP over IPv6.
        my $ipv4only_directive;
        my $router_ipv4only = ($$opt{'enable-ipv6'} == 1) && $$router_ref{ipv4only};

        my $syscontact = $$router_dev{sysContact};
        my $html_syscontact = html_escape($syscontact);
        my $syslocation = $$router_dev{sysLocation};
        my $html_syslocation = html_escape($syslocation);
        my $sysname = $$router_dev{sysName};
        my $sysdescr = $$router_dev{sysDescr};
        my $comment_sysdescr = $sysdescr;
        # make sure embeded newlines do not harm us here
        $comment_sysdescr =~ s/[\n\r]+/\n\#          /g;
        my $community = $$router_ref{community};
        $community  =~ s/([@ ])/\\$1/g;
        my $router_connect = "$community\@$$router_ref{routername}$$router_ref{snmpopt_current}";
	my @v3options;
		foreach my $v3op (keys %$v3opt) {
			push @v3options, $v3op."=>'".$$v3opt{$v3op}."'";
		}
	my $v3options = join(",",@v3options) if $$router_ref{'snmp-options'} =~ /(?=:.*?){4}:3/ ;
        my $html_sysdescr = html_escape($sysdescr);
        my $router_name =
            ($$router_ref{routername}
             . (($$router_ref{'dns-domain'})?'.':'')
             . $$router_ref{'dns-domain'});

        # James Overbeck 2001/09/20
        # Moved $directory_name definition from within the interface
        # foreach loop to here. In its previous location, $directory_name
        # was not accessible to host templates. $directory_name is not
        # changed per-interface so it might as well be here instead of
        # where it was.

        my $directory_name = "";

        if (defined $$router_opt{subdirs}) {
            $directory_name = $$router_opt{subdirs};
            $directory_name =~ s/HOSTNAME/$router_name/g;
            $directory_name =~ s/SNMPNAME/$$router_dev{sysName}/g;
        }


        my $target_lines = "";
        my $problem_lines = "";
        my $head_lines = "
######################################################################
# System: $sysname
# Description: $comment_sysdescr
# Contact: $syscontact
# Location: $syslocation
######################################################################
";

        my $separator_lines = "\n\n";

        # Host specific config lines generation code starts HERE

        if(defined $$router_opt{'host-template'}) {
            # First test if the file exists and is readable, die if not.
            die "File $$router_opt{'host-template'} didn't exist.\n"
            unless (-e $$router_opt{'host-template'}
                and -r $$router_opt{'host-template'});
            # Open the file (or die).
            open IF_TEMPLATE, $$router_opt{'host-template'}
                or die "File $$router_opt{'host-template'} couldn't be opened.\n";

            my @template_lines = readline *IF_TEMPLATE;
            $@ = undef;
            eval ('local $SIG{__DIE__};'.join("", @template_lines));

            die  "ERROR Evaluation of the contents in the file \n\n".
                 "$$router_opt{'host-template'}\ngave the error \n\n\"$@\"\n\nExiting cfgmaker\n" if $@;
        }

        $conf .= ($head_lines);
#              . $problem_lines
#              . $target_lines
#              . $separator_lines);

        # Host specific config lines generation code ends HERE


        if ($$router_opt{'interfaces'}) {
            foreach my $ifindex (sort {int($a) <=> int($b)} keys %$router_ref) {
                next unless $ifindex =~ /^\d+$/;
                my $i = $$router_ref{$ifindex};

                # Now define a number of variables used for this interface.
                # Some variables are just used internally by cfgmaker to
                # process the interface, others are provided for usage in
                # host and interface templates and for interface filters.

                my $if_index = $ifindex;
                my $if_eth = $$i{Eth};

                # does it make sense to look at the interface ?
                my @prob;
                my $default_ifstate = 1; # State assumed up.
                my $default_iftype = 1;  # iftype assumed ok.
                my $if_ok = 1;           #

                my $if_admin = ($$i{ifAdminStatus} == 1);
                my $if_oper = ($$i{ifOperStatus} == 1);

                my $if_type = $$i{ifType};
                my $if_is_ethernet = 0 < scalar(grep {$_ == $if_type;}
                                    (6,7,26,62,69,117));
                my $if_is_isdn = (0 < scalar (grep {$_ == $if_type;}
                                    (20,21,63,75,76,77)));
                my $if_is_dialup = $if_is_isdn ||
                                (0 < scalar (grep {$_ == $if_type;}
                                    (23,81,82,108)));
                my $if_is_atm = (0 < scalar(grep {$_ == $if_type;}
                                    (37,49,107,105,106,114,134)));

                my $if_is_wan = 0 < scalar(grep {$_ == $if_type;}
                                    (22,30,32,39,44,46));

                my $if_is_lan = $if_is_ethernet ||
                                (0 < scalar (grep {$_ == $if_type;}
                                    (8,9,11,15,26,55,59,60,115)));
                my $if_is_dsl = (0 < scalar(grep {$_ == $if_type;}
                                    (94,95,96,97)));
                my $if_is_loopback = $if_type == 24;
                my $if_is_ciscovlan =
                    ($$router_dev{Vendor} eq 'cisco'
                    and $$i{Descr} =~ /^(unrouted )?V(LAN|lan)\d+$/);

                my $if_ip = $$i{Ip};
                my $if_snmp_descr = $$i{Descr};
                $if_snmp_descr =~ s/\n$//; # no you don't want to know who does this
                                           # ok ... dell 3524
                $if_snmp_descr =~ s/ /-/g;
                my $if_type_num = $$i{ifType};
                my $if_snmp_name = $$i{Name};
                my $if_snmp_alias = $$i{ifAlias};
                my $if_cisco_descr = $$i{CiscolocIfDescr};
                my $if_dns_name = $$i{DNSName};
                my $if_vlan_id = $$i{vmVlan};
		my $if_MTU = $$i{ifMtu};

                # For Nokia IPSO, find non-ethernet interfaces with IP addresses
                # and add missing MAC address and Port Speed information to
                # to the LOGICAL and LOGICAL+VLAN interfaces.
                if ( $$router_dev{Vendor} eq 'nokiaipsofw' ) {
                    if ($$i{ifType} ne "6" &&
                        $$router_dev{sysDescr} =~ / IPSO / &&
                        $$i{Ip} =~ /^\d+/ &&
                       ($$i{Eth} == undef ||
                        $$i{ifSpeed} < 10 ||
                        $$i{ifSpeed} == undef )
                       ) {
                        my $logical_if_name = $$i{Name};

                        # Split the LOGICAL interface name in attempt
                        # to match with base PHYSICAL interface detail.
                        my ($logical_if_HEAD, $logical_if_TAIL) =
                            $logical_if_name =~ /^(.*)(c\d+)$/;

                        foreach my $ifindexTMP (sort {int($a) <=> int($b)}
                            keys %$router_ref) {
                            next unless $ifindexTMP =~ /^\d+$/;

                            my $physical_if_name = $$router_ref{$ifindexTMP};

                            if ($$physical_if_name{ifType} == 6 &&
                                $logical_if_HEAD eq $$physical_if_name{Name} ) {
                                $$i{Eth} = $$physical_if_name{Eth}
                                if ( $$i{Eth} == undef );
                                $$i{ifSpeed} = $$physical_if_name{ifSpeed}
                                if ( $$i{ifSpeed} == undef || $$i{ifSpeed} < 10 );
                            }
                        }
                    }
                }

                # First investigate the state of the interface.
                if (not defined $$router_opt{'no-down'}) {
                    if ($$i{ifAdminStatus} == 2) {
                        push @prob, "it is administratively DOWN";
                        $default_ifstate = 0;
                    } elsif ($$i{ifAdminStatus} == 3) {
                        push @prob, "it is in administrative TEST mode";
                        $default_ifstate = 0;
                    }

                    if (not defined $$router_opt{'show-op-down'}) {
                       if ($$i{ifOperStatus} == 2) {
                          push @prob, "it is operationally DOWN";
                          $default_ifstate = 0;
                       } elsif ($$i{ifOperStatus} == 3) {
                           push @prob, "it is in operational TEST mode";
                          $default_ifstate = 0;
                      }
                    }
                 }


                # Investigate the type of the interface.
                if ($$router_dev{Vendor} eq 'cisco' && $$i{ifType} == 18) { # by fwo@obsidian.co.za
                    push @prob, "it is a DS1 controllers";
                    $default_iftype = 0;
                } elsif ($$router_dev{Vendor} eq 'cisco' && $$i{ifType} == 19) { # by fwo@obsidian.co.za
                    push @prob, "it is a E1 controllers";
                    $default_iftype = 0;
                } elsif ($$i{ifType} == 24) {
                    push @prob, "it is a Software Loopback interface" ;
                    $default_iftype = 0;
                } elsif ($$router_dev{Vendor} eq 'cisco' && $$i{ifType} == 30) { # by blube@floridadigital.net
                    push @prob, "it is a DS3 controller";
                    $default_iftype = 0;
                } elsif ($$router_dev{Vendor} eq 'cisco' && $$i{ifType} == 102) { # by dan.mcdonald@austinenergy.com
                    push @prob, "it is a Voice controller";
                    $default_iftype = 0;
                } elsif ($$router_dev{Vendor} eq 'cisco' && $$i{ifType} == 103) { # by dan.mcdonald@austinenergy.com
                    push @prob, "it is a Voice dial peer";
                    $default_iftype = 0;
                } elsif ($$i{ifType} == 162) {
                    push @prob, "it is a CEF Sub-interface"; # John Begley <maslow@mediaone.net>
                } elsif ($$router_dev{Vendor} eq 'cisco'
                  and $$i{Descr} eq 'Null0') {
                    push @prob, "it is a cisco Null0 interface";
                    $default_iftype = 0;
                }
                my $default = $default_iftype && $default_ifstate;

                # Do some futher investigation if the interface makes
                # sense to collect on

		# I debated whether to insert the zero-speed check before
		# or after the "will always be zero" sections below.
		# I settled on before since I'll assume the user knows
		# what speed the zero-speed interfaces should be better
		# than the simple logic below.
		if ($$i{ifSpeed} == 0 && $$router_opt{'zero-speed'}) {
		    # Set all interfaces with zero speed to the value specified
		    # by the --zero-speed= command line option.

		    # Be sure the value specified is a valid integer.
		    # It seems like this could be done once when
		    # $$router_opt is set, but I didn't see any example
		    # of input validation in that part of cfgmaker,
		    # so it gets done here, more times than are
		    # really necessary.  ;-)
		    unless ($$router_opt{'zero-speed'} =~ /^\d+$/) {
		         die "ERROR: zero-speed specified with non-integer speed: $$router_opt{'zero-speed'}";
		    }
		    $$i{ifSpeed} = $$router_opt{'zero-speed'};
		}

                if ($$i{ifSpeed} == 0 && $$router_dev{Vendor} eq 'foundry' && $$i{ifType} == 194) {
                    # foundry ATM subinterfaces always report 0 speed, make it 155Mbps instead.
                    $$i{ifSpeed} =  155000000;
                } elsif ($$i{ifSpeed} == 0 && $$router_dev{Vendor} eq 'foundry' && $$i{ifType} == 135) {
                    # Foundry virtual Ethernet interfaces always report 0 speed, make it 1GB instead.
                    $$i{ifSpeed} = 1000000000;
                } elsif ($$i{ifSpeed} == 0 && $$router_dev{Vendor} eq 'cisco' && $$i{sysDescr} == /FWSM-Firewall / )  {
                    # Cisco PIX Firewall Switch Modules have effective backplane speed of 600 Megs
		    $$i{ifSpeed} = 600000000;
                } elsif ($$i{ifSpeed} == 0 && $$router_dev{Vendor} eq '3com' && $$i{Descr} =~ /RMON VLAN (\d+)/ ) {
                    $$i{ifSpeed} = 100000000;
                    $if_vlan_id = $1;
                } elsif ($$i{ifSpeed} == 0) {
                    push @prob, "has a speed of $$i{ifSpeed} which makes no sense";
                    $if_ok = 0;
                }

                my $message;
                if ($message = IsCounterBroken($ifindex, $router_ref,$v3opt)) {
                    # set snmpopt_current to working snmp options
                    push @prob, "got '$message' from interface when trying to query";
                    $if_ok = 0;
                }

                my $community = $$router_ref{community};
                $community  =~ s/([@ ])/\\$1/g;
                my $router_connect = "$community\@$$router_ref{routername}$$router_ref{snmpopt_current}";
   		
		my $v3options = join(",",@v3options) if $$router_ref{snmpopt_current} =~ /(?=:.*?){4}:3/ ;
		
                # determine interface reference
                my $if_ref;
                if (defined $$router_opt{ifref}) {
                    for ($$router_opt{ifref}) {
                        /^ip$/ && do { $if_ref = "/".$$i{Ip} if $$i{Ip}  ; last};
                        /^eth$/ && do { $if_ref = "!".$$i{Eth} if $$i{Eth}; last};
                        /^descr$/ && do {$if_ref = "\\".$$i{Descr} if $$i{Descr}; last};
                        /^name$/ && do {$if_ref = "#".$$i{Name} if $$i{Name}; last};
                        /^type$/ && do {$if_ref = "%".$$i{Type} if $$i{Type}; last};
                        /^nr$/ && do {$if_ref = $ifindex; last};
                        die "ERROR: Invalid value for --ifref: '$$router_opt{ifref}'\n";
                    }
                    if (not defined $if_ref) {
                        push @prob, "--ifref=$$router_opt{ifref} is not unique for this interface";
                        $if_ref = $ifindex;
                        $if_ok = 0;
                    }
                } else {
                    $if_ref = $ifindex;
                }

                # generate Target name
                my $trim_if_ref = $if_ref;
                $trim_if_ref =~ s/[\#!\/\\:\s\@%]+/_/g;
                $trim_if_ref =~ s/^_*(.+?)_*$/$1/;
                my $target_name = "${router_name}_$trim_if_ref";
                my $if_title_desc = $if_ref;
                $if_title_desc =~ s/^[^\d]//;
                my $if_speed = int($$i{ifSpeed} / 8);
                my $if_speed_str = fmi($if_speed,$$router_ref{flags});
                my $if_type_desc = IfType($$i{ifType});
                my $html_if_type_desc = html_escape($if_type_desc);
                my $desc_prefix = 'Traffic Analysis for ';

                my $port_dot = $$i{Name};
                $port_dot =~ s/\//./g;
                my $if_port_name = $$router_ref{$port_dot}{CiscoCatalystPortName};

                if (defined $$router_opt{ifdesc}) {
                    $desc_prefix = '';
                    for ($$router_opt{ifdesc}) {
                        /^ip$/ && do { $if_title_desc = $$i{Ip} if $$i{Ip}  ; last};
                        /^eth$/ && do { $if_title_desc = $$i{Eth} if $$i{Eth}; last};
                        /^descr$/ && do {$if_title_desc = $$i{Descr} if $$i{Descr}; last};
                        /^alias$/ && do {$if_title_desc =
                                     "$$i{Descr} $$i{ifAlias} $$i{CiscolocIfDescr}";
                                    last};
                        /^name$/ && do {$if_title_desc = "#".$$i{Name} if $$i{Name}; last};
                        /^catname$/ && do {$if_title_desc = "$if_port_name"; last};
                        /^type$/ && do {$if_title_desc = "%".$$i{Type} if $$i{Type}; last};
                        /^nr$/ && do {$if_title_desc = "Interface $ifindex"; last};
                        /^$/ && do {$if_title_desc = $if_type_desc;
                                $if_title_desc =~ s/^$/$$i{Descr}/;
                                last};
                        die "ERROR: Invalid value for --ifdesc: '$$router_opt{ifdesc}'\n";
                    }
                }

                # Now setup a large number of variables needed for the
                # generation of the configuration lines.

                $if_title_desc =~ s/\\([:@\\\/\# ])/$1/g; # unescape
                $if_title_desc = $if_snmp_name if not $if_title_desc;
                my $html_if_title_desc = html_escape($if_title_desc);
                my $html_desc_prefix = html_escape($desc_prefix);

                my $html_if_snmp_descr = html_escape($if_snmp_descr);
                my $html_if_snmp_name = html_escape($if_snmp_name);
                my $html_if_snmp_alias = html_escape($if_snmp_alias);
                my $html_if_cisco_descr = html_escape($if_cisco_descr);
                my $if_description = "$if_snmp_descr $if_snmp_alias $if_cisco_descr";
                my $html_if_description = html_escape($if_description);
                my $if_title = "$desc_prefix$if_title_desc -- $sysname";
                my $html_if_title = html_escape($if_title);

                my $head_lines = "### Interface $ifindex >> Descr: '$if_snmp_descr' |".
                                 " Name: '$if_snmp_name' | Ip: '$if_ip' | Eth: '$$i{Eth}' ###\n";

                my $target_lines = "";
                my $separator_lines = "\n\n";

                # escape the if reference
                $if_ref =~ s/([& :])/\\$1/g;
                my $default_target_directive = "Target[$target_name]: $if_ref:$router_connect";
		$default_target_directive .= "\nSnmpOptions[$target_name]: $v3options"  if $$router_ref{snmpopt_current} =~ /(?=:.*?){4}:3/ ;
	        my $if_snmp_descr_save = $if_snmp_descr;
		$if_snmp_descr_save =~ s/"/'/g;
                my $default_setenv_directive = "SetEnv[$target_name]: MRTG_INT_IP=\"$if_ip\" MRTG_INT_DESCR=\"$if_snmp_descr_save\"";
                my $default_directory_directive = ($directory_name ? "Directory[$target_name]: $directory_name" : "");
                my $default_maxbytes_directive = "MaxBytes[$target_name]: $if_speed";

                $ipv4only_directive = $router_ipv4only ? "IPv4Only[$target_name]: yes" : "";

                my $default_title_directive = "Title[$target_name]: $html_desc_prefix$html_if_title_desc -- $sysname";
                my $default_pagetop_directive =
                "PageTop[$target_name]: <h1>$html_desc_prefix$html_if_title_desc -- $sysname</h1>
		<div id=\"sysdetails\">
			<table>
				<tr>
					<td>System:</td>
					<td>$sysname in $html_syslocation</td>
				</tr>
				<tr>
					<td>Maintainer:</td>
					<td>$html_syscontact</td>
				</tr>
				<tr>
					<td>Description:</td>
					<td>$html_if_description</td>
				</tr>
				<tr>
					<td>ifType:</td>
					<td>$html_if_type_desc ($if_type_num)</td>
				</tr>
				<tr>
					<td>ifName:</td>
					<td>$html_if_snmp_name</td>
				</tr>";
                $default_pagetop_directive .= "
				<tr>
					<td>Port Name:</td>
					<td>$if_port_name</td>
				</tr>" if defined $if_port_name;
                $default_pagetop_directive .= "
				<tr>
					<td>Max Speed:</td>
					<td>$if_speed_str</td>
				</tr>";
                $default_pagetop_directive .= "
				<tr>
					<td>Ip:</td>
					<td>$if_ip ($if_dns_name)</td>
				</tr>" if $if_ip;
                $default_pagetop_directive .= "
			</table>
		</div>";
                
                my $default_target_lines =
                   ("\n"
                    . $default_target_directive . "\n"
                    . $default_setenv_directive . "\n"
                    . ($default_directory_directive
                       ? ($default_directory_directive . "\n")
                       : "")
                    . $default_maxbytes_directive . "\n"
                    . ($ipv4only_directive
                       ? ($ipv4only_directive . "\n")
                       : "")
                    . $default_title_directive . "\n"
                    . $default_pagetop_directive . "\n");
                
                
                # If --if-filter is provided, evalutat that.  If it
                # returns true, clear @prob.  If it returns false,
                # instead add a complaint to @prob.
                
                if (defined $$router_opt{'if-filter'}) {
                   $@ = undef;
                   if (eval('local $SIG{__DIE__};'.$$router_opt{'if-filter'})) {
                      @prob = ();
                   } else {
                      push @prob, "filter specified by --if-filter rejected the interface";
                      $if_ok = 0;
                   }
                   die "ERROR: with if-filter $$router_opt{'if-filter'}: $@" if $@;
                }
                
                
                
                $conf .= ($head_lines);
                #. $problem_lines
                #. $target_lines
                #. $separator_lines);
                
            }
            # Target generation code ends HERE.
        }
        $conf .= "\n\n# RunAsDaemon: yes\n";
        $conf .= "LoadMIBs: sems-16.mib\n\n";
        
        
        use constant TEMPERATURE_MAX_LEVEL => 70.0;
        use constant HUMIDITY_MAX_LEVEL => 100.0;
        use constant POWER_MAX_LEVEL => 60.0;
        use constant LOW_VOLT_MAX_LEVEL => 10.0;
        use constant CURRENT_MAX_LEVEL => 20.0;
        use constant INT_POWER_MAX_LEVEL => 16.0;
        
        use constant ACLM_VOLT_MAX_LEVEL => 250;
        use constant ACLM_POWER_MAX_LEVEL => 3000.0; #250v* 12amp
        use constant ACLM_CURRENT_MAX =>  12;
        
        use constant ID_UNDEFINED => 0;
        use constant ID_TEMPERATURE => 1;
        use constant ID_HUMIDITY => 2;
        use constant ID_POWER => 3;
        use constant ID_LOW_VOLTAGE => 4;
        use constant ID_CURRENT => 5;
        use constant ID_ACLM_V => 6;
        use constant ID_ACLM_V_OF_P => 7;
        use constant ID_ACLM_P => 8;

        my @addedSensors = ();
        my @skippedSensors = ();
        
        my $i = 2;
        $conf .= "#=======================================\n";
        $conf .= "#Internal Sensors\n";
        $conf .= "#=======================================\n\n";
        for ($i = 0; $i < 3; $i++) 
        {
           my $legend ="";
           my $shortlegend ="";
           my $cnt = $i + 1;
           my $maxsize = 1400;
           my $ticsform = 1;
           my $sensortype = (snmpget($router_connect, "1.3.6.1.4.1.3699.1.1.2.1.4.1.1.2.${cnt}"));
           my $sensorunit = (snmpget($router_connect, "1.3.6.1.4.1.3699.1.1.2.1.4.1.1.7.${cnt}"));
           my $sensordesc = (snmpget($router_connect, "1.3.6.1.4.1.3699.1.1.2.1.4.1.1.3.${cnt}"));
           my $sensorunitstr = (snmpget($router_connect, "1.3.6.1.4.1.3699.1.1.2.1.4.1.1.8.${cnt}"));
           my $factor = 1;
           
           if ($sensortype == ID_TEMPERATURE)
           {
              
              if ($sensorunit == 0) {
                 $legend = "Temperature(Deg. ${sensorunitstr})\n";
                 $shortlegend = "Deg. ${sensorunitstr}\n";
                 
                 $maxsize = TEMPERATURE_MAX_LEVEL * 10;
              }
              else {
                 $legend = "Temperature(Deg. ${sensorunitstr})\n";
                 $shortlegend = "Deg. ${sensorunitstr}\n";
                 $maxsize = 2 * TEMPERATURE_MAX_LEVEL * 10;
              }
              $factor = .1;
              $ticsform = 0.1;
           }
           elsif ($sensortype == ID_HUMIDITY)
           {
              $legend = "RH(${sensorunitstr})\n";
              $shortlegend = "${sensorunitstr}\n";
              $maxsize = HUMIDITY_MAX_LEVEL;
           }
           elsif ($sensortype == ID_POWER)
           {
              $legend = "Power(${sensorunitstr})\n";
              $shortlegend = "${sensorunitstr}\n";
              $maxsize = INT_POWER_MAX_LEVEL * 10;
              $ticsform = 0.1;
              $factor = 0.1;
           }
           if (($sensortype >= ID_TEMPERATURE) && ($sensortype <= ID_POWER)) 
           {
              push(@addedSensors, $sensordesc);
              
              $conf .= "Target[intsens_${cnt}]: intSensorValue.${cnt}&intSensorValue.${cnt}:${router_connect}:::::2\n"
                 . "MaxBytes[intsens_${cnt}]: $maxsize\n"
                 . "Unscaled[intsens_${cnt}]:  dwmy\n"
                 . "YLegend[intsens_${cnt}]: $legend"
                 . "ShortLegend[intsens_${cnt}]: $shortlegend"
                 . "Factor[intsens_${cnt}]: $factor \n"
                 . "Xsize[intsens_${cnt}]: 600\n"
                 . "Ysize[intsens_${cnt}]: 200\n"
                 . "Ytics[intsens_${cnt}]: 10\n"
                 . "YTicsFactor[intsens_${cnt}]: $ticsform \n"
                 . "LegendI[intsens_${cnt}]: $sensordesc &nbsp;\n"
                 . "LegendO[intsens_${cnt}]: $sensordesc &nbsp;\n"
                 . "Legend1[intsens_${cnt}]: $shortlegend"
                 . "Legend2[intsens_${cnt}]: $shortlegend"
                 . "Options[intsens_${cnt}]: gauge,nopercent\n"
                 . "Title[intsens_${cnt}]: $sensordesc \n"
                 . "PageTop[intsens_${cnt}]: <H1> $sensordesc </H1>\n\n";
           }
        }

        $conf .= "#=======================================\n";
        $conf .= "#External Sensors\n";
        $conf .= "#=======================================\n\n";


        for ($i = 0; $i < 32; $i++) 
        {
           my $legend ="";
           my $shortlegend ="";
           my $cnt = $i + 1;
           my $maxsize = 1400;
           my $ticsform = 1;
           my $sensortype = (snmpget($router_connect, "1.3.6.1.4.1.3699.1.1.2.1.5.1.1.2.${cnt}"));
           my $temp = 0;
           my $v = $i % 2;
           my $factor = 1;
           my $unscaled = "dwmy";

           if ($sensortype > hex("8000")) {
              $temp = $sensortype - hex("8000");
           }
           elsif (($sensortype == ID_ACLM_V) || ($sensortype == ID_ACLM_V_OF_P) || ($sensortype == ID_ACLM_P))
           {
              $temp = $sensortype;
           }elsif ($i % 2 == 0) 
           {
              $temp = $sensortype % 256;
           }
           else
           {
              $temp = int($sensortype / 256);
           }

           $sensortype = $temp;

           my $sensorunit = (snmpget($router_connect, "1.3.6.1.4.1.3699.1.1.2.1.5.1.1.8.${cnt}"));
           my $sensorunitstr = (snmpget($router_connect, "1.3.6.1.4.1.3699.1.1.2.1.5.1.1.9.${cnt}"));
           my $sensordesc = (snmpget($router_connect, "1.3.6.1.4.1.3699.1.1.2.1.5.1.1.3.${cnt}"));
           if ($sensortype == ID_TEMPERATURE)
           {
              $legend = "Temperature(Deg. ${sensorunitstr})\n";
              $shortlegend = "Deg. ${sensorunitstr}\n";

              $ticsform = 0.1;
              $factor = 0.1;

              if ($sensorunit == 0) {
                 $maxsize = TEMPERATURE_MAX_LEVEL * 10;
              }
              else {
                 $maxsize = 2 * TEMPERATURE_MAX_LEVEL * 10;
              }
           }
           elsif ($sensortype == ID_HUMIDITY)
           {
              $legend = "RH(${sensorunitstr})\n";
              $shortlegend = "${sensorunitstr}\n";
              $maxsize = HUMIDITY_MAX_LEVEL;

           } elsif ($sensortype == ID_POWER)
           {
              $legend = "Power(${sensorunitstr})\n";
              $shortlegend = "${sensorunitstr}\n";
              $maxsize = POWER_MAX_LEVEL * 10;
              $ticsform = 0.1;
              $factor = 0.1;
              
           } elsif ($sensortype == ID_LOW_VOLTAGE)
           {
              $legend = "Voltage(${sensorunitstr})\n";
              $shortlegend = "${sensorunitstr}\n";
              $maxsize = LOW_VOLT_MAX_LEVEL * 10;
              $ticsform = 0.1;
              $factor = 0.1;
              
           } elsif ($sensortype == ID_CURRENT)
           {
              $legend = "Current(${sensorunitstr})\n";
              $shortlegend = "${sensorunitstr}\n";
              $maxsize = CURRENT_MAX_LEVEL * 10;
              $ticsform = 0.1;
              $factor = 0.1;
              
           }elsif ($sensortype == ID_ACLM_V || $sensortype == ID_ACLM_V_OF_P)
           {
              $legend = "Voltage(${sensorunitstr})\n";
              $shortlegend = "${sensorunitstr}\n";
              $maxsize = ACLM_VOLT_MAX_LEVEL;

              # The ACLM currently spits out data in rounded integer units.
              # It should probably be tenths of units like the other sensors,
              # but for now, we'll handle it the best we can.
              #$factor = 0.1;
              #$ticsform = 0.1;
              #$maxsize = ACLM_VOLT_MAX_LEVEL * 10;
                           
           }elsif ($sensortype == ID_ACLM_P)
           {
              $legend = "Power(${sensorunitstr})\n";
              $shortlegend = "${sensorunitstr}\n";
              $maxsize = ACLM_POWER_MAX_LEVEL;

              # The ACLM currently spits out data in rounded integer units.
              # It should probably be tenths of units like the other sensors,
              # but for now, we'll handle it the best we can.
              #$factor = 0.1;
              #$ticsform = 0.1;
              #$maxsize = ACLM_POWER_MAX_LEVEL * 10;

           }
           
           if (($sensortype >= ID_TEMPERATURE) && ($sensortype <= ID_ACLM_P)) 
           {
              push(@addedSensors, $sensordesc);

              $conf .= "Target[extsens_${cnt}]: extSensorValue.${cnt}&extSensorValue.${cnt}:${router_connect}:::::2\n"
                 . "MaxBytes[extsens_${cnt}]: $maxsize\n"
                 . "Unscaled[extsens_${cnt}]:  $unscaled \n"
                 . "YLegend[extsens_${cnt}]: $legend"
                 . "ShortLegend[extsens_${cnt}]: $shortlegend"
                 . "Factor[extsens_${cnt}]: $factor \n"
                 . "Xsize[extsens_${cnt}]: 600\n"
                 . "Ysize[extsens_${cnt}]: 200\n"
                 . "Ytics[extsens_${cnt}]: 10\n"
                 . "YTicsFactor[extsens_${cnt}]: $ticsform \n"
                 . "LegendI[extsens_${cnt}]: $sensordesc &nbsp;\n"
                 . "LegendO[extsens_${cnt}]: $sensordesc &nbsp;\n"
                 . "Legend1[extsens_${cnt}]: $shortlegend"
                 . "Legend2[extsens_${cnt}]: $shortlegend"
                 . "Options[extsens_${cnt}]: gauge,nopercent\n"
                 . "Title[extsens_${cnt}]: $sensordesc \n"
                 . "PageTop[extsens_${cnt}]: <H1> $sensordesc </H1>\n\n";
              
           }
           else
           {
              push(@skippedSensors, $sensordesc) unless ($sensortype == ID_UNDEFINED);
           }
        }

        print "#" x 60 . "\n";
        print "Added " . scalar(@addedSensors) . " sensors\n";
        foreach my $sensorName (@addedSensors) {
           print "\t$sensorName\n";
        }

        print "\n\n";

        if( scalar(@skippedSensors) > 0)
        {
        
           print "#" x 60 . "\n";
           print "Skipped " . scalar(@skippedSensors) . " sensors\n";
           foreach my $sensorName (@skippedSensors) {
              print "\t$sensorName\n";
           }
        }
    }


    # print any global options which might have
    # appeared on the command line after the last
    # router.
    if (defined $$opt{global}) {
        foreach my $key (@{$$opt{global}}) {
            $conf .= "$key\n";
        }
    }
    if ($$opt{output}) {
        debug ('base', "Writing $$opt{output}");
        open X, ">$$opt{output}" or die "ERROR: creating $$opt{output}: $!\n";
        print X $conf;
        close X;
    } else {
        print $conf;
    }
} # end GenConf

sub IsCounterBroken ($$$) {
    my $if = shift;
    my $router_ref = shift;
    my $v3opt = shift;
    my $router = $$router_ref{routerkey};
    my $old_state = $SNMP_Session::suppress_warnings;
    $$router_ref{snmpopt_current} = $$router_ref{'snmp-options'};
    $SNMP_Session::suppress_warnings = 3;

    my $ipv4only = $$router_ref{ipv4only};
    my $snmphost = v4onlyifnecessary($router, $ipv4only);

    if ($router =~ /:\d*:\d*:\d*:\d*:[23]$/) {
        # anybody knows why /:(\d*:){4}2$/ does not work ?
        my $speed = (snmpget($snmphost, $v3opt, 'ifHighSpeed.'.$if))[0];
        debug('base',"snmpget $snmphost for ifHighSpeed.$if -> $speed Mb/s");
        $SNMP_Session::errmsg = undef;
        my $counter = (snmpget($snmphost,$v3opt, 'ifHCInOctets.'.$if))[0];
        debug('base',"snmpget $snmphost for ifHCInOctets.$if -> $counter");
        if(not $speed or $counter eq "" or $SNMP_Session::errmsg){
            $SNMP_Session::errmsg = undef;
            $$router_ref{snmpopt_current} =~ s/:+[23]$//;
            debug('base',"check for HighspeedCounters failed ... Dropping back to V1");
        } else {
           $SNMP_Session::suppress_warnings = $old_state;
           return 0;
        }
    }
    $router = "$$router_ref{community}\@$$router_ref{routername}$$router_ref{'snmp-options'}";
    $snmphost = v4onlyifnecessary($router, $ipv4only);
    if ( $$router_ref{snmpopt_current} !~ /:[23]/) {
         snmpget($snmphost, 'ifInOctets.'.$if);
         if (defined $SNMP_Session::errmsg) {
             my $error = $SNMP_Session::errmsg;
             $SNMP_Session::errmsg = undef;
             $error =~ s/\n/\n###     /g;
             $SNMP_Session::suppress_warnings = $old_state;
             return $error;
         }
    }
    $SNMP_Session::suppress_warnings = $old_state;
    return 0;
} # end IsCounterBroken

# DeviceInfo does fallback between IPv6 and IPv4: if an IPv6 snmpwalk returns
# undef values (= an error) and the target is a hostname, then it repeats the
# query using IPv4 in case the target does not support SNMP over IPv6.
# If DeviceInfo falls back to IPv4, it sets the ipv4only field for the target
# in the routers hash.
sub DeviceInfo ($$$) {
    my $router=shift;
    my $routers=shift;
    my $v3opt=shift;
    my @variables = qw(sysDescr sysContact
               sysName sysLocation
               sysObjectID);
    my %DevInfo;
    my $ipv4only = $$routers{$router}{ipv4only};

    my @variables = snmpwalk(v4onlyifnecessary($router, $ipv4only),$v3opt,'1.3.6.1.2.1.1'); # walk system
    if (!(defined $variables[0])) {
        # Do we need to fall back to IPv4?
        my ($commmunity, $host) = ($1, $2) if ($router =~ /^(.*)@([^@]+)$/);
        if ( ( ! $ipv4only ) && ( $host !=~ /^\[(.*)\]/) ) {
            # Not using IPv4, not an IPv6 address, so a hostname
            debug ('base',"No response using IPv6 for $router, trying again using IPv4");
            $$routers{$router}{ipv4only} = 1;
            @variables = snmpwalk(v4onlyifnecessary($router, 1),$v3opt, '1.3.6.1.2.1.1');
        }
    }

    if ( defined $variables[0] ) {
        my (%DevInfo, %revOIDS);
	
	if ($$routers{$router}{enablesnmpv3} eq "yes") {
        	%revOIDS = reverse %Net_SNMP_util::OIDS;
	 }
	 else {
		%revOIDS = reverse %SNMP_util::OIDS;
	}	
        foreach my $variable ( @variables ) {
            my ($oid, $value) = split ( ':', $variable, 2);
            $DevInfo{ $revOIDS{'1.3.6.1.2.1.1.'.$oid} } = $value;
        }
        # vendor identification
        my %vendorIDs = (
            # Add your vendor here
            # sysObjectID                Vendora
            '1.3.6.1.4.1.43.' =>        '3com',
            '1.3.6.1.4.1.11.' =>        'hp',
            '1.3.6.1.4.1.9.' =>         'cisco',
            '1.3.6.1.4.1.674.10895.' => 'dellLan',
            '1.3.6.1.4.1.1916.' =>      'extremenetworks',
            '1.3.6.1.4.1.1991.' =>      'foundry',
            '1.3.6.1.4.1.6027.' =>      'force10',
            '1.3.6.1.4.1.2636.' =>      'juniper',
            '1.3.6.1.4.1.94.' =>        'nokiaipsofw',
            '1.3.6.1.4.1.307.' =>       'portmaster'
            );
        foreach (keys %vendorIDs) {
            $DevInfo{Vendor} = $vendorIDs{$_} if ($DevInfo{sysObjectID} =~ /\Q$_\E/);
        }
        debug('base',"Vendor Id: $DevInfo{Vendor}");
        return \%DevInfo;
    } else {
        # we just die because the snmp module has already complained
        return undef;
    }
} # end DeviceInfo


sub fmi ($$) {
    my $number = shift;
    my $flags = shift;
    my(@short);
    if ($$flags{bits} eq "set"){
        $number*=8;
        @short = ("bits/s","kbits/s","Mbits/s","Gbits/s");
    } else {
        @short = ("Bytes/s","kBytes/s","MBytes/s","GBytes/s");
    }
    my $digits=length("".$number);
    my $divm=0;
    while ($digits-$divm*3 > 4) { $divm++; }
    my $divnum = $number/10**($divm*3);
    return sprintf("%1.1f %s",$divnum,$short[$divm]);
} # end fmi


sub IfType ($) {
  return {'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',
      '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',
      '140'=>'Dynamic synchronous Transfer Mode (DTM)',
      '141'=>'Data Communications Network',
      '142'=>'IP Forwarding Interface',
          '162'=>'Cisco Express Forwarding Interface',

      }->{(shift)};
} # end IfType





sub options ($$) {
    my $opt = shift;
    my $routers = shift;

    my $noofrouter = 0; # How many routers we've seen on cmdline.

    # The $flags hash stores what we've seen in Options[_],
    # Options[^] and Options[$] so far.
    # A cmdline arg like --global 'Options[_]: bits' will insert
    # the element $$flags{default}{bits}="set".
    # Similarly --global 'Options[$]:' will delete all elements
    # in $$flags{append}
    #
    # This was originally created to manipulate the "bits" flag
    # so fmi should know when to use "bits" or "bytes".  It might
    # be overkill to use such a comples solution but it makes life
    # easier if cfgmaker in the future has to be extended to be
    # aware of other Options[] settings like gauge, growright etc.

    my %flags;
    {
        my $def = {};
        my $pre = {};
        my $app = {};
        %flags = (default => $def,
                  prepend => $pre,
                  append  => $app);
    }

    my $addrouter_ornf = addrouter($opt,
                   $routers,
                   \$noofrouter,
                   \%flags);

    Getopt::Long::Configure("permute");
    GetOptions( $opt,
        'help|?',
        'man',
        'subdirs=s',
        'no-down',
        'show-op-down',
        'noreversedns',
        'ifref=s',
        'ifdesc=s',
        'if-filter=s',
        'if-template=s',
        'interfaces!',
        'host-template=s',
        'community=s',
	'username=s',
	'authkey=s',
	'authpassword=s',
	'authprotocol=s',
	'contextengineid=s',
	'contextname=s',
	'privkey=s',
	'privpassword=s',
	'privprotocol=s',
        'snmp-options=s',
        'dns-domain=s',
        'version',
        'output=s',
        'global=s@',
        'enable-ipv6',
        'enable-snmpv3',
        'use-16bit',
	'zero-speed=s',
        '<>', $addrouter_ornf) or pod2usage(2);

    die("cfgmaker for mrtg-2.14.7\n") if $$opt{version};
    pod2usage(-exitval => 0, -verbose => 2) if $$opt{man};
    pod2usage(-verbose => 1) if not keys %$routers;
} # end options

# The callback routine used by GetOptions to process "non-option
# strings" (routers) among the arguments is given only ONE argument.
# However, I want it to be able to specify both the %options hash
# (for read access) and the %routers hash (for modifying) as well
# as the router's name.  This makes for three arguments.
#
# The solution is to use a closure.  addrouter takes a opt hash, a
# routers hash, an index to the current number of routers and a flags
# hash and then returns a function which "remembers" these
# values (the closure) but also takes an argument (the router name).

sub addrouter() {
    my $opt = shift;
    my $routers = shift;
    my $noofrouter = shift;
    my $flags = shift;

    return sub {
        my $rawname = shift;

        $$noofrouter++;  # First increase the number of routers seen.

        my ($community,$routername,$routerkey,$snmpopt,$dnsdomain,$tmpname,@tmpsnmp);

        # Now make sure that the router is defined with the
        # proper community, domainname and SNMP options.
        # Dissect the rawname to find out what it contains.

        # First check for community:
        if ($rawname =~ /^(.+)\@([^@]+)$/) {
            # Community was given explicitly!
            $community = $1;
            $tmpname = $2
        } else {
            $community = $$opt{community};
            $tmpname = $rawname;
        }
        # Now separate the router name from the options. We
        # can't just split on the : character because a numeric
        # IPv6 address contains a variable number of :'s
        if( ($tmpname =~ /^(\[.*\]):(.*)$/) || ($tmpname =~ /^(\[.*\])$/) ){
            # Numeric IPv6 address between []
            ($routername, $snmpopt) = ($1, $2);
        } else {
            # Hostname or numeric IPv4 address
            ($routername, $snmpopt) = split(':', $tmpname, 2);
        }
        @tmpsnmp = split(':', $snmpopt);

        $routername =~ s/\.$//; # if the hostname ends in a '.' remove it
                                # it seems to cause trouble in some other
                                # parts of mrtg

        # Now setup the SNMP options.
        if (not defined $$opt{'snmp-options'}) {
            $snmpopt = ':' . (join ':', @tmpsnmp);  # No merge needed.
        } else {
            my ($t,$o,@s);
            my @optsnmp = split ':',$$opt{'snmp-options'};

            # Trim first element as the SNMP options start
            # with a colon and thus the first element is a
            # dummy "" string not corresponding to any SNMP option
            # (or rather, corresponding to a router, if there had
            # been one...)
            shift @optsnmp;

            while ((scalar @tmpsnmp > 0)
               or (scalar @optsnmp > 0)) {
                $t = shift @tmpsnmp;
                $o = shift @optsnmp;

                if(not defined $t) {$t = "";}
                if(not defined $o) {$o = "";}

                if($t ne "")
                {
                    push @s, $t;
                } else {
                    push @s, $o;
                }
            }

            $snmpopt = ':' . (join ':', @s);
        }

        my $newopt={};  # Perhaps unecessary initialization but...

        foreach my $o (keys %$opt) {
            my $ovalue = $$opt{$o};

            $$newopt{$o} = $ovalue
            unless
                ($o =~ /^fullcmd$/ or
                 $o =~ /^community$/ or
                 $o =~ /^snmp-options$/ or
                 $o =~ /^global$/ or
                 $o =~ /^output$/
                 );

            # Ok, copy the --globals array from $$opt so we know
            # that which global(s) to print out into the config.
            push @{$$newopt{$o}}, @{$$opt{$o}} if ($o =~ /^global$/);

            # Go through these --global statements one by one.
            # If anyone of them contains Options[] for any of the
            # targets [_], [^] or [_], process those statements
            # tenderly and populate the $$flags{}{} hashes accordingly.
            for my $g (@{$$opt{"global"}}) {
                my ($t,$fs);
                $g =~ /^options\[([_^\$])\]:\s*(.*)$/i;
                $t = $1;
                $fs = $2;
                $t =~ s/_/default/;
                $t =~ s/\^/prepend/;
                $t =~ s/\$/append/;

                # If a line like "options[X]:" is found clear
                # all flags for that category and then go to next
                # --global 'Options[..' line if any.
                if ($fs =~ /^\s*$/) {
                    $$flags{$t} = {};
                    next;
                } else {
                    for my $f (split /\s*,\s*/,$fs) {
                        $$flags{$t}{$f} = "set";
                    }
                }
            }

            $$opt{$o} = [] if ($o =~ /^global$/);
        }

        # Now let this router get it's own copy of
        # the "currently effective" flags.
        # Note, Options[_] should only be considered
        # if Options[^] and Options[$] both are absent.

        my $newflags = {};

        if((0 == keys %{$$flags{prepend}})
            and (0== keys %{$$flags{append}})) {
            for my $f (keys %{$$flags{default}}) {
                $$newflags{$f}="set";
            }
        } else {
            for my $f (keys %{$$flags{prepend}},
                   keys %{$$flags{append}}) {
                $$newflags{$f}="set";
            }
        }

        if(defined $$opt{'dns-domain'}) {
            $dnsdomain=$$opt{'dns-domain'};
        } else {
            $dnsdomain="";
        }

        $routerkey =
            "${community}\@${routername}"
            . (($dnsdomain eq "")?"":".")
                . "${dnsdomain}${snmpopt}";

        $$routers{$routerkey}= {
            # rawname is the unprocessed string from the
            # command line.
            rawname     => $rawname,

            # opt is the commandline options which are
            # in effect for THIS particular router.
            opt         => $newopt,

            # noofrouter is the unique number for the
            # router.  The first router on the command
            # line is given number 1, the second number 2
            # and so on.
            noofrouter  => $$noofrouter,

            # flags contains which --global 'Options[^_$]: flags'
            # are effective for THIS particular router.
            flags       => $newflags,

            # community is the SNMP community used for the router
            community   => $community,

            # snmpopt is the SNMP options on the form
            # [port[:timeout[:retries[:backoff[:version]]]]]
            # The empty string simply means that no
            # specific SNMP options has been given.
            'snmp-options' => $snmpopt,

            # dns-domain is a domain which should be added
            # to the routers hostname.
            # e.g if dns-domain is place.xyz and host is router
            # the host "router.place.xyz" will be polled.
            # If host is "router.dept" the poll will be against
            # "router.dept.place.xyz".
            'dns-domain' => $dnsdomain,

            # routername is the routers name as given on the
            # command line but with SNMP community (if given)
            # and SNMP options (if given) stripped.
            #
            # (Yes, routername COULD be on the form
            # "host.domain" or "host.subdomain.domain")
            routername  => $routername,

            # routerkey is the same as the has key used for the
            # router, which is the router name with everything
            # taken into account: community, dns-domain and
            # snmp-options.  This is the value used when doing
            # SNMP communication with the router.
            routerkey => $routerkey,
            };
    }
} # end addrouter

sub html_escape ($) {
    my $s = shift;
    $s =~ s/&/&amp;/g;
    $s =~  s/</&lt;/g;
    $s =~  s/>/&gt;/g;
    $s =~ s/[\n\r]+([^\n\r])/<BR>\n $1/g;
    return $s;
} # end html_escape

sub parsev3 ($) {
    my $opt = shift;
    my %v3opt;
	if (!exists ($$opt{username})) {
    		die "SMNP V3 requires a --username paramter as part of the User Security Model";
	} else {
		$v3opt{username} = $$opt{username};
	}
	$v3opt{contextname} = $$opt{contextname} if exists($$opt{contextname});
	if (exists ($$opt{authkey})) {
		die "Can't use both an --authkey and --authpassword in the User Security Model" if exists($$opt{authpassword});	
		$v3opt{authkey} = $$opt{authkey};
	}
	if (exists ($$opt{authpassword})) {
		die "Use of --authpassword requires --contextengineid" if !exists($$opt{contextengineid});
		$v3opt{authpassword} = $$opt{authpassword};
	}
	if (exists ($$opt{authprotocol})) {
		die "Only sha and md5 are defined for --authprotocol" if $$opt{authprotocol} !~ /^(md5|sha)$/i;
		die "--authprotocol can only be used with --authpassword or --authkey" if ! exists($$opt{authpassword}) and ! exists($$opt{authkey});
		($v3opt{authprotocol}) = (lc($$opt{authprotocol}) =~ /^(md5|sha)$/);
	}
	if (exists ($$opt{privkey})) {
		die "Can't use both an --privkey and --privpassword in the User Security Model" if exists($$opt{privpassword});	
		die "Can't have privacy parameters without authentication in the User security Model" if ! exists($$opt{authpassword}) and ! exists($$opt{authkey});
		$v3opt{privkey} = $$opt{privkey};
	}
	if (exists ($$opt{privpassword})) {
		die "Use of --privpassword requires --contextengineid" if !exists($$opt{contextengineid});
		die "Can't have privacy parameters without authentication in the User security Model" if ! exists($$opt{authpassword}) and ! exists($$opt{authkey});
		$v3opt{privpassword} = $$opt{privpassword};
	}
	if (exists ($$opt{privprotocol})) {
		die "Only des, 3desede, aescfb128, aescffb192 and aescfb256 are defined for --privprotocol" if $$opt{privprotocol} !~ /^(3*des(ede)*|aescfb(128|192|256))$/;
		die "--privprotocol can only be used with --privpassword or --privkey" if ! exists($$opt{privpassword}) and ! exists($$opt{privkey});
		$v3opt{privprotocol} = lc($$opt{privprotocol});
	}
	return %v3opt;
}
		
	
sub init () {
  snmpmapOID('sysObjectID' => '1.3.6.1.2.1.1.2.0',
             'CiscolocIfDescr' => '1.3.6.1.4.1.9.2.2.1.1.28',
             'CiscoCatalystPortName' => '1.3.6.1.4.1.9.5.1.4.1.1.4',
             'vmVlan' => '1.3.6.1.4.1.9.9.68.1.2.2.1.2',
             'ifAlias' => '1.3.6.1.2.1.31.1.1.1.18');
} # end init

__END__

=pod

=head1 NAME

envsems_cfgmaker - Creates mrtg.cfg files (for mrtg-2.14.7)

=head1 SYNOPSIS

envsems_cfgmaker [options] [community@]enviromux_sems [options]

=head1 OPTIONS


 --community=cmty  Set the default community string to "cmty" instead of
                   "public".

 --help            brief help message
 --man             full documentation
 --version         print the version of cfgmaker

 --output=file     output filename default is STDOUT

=head1 DESCRIPTION

B<Envsems_Cfgmaker> creates MRTG configuration files based on information
pulled from a Enviromux-SEMS-16 unit.

[I<community>B<@>]I<enviromux_sems>

I<Community> is the community name of the device you want to create a
configuration for. If not specified, it defaults to 'B<public>'; you might
want to try this first if you do not know the community name of a
device. If you are using the wrong community name you will get no
response from the device.

I<enviromux_sems> is the IP number of the SNMP-managable Enviromux-SEMS-16 
unit (device).

=head2 Configuration

See B<--output> for how their behaviour is affected by
where or how many times they appear on the command line.

=over

=item B<--help>

Print a brief help message and exit.

=item B<--man>

Prints the manual page and exits.

=item B<--version>

Print the version of cfgmaker.  This should match the version of MRTG
for which config files are being created.

=item B<--community> B<community-string>

Use this to set the community for the Enviromux following on the command
line to B<community-string>.  You may overrride this
community string by using the syntax B<community>B<@>B<router>.

=item B<--output> I<file>

Write the output from B<cfgmaker> into the file I<file>. The default
is to use C<STDOUT>. B<--output> is expected to appear only once on the
command line. If used multiple times, the file specified by the last
B<--output> will be used.

=back

=over



=head1 SEE ALSO

L<mrtg-reference>

=head1 AUTHOR

Tobias Oetiker E<lt>tobi@oetiker.chE<gt> and
Jakob Ilves E<lt>jakob.ilves@oracle.comE<gt>


=head1 LICENSE

GNU General Public License

=head1 COPYRIGHT

Cfgmaker is Copyright 2000 by Tobias Oetiker E<lt>tobi@oetiker.chE<gt>

=cut