with a little help from my friends here and abroad:
@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 compa
+tibility.
echo This script requires Windows NT.
rem //////////////////////////////////////////////////////////////////
+///////
We speak the way we breathe. --Fugazi
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|