Perl to create workflow

I try the following sample code from doc.
no error come out
however I cannot see the job in Teamsite too,

- wf.xml is XML workflow file.

use TeamSite::WFsystem;

$debug_file = "wf.xml";
$data = "";
open INFILE, "<$debug_file";
while ($record = ) {
$data .= $record;
}
close INFILE;

my $wf_system = TeamSite::WFsystem->new();
my $wf = $wf_system->CreateWorkflow($data);

if ((!defined $wf) || !$wf->IsValid() || $wf->GetError())
{
print $wf->GetError();
}
else {
print "No Error\n";
}

Find more posts tagged with

Comments

kaalraa

use TeamSite::WFsystem;

$debug_file = "wf.xml";
$data = "";
open INFILE, "<$debug_file";
while ($record = ) {
$data .= $record;
}
close INFILE;

my $wf_system = TeamSite::WFsystem->new();
my $wf = $wf_system->CreateWorkflow($data);

if ((!defined $wf) || !$wf->IsValid() || $wf->GetError())
{
print $wf->GetError();
}
else {

$wf->Invoke();
print "No Error\n";
}

This is what i found missing.

Just for the sake... repeating it any wft file needs to be instantiated and invoked.

wft file >> job file >> invoked

Adam Stoller

I try the following sample code from doc.
no error come out
however I cannot see the job in Teamsite too,

- wf.xml is XML workflow file.

use TeamSite::WFsystem;

$debug_file = "wf.xml";
$data = "";
open INFILE, "<$debug_file";
while ($record = ) {
$data .= $record;
}
close INFILE;

my $wf_system = TeamSite::WFsystem->new();
my $wf = $wf_system->CreateWorkflow($data);

if ((!defined $wf) || !$wf->IsValid() || $wf->GetError())
{
print $wf->GetError();
}
else {
print "No Error\n";
}

Have you looked at iwwft_compile.ipl - it tends to be an easier way to programmatically initiate WFTs with passed-in data for the prompts that would otherwise require user-interaction. True, there's some overhead involved in invoking another Perl script, but unless this is something occurring in a large loop a lot of times during the day - the overhead should be pretty negligible.

Run iwperldoc iwhome/bin/iwwft_compile.ipl for more information.