@echo off
setlocal
REM $Header: emcaDbUtil.bat 27-jan-2005.04:31:21 rahgupta Exp $
REM
REM emcaDbUtil.bat
REM
REM Copyright (c) 2005, Oracle. All rights reserved.  
REM
REM    NAME
REM      emcaDbUtil.bat - <one-line expansion of the name>
REM
REM    DESCRIPTION
REM      <short description of component this file declares/defines>
REM
REM    NOTES
REM      <other useful comments, qualifications, etc.>
REM
REM    MODIFIED   (MM/DD/YY)
REM    rahgupta    01/27/05 - rahgupta_bug-4017590_main
REM    rahgupta    01/23/05 - Creation
REM

REM Usage $0 "PERL5LIB" PERL_EXEC_LOC PERL_FILE_TO_EXEC ARGS_TO_PERL_FILE

REM PERL5LIB to the bat file is passed within quotes.
REM Remove the quotes before setting it to the env variable.
set PERL5LIB_VAL=%1
set PERL5LIB_TMP=%PERL5LIB_VAL:"=%
set PERL5LIB_VAL=%PERL5LIB_TMP:"=%
set PERL5LIB=%PERL5LIB_VAL%

shift
set PERL_EXEC_LOC=%1
shift
set PERL_FILE=%1
shift

set ARGS_TO_PERL_FILE=
:loop
if (%1)==() goto parsed
 set ARGS_TO_PERL_FILE=%ARGS_TO_PERL_FILE% %1
 shift
goto loop
:parsed

%PERL_EXEC_LOC% %PERL_FILE% %ARGS_TO_PERL_FILE%