reUsenet 24_06_11 modded for Win7 by Dangercrow

@ECHO OFF


set PVERSION=24_06_11
set TDATE=%DATE:~0,2%-%DATE:~3,2%-%DATE:~8,2%
set TADD=%time:~0,2%_%time:~3,2%_%time:~6,2%
SET INSTALLPATH=%~dp0
SET SIZE=%~z1
SET SHIFTED=TRUE
set NOFILETYPE=FALSE
Set h=0
Set min=0
Set sec=0
Set zeitp1h=%time:~0,2%
Set zeitp1min=%time:~3,2%
Set zeitp1sec=%time:~6,2%
CLS
TITLE PreUsenet %PVERSION% modded for Win7 by Dangercrow

if exist "%INSTALLPATH%test_%TADD%.txt" (
del "%INSTALLPATH%test_%TADD%.txt" > nul
)
if exist "%INSTALLPATH%temp_%TADD%.txt" (
del "%INSTALLPATH%temp_%TADD%.txt" > nul
)

SET MODE=A
if "%SIZE%"=="0" ( SET MODE=B)

rem A=File Mode ; B=Folder Mode"
if "%MODE%"=="A" ( SET MODUS=  FILE- )
if "%MODE%"=="B" ( SET MODUS=FOLDER- )

echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º PreUsenet %PVERSION%                                º
ECHO º  Modified for Windows 7 by Dangercrow                   º
ECHO º you are in %MODUS%Mode (auto detected)           º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ

ECHO PreUsenet %PVERSION% - %TADD% >> "%INSTALLPATH%log.txt"

:CHECK
ECHO --------------------------------------------------- >>"%INSTALLPATH%log.txt"
set /a CDNUM=CDNUM+1
SET FILENAME=%~n1
SET PATH=%~dp1
SET PATH2=%~p1
SET DP=%PATH:~0,2%
SET EXT=%~x1
SET SIZE=%~z1
SET FOLDER=%FILENAME%

if not exist "%INSTALLPATH%settings.bat" goto :SETBAT
if not exist "%INSTALLPATH%Rar.exe" goto :NORAR
if not exist "%INSTALLPATH%par2.exe" goto :NOPAR
if not exist "%INSTALLPATH%pure-sfv.exe" goto :NOSFV

call %INSTALLPATH%settings.bat
if "%ONLYPAR%"=="TRUE" (
SET TARGETLOCATION=%PATH%
)

if "%TARGETLOCATION%\"=="%PATH%" (
Set ONLYPAR=TRUE
)
SET DT=%TARGETLOCATION:~0,2%

if "%FILENAME%"=="" goto :NOFILE
set NOFILETYPE=FALSE

if %SIZE% LSS 2147483648 (
if "%MODE%"=="A" (
if exist "%PATH%%FILENAME%.mkv" (
set RARSIZE=%BIGSIZE%
SET PAR2BLOCK=%BIGBLOCK%
ECHO mkv detected
ECHO mkv detected >> "%INSTALLPATH%log.txt"
)
)
) ELSE (
set RARSIZE=%BLUSIZE%
SET PAR2BLOCK=%BIGBLOCK%
ECHO big file detected!
ECHO big file detected! >> "%INSTALLPATH%log.txt"
)

if exist "%INSTALLPATH%test_%TADD%.txt" (
del "%INSTALLPATH%test_%TADD%.txt"
)


if "%MODE%"=="B" (
if "%SHIFTED%"=="TRUE" (
::rar
if exist "%PATH%%FILENAME%%EXT%\*.rar" (
dir /b /o:s "%PATH%%FILENAME%%EXT%\*.rar" > "%INSTALLPATH%test_%TADD%.txt"
)
if "%ONLYPAR%"=="FALSE" (
::avi
if exist "%PATH%%FILENAME%%EXT%\*.avi" (
dir /b /o:s "%PATH%%FILENAME%%EXT%\*.avi" >> "%INSTALLPATH%test_%TADD%.txt"
)
::mkv
if exist "%PATH%%FILENAME%%EXT%\*.mkv" (
dir /b /o:s "%PATH%%FILENAME%%EXT%\*.mkv" >> "%INSTALLPATH%test_%TADD%.txt"
)
::iso
if exist "%PATH%%FILENAME%%EXT%\*.iso" (
dir /b /o:s "%PATH%%FILENAME%%EXT%\*.iso" >> "%INSTALLPATH%test_%TADD%.txt"
)
::ogm
if exist "%PATH%%FILENAME%%EXT%\*.ogm" (
dir /b /o:s "%PATH%%FILENAME%%EXT%\*.ogm" >> "%INSTALLPATH%test_%TADD%.txt"
)
if not exist "%INSTALLPATH%test_%TADD%.txt" (
ECHO *.* > "%INSTALLPATH%test_%TADD%.txt"
set NOFILETYPE=TRUE
)
)

%Systemroot%\system32\find.exe /v "*sample*" "%INSTALLPATH%test_%TADD%.txt" > "%INSTALLPATH%temp_%TADD%.txt"
)

SET CDIS=FALSE
SET FOLDER=%FILENAME%%EXT%
if exist "%PATH%%FILENAME%%EXT%\CD%CDNUM%\*.*" (
SET CDIS=TRUE
dir /b "%PATH%%FILENAME%%EXT%\CD%CDNUM%\*.rar" > "%INSTALLPATH%test_%TADD%.txt"
SET FOLDER=%FILENAME%%EXT%\CD%CDNUM%
ECHO subdir CD%CDNUM% detected going deeper
ECHO subdir CD%CDNUM% detected going deeper >> "%INSTALLPATH%log.txt"
%Systemroot%\system32\find.exe /v "*sample*" "%INSTALLPATH%test_%TADD%.txt" > "%INSTALLPATH%temp_%TADD%.txt"
set NOFILETYPE=FALSE
)

SET TARGETLOCATION=%TARGETLOCATION%\%FILENAME%%EXT%

for /f "usebackq tokens=1 delims== " %%a in ("%INSTALLPATH%temp_%TADD%.txt") do (
call :sub %%a
)
)

if "%MODE%"=="B" (
if "%TORAR%"=="" (
goto :SHIFT
)
if "%TORAR%"=="----------" (
goto :SHIFT
)
)

if "%MODE%"=="A" (
goto :FSUB
)
:ENDFSUB

if "%MODE%"=="A" (
SET TARGETLOCATION=%TARGETLOCATION%\%SUBFOLDER%
Set RARNAME=%FILENAME%
)

if "%NOFILETYPE%"=="TRUE" (
ECHO No supported filetype detected
ECHO No supported filetype detected >> "%INSTALLPATH%log.txt"
ECHO packing all files in current folder into one set instead
ECHO packing all files in current folder into one set instead >> "%INSTALLPATH%log.txt"
set RARNAME=%FILENAME%%EXT%
copy "%PATH%%FOLDER%\*.*" NUL > nul
IF ERRORLEVEL 1 goto :NOFILE
)

set /A num=num + 1

ECHO Now processing Set %num%: %RARNAME%
ECHO Now processing Set %num%: %RARNAME% >> "%INSTALLPATH%log.txt"
TITLE PreUsenet - Set %num%: %RARNAME%
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º Creating Folder                                   º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ

if not exist "%TARGETLOCATION%" mkdir "%TARGETLOCATION%" > nul
ECHO creating Targetlocation: %TARGETLOCATION% >> "%INSTALLPATH%log.txt"

:: SAMPLE TEST
if "%MODE%"=="B" (
set SAMP=FALSE
if "%CDNUM%"=="1" (
if "%ONLYPAR%"=="TRUE" (
if exist "%PATH%%FILENAME%%EXT%\*.avi" (
dir /b "%PATH%%FILENAME%%EXT%\*.avi" > "%INSTALLPATH%sample_%TADD%.txt"
set SAMP=TRUE
ECHO Sample detected !!
ECHO Sample detected >> "%INSTALLPATH%log.txt"
)
if exist "%PATH%%FILENAME%%EXT%\*.mkv" (
dir /b "%PATH%%FILENAME%%EXT%\*.mkv" > "%INSTALLPATH%sample_%TADD%.txt"
set SAMP=TRUE
ECHO Sample detected !!
ECHO Sample detected >> "%INSTALLPATH%log.txt"
)
)
if exist "%PATH%%FILENAME%%EXT%\Sample" (
set SAMP=TRUE
ECHO Sample subdir detected !!
ECHO Sample subdir detected >> "%INSTALLPATH%log.txt"
ECHO copying content to %TARGETLOCATION%
ECHO copying content to %TARGETLOCATION% >> "%INSTALLPATH%log.txt"
copy "%PATH%%FILENAME%%EXT%\Sample\*.*" "%TARGETLOCATION%" > nul
dir /b "%PATH%%FILENAME%%EXT%\Sample" > "%INSTALLPATH%sample_%TADD%.txt"
)
)
)
if "%SAMP%"=="TRUE" (
for /f "usebackq tokens=1 delims== " %%a in ("%INSTALLPATH%sample_%TADD%.txt") do (
call :samplesub %%a
)
)

:: NFO TEST
if "%ONLYPAR%"=="FALSE" (
if "%MODE%"=="B" (
if "%CDNUM%"=="1" (
if exist "%PATH%%FILENAME%%EXT%\*.nfo" (
ECHO nfo detected !!
ECHO nfo detected >> "%INSTALLPATH%log.txt"
ECHO copying it to %TARGETLOCATION%
ECHO copying it to %TARGETLOCATION% >> "%INSTALLPATH%log.txt"
copy "%PATH%%FILENAME%%EXT%\*.nfo" "%TARGETLOCATION%" > nul
)
)
)
)

::TYPTESTING
if "%MODE%"=="B" (
call :TYPETEST %FOLDER%
)
ECHO using Rarsize=%RARSIZE%, Par2blocksize=%PAR2BLOCK% and Redundancy=%REDUNDANCY%
ECHO using Rarsize=%RARSIZE%, Par2blocksize=%PAR2BLOCK% and Redundancy=%REDUNDANCY% >> "%INSTALLPATH%log.txt"

)
if "%ONLYPAR%"=="TRUE" (
if "%MODE%"=="B" (
ECHO ONLYPAR mode
ECHO ONLYPAR mode >> "%INSTALLPATH%log.txt"
goto :AFTERRAR
)
)

echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º Creating RARs                                     º
ECHO º Please wait ....                                  º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ

Echo Creating Rars >> "%INSTALLPATH%log.txt"
if "%MODE%"=="A" (
"%INSTALLPATH%Rar.exe" "a" "-v%RARSIZE%M" "-m0" "-y" "-ep1" "-ed" "-vn" "%TARGETLOCATION%\%FILENAME%.rar" "%PATH%%FILENAME%%EXT%" | "%Systemroot%\System32\FIND.exe" "Creating"
)

if "%MODE%"=="B" (
if exist "%PATH%%FOLDER%\%RARNAME%*.rar" (
ECHO RARs detected !!
ECHO copying them to %TARGETLOCATION% instead
ECHO detected Rars moved to %TARGETLOCATION% >> "%INSTALLPATH%log.txt"
copy "%PATH%%FOLDER%\%RARNAME%*.r??" "%TARGETLOCATION%"
) ELSE (
"%INSTALLPATH%Rar.exe" "a" "-v%RARSIZE%M" "-m0" "-y" "-ep1" "-x*.nfo" "-r" "-vn" "%TARGETLOCATION%\%RARNAME%.rar" "%PATH%%FOLDER%\%TORAR%" | "%Systemroot%\System32\FIND.exe" "Creating"
)
)

:: call :TESTECHO

IF ERRORLEVEL 1 goto :FAILURE

echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º creating SFV                                      º
ECHO º Please wait ....                                  º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ

Echo Creating SFV >> "%INSTALLPATH%log.txt"
%DT%
if "%MODE%"=="A" (
"%INSTALLPATH%pure-sfv.exe" "-c" "-d" "%TARGETLOCATION%\%FILENAME%.sfv" "%FILENAME%.r??" > nul
)
if "%MODE%"=="B" (
if not exist "%PATH%%FOLDER%\%RARNAME%*.sfv" (
"%INSTALLPATH%pure-sfv.exe" "-c" "-d" "%TARGETLOCATION%\%RARNAME%.sfv" "%RARNAME%*.r??" >nul
ECHO DONE !
) ELSE (
ECHO SFV detected  !!
ECHO copying it to %TARGETLOCATION% instead
Echo detected SFV moved to %TARGETLOCATION% >> "%INSTALLPATH%log.txt"
copy "%PATH%%FOLDER%\%RARNAME%*.sfv" "%TARGETLOCATION%"
)
)
IF ERRORLEVEL 1 goto :FAILURE

:AFTERRAR

echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º Creating PAR2                                     º
ECHO º Please wait ....                                  º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ



if "%MODE%"=="A" (
Echo Creating par2 files >> "%INSTALLPATH%log.txt"
"%INSTALLPATH%par2.exe" "c" "-s%PAR2BLOCK%" "-r%REDUNDANCY%" "-m%BLOCKSIZE%" "-l" "%TARGETLOCATION%\%FILENAME%.par2" "%TARGETLOCATION%\%FILENAME%.r??"
)
if "%MODE%"=="B" (
if "%SAMP%"=="TRUE" (
if "%CDNUM%"=="1" (
Echo Creating sample par2 files >> "%INSTALLPATH%log.txt"
"%INSTALLPATH%par2.exe" "c" "-s384000" "-r%SAMPRED%" "-m%BLOCKSIZE%" "-l" "%TARGETLOCATION%\%SAMPNAME%.par2" "%TARGETLOCATION%\%SAMPFILE%"
Echo sample par2 files created >> "%INSTALLPATH%log.txt"
)
)
if "%CDIS%"=="TRUE" (
if "%ONLYPAR%"=="TRUE" (
set TARGETLOCATION=%TARGETLOCATION%\CD%CDNUM%
)
)
)
if "%MODE%"=="B" (
echo "c" "-s%PAR2BLOCK%" "-r%REDUNDANCY%" "-m%BLOCKSIZE%" "-l" "%TARGETLOCATION%\%RARNAME%.par2" "%TARGETLOCATION%\%RARNAME%*.r??"
Echo Creating par2 files >> "%INSTALLPATH%log.txt"
"%INSTALLPATH%par2.exe" "c" "-s%PAR2BLOCK%" "-r%REDUNDANCY%" "-m%BLOCKSIZE%" "-l" "%TARGETLOCATION%\%RARNAME%.par2" "%TARGETLOCATION%\%RARNAME%*.r??"
Echo par2 files created >> "%INSTALLPATH%log.txt"

)


IF ERRORLEVEL 1 goto :FAILURE



rem ECHO Recheck Par2:

rem "%INSTALLPATH%par2.exe" "v" "%TARGETLOCATION%\%RARNAME%.par2"
rem IF ERRORLEVEL 1 (
rem ECHO Par2 Verify failed
rem pause
rem )

echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º PAR2 created                                      º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ

:: SUBS TEST
if "%ONLYPAR%"=="FALSE" (
if "%MODE%"=="B" (
if exist "%PATH%%FILENAME%%EXT%\Subs" (
ECHO Subs subdir detected !!
ECHO copying content to %TARGETLOCATION%
Echo detected subs moved to %TARGETLOCATION% >> "%INSTALLPATH%log.txt"
copy "%PATH%%FILENAME%%EXT%\Subs\*.*" "%TARGETLOCATION%" > nul
)
)
)

if "%MODE%"=="B" (
%Systemroot%\system32\find.exe /v /i "%FINDTXT%" "%INSTALLPATH%temp_%TADD%.txt" > "%INSTALLPATH%name.txt"
del "%INSTALLPATH%temp_%TADD%.txt" > nul
rename "%INSTALLPATH%name.txt" "temp_%TADD%.txt"
SET SHIFTED=FALSE
if "%NOFILETYPE%"=="TRUE" (
goto :SHIFT
)
SET NOFILETYPE=FALSE
goto :CHECK
)
)
)

:SHIFT
SET NOFILETYPE=FALSE
SET SHIFTED=TRUE
set CDNUM=0
Shift
if not "%~n1"=="" goto :CHECK

if "%MODE%"=="A" (
if exist "%PATH%*.nfo" (
copy "%PATH%*.nfo" "%TARGETLOCATION%\"
ECHO All nfos copied to %TARGETLOCATION%\
Echo all nfos copied to %TARGETLOCATION%\ >> "%INSTALLPATH%log.txt"
)
)

ECHO    All ready, created %num% Set(s)
Echo created %num% Set(s) >> "%INSTALLPATH%log.txt"
TITLE PreUsenet - All ready, created %num% Set(s)
goto :END

:NOFILE
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º Wrong usage - no files found                      º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
Echo Wrong usage - no files found >> "%INSTALLPATH%log.txt"
goto :BYE

:NORAR
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º no rar.exe found in installpath                   º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
Echo no rar.exe found in installpath >> "%INSTALLPATH%log.txt"
goto :BYE

:NOPAR
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º no par2.exe found in installpath                  º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
Echo no par2.exe found in installpath  >> "%INSTALLPATH%log.txt"
goto :BYE

:NOSFV
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º no pure-sfv.exe found in installpath              º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
Echo no pure-sfv.exe found in installpath >> "%INSTALLPATH%log.txt"
goto :BYE

:FAILURE
ECHO .
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º there has been a failure                                º
ECHO º closing PreUsenet                                       º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
ECHO there has been a failure >> "%INSTALLPATH%log.txt"
ECHO --------------------------------------------------- >> "%INSTALLPATH%log.txt"
ECHO Folder: %PATH%%FOLDER%\ >> "%INSTALLPATH%log.txt"
ECHO Target Rar: %TARGETLOCATION%\%RARNAME%.rar >> "%INSTALLPATH%log.txt"
ECHO Target file to rar: %PATH%%FOLDER%\%TORAR% >> "%INSTALLPATH%log.txt"
ECHO VARS: >> "%INSTALLPATH%log.txt"
ECHO SUBFOLDER = %SUBFOLDER% >> "%INSTALLPATH%log.txt"
ECHO FILENAME = %FILENAME% >> "%INSTALLPATH%log.txt"
ECHO PATH = %PATH% >> "%INSTALLPATH%log.txt"
ECHO PATH2 = %PATH2% >> "%INSTALLPATH%log.txt"
ECHO DP = %DP% >> "%INSTALLPATH%log.txt"
ECHO EXT = %EXT% >> "%INSTALLPATH%log.txt"
ECHO SIZE = %SIZE% >> "%INSTALLPATH%log.txt"
ECHO FOLDER=%FILENAME% >> "%INSTALLPATH%log.txt"
ECHO TARGETLOCATION = %TARGETLOCATION% >> "%INSTALLPATH%log.txt"
ECHO DT = %DT% >> "%INSTALLPATH%log.txt"
ECHO RARNAME = %RARNAME% >> "%INSTALLPATH%log.txt"
ECHO TORAR = %TORAR% >> "%INSTALLPATH%log.txt"
ECHO MODE: %MODE% >> "%INSTALLPATH%log.txt"
ECHO EX = %EX% >> "%INSTALLPATH%log.txt"
ECHO INSTALLPATH = %INSTALLPATH% >> "%INSTALLPATH%log.txt"
Echo Redundancy = %REDUNDANCY% >> "%INSTALLPATH%log.txt"

:BYE

if exist "%INSTALLPATH%test_%TADD%.txt" (
del "%INSTALLPATH%test_%TADD%.txt" > nul
)
if exist "%INSTALLPATH%temp_%TADD%.txt" (
del "%INSTALLPATH%temp_%TADD%.txt" > nul
)
if exist "%INSTALLPATH%sample_%TADD%.txt" (
del "%INSTALLPATH%sample_%TADD%.txt" > nul
)
pause
goto :EOF

:END

if exist "%INSTALLPATH%test_%TADD%.txt" (
del "%INSTALLPATH%test_%TADD%.txt" > nul
)
if exist "%INSTALLPATH%temp_%TADD%.txt" (
del "%INSTALLPATH%temp_%TADD%.txt" > nul
)
if exist "%INSTALLPATH%sample_%TADD%.txt" (
del "%INSTALLPATH%sample_%TADD%.txt" > nul
)

goto :CDOWN



:FSUB
for /f "tokens=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17 delims==\" %%a in ("%~p1") do (
call :name %%a
call :name %%b
call :name %%c
call :name %%d
call :name %%e
call :name %%f
call :name %%g
call :name %%h
call :name %%i
call :name %%j
call :name %%k
call :name %%l
call :name %%m
call :name %%n
call :name %%o
call :name %%p
call :name %%q
)
)
goto :ENDFSUB

:sub
set TORAR=%1
SET EX=%~x1
SET RARNAME=%~n1
SET FINDTXT=%~n1
if exist "%PATH%%FOLDER%\*.part0*1.rar" (
call :ext2 %~n1
)
goto :EOF

:ext2
SET RARNAME=%~n1
SET FINDTXT=%~n1
goto :EOF

:samplesub
SET SAMPNAME=%~n1
SET SAMPFILE=%1
goto :EOF

:TESTECHO
ECHO Folder: %PATH%%FOLDER%\
ECHO Target Rar: %TARGETLOCATION%\%RARNAME%.rar
ECHO Target file to rar: %PATH%%FOLDER%\%TORAR%
ECHO VARS:
ECHO SUBFOLDER = %SUBFOLDER%
ECHO FILENAME = %FILENAME%
ECHO PATH = %PATH%
ECHO PATH2 = %PATH2%
ECHO DP = %DP%
ECHO EXT = %EXT%
ECHO SIZE = %SIZE%
ECHO FOLDER=%FILENAME%
ECHO TARGETLOCATION = %TARGETLOCATION%
ECHO DT = %DT%
ECHO RARNAME = %RARNAME%
ECHO TORAR = %TORAR%
ECHO MODE: %MODE%
ECHO EX = %EX%
ECHO INSTALLPATH = %INSTALLPATH%
Echo Redundancy = %REDUNDANCY%
echo cdis = %CDIS%
pause
goto :EOF

:name
if "%1"=="" (
set blub="%1"
) ELSE (
set SUBFOLDER=%1
if not "%2"=="" (
set SUBFOLDER=%1 %2
)
if not "%3"=="" (
set SUBFOLDER=%1 %2 %3
)
if not "%4"=="" (
set SUBFOLDER=%1 %2 %3 %4
)
if not "%5"=="" (
set SUBFOLDER=%1 %2 %3 %4 %5
)
)

goto :EOF

:SETBAT

ECHO :: Set next line for your desired Target Location, all set will be created there except you set ONLYPAR >> "%INSTALLPATH%settings.bat"
ECHO SET TARGETLOCATION=C:\Temp>> "%INSTALLPATH%settings.bat"
ECHO :: Set ONLYPAR to TRUE if you only want to create Par2 files !!! >> "%INSTALLPATH%settings.bat"
ECHO SET ONLYPAR=FALSE>> "%INSTALLPATH%settings.bat"
ECHO :: >> "%INSTALLPATH%settings.bat"
ECHO :: >> "%INSTALLPATH%settings.bat"
ECHO :: Rar Settings an Par Settings >> "%INSTALLPATH%settings.bat"
ECHO :: par2 redundancy >> "%INSTALLPATH%settings.bat"
ECHO SET REDUNDANCY=10>> "%INSTALLPATH%settings.bat"
ECHO :: bluray and hddvd redundancy>> "%INSTALLPATH%settings.bat"
ECHO SET BLURED=05>> "%INSTALLPATH%settings.bat"
ECHO :: sample redundancy >> "%INSTALLPATH%settings.bat"
ECHO SET SAMPRED=50>> "%INSTALLPATH%settings.bat"
ECHO :: max Memory usage for Par2 creating in MB >> "%INSTALLPATH%settings.bat"
ECHO SET BLOCKSIZE=150>> "%INSTALLPATH%settings.bat"
ECHO :: >> "%INSTALLPATH%settings.bat"
ECHO :: Rar archive size for small Rars (in MB) >> "%INSTALLPATH%settings.bat"
ECHO SET RARSIZE=15>> "%INSTALLPATH%settings.bat"
ECHO :: Rar archive size for rarring mkv or 720p (in MB) >> "%INSTALLPATH%settings.bat"
ECHO SET BIGSIZE=50>> "%INSTALLPATH%settings.bat"
ECHO :: Rar archive size for rarring Blurays or HDDVD (in MB) >> "%INSTALLPATH%settings.bat"
ECHO SET BLUSIZE=100>> "%INSTALLPATH%settings.bat"
ECHO :: Par2 Blocksize for small Posts >> "%INSTALLPATH%settings.bat"
ECHO SET PAR2BLOCK=768000>> "%INSTALLPATH%settings.bat"
ECHO :: Par2 Blocksize for mkv or 720p Posts >> "%INSTALLPATH%settings.bat"
ECHO SET BIGBLOCK=1920000>> "%INSTALLPATH%settings.bat"
ECHO :: Par2 Blocksize for Bluray or HDDVD Posts >> "%INSTALLPATH%settings.bat"
ECHO SET BLUBLOCK=1920000>> "%INSTALLPATH%settings.bat"
ECHO :: >> "%INSTALLPATH%settings.bat"

echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º YOU are running PreUsenet for the first time            º
ECHO º a file named "settings.bat" was created in your         º
ECHO º Installation folder with some default Settings          º
ECHO º please EDIT that file befor running PREUSNET again      º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
pause
goto :EOF

:TYPETEST
set typet=%~x1
SET typen=%~n1
if /i "%TYPET%"==".720p" (
set RARSIZE=%BIGSIZE%
SET PAR2BLOCK=%BIGBLOCK%
ECHO 720p detected !!
ECHO 720p detected >> "%INSTALLPATH%log.txt"
)
if /i "%TYPET%"==".1080p" (
set RARSIZE=%BLUSIZE%
SET PAR2BLOCK=%BLUBLOCK%
ECHO 1080p detected !!
ECHO 1080p detected >> "%INSTALLPATH%log.txt"
)
if /i "%TYPET%"==".bluray" (
SET REDUNDANCY=%BLURED%
set RARSIZE=%BLUSIZE%
SET PAR2BLOCK=%BLUBLOCK%
ECHO Bluray detected !!
ECHO Bluray detected >> "%INSTALLPATH%log.txt"
)
if /i "%TYPET%"==".hddvd" (
SET REDUNDANCY=%BLURED%
set RARSIZE=%BLUSIZE%
SET PAR2BLOCK=%BLUBLOCK%
ECHO Hddvd detected !!
ECHO Hddvd detected >> "%INSTALLPATH%log.txt"
)
if not "%TYPET%"=="" call :TYPETEST %typen%
goto :EOF

:CDOWN
Set zeitp2h=%time:~0,2%
Set zeitp2min=%time:~3,2%
Set zeitp2sec=%time:~6,2%
if %zeitp2h% LSS %zeitp1h% (
set /a zeitp2h=zeitp2h+24
)
set /A tot2t=%zeitp2min%*60
set /a tot2tt=%zeitp2h%*3600
set /A tot2=%tot2t%+%tot2tt%+%zeitp2sec%
set /A tot1t=%zeitp1min%*60
set /a tot1tt=%zeitp1h%*3600
set /A tot1=%tot1t%+%tot1tt%+%zeitp1sec%
set /A sec=tot2-tot1
set /A avg=sec/%num%
set /a min=%sec%/60
set /a h=%min%/60
set /a min=%min%-60*%h%
set /a sec=%sec%-3600*%h%-60*%min%

echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
ECHO º created from Cr4zyfr4g, 20.09.2008                º
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
Echo º Complete Duration for %num% Set(s):
ECHO º %h% hours, %min% minutes %sec% seconds
ECHO º that means %avg% seconds per set
echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ

ECHO --------------------------------------------------- >> "%INSTALLPATH%log.txt"
ECHO Complete Duration for %num% Set(s): >> "%INSTALLPATH%log.txt"
ECHO %h% hours, %min% minutes %sec% seconds >> "%INSTALLPATH%log.txt"
ECHO that means %avg% seconds per set >> "%INSTALLPATH%log.txt"
ECHO --------------------------------------------------- >> "%INSTALLPATH%log.txt"

echo Closing in
echo 5
%Systemroot%\system32\ping -n 2 127.0.0.1>nul
echo 4
%Systemroot%\system32\ping -n 2 127.0.0.1>nul
echo 3
%Systemroot%\system32\ping -n 2 127.0.0.1>nul
echo 2
%Systemroot%\system32\ping -n 2 127.0.0.1>nul
echo 1
%Systemroot%\system32\ping -n 2 127.0.0.1>nul

goto :EOF