die statement with Open a file

holmes

I am opening a file in an external script. The statement is :
open (BUSS_RULES, $business_rules) || die("Cannot Open File $business_rules") ;

If for some reason the file cannot be opened, the WF execution stops and no indication is bubbled up to the workflow. How do I solve this problem?

nipper

Learn Perl

That command writes to STDERR (on unix) if the file cannot open. Where it is collected from a WF I am not certain.

You will want to change it to something like this:

if (! open (BUSS_RULES, $business_rules)) {
# Put your eror logic here
open (LOG, /tmp/WF.log);
print LOG " Could not open $business_rules\n";
$task->CallBack(1,"WF Fail");
}

THen you need a step in your workflow to go to if this fails.
Kind of a pain, much easier to make certain you can always open that file.

HTH

Andy