Scribus 1.4.1

uninst.exe /S
set err=%errorlevel%
if %err% neq 0 exit /b %err%

set key=net.scribus.Scribus-1.4.1
reg delete HKLM\SOFTWARE\Classes\Applications\%key% /f
for %%g in (pdf ps eps svg svgz sxd odg sla sla.gz scd scd.gz) do reg delete HKLM\SOFTWARE\Classes\.%%g\OpenWithList\%key% /f

for /f "delims=" %%x in ('dir /b *.exe') do set setup=%%x
"%setup%" /S /D=%CD%
set err=%errorlevel%
if %err% neq 0 exit /b %err%

set key=net.scribus.Scribus-1.4.1
reg add HKLM\SOFTWARE\Classes\Applications\%key%\shell\open /v FriendlyAppName /d "Scribus (1.4.1)" /f
set c=\"%CD%\Scribus.exe\" \"%%1\"
reg add HKLM\SOFTWARE\Classes\Applications\%KEY%\shell\open\command /d "%c%" /f
for %%g in (pdf ps eps svg svgz sxd odg sla sla.gz scd scd.gz) do reg add HKLM\SOFTWARE\Classes\.%%g\OpenWithList\%key% /f