Subversion Repositories computer_asset_manager_v1

# Configuration file for process_sysinfo system
#
#
#

# where are our libraries?

$LIBRARIES = '/home/rodolico/wip/dd_tools/web/computer_asset_manager/modules/sysinfo/cli_tools';
$DSN = 'DBI:mysql:camp';
$DB_USER = 'test';
$DB_PASS = 'test';

# only required if reports are sent from process_sysinfo. Not the norm.
$iMailResults = 0; # if 0 (false), ignore following variables
$mailTo = 'rod@dailydata.net';
$mailCC = '';
$mailBCC = '';
$mailServer = 'mail.dailydata.net';
$mailServerPort = 25;
$mailFrom = 'sysinfo@dailydata.net';
$SENDMAIL = '/usr/sbin/sendmail -tU';

$DiskUsageAlert = 0.90; # will generate a warning if any disk has more than this percent capacity used


# where postProcess puts processed reports by default
$saveDir='/home/rodolico/wip/dd_tools/web/computer_asset_manager/modules/sysinfo/cli_tools/save';
# Tagets to search for incoming messages, if not passed on the command line
@mailDir=('/home/rodolico/wip/dd_tools/web/computer_asset_manager/modules/sysinfo/cli_tools/test_data');
# anonymous subroutine that determines where the sysinfo executable is, ie checks for it in the current path
$SYSINFO= eval{
                     use File::Basename;
                     use Cwd qw(realpath);
                     my $path = realpath($0); # get my real path. $0 is current program, realpath calculates the true path to it
                     my($filename, $directories, $suffix) = fileparse($path,('.pl')); # break filename apart
                     "$directories/process_sysinfo";
                  };
#$SYSINFO='/root/bin/process_sysinfo';

# this sub is placed in the configuration file as it is the most likely piece of code
# the sysadmin will want to modify.
# after a report has been modified, this routine will "post process" it.
# The default action is to move it to the directory defined in $saveDir above, however
# feel free to modify this to your needs. You might add it to a tgz, move it to a separate
# directory or, if you're feeling brave, just delete it.
sub postProcess {
   my $filename = shift;
   `mv $filename $saveDir`;
}