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; } } }

workflow fails at GetFiles()

nirali

#!D:\iw-home\TeamSite/iw-perl/bin/iwperl

use TeamSite::WFtask;
use TeamSite::Config;
use TeamSite::Uniscape::uniscape qw(UTF8ToNative_2);

my $iwhome = TeamSite::Config::iwgethome();
#my ($jobid, $taskid) = @[0..1]; 
my $jobid = $ARGV[0];
my $taskid = $ARGV[1];
my $area = $ARGV[2];
#my $task = new TeamSite::WFtask($ARGV[1]);
my $task = Teamsite::WFtask->new($taskid);
#my @files;

my(@files) = $task->GetFiles(); # added on 0603 

#my ($jobid, $taskid) = @[0..1]; 
#my $task = Teamsite::WFtask->new($taskid); 
#my $task = Teamsite::WFtask->new($task); 
my $filename1 = 'D:/iw-home/TeamSite/local/config/wft/ecm/test_report1.txt';......

This code fails at "my(@files) = $task->GetFiles();"
Please let me know, whats wrong here ? When this line of code is commented out, code works fine

If there is no file available in task, will this code work OR not ? I have a doubt that this task does not have a file in it (Though I attached one)

Below is process I am following.

1) I am selecting file in TS UI and creating "New Job". This should attached selected file to job
2) I am selecting "Deploy WF" from available wf list and click on submit
3) On Workflow screen, I see this job and I trigger "deploy", it complains that there is no file attached to this task. So how come file is not attached to task ?
4) I am attaching a file using "select existing files" link
4) CAn this be the reason, why " $task->GetFiles();" is not working
5) Even if there are no files attached to task, does not "my(@files) = $task->GetFiles();" be an empty array ?

What can be the reason that file is not attached to task with "Actions -> New Job"

Thanks

Find more posts tagged with

Comments

ISCBorisB

my(@files) = $task->GetFiles();
When this line of code is commented out, code works fine
Thanks

By chance, have you provided your own argument(s) to External Task command within your WFT specs?

nirali

[html]
__INSERT__("");

__INSERT__("");
[/html]Thats external task in wft
$execute = "\"$CONFIG{IWPERL}\" \"$javatest\"";
$javatest = $CONFIG{JAVA_TEST};
JAVA_TEST=d:\iw-home\TeamSite\local\config\wft\rbc\run.ipl (This is in CONFIG file)
$MAIN_CONFIG_FILE ="Y:\\default\\main\\rbc\\internet\\Workarea\\Config\\main.cfg";

ISCBorisB

[html]
__INSERT__("");

__INSERT__("");
[/html]Thats external task in wft
$execute = "\"$CONFIG{IWPERL}\" \"$javatest\"";
$javatest = $CONFIG{JAVA_TEST};
JAVA_TEST=d:\iw-home\TeamSite\local\config\wft\rbc\run.ipl (This is in CONFIG file)
$MAIN_CONFIG_FILE ="Y:\\default\\main\\rbc\\internet\\Workarea\\Config\\main.cfg";

A bit convoluted but should be fine, there are no extra arguments to interfere.

You'd have to debug it. Log out your Task ID, make sure it is the one you expect.
Before using instantiated $task Object, test $task->IsValid() and log out a warning if it returns false.
( And btw, change my(@files) = $task->GetFiles(); to my @files = $task->GetFiles(); my (@files) seems a bit ambiguous )

Migrateduser

#!D:\iw-home\TeamSite/iw-perl/bin/iwperl

I noticed that the perl compiler path is mix of forward and back slash. Please try to keep the consistency there.

Apart from that, I didn't notice any specific problem though. Does you script stuck at the point
my(@files) = $task->GetFiles();

or it just not result anything to array @files.

Rajesh

nirali

Apart from that, I didn't notice any specific problem though. Does you script stuck at the point
my(@files) = $task->GetFiles();

Script is getting stuck at this point and does not move ahead. I am trying the options suggested in here.

Thanks

nirali

#!D:\iw-home\TeamSite/iw-perl/bin/iwperl

use TeamSite::WFtask;
use TeamSite::Config;
use TeamSite::Uniscape::uniscape qw(UTF8ToNative_2);

my $filename1 = 'D:/iw-home/TeamSite/local/config/wft/ecm/test_report1.txt';
    open(my $fh1, '>>', $filename1) or die "Could not open file '$filename1' $!";

my $iwhome = TeamSite::Config::iwgethome();
#my ($jobid, $taskid) = @[0..1]; 
my($jobid, $taskid, $area) = (shift, shift, shift);


print $fh1 "taskid : $taskid\n jobid : $jobid\n"; 

if ($taskid->IsValid()){
 print $fh1 "taskid is valid\n";
}

my $filename1 = 'D:/iw-home/TeamSite/local/config/wft/ecm/test_report1.txt';......

Code breaks at "if ($taskid->IsValid())"

When I check taskid and jobid in TS UI, its exactly same as output in log file.

So why would taskid be invalid ? How can I get over this ?

Thanks

ISCBorisB

#!D:\iw-home\TeamSite/iw-perl/bin/iwperl

use TeamSite::WFtask;
use TeamSite::Config;
use TeamSite::Uniscape::uniscape qw(UTF8ToNative_2);

my $filename1 = 'D:/iw-home/TeamSite/local/config/wft/ecm/test_report1.txt';
    open(my $fh1, '>>', $filename1) or die "Could not open file '$filename1' $!";

my $iwhome = TeamSite::Config::iwgethome();
#my ($jobid, $taskid) = @[0..1]; 
my($jobid, $taskid, $area) = (shift, shift, shift);


print $fh1 "taskid : $taskid\n jobid : $jobid\n"; 

if ($taskid->IsValid()){
 print $fh1 "taskid is valid\n";
}

my $filename1 = 'D:/iw-home/TeamSite/local/config/wft/ecm/test_report1.txt';......

Code breaks at "if ($taskid->IsValid())"

When I check taskid and jobid in TS UI, its exactly same as output in log file.

So why would taskid be invalid ? How can I get over this ?

Thanks

$taskid is just the number. Log it out "as is" to see if it's the expected one.
Right After you instantiate $task Object, check $task->IsValid() ( Surely NOT $taskid->IsValid()! )

Adam Stoller

You have a number of problems with this code - and since I'm a bit bored right now, I'll try to provide you with some guidance:

use strict;
use warnings; #=# both of these pragmas should be in all perl scripts and modules
use TeamSite::WFtask;
use TeamSite::Config;
use TeamSite::Uniscape::uniscape qw(UTF8ToNative_2); #=# Are you really using this?

(my $iwhome = TeamSite::Config::iwgethome()) =~ tr|\\|/|; #=# Moved from below, fixed to ensure path uses '/'
my $filename1 = "$iwhome/local/config/wft/ecm/test_report1.txt" #=# use the variables you define (*); 
open(my $fh1, '>>', $filename1) or die "Could not open file '$filename1' $!";

#my $iwhome = TeamSite::Config::iwgethome(); #=# Moved above
#my ($jobid, $taskid) = @[0..1]; 
#my($jobid, $taskid, $area) = (shift, shift, shift); #=# Replaced with below
my ($jobid, $taskid) = @ARGV; #=# retrieve area from task object once validated

print $fh1 "taskid : $taskid\n jobid : $jobid\n"; 

#if ($taskid->IsValid()){
# print $fh1 "taskid is valid\n";
#} #=# The above is completely erroneous since $taskid is a scalar and not an object, instead...
my $task = TeamSite::WFtask->new($taskid);
if (! $task->IsValid()) {
    print $fh1 "taskid ($taskid) is NOT valid\n";
    close $fh1;
    exit 1;
}
print $fh1 "task is valid\n";
my $area = $task->GetArea();
print $fh1 "task area is '$area'\n";
my @files = $task->GetFiles();
tr|\\|/| foreach (@files); [color=red]#=# ensure all paths use '/'
print $fh1 "task files:\n\t", join("\n\t", @files), "\n";
... other stuff, including transition ...
close $fh1;
exit 0;[/color]

#!# [color=red]*It would be better if you learned to use Log::Log4perl IMO[/color]

See if that helps...

nirali

Code keeps failing at

.....my $task = TeamSite::WFtask->new($taskid);
if (! $task->IsValid()) {
    print $fh1 "taskid ($taskid) is NOT valid\n";
    close $fh1;
    exit 1;
}....

Is TeamSite::WFtask module not getting launched ? I ran it as iwperl -c runtest.ipl and it did not give any error. So if module was not getting launched, it would complain there only.

What can be the reason that code is not going ahead from this line ?

Following is output for debug mode

d:\iw-home\TeamSite\iw-perl\bin>iwperl -d "D:\iw-home\TeamSite\local\config\wft\ecm\runtest.ipl"

Loading DB routines from perl5db.pl version 1.22 Editor support available.

Enter h or `h h' for help, or `perldoc perldebug' for more help.

main:\iw-home\TeamSite\local\config\wft\ecm\runtest.ipl:9):9: (my $iwhome = TeamSite::Config::iwgethome())=~ tr|\\|/|; # moved from below 1
SetConsoleMode failed, LastError=|6| at \iw-home\TeamSite\iw-perl\vendor\lib/Term/ReadKey.pm line 268.
readline::readline(' DB<1> ') called at \iw-home\TeamSite\iw-perl\vendor\lib/Term/ReadLine/Perl.pm line 11
Term::ReadLine:erl::readline('Term::ReadLine:erl=ARRAY(0x48bc418)',' DB<1> ') called at d:/iw-home/TeamSite/iw-perl/lib/perl5db.pl line 6044
DB::readline(' DB<1> ') called at d:/iw-home/TeamSite/iw-perl/lib/perl5db.pl line 2035
DB:B called at \iw-home\TeamSite\local\config\wft\ecm\runtest.ipl line 9
DB<1>

Thanks for help

Adam Stoller

Your "output for debug mode" means nothing - that's just the perl debugger telling you what its doing on startup.

Your running of the debugger is flawed because you're not passing in any arguments - like the jobid and taskid - and thus if you are looking at results based on running it that way (without those arguments) you are always going to get an invalid task.

You need to run:

iwperl -d "D:\iw-home\TeamSite\local\config\wft\ecm\runtest.ipl" valid-jobid valid-taskid

Where:

Obviously (I hope) the job and task are currently active, otherwise again, you will get an invalid task.

nirali

Here is the output with active jobid and taskid

d:\iw-home\TeamSite\iw-perl\bin>iwperl -d "D:\iw-home\TeamSite\local\config\wft\ecm\runtest.ipl" 25678 25682

Loading DB routines from perl5db.pl version 1.22 Editor support available.

Enter h or `h h' for help, or `perldoc perldebug' for more help.

main:\iw-home\TeamSite\local\config\wft\ecm\runtest.ipl:9):
9: (my $iwhome = TeamSite::Config::iwgethome())=~ tr|\\|/|; # moved from below 1
SetConsoleMode failed, LastError=|6| at \iw-home\TeamSite\iw-perl\vendor\lib/Term/ReadKey.pm line 268.
readline::readline(' DB<1> ') called at \iw-home\TeamSite\iw-perl\vendor\lib/Term/ReadLine/Perl.pm line 11
Term::ReadLine:erl::readline('Term::ReadLine:erl=ARRAY(0x4975a1c)','
DB<1> ') called at d:/iw-home/TeamSite/iw-perl/lib/perl5db.pl line 6044
DB::readline(' DB<1> ') called at d:/iw-home/TeamSite/iw-perl/lib/perl5db.pl line 2035
DB:B called at \iw-home\TeamSite\local\config\wft\ecm\runtest.ipl line 9
DB<1> TeamSite::Config::iwgethome(D:\iw-home\TeamSite\iw-perl\vendor\lib/TeamSite/Config.pm:67):67: return $Config{iw_home};
DB<1> main:\iw-home\TeamSite\local\config\wft\ecm\runtest.ipl:10):10: my $filename1 = 'D:/iw-home/TeamSite/local/config/wft/ecm/test_report1.txt';
DB<1> main:\iw-home\TeamSite\local\config\wft\ecm\runtest.ipl:11):11: open(my $fh1, '>>', $filename1) or die "Could not open file '$filename1' !";
DB<1> main:\iw-home\TeamSite\local\config\wft\ecm\runtest.ipl:17):17: my ($jobid, $taskid) = @ARGV;
DB<1> main:\iw-home\TeamSite\local\config\wft\ecm\runtest.ipl:20):20: print $fh1 "taskid : $taskid\n jobid : $jobid\n";
DB<1> main:\iw-home\TeamSite\local\config\wft\ecm\runtest.ipl:30):30: my $task = Teamsite::WFtask->new($taskid);
DB<1> Carp:d:/iw-home/TeamSite/iw-perl/lib/perl5db.pl:7297):7297: eval { $mess = Carp::longmess(@_); };
DB<1> Carp:d:/iw-home/TeamSite/iw-perl/lib/perl5db.pl:7297):
7297: eval { $mess = Carp::longmess(@_); };
DB<1> Carp::longmess(d:/iw-home/TeamSite/iw-perl/lib/Carp.pm:158):
158: { local $@; require Carp::Heavy; } # **** fix require to not clear $
@?
DB<1> Carp::longmess(d:/iw-home/TeamSite/iw-perl/lib/Carp.pm:158):
158: { local $@; require Carp::Heavy; } # **** fix require to not clear $
@?
DB<1> Carp::longmess(d:/iw-home/TeamSite/iw-perl/lib/Carp.pm:158):
158: { local $@; require Carp::Heavy; } # **** fix require to not clear $
@?
DB<1> Can't locate object method "new" via package "Teamsite::WFtask" (perhaps you forgot to load "Teamsite::WFtask"?) at \iw-home\TeamSite\local\config\wft\ecm\runtest.ipl line 30.
IO::Handle:ESTROY(d:/iw-home/TeamSite/iw-perl/lib/IO/Handle.pm:326):
326: sub DESTROY {}
DB<1> Term::ReadLine:erl::Tie:ESTROY(D:\iw-home\TeamSite\iw-perl\vendor\lib/Term/ReadLine/Perl.pm:120):120: sub DESTROY {}
DB<1> Config:ESTROY(d:/iw-home/TeamSite/iw-perl/lib/Config.pm:1199):1199: sub DESTROY { }
DB<1>
d:\iw-home\TeamSite\iw-perl\bin>

Below is SYNTAX check

d:\iw-home\TeamSite\iw-perl\bin>iwperl -c "D:\iw-home\TeamSite\local\config\wft\ecm\runtest.ipl"
\iw-home\TeamSite\local\config\wft\ecm\runtest.ipl syntax OK

If Teamsite::WFTest is not loading, then will not SYNTAX check throw an error ?

Adam Stoller

Do you have

use TeamSite::WFtask;

in your script? (I thought you did).

Perhaps you should re-post your script in its entirety, preferably as an attachment (add .txt as extension)

nirali

Below is my script in entirrty

#!D:\iw-home\TeamSite/iw-perl/bin/iwperl

use strict;
use warnings;
use TeamSite::WFtask;
use TeamSite::Config;
use TeamSite::Uniscape::uniscape qw(UTF8ToNative_2);

(my $iwhome = TeamSite::Config::iwgethome())=~ tr|\\|/|; # moved from below 1
my $filename1 = 'D:/iw-home/TeamSite/local/config/wft/test_report1.txt';
    open(my $fh1, '>>', $filename1) or die "Could not open file '$filename1' !";

my ($jobid, $taskid) = @ARGV;


print $fh1 "taskid : $taskid\n jobid : $jobid\n"; 


my $task = Teamsite::WFtask->new($taskid);
if(! $task->IsValid()){
 print $fh1 "taskid ($taskid) is NOT valid\n";
 close $fh1;
 exit 1;
}
print $fh1 "taskid obtained\n";
my $area = $task->GetArea();
print $fh1 "workarea obtained is '$area'\n";


my @files = $task->GetFiles(); 

tr|\\|/| foreach (@files);

close $fh1;


$area = UTF8ToNative_2($area);


home/TeamSite/local/config/wft/ecm/hello_nj.jar");


if ($task->IsValid())
{

   my @args = ("java", "-jar", "D:/iw-

home/TeamSite/local/config/wft/ecm/FileScanner.jar", "$taskid");

    $task->CallBack(0, "File Generated");
}

nipper

Fix this line

my $task = Teamsite::WFtask->new($taskid);

Try my $task = TeamSite::WFtask->new($taskid);

nirali

Thanks all.

There were couple of issues.
1) Classpath was not set properly
2) Perl module was not available in right location
3) my $task = Teamsite::WFtask->new($taskid);had to be my $task = TeamSite::WFtask->new($taskid);

Now its working fine.

Thanks for everyone's help.