solenv/bin/reportErrorCheckAPI.btm

   1 set ERRORCODE=%1%
   2 iff exist %SOLARENV%/bin/cwstestresult.pl then
   3     iff %ERRORCODE% EQ 0 then
   4         set PT_STATUS=%2%
   5     else
   6         iff %ERRORCODE% EQ 1 then
   7             set PT_STATUS=failed
   8         else
   9             set PT_STATUS=incomplete
  10         endiff
  11     endiff
  12
  13     set CWSENV=Windows
  14     call perl5 %SOLARENV%/bin/cwstestresult.pl -c %CWS_WORK_STAMP% -n CWSCheckAPI -p %CWSENV% %PT_STATUS%
  15 else
  16     echo "No cwstestresult.pl found."
  17 endiff