@echo off&set FileName=%~n0&shift

:: =============================================
:: AutoHelp PlugLab Concept: 2006 by Reatogo
:: =============================================

:: Help Info:
:: =======================
   set Routine_Type=3
::                  1=Getting Data  2=Prompts  3=Getting Files  4=Creating Files  5=General

   set Routine_Vers=1
   set Routine_Date=2007-02-15
   set RoutineName=xDWLD
   set RoutineAuthor=Siegfried
   set Using_work_from=

   set Example_call_1=%%xDWLD%% "http://www.reatogo.net/Downloads/REATOGO-240.exe" "unrar" "InnerFolderHERE" "CheckFileHERE"
   set Example_call_2=%%xDWLD%% "http://www.reatogo.net/Downloads/REATOGO-240.exe" "unrar" "REATOGO-240" "REATOGO_START.exe"
   set Example_call_3=

   set text_01=Downlaods and extracts a file into the plugin
   set text_02=.
   set text_03=Same as:
   set text_04=  %%DWLD%% "http://www.reatogo.de/Downloads/plugins/Ghost9_autoHelp.zip"
   set text_05=  %%Extract%%  "unzip" "Ghost9_autoHelp.zip" "Files" "Ghost9_autoHelp" "keep" ""
   set text_06=.
   set text_07=Always set to: keep the file, targetfolder is Files ; only inner folder removal
   set text_08=Param 1: URL
   set text_09=Param 2: Extractor only needed for EXE files
   set text_10=Param 3: Remove this inner folder
   set text_11=Param 4: Control file in target folder. Only needed if no extractor is specified.
   set text_12=.
   set text_13=NOTE: if the download file can not be derived from the URL, or the target should not be the folder Files
   set text_14=the method with seperate calls for DWLD and EXTRACT has to be used.
   set text_15=.
   set text_16=For more details about auto detection of the extractor see in EXTRACT.
   set text_24=.
   set text_25=Use the "%%Exclude%% - %%ButKeep%%" feature to cleanUp the target folder:
   set text_26=set Exclude=Lang\*.awl,
   set text_27=set ButKeep=Lang\%%LANG%%.awl,
   set text_28=%%xDWLD%% "http://download.lavasoft.com/addons/pllangs.exe" "wun"
   set text_29=.
   set text_30=This will only keep "Files\Lang\german.awl" on a german system.
   set text_31=The Exclude/ButKeep feature provides a simple way to remove any unwanted files from the target folder.
   set text_32=Specify any number of exclusions delimited by comma ",".
   set text_33=%%ButKeep%% can only be used together with %%Exclude%%. It is used to define one or several exceptions for a bulk-exclusion. A typical usage is in the context of language files cleanup.
   set text_34=.
   set text_35=The Exclude/ButKeep feature is available for the following routines: 
   set text_36=%%GetFolder%%, %%xDWLD%% and %%Extract%%


if "%~1" == "GetHelp" goto :EOF
echo.&echo %*
:: =============================================


%DWLD% "%~1"

set EXTRACT_FILE=%~nx1

set Extract_Routine=%~2

if "%Extract_Routine%" == "" (
	if "%~x1" == ".zip" set Extract_Routine=unzip
	if "%~x1" == ".ZIP" set Extract_Routine=unzip

	if "%~x1" == ".rar" set Extract_Routine=unrar
	if "%~x1" == ".RAR" set Extract_Routine=unrar

	if "%~x1" == ".7z" set Extract_Routine=7za
	if "%~x1" == ".7Z" set Extract_Routine=7za

	if "%~x1" == ".cab" set Extract_Routine=cab
	if "%~x1" == ".CAB" set Extract_Routine=cab
)

if not "%Extract_Routine%" == "" (
%EXTRACT%  "%Extract_Routine%" "%EXTRACT_FILE%" "Files" "%~3" "keep" "%~4"
goto :EOF
)

%IniGet% "%FUNCs%\EXTRACT.ini" "EXTRACTOR" "%EXTRACT_FILE%"
	if "%result%" == "$empty$" set result=
	if "%result%" == "$notfound$" set result=
%EXTRACT%  "%result%" "%EXTRACT_FILE%" "Files" "%~3" "keep" "%~4"
goto :EOF
:: =============================================