puzzled....

kish2

I am trying to run a script from my workflow . While runnign the workflow - i am erroring out at this particular script such that the workflow is noteven invoking this script - what am i doing wrong - the log file is not even being created. I am runnign teamsite 6.1 on windows 2003 and oracle database .
Thanks in advance
kish

The starting of the script is
#!../../iw-perl/bin/iwperl


BEGIN{
$ENV{ 'PATH' } = 'C:\oracle\ora81\BIN';
}
use DBI;
use DBD:DBC;
use strict;


use TeamSite::WFtask;
use TeamSite::WFworkflow;
use TeamSite::Config;


my $taskId = $ARGV[1];
my $task = TeamSite::WFtask->new($taskId);
my $debug = 1; # Set to 0 to turn debugging off; 1 to turn debugging on
my $iwhome = TeamSite::Config::iwgethome();
chomp( my $hostname = `C:\\WINDOWS\\system32\\hostname.exe` );

open( HOG, "> C:\\Temp\\teamsiteTemp\\partner_center\\DBsync.log" )
or die ("Can't open logfile: $@.\n");
print HOG "\$hostname=$hostname\n";
print HOG "\$iwhome=" . $iwhome . "\n";
close HOG;

eval { main( @ARGV ); };
if( $@ ) {
debug( "An error was detected during the execution of this task:\n", $@ );
$task->CallBack( 0, "An error was detected: $@." );
} else {
$task->CallBack( 1, "Metadata synchronized successfully." );
}

exit;

Adam Stoller

I see a couple of improvements that can be made, and at least two likely causes of errors:#!../../iw-perl/bin/iwperl
unclear if the above is valid, you could try hard-coding the path to
iw-perl in there first and once you get everything working try using
the above construct

BEGIN{
$ENV{ 'PATH' } = 'C:\oracle\ora81\BIN';
Is it your intent to make the above the *only* directory in your
PATH environment? - This might be causing problems. I'd also suggest
using forward-slashes
}
use DBI;
use DBD:DBC;
use strict;

use TeamSite::WFtask;
use TeamSite::WFworkflow;
use TeamSite::Config;


my $taskId = $ARGV[1];
my $task = TeamSite::WFtask->new($taskId);
you should check $task->IsValid() before doing anything else.
my $debug = 1; # Set to 0 to turn debugging off; 1 to turn debugging on
my $iwhome = TeamSite::Config::iwgethome();
chomp( my $hostname = `C:\\WINDOWS\\system32\\hostname.exe` );
a better choice would be:
use Sys::Hostname;
my $hostname = hostname();

open( HOG, "> C:\\Temp\\teamsiteTemp\\partner_center\\DBsync.log" )
or die ("Can't open logfile: $@.\n");
Learn to use forward-slashes - it makes the code much easier to read,
regex's much easier to write, and code much more portable
print HOG "\$hostname=$hostname\n";
print HOG "\$iwhome=" . $iwhome . "\n";
close HOG;

eval { main( @ARGV ); };
how do you expect to eval a call to a subroutine 'main' that
isn't defined anywhere in your code?
if( $@ ) {
debug( "An error was detected during the execution of this task:\n", $@ );
Again you are calling an undefined subroutine here
$task->CallBack( 0, "An error was detected: $@." );
} else {
$task->CallBack( 1, "Metadata synchronized successfully." );
}

exit;hope that helps.

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com