#!/bin/perl

#

#

my ($filelist,$file,$result);

my @f_list;

# Change the path to the folder where you store the mrtg .cfg files

$deleted=`del /F /Q c:\\mrtg\\conf\\*_l`;  # this is to remove the _l files before running Mrtg

$filelist=`dir /B c:\\mrtg\\conf\\*.cfg`; # Get the list of the cfg files

@f_list=split(/\n/,$filelist);

foreach $file (@f_list){

    if($file||($file ne "File not Found")||($file=~/\.cfg$/)){

	$result=`perl.exe e:\\mrtg\\bin\\mrtg e:\\mrtg\\conf\\$file`; # Run Mrtg for each host with a cfg file.

    }

}