Errors while calling external task

Hi,

when I call an external task, I get in my logfile some Errors and don't no where they come from. My log starts with following:
ERROR:02401: File or directory is the same as the other version
/tui.de/main/Livesite/WORKAREA/Load/pics/tui/de_DE/TUI.de.css: ERROR:02401: File or directory is the same as the other version
/export/home/iw-od/OpenDeployNG/jre/bin/java[17]: /dev/null: cannot create
[Fri Jun 13 16:55:14 2003]
########### New Deployment ######################################
-------- Content of /tmp/odlist_26572_13309:
pics/tui/de_DE/TUI.de.css
----------------------------
[Fri Jun 13 16:55:14 2003]
Calling opendeploy:
/export/home/iw-od/OpenDeployNG/bin/iwodstart deploy_filelist_tui -k myfilelist=/tmp/odlist_26572_13309 -k myarea=/iwmnt/tui.de/main/Livesite/STAGING
[Fri Jun 13 16:55:15 2003] Deployment seemed to have succeeded with status: 0
-----------------
How can I catch these Errors in an other way than parsing my log?
Is there a standard test of the filelist when I start my external task?
In my log I'm not able to write something in front of these errors so they appear during perl script compilation?

Thx for any ideas,
Greetings Bodo

My script:
...
BEGIN {
use CGI::Carp qw(carpout);
my $logfile = '/export/home/iw-home/tmp/CopyPublish_tui.log';
open(LOG, ">>$logfile") or
die("Unable to open $logfile: $!\n");
carpout(LOG);
}
use strict;
use TeamSite::WFtask;
use TeamSite::WFworkflow;
use TeamSite::Config;
my($windows) = ($^O eq "MSWin32") ? 1 : 0;
eval('use Win32: Smiley Tongue

rocess;use Win32;') if ($windows);
#-----------------------------------------------------------------------------
# Setup
#-----------------------------------------------------------------------------
my $iwhome = TeamSite::Config::iwgethome();
eval("$iwhome = Win32::GetShortPathName($iwhome);") if ($windows);
$iwhome =~ tr|\\|/|;
my $iwmount = TeamSite::Config::iwgetmount();
my $cpToArea_cmd = $iwhome . '/bin/iwupdate';
my $submit_cmd = $iwhome . '/bin/iwsubmit';
my $od_home = '/export/home/iw-od/OpenDeployNG';
my $od_cmd = $od_home . '/bin/iwodstart';
my $liveBranchArea = '/tui.de/main/Livesite/WORKAREA/Load';
my $liveBranchStaging = '/tui.de/main/Livesite/STAGING';

#---------------------------------------------------------------------
# Workflow-related Variables
#---------------------------------------------------------------------
# Default paramaters passed to externaltask script are:
#-----------------------------------------------------------------------------
my $iwhome = TeamSite::Config::iwgethome();
eval("$iwhome = Win32::GetShortPathName($iwhome);") if ($windows);
$iwhome =~ tr|\\|/|;
my $iwmount = TeamSite::Config::iwgetmount();
my $cpToArea_cmd = $iwhome . '/bin/iwupdate';
my $submit_cmd = $iwhome . '/bin/iwsubmit';
my $od_home = '/export/home/iw-od/OpenDeployNG';
my $od_cmd = $od_home . '/bin/iwodstart';
my $liveBranchArea = '/tui.de/main/Livesite/WORKAREA/Load';
my $liveBranchStaging = '/tui.de/main/Livesite/STAGING';

#---------------------------------------------------------------------
# Workflow-related Variables
#---------------------------------------------------------------------
# Default paramaters passed to externaltask script are:
# - Workflow ID
# - Task ID
# - Area Vpath
# If any arguments are specified on the command line within the wft
# they *precede* the above 3 parameters.
#
# Pull them in and use them to set a number of other variables that
# we will need for this script.
#---------------------------------------------------------------------
my($wfid, $taskid, $workareaVPath) = (@ARGV[0..2]);

my $areaFSPath = $iwmount . $workareaVPath;
my $workflow = new TeamSite::WFworkflow($wfid);
my $wfdescription = $workflow->GetDescription();
my $wfowner = $workflow->GetOwner();

my $task = new TeamSite::WFtask($taskid);
my $taskowner = $task->GetOwner();
my $taskdescription = $task->GetDescription();
my @taskfiles = $task->GetFiles();
my $callback_val = 1;
my $comment = "Unbekannter Fehler";

##############################################################################
# Main
#-----------------------------------------------------------------------------
Protocol ("\n########### New Deployment ######################################\n");
# Do some stuff
....

Find more posts tagged with

Comments

Adam Stoller

Looks like you duplicated part of the code there and left out the code where you actually make the calls to the CLTs that you want to capture the output from. That makes it difficult to comment / suggest ways to resolve the issue.

In general, you should be able to run the commands with redirection of STDERR into STDOUT so that you capture both together.

my $foo = `somecommand 2>&1`;

There are some issues with redirecting output from some CLTs within workflow context - for those, the approach that appears to work is:

`somecommand 2>&1 > tmpfile`;
or
`somecommand > tmpfile 2>&1`;
followed by:

my $foo = "";
if (open(IN, "<tmpfile")){
    local $/ = undef;
    $foo = <IN>;
    close(IN);
}

hope that helps

--fish
(Interwoven Senior Technical Consultant)

bodo

Hi,
I haven't left out the call of the CLT, it's called by the WFT.
The code you've seen is part of this CLT CopyPublisher_tui.ipl
What I wonder is, I'm getting Errors in my CopyPublisher_tui.log before any main/sub of CopyPublisher_tui.ipl is executed.
Here is my call from external task:

<externaltask lock = "f" name = "Publish" owner = "__INSERT__($Master);" retry = "t" start = "f" description = "Veröffentlichung">
<areavpath v = "__INSERT__($VPath);"/>
<successors>
<successorset description = "korrektes Deployment">
<succ v = "Ende"/>
</successorset>
<successorset description = "gescheitertes Deployment">
<succ v = "Error"/>
</successorset>
</successors>
<command v = "/export/home/iw-home/local/bin/CopyPublisher_tui.ipl"/>
<activation>
<or>
<pred v = "Geparkt"/>
<pred v = "Freigabe"/>
</or>
</activation>
</externaltask>