# -*- mode: Perl -*-

package MRTG_lib;

###################################################################

# MRTG 2.17.7  Support library MRTG_lib.pm

###################################################################

# Created by Tobias Oetiker <tobi@oetiker.ch>

#            and Dave Rand <dlr@bungi.com>

#

# For individual Contributers check the CHANGES file

#

###################################################################

#

# Distributed under the GNU General Public License

#

###################################################################

require 5.005;

use strict;

use vars qw($OS $SL $PS @EXPORT @ISA $VERSION %timestrpospattern);

my %mrtgrules;

BEGIN {

    # Automatic OS detection ... do NOT touch

    if ( $^O =~ /^(?:(ms)?(dos|win(32|nt)?))/i ) {

        $OS = 'NT';

        $SL = '\\';

        $PS = ';';

    } elsif ( $^O =~ /^NetWare$/i ) {

	$OS = 'NW';

	$SL = '/';

	$PS = ';';

    } elsif ( $^O =~ /^VMS$/i ) {

        $OS = 'VMS';

        $SL = '.';

        $PS = ':';

    } elsif ( $^O =~ /^os2$/i ) {

	$OS = 'OS2';

	$SL = '/';

	$PS = ';';

    }  else {

        $OS = 'UNIX';

        $SL = '/';

        $PS = ':';

    }

}

require Exporter;

@ISA = qw(Exporter);

@EXPORT = qw(readcfg cfgcheck setup_loghandlers 

	     datestr expistr ensureSL timestamp

             create_pid demonize_me debug log2rrd storeincache readfromcache clearfromcache cleanhostkey

	     populateconfcache readconfcache writeconfcache

	     v4onlyifnecessary);

$VERSION = 2.100016;

%timestrpospattern =

      (

       'NO' => 0,

       'LU' => 1,

       'RU' => 2,

       'LL' => 3,

       'RL' => 4

      );

%mrtgrules =

      (                         # General CFG

       'workdir' => 

       [sub{$_[0] && (-d $_[0])}, sub{"Working directory $_[0] does not exist"}],

       'htmldir' =>

       [sub{$_[0] && (-d $_[0])}, sub{"Html directory $_[0] does not exist"}],

       'imagedir' =>

       [sub{$_[0] && (-d $_[0])}, sub{"Image directory $_[0] does not exist"}],

       'logdir' =>

       [sub{$_[0] && (-d $_[0] )}, sub{"Log directory $_[0] does not exist"}],

       'forks' =>

       [sub{$_[0] && (int($_[0]) > 0 and $MRTG_lib::OS eq 'UNIX')},

        sub{"Less than 1 fork or not running on Unix/Linux"}],

       'refresh' => 

       [sub{int($_[0]) >= 300}, sub{"$_[0] should be 300 seconds or more"}],

       'enablesnmpv3' =>

       [sub{((lc($_[0])) eq 'yes' or (lc($_[0])) eq 'no')}, sub{"$_[0] must be yes or no"}],

       'enableipv6' =>

       [sub{((lc($_[0])) eq 'yes' or (lc($_[0])) eq 'no')}, sub{"$_[0] must be yes or no"}],

       'interval' => 

       [sub{$_[0] =~ /(\d+)(?::(\d+))?/ ; 

            my $int = $1*60; $int += $2 if $2;

            $int >= 1 and $int <= 60*60}, sub{"$_[0] should be at least 1 Second (0:01) and no more than 60 Minutes (60)"}], 

       'writeexpires' =>  

       [sub{1}, sub{"Internal Error"}],

       'nomib2' => 

       [sub{1}, sub{"Internal Error"}],

       'singlerequest' => 

       [sub{1}, sub{"Internal Error"}],

       'icondir' =>

       [sub{$_[0]}, sub{"Directory argument missing"}],

       'language' =>

       [sub{1}, sub{"Mrtg not localized for $_[0] - defaulting to english"}],

       'loadmibs' =>

       [sub{$_[0]}, sub{"No MIB Files specified"}],

       'userrdtool' =>

       [sub{0}, sub{"UseRRDtool is not valid any more. Use LogFormat, PathAdd and LibAdd instead"}],

       'userrdtool[]' =>

       [sub{0}, sub{"UseRRDtool[] is not valid any more. Check the new xyz*bla[] syntax for passing parameters to tool xyz who reads the mrtg.cfg"}],

       'logformat' =>

       [sub{$_[0] =~ /^(rateup|rrdtool)$/}, sub{"Invalid Logformat '$_[0]'"}],

       'pathadd' =>

       [sub{-d $_[0]}, sub{"$_[0] is not the name of a directory"}],

       'libadd' =>

       [sub{-d $_[0]}, sub{"$_[0] is not the name of a directory"}],

       'runasdaemon' =>

       [sub{1}, sub{"Internal Error"}],

       'nodetach' =>

       [sub{1}, sub{"Internal Error"}],

       'maxage' =>

       [sub{(($_[0] =~ /^[0-9]+$/) and ($_[0] > 0)) },

        sub{"$_[0] must be a Number bigger than 0"}],

       'nospacechar' =>

       [sub{length($_[0]) == 1}, sub{"$_[0] must be one character long"}],

       'snmpoptions' =>

       [sub{ debug('eval',"snmpotions $_[0]");local $SIG{__DIE__}; eval( '{'.$_[0].'}' ); return not $@},

        sub{"Must have the format \"OptA => Number, OptB => 'String', ... \""}],

       'conversioncode' =>

       [sub{-r $_[0]}, sub{"Cannot read conversion code file $_[0]"}],

       # Check for an environment setting for RRDCACHED_ADDRESS

       # Steve Shipway, Sep 2010

       'rrdcached' =>

#       [sub{(($_[0] =~ /^unix:(\S+)/)and(-w $1))}, sub{"Currently, only UNIX domain sockets are supported for RRDCached, and must exist and be writeable."}],

       [sub{1},sub{"Internal Error"}],

       # Get graphite server name/ip and port

       'sendtographite' =>

       [sub{$_[0] =~ /^.*,\d+$/}, sub{"Invalid Graphite Destination '$_[0]'"}],

       # Per Router CFG

       'target[]' => 

       [sub{1}, sub{"Internal Error"}], #will test this later

       'snmpoptions[]' =>

       [sub{ debug('eval',"snmpotions[] $_[0]");local  $SIG{__DIE__}; eval('{'.$_[0].'}' ); return not $@},

        sub{"Must have the format \"OptA => Number, OptB => 'String', ... \""}],

       'routeruptime[]' => 

       [sub{1}, sub{"Internal Error"}], #will test this later

       'routername[]' => 

       [sub{1}, sub{"Internal Error"}], #will test this later

       'nohc[]' =>

       [sub{((lc($_[0])) eq 'yes' or (lc($_[0])) eq 'no')}, sub{"$_[0] must be yes or no"}],

       'maxbytes[]' => 

       [sub{(($_[0] =~ /^[0-9]+$/) && ($_[0] > 0)) },

        sub{"$_[0] must be a Number bigger than 0"}],

       'maxbytes1[]' =>

       [sub{(($_[0] =~ /^[0-9]+$/) && ($_[0] > 0))},

        sub{"$_[0] must be numerical and larger than 0"}],

       'maxbytes2[]' =>

       [sub{(($_[0] =~ /^[0-9]+$/) && ($_[0] > 0))},

        sub{"$_[0] must a number bigger than 0"}],

       'ipv4only[]' =>

       [sub{((lc($_[0])) eq 'yes' or (lc($_[0])) eq 'no')}, sub{"$_[0] must be yes or no"}],

       'absmax[]' => 

       [sub{($_[0] =~ /^[0-9]+$/)}, sub{"$_[0] must be a Number"}],

       'title[]' => 

       [sub{1}, sub{"Internal Error"}], #what ever the user chooses.

       'directory[]' => 

       [sub{1}, sub{"Internal Error"}], #what ever the user chooses.

       'clonedirectory[]' =>

       [sub{($_[0] =~ /[^,]\s*$/)}, sub{"$_[0] with comma must have the second parameter"}], 

       'pagetop[]' => 

       [sub{1}, sub{"Internal Error"}], #what ever the user chooses.

       'bodytag[]' => 

       [sub{1}, sub{"Internal Error"}], #what ever the user chooses.

       'pagefoot[]' => 

       [sub{1}, sub{"Internal Error"}], #what ever the user chooses.

       'addhead[]' => 

       [sub{1}, sub{"Internal Error"}], #what ever the user chooses.

       'rrdrowcount[]' => 

       [sub{1}, sub{"Internal Error"}], #what ever the user chooses.

       'rrdrowcount30m[]' =>

       [sub{1}, sub{"Internal Error"}], #what ever the user chooses.

       'rrdrowcount2h[]' =>

       [sub{1}, sub{"Internal Error"}], #what ever the user chooses.

       'rrdrowcount1d[]' =>

       [sub{1}, sub{"Internal Error"}], #what ever the user chooses.

       'rrdhwrras[]' =>

       [sub{$_[0] =~ /^RRA:(HWPREDICT|SEASONAL|DEVPREDICT|DEVSEASONAL|FAILURES):\S+(\s+RRA:(HWPREDICT|SEASONAL|DEVPREDICT|DEVSEASONAL|FAILURES):\S+)*$/},

        sub{"This does not look like rrdtool HW RRAs. Check the rrdcreate manual page for inspiration. ($_[0])"}],

       'extension[]' =>

       [sub{1}, sub{"Internal Error"}], #what ever the user chooses.

       'unscaled[]' => 

       [sub{$_[0] =~ /[ndwmy]+/i}, sub{"Must be a string of [n]one, [d]ay, [w]eek, [m]onth, [y]ear"}],

       'weekformat[]' => 

       [sub{$_[0] =~ /[UVW]/}, sub{"Must be either W, V, or U"}],

       'withpeak[]' =>

       [sub{$_[0] =~ /[ndwmy]+/i}, sub{"Must be a string of [n]one, [d]ay, [w]eek, [m]onth, [y]ear"}],

       'suppress[]' =>

       [sub{$_[0] =~ /[ndwmy]+/i}, sub{"Must be a string of [n]one, [d]ay, [w]eek, [m]onth, [y]ear"}],

       'xsize[]' =>

       [sub{((int($_[0]) >= 30) && (int($_[0]) <= 600))}, sub{"$_[0] must be between 30 and 600 pixels"}],

       'ysize[]' =>

       [sub{(int($_[0]) >= 30)}, sub{"Must be >= 30 pixels"}],

       'ytics[]' =>

       [sub{(int($_[0]) >= 1) }, sub{"Must be >= 1"}],

       'yticsfactor[]' =>

       [sub{$_[0] =~ /[-+0-9.efg]+/}, sub{"Should be a numerical value"}],

       'factor[]' =>

       [sub{$_[0] =~ /[-+0-9.efg]+/}, sub{"Should be a numerical value"}],

       'step[]'  =>

       [sub{(int($_[0]) >= 0)}, sub{"$_[0] must be > 0"}],

       'timezone[]' =>

       [sub{1}, sub{"Internal Error"}],

       'options[]' =>

       [sub{1}, sub{"Internal Error"}],

       'colours[]' =>

       [sub{1}, sub{"Internal Error"}],

       'background[]' =>

       [sub{1}, sub{"Internal Error"}],

       'kilo[]' => 

       [sub{($_[0] =~ /^[0-9]+$/)}, sub{"$_[0] must be a Integer Number"}],

       #define whatever k should be (1000, 1024, ???)

       'kmg[]' =>

       [sub{1}, sub{"Internal Error"}],

       'pngtitle[]' =>

       [sub{1}, sub{"Internal Error"}],

       'ylegend[]' =>

       [sub{1}, sub{"Internal Error"}],

       'shortlegend[]' =>

       [sub{1}, sub{"Internal Error"}],

       'legend1[]' =>

       [sub{1}, sub{"Internal Error"}],

       'legend2[]' =>

       [sub{1}, sub{"Internal Error"}],

       'legend3[]' =>

       [sub{1}, sub{"Internal Error"}],

       'legend4[]' =>

       [sub{1}, sub{"Internal Error"}],

       'legend5[]' =>

       [sub{1}, sub{"Internal Error"}],

       'legendi[]' =>

       [sub{1}, sub{"Internal Error"}],

       'legendo[]' =>

       [sub{1}, sub{"Internal Error"}],

       'setenv[]' => 

       [sub{$_[0] =~ /^(?:[-\w]+=\"[^"]*"(?:\s+|$))+$/},

        sub{"$_[0] must be XY=\"dddd\" AASD=\"kjlkj\" ... "}],

       'xzoom[]' =>

       [sub{($_[0] =~ /^[0-9]+(?:\.[0-9]+)?$/)},

        sub{"$_[0] must be a Number xxx.xxx"}],

       'yzoom[]' =>

       [sub{($_[0] =~ /^[0-9]+(?:\.[0-9]+)?$/)},

        sub{"$_[0] must be a Number xxx.xxx"}],

       'xscale[]' =>

       [sub{($_[0] =~ /^[0-9]+(?:\.[0-9]+)?$/)},

        sub{"$_[0] must be a Number xxx.xxx"}],

       'yscale[]' =>

       [sub{($_[0] =~ /^[0-9]+(?:\.[0-9]+)?$/)},

        sub{"$_[0] must be a Number xxx.xxx"}],

       'threshdir' =>

       [sub{$_[0] && (-d $_[0])}, sub{"Threshold directory $_[0] does not exist"}],

       'threshhyst' =>

       [sub{($_[0] =~ /^[0-9]+(?:\.[0-9]+)?$/)},

        sub{"$_[0] must be a Number xxx.xxx"}],

       'hwthreshhyst' =>

       [sub{($_[0] =~ /^[0-9]+(?:\.[0-9]+)?$/)},

        sub{"$_[0] must be a Number xxx.xxx"}],

       'threshmailserver' =>

       [sub{$_[0] && gethostbyname($_[0])}, sub{"Unknown mailserver hostname $_[0]"}],

       'threshmailsender' =>

       [sub{$_[0] && ($_[0] =~ /\S+\@\S+/)}, sub{"ThreshMailAddress $_[0] does not look like an email address at all"}],

       'threshmini[]' =>

       [sub{1}, sub{"Internal Threshold Config Error"}],

       'threshmino[]' =>

       [sub{1}, sub{"Internal Threshold Config Error"}],

       'threshmaxi[]' =>

       [sub{1}, sub{"Internal Threshold Config Error"}],

       'threshmaxo[]' =>

       [sub{1}, sub{"Internal Threshold Config Error"}],

       'threshdesc[]' =>

       [sub{1}, sub{"Internal Threshold Config Error"}],

       'threshprogi[]' =>

       [sub{$_[0] && (-e $_[0])}, sub{"Threshold program $_[0] cannot be executed"}],

       'threshprogo[]' =>

       [sub{$_[0] && (-e $_[0])}, sub{"Threshold program $_[0] cannot be executed"}],

       'threshprogoki[]' =>

       [sub{$_[0] && (-e $_[0])}, sub{"Threshold program $_[0] cannot be executed"}],

       'threshprogoko[]' =>

       [sub{$_[0] && (-e $_[0])}, sub{"Threshold program $_[0] cannot be executed"}],

       'threshmailaddress[]' =>

       [sub{$_[0] && ($_[0] =~ /\S+\@\S+/)}, sub{"ThreshMailAddress $_[0] does not look like an email address at all"}],

       'hwthreshmini[]' =>

       [sub{1}, sub{"Internal Threshold Config Error"}],

       'hwthreshmino[]' =>

       [sub{1}, sub{"Internal Threshold Config Error"}],

       'hwthreshmaxi[]' =>

       [sub{1}, sub{"Internal Threshold Config Error"}],

       'hwthreshmaxo[]' =>

       [sub{1}, sub{"Internal Threshold Config Error"}],

       'hwthreshdesc[]' =>

       [sub{1}, sub{"Internal Threshold Config Error"}],

       'hwthreshprogi[]' =>

       [sub{$_[0] && (-e $_[0])}, sub{"Threshold program $_[0] cannot be executed"}],

       'hwthreshprogo[]' =>

       [sub{$_[0] && (-e $_[0])}, sub{"Threshold program $_[0] cannot be executed"}],

       'hwthreshprogoki[]' =>

       [sub{$_[0] && (-e $_[0])}, sub{"Threshold program $_[0] cannot be executed"}],

       'hwthreshprogoko[]' =>

       [sub{$_[0] && (-e $_[0])}, sub{"Threshold program $_[0] cannot be executed"}],

       'hwthreshmailaddress[]' =>

       [sub{$_[0] && ($_[0] =~ /\S+\@\S+/)}, sub{"ThreshMailAddress $_[0] does not look like an email address at all"}],

       'timestrpos[]' => 

       [sub{$_[0] =~ /^(no|[lr][ul])$/i}, sub{"Must be a string of NO, LU, RU, LL, RL"}],

       'timestrfmt[]' => 

       [sub{1}, sub{"Internal Error"}] #what ever the user chooses.

);

# config file reading

sub readcfg ($$$$;$$) {

    my $cfgfile = shift;

    my $routers = shift;

    my $cfg = shift;

    my $rcfg = shift;

    my $extprefix = shift || '';

    my $extrules = shift;

    my ($first,$second,$key,$userules);

    my (%seen);

    my (%pre,%post,%deflt,%defaulted);

    unless ($cfgfile) {

        die "ERROR: readfg: no configfile specified\n";

    }

    unless (ref($routers) eq 'ARRAY' and ref($cfg) eq 'HASH'

            and ref($rcfg) eq 'HASH') {

        die "ERROR: readcfg called with wrong arguments\n";

    }

    if ($extprefix and ref($extrules) ne 'HASH') {

        die "ERROR: readcfg called with wrong args for mrtg extension\n";

    }

    my $hand;

    my $file;

    my @filestack;

    local *CFG;

    if ($cfgfile eq '-'){$cfgfile = '<&STDIN'};

    open (CFG, $cfgfile) || die "ERROR: unable to open config file: $cfgfile\n";

    $hand = *CFG;

    my @handstack;

    my $nextfile = $cfgfile;

    my %routerhash;

    while (1) {        

        if (eof $hand || not defined ($_ = <$hand>) ) {

                close $hand;

                if (scalar @handstack){

                        $hand = pop @handstack;

                        $nextfile = pop @filestack;

                        next;

                } else {

                        last;

                }

        }

        $file=$nextfile;

        chomp;

        my $line = $.;

        if (/^include:\s*(.*?\S)\s*$/i){

                my $newhandle;

                my @nextfiles;

                $nextfile = $1;

                if( $nextfile =~ /\*/ ) {

                    @nextfiles = glob( $nextfile );

                    @nextfiles = glob( ($cfgfile =~ m#(.+)${MRTG_lib::SL}[^${MRTG_lib::SL}]+$#)[0] . ${MRTG_lib::SL} . $nextfile )

                        if(!@nextfiles);	

                } else { 

                    $nextfile =  ($cfgfile =~ m#(.+)${MRTG_lib::SL}[^${MRTG_lib::SL}]+$#)[0] . ${MRTG_lib::SL} . $nextfile 

                        if(!-r $nextfile);

                    @nextfiles = ( $nextfile ); 

                }

                foreach $nextfile ( @nextfiles ) {

                    open my $newhandle, '<', $nextfile or die "ERROR: unable to open include file: $nextfile\n";

                    push @handstack, $hand;

                    push @filestack, $file;

                    $hand = $newhandle;

                    $file = $nextfile;

                }

                next;

        }

        debug('cfg',"$file\[$.\]: $_");

        s/\t/ /g;               #replace tab by space

        s/\r$//;                # kill dos newlines ...

        s/ +$//g;               #remove space at the end of the line

        next if /^ *\#/;       #ignore comment lines

        next if /^ *$/;        #ignore empty lines

        # oops spelling error

        s/^supress/suppress/gi;

        # the line we got starts with white space so it is to be appended to what ever

        # was on the previous line.

        if (defined $first && /^\s+(.*\S)\s*$/) {

            if (defined $second) {

               $second eq '^' && do { $pre{$first} .= "\n".$1; next};

               $second eq '$' && do { $post{$first} .= "\n".$1; next};

               $second eq '_' && do { $deflt{$first} .= "\n".$1; next};

               $$rcfg{$first}{$second} .= " ".$1;

            } else {

               $$cfg{$first} .= "\n".$1;

            }

            next;

        }

        if (defined $first && defined $second && defined $post{$first} && ($second !~ /^[\$^_]$/)) {

            if (defined $defaulted{$first}{$second}) {

                $$rcfg{$first}{$second} = $post{$first};

                delete $defaulted{$first}{$second};

            } else {

                $$rcfg{$first}{$second} .= ( defined $$cfg{nospacechar} and $post{$first} =~ /(.*)\Q$$cfg{nospacechar}\E$/) ? $1 : " ".$post{$first} ;

            }

        }

        if (defined $first and $first =~ m/^([^*]+)\*(.+)$/) {

            $userules = ($1 eq $extprefix ? $extrules : '');

        } else {

            $userules = \%mrtgrules;

        }

        if ($first && defined $deflt{$first} && ($second eq '_')) {

            quickcheck($first,$second,$deflt{$first},$file,$line,$userules)

        } elsif ($first && $second && ($second !~ /^[\$^_]$/)) {

            quickcheck($first,$second,$$rcfg{$first}{$second},$file,$line,$userules)

        } elsif ($first && not $second) {

            quickcheck($first,0,$$cfg{$first},$file, $line,$userules)

        }

        if (/^([A-Za-z0-9*]+)\[(\S+)\]\s*:\s*(.*\S?)\s*$/) {

            $first = lc($1);

            $second = lc($2);

            # For us spelling-handicapped Americans. ;)

            # James Overbeck, grendel@gmo.jp, 2003/01/19

            if ($first eq 'colors') { $first = 'colours' };

            if ($second eq '^') {

                if ($3 ne '') {

                    $pre{$first}=$3;

                } else {

                    delete $pre{$first};

                }

                next;

            }

            if ($second eq '$') {

                if ($3 ne '') {

                    $post{$first}=$3;

                } else {

                    delete $post{$first};

                }

                next;

            }

            if ($second eq '_') {

                if ($3 ne '') {

                    $deflt{$first}=$3;

                } else {

                    delete $deflt{$first};

                }

                next;

            }

            if (not defined $routerhash{$second}) {

                    push (@{$routers}, $second);

                    $routerhash{$second} = 1;

            }

            # make sure that default tags spring into existance upon first 

            # call of a router

            foreach $key (keys %deflt) {

                if (! defined $$rcfg{$key}{$second}) {

                    $$rcfg{$key}{$second} = $deflt{$key};

                    $defaulted{$key}{$second} = 1;

                }

            }

            # make sure that prefix-only tags spring into existance upon first 

            # call of a router

            foreach $key (keys %pre) {

                if (! defined $$rcfg{$key}{$second}) {

                    delete $defaulted{$key}{$second} if $defaulted{$key}{$second};

                    $$rcfg{$key}{$second} = ( defined $$cfg{nospacechar} && $pre{$key} =~ m/(.*)\Q$$cfg{nospacechar}\E$/ ) ? $1 : $pre{$key}." ";

                }

            }

            if ($seen{$first}{$second}) {

                die ("ERROR: Line $line ($_) in CFG file ($file)\n".

                     "contains a duplicate definition for $first\[$second].\n".

                     "First definition is on line $seen{$first}{$second}\n")

            } else {

                $seen{$first}{$second} = $line;

            }

            if ($defaulted{$first}{$second}) {

                $$rcfg{$first}{$second} = '';

                delete $defaulted{$first}{$second};

            }

            $$rcfg{$first}{$second} .= $3;

            next;

        }

        if (/^(\S+):\s*(.*\S)\s*$/) {

            $first = lc($1);    

            $$cfg{$first} = $2;

            $second = '';

            next;

        }

        die "ERROR: Line $line ($_) in CFG file ($file)  does not make sense\n";

    }

    # append $ stuff to the very last tag in cfg file if necessary 

    if (defined $first && defined $second && defined $post{$first} && ($second !~ /^[\$^_]$/)) {

        if ($defaulted{$first}{$second}) {

            $$rcfg{$first}{$second} = $post{$first};

            delete $defaulted{$first}{$second};

        } else {

            $$rcfg{$first}{$second} .= 

	      ( defined $$cfg{'nospacechar'} && $post{$first} =~ /(.*)\Q$$cfg{nospacechar}\E$/ ) ? $1 : " ".$post{$first} ;      

        }

    }

    #check the last input line

    if ($first =~ m/^([^*]+)\*(.+)$/) {

        $userules = ($1 eq $extprefix ? $extrules : '');

    } else {

        $userules = \%mrtgrules;

    }

    if ($first && defined $deflt{$first} && ($second eq '_')) {

        quickcheck($first,$second,$deflt{$first},$file,$.,$userules)

    } elsif ($first && $second && ($second !~ /^[\$^_]$/)) {

        quickcheck($first,$second,$$rcfg{$first}{$second},$file,$.,$userules)

    } elsif ($first && not $second) {

        quickcheck($first,0,$$cfg{$first},$file,$.,$userules)

    }

    close (CFG);

	# Check for an environment setting for RRDCACHED_ADDRESS

	# Steve Shipway, Sep 2010

	if( $ENV{RRDCACHED_ADDRESS} and not exists $cfg->{ rrdcached } ) {

		warn("WARNING: Using environment variable RRDCACHED_ADDRESS\n");

		$cfg->{ rrdcached } = $ENV{RRDCACHED_ADDRESS};

        quickcheck('rrdcached',0,$ENV{RRDCACHED_ADDRESS},'Environment variable RRDCACHED_ADDRESS','n/a',\%mrtgrules);

	}

	if( exists $cfg->{ rrdcached } ) {

        warn ("WARNING: You are running with RRDCached enabled (".$cfg->{ rrdcached }.").  This will disable all Threshold checking, since RRDCached does not support updatev and an update/fetch will cancel out the caching benefits.\n");

        if( $cfg->{ rrdcached } !~ /^unix:/ ) {

            warn("WARNING: You are running RRDCached in TCP mode.  This means that it will use its own Base Directory instead of WorkDir for storing the RRD files.  Also, changes to MaxBytes and DS Type will not be actioned after the RRD file has been created.\n");

        }

	}

    if ($cfg->{enablesnmpv3} and $cfg->{enablesnmpv3} eq 'yes' and eval {local $SIG{__DIE__}; require Net_SNMP_util} ) {

        import Net_SNMP_util;

    } else {

        require SNMP_util;

        import SNMP_util;

    }

}

# quick checks

sub quickcheck ($$$$$$) {

    my ($first,$second,$arg,$file,$line,$rules) = @_;

    return unless ref($rules) eq 'HASH';

    my $braces = $second ? '[]':'';

    if (exists $rules->{$first.$braces}) {

        if (&{$rules->{$first.$braces}[0]}($arg)) {

            return 1;

        } else {

            if ($second) {

                die "ERROR: CFG Error in \"$first\[$second\]\", file $file line $line: ".

                  &{$rules->{$first.$braces}[1]}($arg)."\n\n"; 

            } else {

                die "ERROR: CFG Error in \"$first\", file $file line $line: ".

                  &{$rules->{$first.$braces}[1]}($arg)."\n\n"; 

            } 

        }

    }

    die "ERROR: CFG Error Unknown Option \"$first\" in file $file on line $line or above.\n".

      "           Check /usr/share/doc/mrtg/mrtg-reference.txt.gz for Help\n\n";

}

# complex config checks

sub mkdirhier ($){

    my @dirs = split /\Q${MRTG_lib::SL}\E+/, shift;

    my $path = "";

    while (@dirs){

	$path .= shift @dirs;

	$path .= ${MRTG_lib::SL};

	if (! -d $path){

                warn ("WARNING: $path did not exist I will create it now\n");

		mkdir $path, 0777  or die ("ERROR: mkdir $path: $!\n");

	}

    }

}

sub cfgcheck ($$$$;$) {

    my $routers = shift;

    my $cfg = shift;

    my $rcfg = shift;

    my $target = shift;

    my $opts = shift || {};

    my ($rou, $confname, $one_option);

    # Target index hash. Keys are "int:community@router" target definition

    # strings and values are indices of the @$target array. Used to avoid

    # duplicate entries in @$target.

    my $targIndex = { };

    my $error="no";

    my(@known_options) = qw(growright bits noinfo absolute gauge nopercent avgpeak derive

			    integer perhour perminute transparent dorelpercent 

			    unknaszero withzeroes noborder noarrow noi noo

			    nobanner nolegend logscale secondmean pngdate printrouter expscale);

    snmpmapOID('hrSystemUptime' => '1.3.6.1.2.1.25.1.1');

    if (defined $$cfg{workdir}) {

        die ("ERROR: WorkDir must not contain spaces when running on Windows. (Yeat another reason to get Linux)\n")

                if ($OS eq 'NT' or $OS eq 'OS2') and $$cfg{workdir} =~ /\s/;

        ensureSL(\$$cfg{workdir});

        $$cfg{logdir}=$$cfg{htmldir}=$$cfg{imagedir}=$$cfg{workdir};

        mkdirhier "$$cfg{workdir}"  unless $opts->{check};

    } elsif ( not (defined $$cfg{logdir} or defined $$cfg{htmldir} or defined $$cfg{imagedir})) {

          die ("ERROR: \"WorkDir\" not specified in mrtg config file\n");

	  $error = "yes";

    } else {

        if (! defined $$cfg{logdir}) {

            warn ("WARNING: \"LogDir\" not specified\n");

            $error = "yes";

        } else {

          ensureSL(\$$cfg{logdir});

          mkdirhier $$cfg{logdir} unless $opts->{check};

        }

        if (! defined $$cfg{htmldir}) {

            warn ("WARNING: \"HtmlDir\" not specified\n");

            $error = "yes";

        } else {

          ensureSL(\$$cfg{htmldir});

          mkdirhier $$cfg{htmldir}  unless $opts->{check};

        }

        if (! defined $$cfg{imagedir}) {

            warn ("WARNING: \"ImageDir\" not specified\n");

            $error = "yes";

        } else {

          ensureSL(\$$cfg{imagedir});

          mkdirhier $$cfg{imagedir}  unless $opts->{check};

        }

    }

    if ($cfg->{threshmailserver} and not $cfg->{threshmailsender}){

	warn ("WARNING: If \"ThreshMailServer\" is defined, then \"ThreshMailSender\" must be defined too.\n");

        $error = "yes";

    }

    if ($cfg->{threshmailsender} and not $cfg->{threshmailserver}){

	warn ("WARNING: If \"ThreshMailSender\" is defined, then \"ThreshMailServer\" must be defined too.\n");

        $error = "yes";

    }

    # default ThreshHyst to 0.1 if ThreshDir is defined

    if ($cfg->{threshdir}){

        $cfg->{threshhyst} = 0.1 unless $cfg->{threshhyst};

    }

    # build relativ path from htmldir to image dir.

    my @htmldir = split /\Q${MRTG_lib::SL}\E+/, $$cfg{htmldir};

    my @imagedir =  split /\Q${MRTG_lib::SL}\E+/, $$cfg{imagedir};

    while (scalar @htmldir > 0 and $htmldir[0] eq $imagedir[0]) {

    	shift @htmldir; shift @imagedir;

    }

    # this is for the webpages so we use / path separator always

    $$cfg{imagehtml} = "";

    foreach my $dir ( @htmldir ) {

        $$cfg{imagehtml} .= "../" if $dir;

    }

    map {$$cfg{imagehtml} .= "$_/" } @imagedir;

    # relative path is built

    debug('dir', "imagehtml = $$cfg{imagehtml}");

    $SNMP_util::CacheFile = "$$cfg{'logdir'}oid-mib-cache.txt";

    $Net_SNMP_util::CacheFile = "$$cfg{'logdir'}oid-mib-cache.txt";

    if (defined $$cfg{loadmibs}) {

        my($mibFile);

        foreach $mibFile (split /[,\s]+/, $$cfg{loadmibs}) {

            snmpQueue_MIB_File($mibFile);

        }

    }

    if(defined $$cfg{pathadd}){

        ensureSL(\$$cfg{pathadd});        

        $ENV{PATH} = "$$cfg{pathadd}${MRTG_lib::PS}$ENV{PATH}";

    }

    if(defined $$cfg{libadd}){

        ensureSL(\$$cfg{libadd});

        debug('eval',"libadd $$cfg{libadd}\n");

    	local $SIG{__DIE__};

        eval "use lib qw( $$cfg{libadd} )";

    	my @match;

	    foreach my $dir (@INC){

		    push @match, $dir if -f "$dir/RRDs.pm";

    	}

	    warn "WARN: found several copies of RRDs.pm in your path: ".

            (join ", ", @match)." I will be using $match[0]. This could ".

        	"be a problem if this is an old copy and you think I would be using a newer one!\n"

		    if $#match > 0;

    }

    $$cfg{logformat} = 'rateup' unless defined $$cfg{logformat};

    if($$cfg{logformat} eq 'rrdtool') {

        my ($name);

        if ($MRTG_lib::OS eq 'NT' or $MRTG_lib::OS eq 'OS2'){

            $name = "rrdtool.exe";

        } elsif ($MRTG_lib::OS eq 'NW'){

            $name = "rrdtool.nlm";

        } else {

            $name = "rrdtool";

        }

        foreach my $path (split /\Q${MRTG_lib::PS}\E/, $ENV{PATH}) {

            ensureSL(\$path);

            -f "$path$name" && do { 

                $$cfg{'rrdtool'} = "$path$name";

                last;}

        };

        die "ERROR: could not find $name. Use PathAdd: in mrtg.cfg to help mrtg find rrdtool\n" 

                unless defined $$cfg{rrdtool};

        debug ('rrd',"found rrdtool in $$cfg{rrdtool}");

        my $found;

        foreach my $path (@INC) {

            ensureSL(\$path);

            -f "${path}RRDs.pm" && do { 

                $found=1;

                last;}

        };

        die "ERROR: could not find RRDs.pm. Use LibAdd: in mrtg.cfg to help mrtg find RRDs.pm\n" 

                unless defined $found;

    }

    if (defined $$cfg{snmpoptions}) {

	   debug('eval',"redef snmpotions $cfg->{snmpoptions}");

	   local $SIG{__DIE__};

           $cfg->{snmpoptions} = eval('{'.$cfg->{snmpoptions}.'}');

    }

    # default interval is 5 minutes

    if ($cfg->{interval} and $cfg->{interval} =~ /(\d+)(?::(\d+))?/){

	$cfg->{interval} = $1;

	$cfg->{interval} += $2/60.0 if $2;

    } else {

        $cfg->{interval} = 5;

    }

    unless ($$cfg{logformat} eq 'rrdtool') {

        # interval has to be 5 minutes at least without userrdtool

        if ($$cfg{interval} < 5.0) {

            die "ERROR: CFG Error in \"Interval\": should be at least 5 Minutes (unless you use rrdtool)";

        }

    }

    # Check for a Conversion Code file and evaluate its contents, which

    # should consist of one or more subroutine definitions. The code goes

    # into the MRTGConversion name space.

    if( exists $cfg->{ conversioncode } ) {

        open CONV, $cfg->{ conversioncode }

            or die "ERROR: Can't open file $cfg->{ conversioncode }\n";

        my $code = "local \$SIG{__DIE__};package MRTGConversion;\n". join( '', <CONV> ) . "1;\n";

        close CONV;

        debug('eval',"covnversioncode  $cfg->{ conversioncode }");

        die "ERROR: File $cfg->{ conversioncode } conversion code evaluation failed\n$@\n"

            unless eval $code;

    }

    my $thresh_error;

    # sendtographite directive parsing