view release on metacpan or  search on metacpan

config/site.config  view on Meta::CPAN

# common EAI-Wrap parameters:
%config = (
	sensitive => {
			# user/pwd/privKey/hostkey for prefix <prefix> (prefix is set in $load[N]{<DB|FTP>}{prefix})
			dbSys => {user => "sensitiveDBuserInfo", pwd => "sensitiveDBPwdInfo"},
			ftpSystem1 => {user => "sensitiveFTPuserInfo", pwd => "sensitiveFTPPwdInfo", privKey => 'path_to_private_key', hostkey =>'hostkey'},
			smtpAuth => {"user" => 'your@mail.address', pwd => 'your@mail.address.pwd'}, # authentication for smtp server (with user and pwd) used by logging and sendGeneralMail
		},
	executeOnInit => sub {$execute{addToScriptName} = "doWhateverHereToModifySettings";},
	folderEnvironmentMapping => {t => "t", Test => "Test", Dev => "Dev", "" => "Prod"},
	errmailaddress => 'your@mail.address', # address(es) for error mails, usually overridden with centralLogHandling.config
	errmailsubject => "No errMailSubject defined", # initial part for error mail subject (can be enhanced using setErrSubject with context information), overridden with centralLogHandling.config
	fromaddress => 'your@mail.address',
	smtpServer => "your.mail.server", # smtp server for (error) mail sending
	smtpTimeout => 60, # timeout for smtp response
	testerrmailaddress => 'your@mail.address', # error mail address in non prod environment

lib/EAI/Wrap.pm  view on Meta::CPAN

EAI::Wrap - framework for easy creation of Enterprise Application Integration tasks

=head1 SYNOPSIS


    # site.config
    %config = (
    	sensitive => {
    			dbSys => {user => "DBuser", pwd => "DBPwd"},
    			ftpSystem1 => {user => "FTPuser", pwd => "FTPPwd", privKey => 'path_to_private_key', hostkey =>'hostkey'},
    		},
    	checkLookup => {"task_script.pl" => {errmailaddress => "test\@test.com", errmailsubject => "testjob failed", timeToCheck => "0800", freqToCheck => "B", logFileToCheck => "test.log", logcheck => "started.*"}},
    	executeOnInit => sub {$execute{addToScriptName} = "doWhateverHereToModifySettings";},
    	folderEnvironmentMapping => {Test => "Test", Dev => "Dev", "" => "Prod"},
    	errmailaddress => 'your@mail.address',
    	errmailsubject => "No errMailSubject defined",
    	fromaddress => 'service@mail.address',
    	smtpServer => "a.mail.server",
    	smtpTimeout => 60,
    	testerrmailaddress => 'your@mail.address',

lib/EAI/Wrap.pm  view on Meta::CPAN

    );

    # task_script.pl
    use EAI::Wrap;
    %common = (
    	FTP => {
    		remoteHost => {"Prod" => "ftp.com", "Test" => "ftp-test.com"},
    		remoteDir => "/reports",
    		port => 22,
    		user => "myuser",
    		privKey => 'C:/keystore/my_private_key.ppk',
    		FTPdebugLevel => 0, # ~(1|2|4|8|16|1024|2048)
    	},
    	DB => {
    		tablename => "ValueTable",
    		deleteBeforeInsertSelector => "rptDate = ?",
    		dontWarnOnNotExistingFields => 1,
    		database => "DWH",
    	},
    	task => {
    		plannedUntil => "2359",