examples on iwwft_compile.ipl?

syim

Is there an example on how to invoke iwwft_compile.ipl within a workflow to invoke another workflow?

iwwft_compile.ipl expects arguments for the workflow template to be passed in via STDIN. How can I pass in the iwwft_compile_params within a Perl script rather than to prompt users for input?

Edited by syim on 01/26/04 04:00 PM (server time).

neski

This has worked for me to start a workflow from a perl script:

####
#First I store my xml input into a variable
####
my $xml_input =<<END;
<?xml version="1.0" encoding="UTF-8" ?>
<iwwft_compile_params>
       <param name="iw_template_file"><value>c:/iw-home/local/config/wft/wfb/$template</value></param>
       <param name="iw_user"><value>interwoven/author</value></param>
       <param name="iw_areaowner"><value>$user</value></param>
       <param name="iw_user"><value>$user</editor></param>
       <param name="iw_workarea"><value>$wa</value></param>
       <param name="iw_branch"><value>/$branch</value></param>
       <param name="iw_file">
END

        foreach $file (@file_list)
        {
            $xml_input.= "<value>$file</value>";
        }
        $xml_input.=<<END;
       </param>
</iwwft_compile_params>

###
# I then open a process where I'm gonna write the xml_input
###
my $wf_cmd = "| $iwhome/bin/iwwft_compile.ipl -i 2>&1>$log_file_wf";
$wf_cmd =~ s|/|\\|g; #To get windows slash

open(SPOOLER, "$wf_cmd") || die "can't fork: $!";
local $SIG{PIPE} = sub { die "broken pipe" };
print SPOOLER "$xml_input";
close SPOOLER || die "spool error: $! $?";  

Hope this helps.