Adding newly created file to Workflow

I am trying to add a newly created dcr file using external task (ipl) into workflow task. And it just doesn’t work. But I could add the newly created file to the task using edit task/add file.
Any help appreciated

Workflow:
------------

<externaltask name="CreateFile"
owner="__TAG__('iw_user');"
description="Tester Ex"
start="t">
<areavpath v="/default/main/STAGING"/>
<successors>
<successorset description="Done">
<succ v="GetFileList"/>
</successorset>
</successors>
<command v="/space/iw-home/httpd/iw-bin/create_file.ipl"/>
</externaltask>

create_file.ip l:-
----------------

($wfid, $taskid, $area) = (@ARGV[0..2]);
$job = new TeamSite::WFworkflow($wfid);
my ($this_task) = new TeamSite::WFtask($taskid);

my $CreateFile = $workArea . "/templatedata/demo/details/data/details304";

open(CFILE,">$CreateFile") || die $!;
print CFILE "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
print CFILE "<!DOCTYPE record SYSTEM \"dcr4.5.dtd\">\n";
print CFILE "<record name=\"details$current_count\" type=\"content\">";
close CFILE;

my $attrCommand = "/space/iw-home/bin/iwextattr -s TeamSite/Templating/DCR/Type=demo/details " . $CreateFile;

my $returncode = system($attrCommand);

my $returncodeforAdd = $this_task->AddFile("$CreateFile", "comment");

Find more posts tagged with

Comments

james1

Is that the entirety of your .ipl script? Is the variable "workArea" ever defined?

-- James

--
James H Koh
Interwoven Engineering

Abba

Sorry i was just cleaning up some of the extra code that used for debuggin use.
here is the full ipl code again
create_file.ip l:-
----------------

($wfid, $taskid, $area) = (@ARGV[0..2]);
$job = new TeamSite::WFworkflow($wfid);
my ($this_task) = new TeamSite::WFtask($taskid);

my $workArea = "/default/main/playground/WORKAREA/test";

my $CreateFile =
$workArea . "/templatedata/demo/details/data/details304";

open(CFILE,">$CreateFile") || die $!;
print CFILE "<<x>?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
print CFILE "<<x>!DOCTYPE record SYSTEM \"dcr4.5.dtd\">\n";
print CFILE "<<x>record name=\"details$current_count\" type=\"content\"></record>";
close CFILE;

my $attrCommand = "/space/iw-home/bin/iwextattr -s TeamSite/Templating/DCR/Type=demo/details " . $CreateFile;

my $returncode = system($attrCommand);

my $returncodeforAdd = $this_task->AddFile("$CreateFile", "comment");

Migrateduser

The AddFile command generally takes a workarea relative vpath, while you are giving it a complete file path. Also, filesystem commands usually take the complete filepath (with /iwmnt/default/main...) while, TeamSite commands (such as iwextattr) usually prefer to take the vpath (/default/main...), so you may want to verify that your file is actually being written.

Something like the following should accomplish what you desire.

my $iwmnt = TeamSite::Config::iwgetmount();
my $workArea = "/default/main/playground/WORKAREA/test";
my $rel_file = "/templatedata/demo/details/data/details304";
my $vpath= $workArea . $rel_file;
CreateFile = $iwmnt.$vpath;
....
my $returncodeforAdd = $this_task->AddFile("$rel_file", "comment");

james1

Just a guess -- it might have something to do with the fact that the task's areavpath is not the same as your $workArea. Is there a reason why you've set this task's areavpath to STAGING instead of the workarea in which the file is being created?

-- James

--
James H Koh
Interwoven Engineering

Abba

Thanks to James and jghubble.
It works now.