use strict; use CGI::Carp qw(fatalsToBrowser); use Data::Dumper; use IO::Handle; use XML::Simple; use CGI qw( :cgi-lib ); use Win32::ODBC; use Win32::OLE; use Win32::OLE::Const 'Microsoft ActiveX Data Objects'; use vars qw( %CONFIG ); use POSIX qw( strftime ); #========================================================================================# # CONFIG # #========================================================================================# %CONFIG = ( DEBUG => 10, LogDir => "C:\\Inetpub\\wwwroot\\smart\\logs", ErrorLog => "Mych_smart_v0.01.ERROR.log", DebugLog => "Mych_smart_v0.01.DEBUG.log", LogMaxSz => 1 * (1024 ** 2), # max log file size in bytes LogMaxGens => 3, # how many logfile generations shall we keep #Below are ODBC connection that have been configured on this local machine FAAD_DB_DSN => "Provider=MSDASQL.1;Persist Security Info=False;Data Source=FAAD", CSSD_DB_DSN => "Provider=MSDASQL.1;Persist Security Info=False;Data Source=CSSD", NTSM_DB_DSN => "Provider=MSDASQL.1;Password=**************;Persist Security Info=True;User ID=****;Data Source=ntsm_server_database;Initial Catalog=Servers", STYLE_SHEET => "stylesheets/Mych_timfo2.xsl", ); #========================================================================================# # CONFIG # #========================================================================================#