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`;

}