@echo off
setlocal

Title 

set _WHAT=%1
if {%_WHAT%}=={} set _WHAT=5.20
if {%_WHAT%}=={/?} goto HELP
if {%_WHAT%}=={--help} goto HELP

if not exist "X:\opt\perl-%_WHAT%\perl\bin\perl.exe" goto WRONGPERL

set HOME=U:\LylCanbys
set _WIN=C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem
set _RND=%RANDOM%

set TEMP=%LOCALAPPDATA%\Temp
set TMP=%TEMP%
set TERM=dumb
set PAGER=P:\Git\usr\bin\less.exe

set PERLPATH=C:\strawberry\perl\site\bin;C:\strawberry\perl\bin;C:\strawberry\c\bin
set PERLLIB=C:\strawberry\perl\site\lib;C:\strawberry\perl\vendor\lib;C:\strawberry\perl\lib
set INCLUDE=C:\strawberry\c\include
set LIB=C:\strawberry\c\lib

rem set HTTPS_CA_DIR=X:\etc\ssl\certs
rem set HTTPS_CA_FILE=X:\etc\ssl\certs\cacert.pem

set PERL_JSON_BACKEND=
set PERL_YAML_BACKEND=
set PERL5LIB=
set PERL5OPT=
set PERL_MM_OPT=
set PERL_MB_OPT=

set PATH=%PERLPATH%
set PATH=%PATH%;P:\GnuPG\pub
set PATH=%PATH%;X:\bin;X:\usr\bin
set PATH=%PATH%;P:\Git\bin
set PATH=%PATH%;%_WIN%

cd /D %CD%
prompt PERL-%_WHAT% $p$g

mkdir C:\TEMP 1>NUL 2>NUL
mkdir C:\TMP 1>NUL 2>NUL

rmdir /Q C:\strawberry* 1>NUL 2>NUL
if not exist C:\strawberry mklink /J C:\strawberry X:\opt\perl-5.20 1>NUL 2>NUL
move C:\strawberry C:\strawberry%_RND%_ 1>NUL 2>NUL
del /F /Q X:\usr\bin\perl*.ex_ 1>NUL 2>NUL
copy X:\usr\bin\perl.exe X:\usr\bin\perl%_RND%_.ex_ 1>NUL 2>NUL

goto runcmd

:WRONGPERL
echo Perl %_WHAT% not found!
goto end

:HELP
echo perldev PERLVERSION.SUBVERSION
echo.
goto end

:runcmd
set _W=%_WHAT%
set _VER=%_W:5.=%

mklink /J C:\strawberry X:\opt\perl-5.%_VER% 1>NUL 2>NUL
copy X:\opt\perl-5.%_VER%\perl\bin\perl.exe X:\usr\bin\perl.exe 1>NUL 2>NUL
copy X:\usr\bin\perl.exe X:\usr\bin\perl 1>NUL 2>NUL
copy X:\opt\perl-5.%_VER%\perl\bin\perl5%_VER%.dll X:\usr\bin\perl5%_VER%.dll 1>NUL 2>NUL

Title Perl Dev - Perl 5.%_VER%
cmd /K perl -e "print '-'x50,qq(\n$] \@ $^X\n),'-'x50"

:exitall
rmdir C:\strawberry 1>NUL 2>NUL
move C:\strawberry%_RND%_ C:\strawberry 1>NUL 2>NUL
copy X:\usr\bin\perl%_RND%_.ex_ X:\usr\bin\perl.exe 1>NUL 2>NUL
copy X:\usr\bin\perl.exe X:\usr\bin\perl 1>NUL 2>NUL
del /F X:\usr\bin\*.ex_ 1>NUL 2>NUL

rmdir C:\TEMP 1>NUL 2>NUL
rmdir C:\TMP 1>NUL 2>NUL

:end
endlocal