Мой старт в интернет!

Для упрощения инсталляции Strawberry Perl необходимо обеспечить добавления путей в PATH и создания переменной окружения, а при деинсталляции соответственно их удаление.

Пути в PATH добавляются с помощью утилиты pathman.exe из Windows Server 2003 Resource Kit Tools

Для создания переменной окружения используется утилита SetEnv.exe

Скачиваем со страницы файлового архива архив с утилитой работы с окружением Windows и распаковываем его в папку W:\usr\bin

В папке W:\usr\local\mysrv-cmd текстовым редактором создаем файл mysrv-perl.cmd

set ModuleActive=TRUE
if not "%ModuleActive%"=="TRUE" exit /b
rem папка для Strawberry Perl
set PerlDir=\usr\local\strawberry
set PerlRoot=%Drive%:%PerlDir%
rem строка для добавления/удаления в/из PATH
set addtopath=%PerlRoot%\perl\site\bin;%PerlRoot%\perl\bin;%PerlRoot%\c\bin
if "%Action%"=="install" (
  rem добавляем строку в PATH
  %Drive%:%BinDir%\pathman.exe /as %addtopath%
  rem создаем переменную окружения TERM со значением dumb
  %Drive%:%BinDir%\setenv.exe -a TERM dumb
  rem производим релокацию Perl
  cd %PerlDir%
  rem команда для 5.12.0.х
  rem  perl\bin\perl.exe relocation.pl >nul
  rem команда для 5.12.1.х
  perl\bin\perl.exe relocation.pl.bat >nul
  rem копируем Perl
  copy perl\bin\perl.exe %Drive%:%BinDir% /Y >nul
  cd \
  echo.
  echo Perl installed
  exit /b)
if "%Action%"=="uninstall" (
  rem удаляем строку из PATH
  %Drive%:%BinDir%\pathman.exe /rs %addtopath%
  rem удаляем переменную окружения TERM
  %Drive%:%BinDir%\setenv.exe -d TERM
  rem удаляем Perl
  del %Drive%:%BinDir%\perl.exe /Q >nul
  echo.
  echo Perl uninstalled
  exit /b)
exit /b

В файл W:\usr\local\my-srv\mysrv-all.modules.cmd добавляем строку

CALL %Drive%:%CmdDir%\%Prefix%perl.cmd

Теперь инсталляцию Strawberry Perl можно осуществлять командой

mysrv.cmd install perl

а деинсталляцию

mysrv.cmd uninstall perl

Скрипт работает только с Strawberry Perl 5.12.x
Архив с дистрибутивом Strawberry Perl должен быть заблаговременно скачан и распакован в папку W:\usr\local\strawberry до использования скрипта

WebMoney

Вы можете оказать посильную помощь на поддержку сайта и развитие проектов переводом средств на кошельки платежной системы WebMoney

Z325624025520
E360373898601
U279044372586
R180028144815

Комментарии

QR