traptoemail.bat
上传用户:wxp200602
上传日期:2007-10-30
资源大小:4028k
文件大小:1k
- @echo off
- set MYPERLPROGRAM=c:usrbintraptoemail
- perl -v > NUL 2>&1
- if ERRORLEVEL 1 goto no_perl
- rem Perl found!
- if "%OS%"=="Windows_NT" goto winnt
- perl "%MYPERLPROGRAM%" %1 %2 %3 %4 %5 %6 %7 %8 %9 %10 %11 %12 %13 %14 %15
- goto end
- :winnt
- perl "%MYPERLPROGRAM%" %*
- goto end
- :no_perl
- echo %MYPERLPROGRAM% requires Perl to run.
- echo .
- echo A version of Perl for Windows is available from
- echo http://www.activestate.com/Products/ActivePerl
- echo .
- echo Please install Perl and run this program again.
- echo .
- pause
- :end