Some core files converted to UTF-8; installers now compile and run under UNIX and WINE; ExUI can now be used in a detached NSIS root
; ExperienceUI Patch Installer
; Rewritten as of ExperienceUI 1.11
; Copyright © 2006 Dan Fuhry
; Licensed under the zlib/libpng license
; Written during Bush's State of the Union address on Jan 31, 2006 (also my birthday)
; Dependencies:
; * DcryptDll
; * ZipDLL
; * SigVerify.exe (closed-source application that does the actual signature verification)
; * ExperienceUI
; * System.dll
Name "ExperienceUI Patch/Skin Installer"
Caption "ExperienceUI Patch/Skin Installer"
OutFile ..\PatchInstaller.exe
SetCompressor /FINAL /SOLID lzma
Var TYPE
Var CURRENT
Var TOTAL
Var NAME
Var SILENT
Var SIGSTAT
Var APPEND
Var SRCFILE
Var BHWND
!define XPUI_ICON patcher.ico
!define XPUI_UNICON patcher.ico
!define XPUI_WELCOMEPAGE_TEXT_TOP "Welcome to the $(^Name)"
!define XPUI_WELCOMEPAGE_TEXT "This wizard will guide you through the installation of the patch you opened.\r\n\r\nClick Next to start."
!define XPUI_WELCOMEPAGE_TITLE "Welcome"
!define XPUI_WELCOMEPAGE_SUBTITLE "Welcome to the $(^Name)."
!define XPUI_INSTFILESPAGE_TITLE "Installing"
!define XPUI_INSTFILESPAGE_SUBTITLE "Please wait while the $TYPE you opened is being installed."
!define XPUI_INSTFILESPAGE_DONE_SUBTITLE "The $TYPE you opened was installed successfully."
!define XPUI_INSTCONFIRMPAGE_TEXT_TOP "The $(^Name) is ready to install the $TYPE."
!define XPUI_FINISHPAGE_TITLE "Installation Complete"
!define XPUI_FINISHPAGE_SUBTITLE "The $(^Name) has successfully applied the $TYPE to your ExperienceUI installation."
!define XPUI_FINISHPAGE_TEXT_TOP "Completing the ExperienceUI Patch/Skin installation wizard"
!define XPUI_FINISHPAGE_TEXT "The $(^Name) has finished installing the $TYPE you opened.\r\n\r\nPlease click $(^CloseBtn) to exit the $(^Name)."
InstallDirRegKey HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\ExperienceUI for NSIS" UninstallString
SetPluginUnload alwaysoff
!include system.nsh
!define SOUND_DEFAULT "${MB_OK}"
!define SOUND_STOP "${MB_ICONHAND}"
!define SOUND_ASTERISK "${MB_ICONASTERISK}"
!define SOUND_ERROR "${MB_ICONEXCLAMATION}"
!define SOUND_QUESTION "${MB_ICONQUESTION}"
!macro AboutDlg
System::Call '${sysMessageBeep} (${SOUND_ASTERISK})'
!insertmacro smMessageBox '`$EXEDIR\XPUIRes.dll`' 'ExperienceUI for NSIS$\nPatch/Skin Installer (version ${VERSION})$\nCopyright © 2005 Dan Fuhry.$\n$\nTo install a skin or patch, double-click the file in Windows Explorer.$\nTo see this About dialog, run this program with the /ABOUT switch.$\n$\nThis program is a component of the ExperienceUI for NSIS. Copyright © 2004-2005 Dan Fuhry.$\nThe ExperienceUI was written to provide a pretty alternative to the huge, slow InstallShield®* installers. The default skin contains colors used by the NVidia® ForceWare™ Setup Program.$\n$\nMore information about the ExperienceUI can be found at http://forums.winamp.com/showthread.php?threadid=204836.$\n$\n*InstallShield is a registered trademark of MacroVision, Inc. ForceWare is a registered trademark of NVidia, Inc.' 'About the ExperienceUI for NSIS Patch/Skin Installer' '${MB_OK}' 'i 5'
!macroend
!macro VERIFY FILE HASH
Push $1
Push $OUTDIR
Push $0
WriteINIStr $TEMP\Sigdata.ini SigVerify Append $APPEND
ExecWait '"$PLUGINSDIR\SigVerify.exe" ${FILE} /Hash=${HASH}' $0
StrCmp $0 0 +3
StrCpy $1 "Bad"
Goto +2
StrCpy $1 "Good"
Pop $0
Pop $OUTDIR
Exch $1
!macroend
!macro CLS
Push $9
FindWindow $9 "#32770" "" $HWNDPARENT
GetDlgItem $9 $9 1016
SendMessage $9 0x1009 0 0
Pop $9
!macroend
!macro ERROR TITLE MSG
!insertmacro XPUI_HEADER_TEXT "Installation Failed" "The $TYPE installation failed."
System::Call '${sysMessageBeep} (${SOUND_STOP})'
!insertmacro smMessageBox `$\`$EXEDIR\XPUIRes.dll$\`` `${MSG}` `${TITLE}` `${MB_OK}` `i 1`
!macroend
!include XPUI.nsh
!insertmacro XPUI_PAGE_WELCOME
!insertmacro XPUI_PAGE_INSTCONFIRM
!insertmacro XPUI_PAGE_INSTFILES
!insertmacro XPUI_PAGE_FINISH
!insertmacro XPUI_LANGUAGE English
VIProductVersion "1.1.0.0"
VIAddVersionKey /LANG=1033 "FileVersion" "${VERSION}"
VIAddVersionKey /LANG=1033 "ProductVersion" "${VERSION}"
VIAddVersionKey /LANG=1033 "ProductName" "ExperienceUI for NSIS"
VIAddVersionKey /LANG=1033 "Comments" "This program was written by Dan Fuhry using Nullsoft Scriptable Install System (http://nsis.sourceforge.net)"
VIAddVersionKey /LANG=1033 "CompanyName" "Dan Fuhry a. k. a. dandaman32"
VIAddVersionKey /LANG=1033 "LegalTrademarks" "ExperienceUI for NSIS by Dan Fuhry. Copyright © 2004-2006 Dan Fuhry"
VIAddVersionKey /LANG=1033 "LegalCopyright" "Copyright © Dan Fuhry"
VIAddVersionKey /LANG=1033 "FileDescription" "ExperienceUI for NSIS Patch/Skin Installer"
VIAddVersionKey /LANG=1033 "SpecialBuild" "ExperienceUI for NSIS Patching/Skinning Engine, version ${VERSION}, built on ${__TIMESTAMP__}"
!macro DO_INSTALL
BringToFront
StrCpy $CURRENT 0
StrCmp $SILENT 1 "" loop
Banner::show /NOUNLOAD ""
Banner::getWindow
Pop $BHWND
GetDlgItem $BHWND $BHWND 1030
Loop:
IntOp $CURRENT $CURRENT + 1
ReadINIStr $2 $TEMP\EUI-Setup\Content.dat "EUI-$TYPE" "File$CURRENT"
StrCmp $SILENT 1 0 +2
SendMessage $BHWND 0xC 0 "STR:Installing $TYPE: $NAME$\nCurrent file: $2"
ReadINIStr $SRCFILE $TEMP\EUI-Setup\Content.dat "EUI-$TYPE" "File$CURRENT SName"
StrCmp $SRCFILE "" "" +2
StrCpy $SRCFILE $2
IfFileExists $TEMP\EUI-Setup\$SRCFILE FoundIt
!insertmacro ERROR "Cannot find file" "The $TYPE was opened, extracted, and parsed successfully, but the file $2 could not be found in the archive. Please contact the author of this $TYPE with the following error code:$\n$\nError: F-PI009 Cannot find source file $2"
Call .onGUIend
RMDir /r $TEMP\EUI-Setup
SetErrorLevel 1
Quit
FoundIt:
ReadINIStr $4 $TEMP\EUI-Setup\Content.dat EUI-$TYPE "File$CURRENT Sig"
StrCmp $4 "" NoSig
SetDetailsPrint none
!insertmacro VERIFY $TEMP\EUI-Setup\$SRCFILE $4
Pop $0
StrCmp $0 Good NoSig
StrCmp $SIGSTAT "Signed and verified" Forged
!insertmacro ERROR "Invalid Signature" "The ExperienceUI Patch Installer has found a digital signature assigned to one of the patch files, but the signature was checked and found to be invalid. This is a fatal error. Please contact the author of this $TYPE with the following error code:$\n$\nError: F-PI010 Invalid signature hash for file $2$\nAdditional information:$\n hash value: $4$\n Return value: $0"
Call .onGUIend
RMDir /r $TEMP\EUI-Setup
SetErrorLevel 1
Quit
Forged:
!insertmacro ERROR "Unsigned file" "The patch installer has found that though the patch itself is signed, one of the files within it is not. This is a fatal error. Please contact the author of this patch with the following information:$\n$\nError: F-PI013 Unsigned file in signed patch$\nAdditional information:$\n File name: $2"
Call .onGUIend
RMDir /r $TEMP\EUI-Setup
SetErrorLevel 1
Quit
NoSig:
StrCmp $4 "" 0 +2
StrCmp $SIGSTAT "Signed and verified" Forged ; a backup check
ReadINIStr $4 $TEMP\EUI-Setup\Content.dat EUI-$TYPE "File$CURRENT Desc"
StrCmp $4 "" NoDesc
SetDetailsPrint listonly
DetailPrint "Install: $4 - $2 to $INSTDIR\$3"
SetDetailsPrint textonly
DetailPrint "Installing file: $2 ($4) to $INSTDIR\$3"
SetDetailsPrint none
Goto cont
NoDesc:
ReadINIStr $SRCFILE $TEMP\EUI-Setup\Content.dat "EUI-$TYPE" "File$CURRENT SName"
StrCmp $SRCFILE "" 0 +2
StrCpy $SRCFILE $2
SetDetailsPrint listonly
DetailPrint "Install: $2 to $3"
SetDetailsPrint textonly
DetailPrint "Installing file: $2 to $INSTDIR\$3"
SetDetailsPrint none
cont:
ReadINIStr $3 $TEMP\EUI-Setup\Content.dat "EUI-$TYPE" "File$CURRENT Path"
CreateDirectory $INSTDIR\$3
CopyFiles $TEMP\EUI-Setup\$SRCFILE $INSTDIR\$3\$2
IntCmp $CURRENT $TOTAL 0 Loop
; We are done
StrCmp $SILENT 1 "" ns1
Banner::destroy
ns1:
RMDir /r $TEMP\EUI-Setup
SetAutoClose false
SetDetailsPrint both
!macroend
Function .onInit
; Get rid of compiler warnings
;Goto +4
; Call GetInstallerEXEName
; Call systemGetFileSysTime
; Call systemSplash
Call GetParameters
Pop $0
StrCmp $0 "" 0 NotBlank
!insertmacro ERROR "Invalid Command Line" "You need to specify the patch/skin file on the command line.$\n$\nError: F-PI001 No parameters on command line"
RMDir /r $TEMP\EUI-Setup
Quit
NotBlank:
StrCpy $SILENT 0
Push $0
Push "/Silent"
Call StrStr
Pop $1
StrCmp $1 "/Silent" "" NoSilent
StrCpy $SILENT 1
StrLen $2 $1
StrLen $3 $0
IntOp $2 $3 - $2
IntOp $2 $2 - 1
StrCpy $0 $0 $2
NoSilent:
IfFileExists $0 FoundTarget
!insertmacro ERROR "Missing File" "The file specified on the command line cannot be found.$\n$\nError: F-PI002 Missing file"
RMDir /r $TEMP\EUI-Setup
Quit
FoundTarget:
IfFileExists $INSTDIR\XPUI.nsh FoundXPUI
!insertmacro ERROR "Corrupt XPUI Installation" "The ExperienceUI cannot be found on this computer. It can be downloaded from http://xpui.sourceforge.net/.$\n$\nError: F-PI003 Cannot find XPUI installation"
RMDir /r $TEMP\EUI-Setup
Quit
FoundXPUI:
StrLen $1 $0
IntOp $1 $1 - 3
StrCpy $1 $0 3 $1
StrCmp $1 "eup" validext-p
StrCmp $1 "eus" validext-s
!insertmacro ERROR "Invalid file extension" "The file '$0' was found and the command line was correct, but the extension is not EUP (ExperienceUI Patch) or EUS (ExperienceUI Skin). Setup will treat this file as a patch.$\n$\nThis is a non-fatal error.$\n$\nError: N-PI004 Invalid file extension $1"
validext-s:
StrCpy $TYPE "skin"
Goto valid
validext-p:
StrCpy $TYPE "patch"
Goto valid
valid:
RMDir /r $TEMP\EUI-Setup
CreateDirectory "$TEMP\EUI-Setup"
ClearErrors
ZipDLL::extractall "$0" "$TEMP\EUI-Setup"
Pop $2
StrCmp $2 "success" goodZip
!insertmacro ERROR "Zip extract error" "The file '$0' was found and the command line was correct, but the ZIP file extraction module failed.$\n$\nThe following error string was returned by ZipDLL: $2$\n$\nError: F-PI005 ZIP file extraction error"
RMDir /r $TEMP\EUI-Setup
Quit
goodZip:
IfFileExists $TEMP\EUI-Setup\Content.dat FoundScript
!insertmacro ERROR "Missing script" "The installation script could not be found in the patch/skin file's root directory. This is a fatal error. Please contact the author of this patch with the following error code.$\n$\nError: F-PI006 Cannot find installation script"
RMDir /r $TEMP\EUI-Setup
Quit
FoundScript:
ClearErrors
ReadINIStr $TOTAL $TEMP\EUI-Setup\Content.dat "EUI-$TYPE" NumFiles
IntCmp $TOTAL 1 FilesGood 0 FilesGood
!insertmacro ERROR "Corrupt script" "The installation script in this patch file is corrupt. Please redownload the patch file, or contact the author of this patch with the following error code:$\n$\nError: F-PI008 Cannot find INI key NumFiles under section EUI-$TYPE in $$TEMP\EUI-Setup\CONTENT.dat, or NumFiles !>=1"
RMDir /r $TEMP\EUI-Setup
Quit
FilesGood:
; Check for a digital signature
; Extract the verification utility
SetOutPath $PLUGINSDIR
File SigVerify.exe
IfFileExists $TEMP\EUI-Setup\content.sig "" Unsigned
FileOpen $R1 $TEMP\EUI-Setup\content.sig r
FileRead $R1 $R0 32
FileClose $R1
StrCmp $SILENT 1 nob1
Banner::show /NOUNLOAD "Validating $TYPE digital signature..."
nob1:
StrCpy $SIGSTAT "Signed and verified"
!insertmacro VERIFY $TEMP\EUI-Setup\content.dat $R0
StrCmp $SILENT 1 nob2
Banner::destroy
nob2:
Pop $R1
StrCmp $R1 Good GoodSig
!insertmacro ERROR "Corrupt Signature" "The author who packaged the $TYPE has specified that the file be signed with a digital signature, but after thorough testing, the patch's installation script was found to have an invalid signature. This is a fatal error. Please report the following information to the author of this patch:$\n$\nError: F-PI011 Master signature corrupt$\nAdditional information:$\n BAD signature hash: $R0"
RMDir /r $TEMP\EUI-Setup
Quit
Unsigned:
StrCmp $SILENT 1 "" NoS1
!insertmacro ERROR "Signature required for silent install" "The ExperienceUI patch installer does not allow silent installations of unsigned patch files.$\n$\nError: F-PI012 Signature required for silent install"
RMDir /r $TEMP\EUI-Setup
Quit
NoS1:
StrCpy $SIGSTAT "Unsigned"
System::Call '${sysMessageBeep} (${SOUND_QUESTION})'
!insertmacro smMessageBox `$\`$EXEDIR\XPUIRes.dll$\`` `The file you are opening is a valid $TYPE, but the Patch Installer has detected that it has not been signed with any digital signature. While you may continue installing this $TYPE, it is important to remember that ExperienceUI $TYPE files are really just glorified ZIP files, and it is possible to put malicious code into them. You should only continue if you trust the source of this $TYPE.$\n$\nDo you really want to continue?` `Unsigned $TYPE` `${MB_YESNO}` `i 1`
StrCmp $R0 6 SigDone
RMDir /r $TEMP\EUI-Setup
Quit
GoodSig:
ReadINIStr $R0 $TEMP\EUI-Setup\Content.dat SigInfo PN
ReadINIStr $R1 $TEMP\EUI-Setup\Content.dat SigInfo PE
ReadINIStr $R2 $TEMP\EUI-Setup\Content.dat SigInfo CN
ReadINIStr $R3 $TEMP\EUI-Setup\Content.dat SigInfo CE
StrCmp $R0 "" SigDone
StrCpy $APPEND ";PN=$R0;PE=$R1;CN=$R2;CE=$R3"
StrCpy $SIGSTAT "$SIGSTAT$\n Signed by: $R2$\n Signer's E-mail: $R3"
SigDone:
ReadINIStr $NAME $TEMP\EUI-Setup\Content.dat "EUI-$TYPE" Name
StrCmp $SILENT 1 "" NoS2
!insertmacro DO_INSTALL
SetErrorLevel 0
Quit
NoS2:
FunctionEnd
Section
StrCmp $NAME "" NoName
HideWindow
System::Call '${sysMessageBeep} (${SOUND_QUESTION})'
!insertmacro smMessageBox '`$EXEDIR\XPUIRes.dll`' 'You are about to install a $TYPE from the following location:$\n$\n Name: $NAME$\n File location: $0$\n Signature status: $SIGSTAT$\n$\nContinue?' 'ExperienceUI Setup' '${MB_YESNO}' 'i 2'
StrCmp $R0 7 0 NoName
Call .onGUIEnd
RMDir /r $TEMP\EUI-Setup
Quit
NoName:
!insertmacro DO_INSTALL
SectionEnd
Function GetParameters
Push $R0
Push $R1
Push $R2
Push $R3
StrCpy $R2 1
StrLen $R3 $CMDLINE
;Check for quote or space
StrCpy $R0 $CMDLINE $R2
StrCmp $R0 '"' 0 +3
StrCpy $R1 '"'
Goto loop
StrCpy $R1 " "
loop:
IntOp $R2 $R2 + 1
StrCpy $R0 $CMDLINE 1 $R2
StrCmp $R0 $R1 get
StrCmp $R2 $R3 get
Goto loop
get:
IntOp $R2 $R2 + 1
StrCpy $R0 $CMDLINE 1 $R2
StrCmp $R0 " " get
StrCpy $R0 $CMDLINE "" $R2
Pop $R3
Pop $R2
Pop $R1
Exch $R0
FunctionEnd
Function StrStr
Exch $R1 ; st=haystack,old$R1, $R1=needle
Exch ; st=old$R1,haystack
Exch $R2 ; st=old$R1,old$R2, $R2=haystack
Push $R3
Push $R4
Push $R5
StrLen $R3 $R1
StrCpy $R4 0
; $R1=needle
; $R2=haystack
; $R3=len(needle)
; $R4=cnt
; $R5=tmp
loop:
StrCpy $R5 $R2 $R3 $R4
StrCmp $R5 $R1 done
StrCmp $R5 "" done
IntOp $R4 $R4 + 1
Goto loop
done:
StrCpy $R1 $R2 "" $R4
Pop $R5
Pop $R4
Pop $R3
Pop $R2
Exch $R1
FunctionEnd