18 lines
460 B
Text
18 lines
460 B
Text
|
set ERRORCODE=%1%
|
||
|
|
iff exist %SOLARENV%/bin/cwstestresult.pl then
|
||
|
|
iff %ERRORCODE% EQ 0 then
|
||
|
|
set PT_STATUS=%2%
|
||
|
|
else
|
||
|
|
iff %ERRORCODE% EQ 1 then
|
||
|
|
set PT_STATUS=failed
|
||
|
|
else
|
||
|
|
set PT_STATUS=incomplete
|
||
|
|
endiff
|
||
|
|
endiff
|
||
|
|
|
||
|
|
set CWSENV=Windows
|
||
|
|
call perl5 %SOLARENV%/bin/cwstestresult.pl -c %CWS_WORK_STAMP% -n CWSCheckAPI -p %CWSENV% %PT_STATUS%
|
||
|
|
else
|
||
|
|
echo "No cwstestresult.pl found."
|
||
|
|
endiff
|