nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

Error using iwgettaskbyname

auli

Hi,

We need to get and set the value of a task variable from an external task. I am trying to achieve this as -
my $cmd = "$iwhome/bin/iwgettaskbyname";
my $taskName = `$cmd $wfid DeployTask`;

This fetches me the correct task ID for the Deploy Task.
Now to access the task variable I am using -
my $task = new TeamSite::WFtask($taskName);
my $var1 = $task->GetVariable('filelist');

$task is returning some hash value but I get nothing for $var1. Is there some other way to accomplish this?

Any pointers would be of great help.

Find more posts tagged with

Comments

santosh013

Hi,

We need to get and set the value of a task variable from an external task. I am trying to achieve this as -
my $cmd = "$iwhome/bin/iwgettaskbyname";
my $taskName = `$cmd $wfid DeployTask`;

This fetches me the correct task ID for the Deploy Task.
Now to access the task variable I am using -
my $task = new TeamSite::WFtask($taskName);
my $var1 = $task->GetVariable('filelist');

$task is returning some hash value but I get nothing for $var1. Is there some other way to accomplish this?

Any pointers would be of great help.

Try to check from the beginning of your ipl file.
Try to print $cmd,bla,bla,bla in some file as open(myFile,'>>c:\iw-home\local\bin\auli\auli.txt');

are you doing this?
If still there is problem then attach the ipl file.

HTH.
Thanks,

auli

Yeah, I am already using that. Following is my IPL -

#!D:\Interwoven\TeamSite/iw-perl/bin/iwperl -w
use TeamSite::WFtask;
use TeamSite::WFworkflow;
use TeamSite::Config;
$|=1;
my $logFile = "D:\\Interwoven\\TeamSite\\httpd\\iw-bin\\test\\log.txt";
open (FILE,">>".$logFile);
print FILE "Hi\n";
my $iwhome = TeamSite::Config::iwgethome();
my $iwmount = TeamSite::Config::iwgetmount();
my ($wfid, $taskid, $area) = (@ARGV[0..2]);
my $workflow = new TeamSite::WFworkflow($wfid);
my $cmd = "$iwhome/bin/iwgettaskbyname";
my $taskName = `$cmd $wfid DeployTask3`;
print FILE "$taskName\n";
my $task = new TeamSite::WFtask($taskName);
print FILE "$task\n";
my $var1 = $task->GetVariable('filelists');
print FILE "$var1\n";
close FILE;
1;

Faizi

Yeah, I am already using that. Following is my IPL -

#!D:\Interwoven\TeamSite/iw-perl/bin/iwperl -w
use TeamSite::WFtask;
use TeamSite::WFworkflow;
use TeamSite::Config;
$|=1;
my $logFile = "D:\\Interwoven\\TeamSite\\httpd\\iw-bin\\test\\log.txt";
open (FILE,">>".$logFile);
print FILE "Hi\n";
my $iwhome = TeamSite::Config::iwgethome();
my $iwmount = TeamSite::Config::iwgetmount();
my ($wfid, $taskid, $area) = (@ARGV[0..2]);
my $workflow = new TeamSite::WFworkflow($wfid);
my $cmd = "$iwhome/bin/iwgettaskbyname";
my $taskName = `$cmd $wfid DeployTask3`;
print FILE "$taskName\n";
my $task = new TeamSite::WFtask($taskName);
print FILE "$task\n";
my $var1 = $task->GetVariable('filelists');
print FILE "$var1\n";
close FILE;
1;

Hi Auli,

Have you added any additional task variable in Deploy Task with naming 'filelists' or want to get the DeployTask default created variable which is created as list of file while deploying (filelist_.txt).
If so then you can check this.
my $var1 = $task->GetVariable($filelist^);

HTH,

auli

I have created a variable on DeployTask3 with name filelists.

Faizi

I have created a variable on DeployTask3 with name filelists.

Check this one to find the name value pair.
TeamSite::WFtask - interface to TeamSite task objects.my $vref = $task->GetVariables;

Returns a reference to a hash containing key/value pairs corresponding to the variables of the task. Returns undef if no variables exist.

also you can check by get/set:

$task->SetVariable("test", "test value");

$task->GetVariable('test');

Hope this helps in finding problem.

Adam Stoller

I suggest the following changes:

#!D:\Interwoven\TeamSite/iw-perl/bin/iwperl -w
use TeamSite::WFtask;
use TeamSite::WFworkflow;
use TeamSite::Config;
$|=1;
my $logFile = "D:/Interwoven/TeamSite/httpd/iw-bin/test/log.txt";     
open (FILE, ">>", $logFile) || die " '$logfile' ($!)";
print FILE "Hi\n";
(my $iwhome = TeamSite::Config::iwgethome()) =~ tr|\\|/|;
my $iwmount = TeamSite::Config::iwgetmount();
my ($wfid, $taskid, $area) = @ARGV; #=# (@ARGV[0..2]);
my $workflow = TeamSite::WFworkflow->new($wfid);
#=# Is there some reason you didn't use $workflow->GetTaskByName() ?
my $cmd = "$iwhome/bin/iwgettaskbyname";
chomp(my $taskName = qx($cmd $wfid DeployTask3));
print FILE "$taskName\n";
my $task = TeamSite::WFtask->new($taskName);
print FILE "$task\n";
my $var1 = $task->GetVariable('filelists');
print FILE "$var1\n";
close FILE;
1;

auli

Thanks for all your inputs Adam.
Reply to the comment in purple is that I tried it but didnt got it working Smiley Happy

So then I saw the code in the perl module, it was also calling the same CLT. When I tried it, it returned the correct taskID.

Will try on your suggestions in red and get back.

auli

Thanks a lot Ghoti, it worked Smiley Happy

Adam Stoller

Thanks a lot Ghoti, it worked

Good - do you understand why it works?

Also - if you post the code you tried to use with $workflow->GetTaskByName() we could probably explain why that didn't work for you too ...

auli

Yup, I got it. For capturing the output of a command, we need to use qx() function.

Adam Stoller

Yup, I got it. For capturing the output of a command, we need to use qx() function.

Wrong - the

qx(...)

is just a better way of writing

`...`

- which is why it was in blue text.

Try again to see if you can figure out why the change I suggested fixes your problem.

auli

Chomp in red Smiley Happy

which removed all the trailing \ n from the string.

Adam Stoller

Chomp in red which removed all the trailing \ n from the string.

Right - and you get that newline at the end of the string because you're running the CLT which put it there to format the output which is normally sent to the shell or somewhere else where it is normally desirable to have a newline at the end of the output.