iwpt_compile

System

Hi,
I am still very new to perl. I am executing iwpt_compile via an external task in my workflow. I am executing a perl script which then executes iwpt_compile. Everything is working fine. But, I would like to check the return code from iwpt_compile, and if it is not good, discontinue workflow. Forgive me for my ignorance, can someone show me some sample code that checks the return code from iwpt_compile and then discontinues workflow.
I would appreciate it!

Thanks in Advance,
Annie

Migrateduser

Can you post the portion of the script that calls iwpt_compile.ipl?

Generally you can interpret any non-zero return code as an error in command line execution. In the case of iwpt_compile.ipl you may also wish to trap any output as error, since that usually represents some sort of condition in the data or presentation template that you would like to trap. If you are going to be making lots of calls to command lines (which is pretty common in TeamSite), consider writing a subroutine in a module that you can pass any command line and get the results. Maybe something like:

sub run( $ )
{
my ${cmd} = shift( @{_} );
my %{results} = ();
${results{'cmd'}} = ${cmd};
${results{'out'}} = `${cmd} 2>&1`;
${results{'ret'}} = $?;
${results{'err'}} = $!;
${results{'msg'}} = ${results{'cmd'}} . " returned ${results{'ret'}} (${results{'err'}}) :\n${results{'out'}}";
return( %{results} );
}

So you can run your command with something like:

my %{results} = run( "iwpt_compile.ipl ..." );

if ( ${results{'ret'}} != 0 || ${results{'out'}} =~ m#..# )
{
# do something such as callback error successorset or otherwise report ${results{'msg'}}
}

If you don't want to bother with a subroutine, just use backticks to execute the command (you probably want to redirect STDERR to STDOUT using the 2>&1) and check the results in $?.

my ${output} = `iwpt_compile.ipl ... 2>&1`;

if ( $? != 0 || ${output} =~ m#..# )
{
# something unexpected happened - callback with error successorset or otherwise report exception
}