System Command

Hi-
I am initiating a system command in a workflow, specifically, starting a deployment. I am having trouble getting the call back to work correctly. I have tried the command directly in the workflow as well, I have wrapped it in perl. Both run the deployment successfully. I still don't get a callback, and the task remains in my todo list. can anyone help?

system ('C:/iw-home/OpenDeploy/bin/iwodstart.bat my_deployment_name');

if ($?){
$task->CallBack(0,'Deploy failed');
} else {

$task->CallBack(0,'deploy completed successfully');
}

Thanks
Matt

Matthew Petitjean
BOC Group
Murray Hill, NJ 07974 USA

Find more posts tagged with

Comments

Sunil Mugalavally

What version of Teamsite are you on?
Looks like you are on windows..
is it NT or 2000?
If you are on TS 5.5.2 SP 2, it should probably work your way.
Instead try capturing the result of the command in the perl variable and check the value of the variable.

MattP

5.5.2.1 11020 20020823
Win 2k

So I am looking for system errors ($?). Which variable are you suggesting? The return status code? They are 0,1,2. How do I case that value?

Thanks
Matt

Matthew Petitjean
BOC Group
Murray Hill, NJ 07974 USA

Migrateduser

I don't know if things work differently on Windows systems, but typically, even if your deployment fails (completes with errors) it will return successfully from the iwodstart command. The nonsense that the CLT returns is not very useful, but you can parse it to try and guess whether the deployment succeeded or not. If you use backtics instead of the system command, you should be able to trap the nonsense. But even that only gives you half the answer. Because that only tells you if the deployment completed - even if it completed with errors. I parse the actual deployment log for each deployment, which is a pain, but necessary if I want to really know if anything failed.

Dave Smith
Sr. Software Engineer
Nike, Inc.
(503) 671-4238
DavidH.Smith@nike.com

MattP

Thanks Dave...

On Windows it returns one of three codes

0 Success
1 Starting of the deployment failed
2 Deployment ran and returned a failed status

Sorry if it is a basic question, but how do I case that return? Does it put the return in a standard variable? $_ or something. So I guess I would write it something like this: Just don't know what to put in for *whatever*

if ($*whatever* =~ m|Status: Completed|)
{
$callback_result = 0;
$comment = " OpenDeploy SUCCESS.\n";
}
elsif ($*whatever* =~ m|Status: Failed|)
{
$callback_result = 1;
$comment = " OpenDeploy FAILED.\n";
}
else
{
$callback_result = 1;
$comment = " OpenDeploy Status Unknown. FAILED.\n";
}

Matthew Petitjean
BOC Group
Murray Hill, NJ 07974 USA

Migrateduser

Well, you're close. But keep in mind that the deployment could still return a "Status: Completed" even if there were errors within the deployment. Failed does not equal errors.

What I do is use backtics instead of the system command, so that the text that returns from iwodstart, which includes the "Status" line is contained in a variable, like this:

my $od_result = `.../iwodstart foo`;

The variable $od_result should contain the text you want to parse. I guess those return codes would do the same thing, as long as you remember that a successful deployment doesn't mean there were no errors. You could try the backtics and see if it returns anything useful for you. I'm not sure if I'm helping you out or making it worse.

Dave Smith
Sr. Software Engineer
Nike, Inc.
(503) 671-4238
DavidH.Smith@nike.com

laj1

You are correct. There is no literal case/switch operator in Perl.
You have implemented you case in the most straightforward way, cascading if/elsif/else statements.

You have not actually said which piece of your callback puzzle is failing.

Is it calling back, but executing the wrong successor, or is it not even calling back at all?

Len.

Len Jaffe
My Heart Is A Flower
Update your DevNet profile - let us know who you are!

MattP

From what I can tell, it doesn't call back at all. The tasks hangs in the to do list even after the deployment is complete. I need to try a few more iterations.

Thanks
Matt

Matthew Petitjean
BOC Group
Murray Hill, NJ 07974 USA

wailing

hi,

It's possible that the check on the $? is failing, for some reason.
perhaps because the $? is not set??

How about trying it this way, with a Perl eval:


eval
{
   $out = `$cmd`;

   // assign callback_value and callback_msg
};
if ($@)
{
   // assign callback_value and callback_msg
}

$task->CallBack($callback_value, $callback_msg);

This way, you get to do several things:
- implement a try-exception -like mechanism with the eval operator
- always callback, albeit with different values and messages.

rgds,
Rika

fonts.zip