@echo off

rem Have echo follow the ECHO environment variable. Used for debugging.
if not {%ECHO%} == {} echo %ECHO%

rem Make sure this is Windows NT.
if not {%OS%} == {Windows_NT} goto :NOT_NT

rem Set path for Windows commands.
set WINEXE="%windir%\system32"

rem Save the current environment and directory.
setlocal
pushd .

if defined PERL goto :RUNPERL
if not defined HOME (
   for /f "tokens=*" %%i in ('cd') do set home=%%i
)
if not defined HOME (
   set HOME=%home:\tools\script=%
)
if not exist "%HOME%\World" (
   echo ERROR: Cannot determine HOME ^(please set it manually^)
   goto :DONE
)

set OLDHOME=%HOME%
if exist "%OLDHOME%\bin\Windows2000" set OLDARCH=Windows2000
if exist "%OLDHOME%\bin\WinNT4.0" set OLDARCH=WinNT4.0
set ARCH=%OLDARCH%

set BIN=%HOME%\bin\%ARCH%
if not exist "%BIN%" (
   echo ERROR: BIN not found ^(BIN^)
   goto :DONE
)

set LD_LIBRARY_PATH=%HOME%\lib\%ARCH%

set PLAT=%ARCH%
set PERL=%HOME%\tools\bin\%PLAT%\perl
if not exist "%PERL%.exe" (
   echo ERROR: perl not found ^(%PERL%.exe^)
   goto :DONE
)
for /f "tokens=*" %%i in ('hostname') do set HOSTNAME=%%i

:RUNPERL
rem echo running PERL
rem CMD /c %PERL%.exe %0
rem goto :DONE

if exist "%HOME%\tools\script\%1.pl" (
   call "%PERL%.exe" "%HOME%\tools\script\%1.pl" %2
) else (
   echo ERROR: %HOME%\tools\script\%1.pl doesn't exist
)
goto :DONE

:DONE
popd & endlocal
goto :EOF

:NOT_NT
rem /////////////////////////////////////////////////////////////////////////
rem This is not Windows NT.
rem This procedure must fall through to the end of the file, for compatibility.

echo This script requires Windows NT.

rem /////////////////////////////////////////////////////////////////////////