dragonleo/NSIS
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity
NSIS/Contrib/NSIS Update/NSISUpdate.nsi
kichik dfd8dc1227 2005 
git-svn-id: https://svn.code.sf.net/p/nsis/code/NSIS/trunk@3831 212acab6-be3b-0410-9dea-997c60f758d6
2005-01-04 14:54:48 +00:00

551 lines
No EOL
12 KiB
NSIS
Raw Blame History

; NSIS Update
;--------------------------------
; Original version Copyright (C) 2002-2003 Nathan Purciful.
; Version for NSIS distribution Copyright (C) 2003-2005 Joost Verburg.
;
; This software is provided 'as-is', without any express or implied
; warranty. In no event will the authors be held liable for any
; damages arising from the use of this software.
;
; Permission is granted to anyone to use this software for any purpose,
; including commercial applications, and to alter it and redistribute
; it freely, subject to the following restrictions:
;
; 1. The origin of this software must not be misrepresented; you must
; not claim that you wrote the original software. If you use this
; software in a product, an acknowledgment in the product
; documentation would be appreciated but is not required.
; 2. Altered source versions must be plainly marked as such, and must
; not be misrepresented as being the original software.
; 3. This notice may not be removed or altered from any source
; distribution.
;
; This program uses CVSNT software, http://www.cvsnt.org/
;--------------------------------
;Header files
!include "MUI.nsh"
!addplugindir "${NSISDIR}\Contrib\NSIS Update"
;--------------------------------
;Configuration
Name "NSIS Update"
Caption "NSIS Update"
OutFile "..\..\Bin\NSISUpdate.exe"
BrandingText " "
InstallButtonText "Update"
ShowInstDetails show
InstallColors /windows
;--------------------------------
;Variables
Var TEMP1
Var TEMP2
Var TEMP3
Var MISSINGFILES
Var NSISBINPATH
Var OUTDIRFULL
;--------------------------------
;Interface Settings
!define MUI_ICON "${NSISDIR}\Contrib\Graphics\Icons\arrow2-install.ico"
;--------------------------------
;Pages
Page custom UpdateMethod UpdateLeave
!define MUI_PAGE_HEADER_TEXT ""
!define MUI_PAGE_HEADER_SUBTEXT ""
!define MUI_INSTFILESPAGE_FINISHHEADER_TEXT "Task Completed"
!define MUI_INSTFILESPAGE_FINISHHEADER_SUBTEXT "See the log window below for details."
!define MUI_INSTFILESPAGE_ABORTHEADER_TEXT "Error"
!define MUI_INSTFILESPAGE_ABORTHEADER_SUBTEXT "NSIS Update was not completed succesfully."
!insertmacro MUI_PAGE_INSTFILES
;--------------------------------
;Languages
!insertmacro MUI_LANGUAGE "English"
;--------------------------------
;Custom Interface
ChangeUI IDD_INSTFILES "UI.exe"
;--------------------------------
;Macros
!macro checkFile PATH FILE
IfFileExists "${PATH}\${FILE}" +2
StrCpy $MISSINGFILES "${FILE} $MISSINGFILES"
!macroend
!macro checkFileDownload PATH FILE
IfFileExists "${PATH}\${FILE}" "Done_${FILE}"
NSISdl::download "http://nsis.sourceforge.net/nsisupdate/${FILE}.dat" "${PATH}\${FILE}.dat"
Pop $TEMP1
StrCmp $TEMP1 "success" "Extract_${FILE}"
MessageBox MB_OK|MB_ICONSTOP "Download failed: $TEMP1."
Quit
"Extract_${FILE}:"
ExtractDLL::extract "${PATH}\${FILE}" "${PATH}\${FILE}.dat"
Delete "${PATH}\${FILE}.dat"
Pop $TEMP1
StrCmp $TEMP1 "success" +3
MessageBox MB_OK|MB_ICONSTOP "Extraction failed: $TEMP1."
Quit
"Done_${FILE}:"
!macroend
;--------------------------------
; Functions
Function .onInit
System::Call 'kernel32::GetModuleFileNameA(i 0, t .R0, i 1024) i r1'
StrCpy $R0 $R0 "" -14
StrCmp $R0 "NSISUpdate.bin" temp
;Create a temporary file, so NSIS Update can update itself
CopyFiles /SILENT "$EXEDIR\NSISUpdate.exe" "$TEMP\NSISUpdate.bin"
Exec '"$TEMP\NSISUpdate.bin" $EXEDIR'
Quit
temp:
;Close the NSIS Menu (files in use cannot be updated)
Call CloseMenu
;Remove temporary file on next reboot
Delete /REBOOTOK "$TEMP\NSISUpdate.bin"
;Get NSIS directory
Call GetParameters
Pop $NSISBINPATH
;InstallOptions INI File for the "Update Method" dialog
!insertmacro MUI_INSTALLOPTIONS_EXTRACT "Method.ini"
;Check for pserver CVS access
IfFileExists "$NSISBINPATH\..\Cvs\Root" 0 done
FileOpen $TEMP1 "$NSISBINPATH\..\CVS\Root" r
FileRead $TEMP1 $TEMP2 9
FileClose $TEMP1
StrCmp $TEMP2 ":pserver:" done
!insertmacro MUI_INSTALLOPTIONS_WRITE "Method.ini" "Field 2" "Flags" "DISABLED"
!insertmacro MUI_INSTALLOPTIONS_WRITE "Method.ini" "Field 3" "Flags" "DISABLED"
!insertmacro MUI_INSTALLOPTIONS_WRITE "Method.ini" "Field 5" "Flags" "DISABLED"
!insertmacro MUI_INSTALLOPTIONS_WRITE "Method.ini" "Field 6" "Flags" "DISABLED"
done:
FunctionEnd
Function UpdateMethod
!insertmacro MUI_HEADER_TEXT "Update Method" "Please select how you would like to update your NSIS files."
!insertmacro MUI_INSTALLOPTIONS_DISPLAY "Method.ini"
FunctionEnd
Function UpdateLeave
!insertmacro MUI_INSTALLOPTIONS_READ $TEMP1 "Method.ini" "Field 1" "State"
StrCmp $TEMP1 "1" nocvs
StrCpy $MISSINGFILES ""
Call CheckCVSData
Call CheckCVSFiles
Call CheckCVSDownload
nocvs:
FunctionEnd
Function CheckCVSFiles
!insertmacro checkFile "$NSISBINPATH" "cvs95.exe"
!insertmacro checkFile "$SYSDIR" "msvcr70.dll"
!insertmacro checkFile "$SYSDIR" "msvcp70.dll"
!insertmacro checkFile "$NSISBINPATH" "pserver_protocol.dll"
StrCmp $MISSINGFILES "" done
MessageBox MB_YESNO|MB_ICONQUESTION "NSIS update has to download a few small CVS client files in order to be able to update your NSIS files.$\r$\nThese files only have to be download once. Do you want to download them now?$\r$\n$\r$\nRequired Files: $MISSINGFILES" IDYES Done
Abort
done:
FunctionEnd
Function CheckCVSDownload
StrCmp $MISSINGFILES "" done
!insertmacro MUI_HEADER_TEXT "Downloading..." "Please wait while NSIS Update downloads CVS client files."
!insertmacro checkFileDownload "$NSISBINPATH" "cvs95.exe"
!insertmacro checkFileDownload "$SYSDIR" "msvcr70.dll"
!insertmacro checkFileDownload "$SYSDIR" "msvcp70.dll"
!insertmacro checkFileDownload "$NSISBINPATH" "pserver_protocol.dll"
done:
FunctionEnd
Function CheckCVSData
IfFileExists "$NSISBINPATH\..\CVS\Root" datainstalled
IfFileExists "$NSISBINPATH\InstallCVSData.exe" +3
MessageBox MB_OK|MB_ICONSTOP "CVS Data Setup not found."
Abort
SetDetailsPrint listonly
DetailPrint "Installing CVS data..."
SetDetailsPrint none
Exec "$NSISBINPATH\InstallCVSData.exe"
datainstalled:
FunctionEnd
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 CloseMenu
FindWindow $TEMP1 "NSIS Menu"
IntCmp $TEMP1 0 +2
SendMessage $TEMP1 ${WM_CLOSE} 0 0
FunctionEnd
Function ConnectInternet
Push $R0
ClearErrors
Dialer::AttemptConnect
IfErrors noie3
Pop $R0
StrCmp $R0 "online" connected
MessageBox MB_OK|MB_ICONSTOP "Cannot connect to the internet."
Quit
noie3:
; IE3 not installed
MessageBox MB_OK|MB_ICONINFORMATION "Please connect to the internet now."
connected:
Pop $R0
FunctionEnd
Function TrimNewlines
Exch $R0
Push $R1
Push $R2
StrCpy $R1 0
loop:
IntOp $R1 $R1 - 1
StrCpy $R2 $R0 1 $R1
StrCmp $R2 "$\r" loop
StrCmp $R2 "$\n" loop
IntOp $R1 $R1 + 1
IntCmp $R1 0 no_trim_needed
StrCpy $R0 $R0 $R1
no_trim_needed:
Pop $R2
Pop $R1
Exch $R0
FunctionEnd
Function FindFiles
Exch $R5 ; callback function
Exch
Exch $R4 ; file name
Exch 2
Exch $R0 ; directory
Push $R1
Push $R2
Push $R3
Push $R6
Push $R0 ; first dir to search
StrCpy $R3 1
nextDir:
Pop $R0
IntOp $R3 $R3 - 1
ClearErrors
FindFirst $R1 $R2 "$R0\*.*"
nextFile:
StrCmp $R2 "." gotoNextFile
StrCmp $R2 ".." gotoNextFile
StrCmp $R2 $R4 0 isDir
Push "$R0\$R2"
Call $R5
Pop $R6
StrCmp $R6 "stop" 0 isDir
loop:
StrCmp $R3 0 done
Pop $R0
IntOp $R3 $R3 - 1
Goto loop
isDir:
IfFileExists "$R0\$R2\*.*" 0 gotoNextFile
IntOp $R3 $R3 + 1
Push "$R0\$R2"
gotoNextFile:
FindNext $R1 $R2
IfErrors 0 nextFile
done:
FindClose $R1
StrCmp $R3 0 0 nextDir
Pop $R6
Pop $R3
Pop $R2
Pop $R1
Pop $R0
Pop $R5
Pop $R4
FunctionEnd
!macro CallFindFiles DIR FILE CBFUNC
Push ${DIR}
Push ${FILE}
GetFunctionAddress $TEMP1 ${CBFUNC}
Push $TEMP1
Call FindFiles
!macroend
Function PatchCVSRoot
Pop $TEMP1
FileOpen $TEMP2 $TEMP1 "r"
FileRead $TEMP2 $TEMP3
FileClose $TEMP2
Push $TEMP3
Call TrimNewLines
Pop $TEMP3
StrCmp $TEMP3 ":pserver:anonymous:@cvs1:/cvsroot/nsis" go
StrCmp $TEMP3 ":pserver:anonymous@cvs1:/cvsroot/nsis" go
Push "stop"
Return
go:
FileOpen $TEMP2 $TEMP1 "w"
FileWrite $TEMP2 ":pserver:anonymous:@cvs.sourceforge.net:/cvsroot/nsis$\r$\n"
FileClose $TEMP2
Push "go"
FunctionEnd
;--------------------------------
; Update (Installer Section)
Section ""
SetDetailsPrint none
Call ConnectInternet
!insertmacro MUI_INSTALLOPTIONS_READ $TEMP1 "Method.ini" "Field 1" "State"
StrCmp $TEMP1 "1" 0 CVS
;Check for a new release
SetDetailsPrint listonly
!insertmacro MUI_HEADER_TEXT "Checking for a release..." "Please wait while NSIS Update checks whether a new NSIS release is available."
nsExec::ExecToStack '"$NSISBINPATH\..\makensis.exe" "/version"'
Pop $TEMP1
StrCmp $TEMP1 "error" "" +3
MessageBox MB_OK|MB_ICONSTOP "Can't get NSIS version."
Quit
Pop $TEMP1
DetailPrint "Your NSIS version: $TEMP1"
DetailPrint ""
StrCpy $TEMP2 $TEMP1 "" -5
StrCmp $TEMP2 "(CVS)" "" NoCVSVersion
StrLen $TEMP2 $TEMP1
IntOp $TEMP2 $TEMP2 - 6
StrCpy $TEMP1 $TEMP1 $TEMP2
StrCpy $TEMP2 1
DetailPrint "NOTE: You are using a development version of NSIS."
DetailPrint "You can also use NSIS Update to get the latest development files."
DetailPrint ""
Goto CheckUpdate
NoCVSVersion:
StrCpy $TEMP2 0
CheckUpdate:
DetailPrint "Checking for a new release..."
DetailPrint ""
NSISdl::download_quiet "http://nsis.sourceforge.net/update.php?version=$TEMP1&cvs=$TEMP2" "$PLUGINSDIR\Update"
Pop $TEMP1
StrCmp $TEMP1 "success" ReadVersion
MessageBox MB_OK|MB_ICONSTOP "Download failed: $TEMP1."
Quit
ReadVersion:
FileOpen $TEMP1 "$PLUGINSDIR\Update" r
FileRead $TEMP1 $TEMP2
FileClose $TEMP1
StrCmp $TEMP2 "" "" +3
MessageBox MB_OK|MB_ICONSTOP "Invalid version data."
Quit
StrCpy $TEMP1 $TEMP2 1
StrCpy $TEMP2 $TEMP2 "" 2
StrCmp $TEMP1 "1" "" +3
DetailPrint "A new stable release is available: $TEMP2"
Goto UpdateMsg
StrCmp $TEMP1 "2" "" +3
DetailPrint "A new pre-release is available: $TEMP2"
Goto UpdateMsg
DetailPrint "No new release is available. Please check again later."
Goto done
UpdateMsg:
MessageBox MB_YESNO|MB_ICONQUESTION "A new release is available. Would you like to go to the download page?" IDNO done
SetDetailsPrint none
ExecShell "open" "http://nsis.sourceforge.net/download/"
Goto done
CVS:
;CVS Update
SetOutPath $NSISBINPATH\..
;patch CVS Root files that come from the development snapshot
GetFullPathName $OUTDIRFULL $OUTDIR
!insertmacro CallFindFiles $OUTDIRFULL Root PatchCVSRoot
SetDetailsPrint listonly
!insertmacro MUI_HEADER_TEXT "Updating..." "Please wait while NSIS Update is downloading development files. This may take several minutes to complete."
DetailPrint "Initializing CVS Update..."
!insertmacro MUI_INSTALLOPTIONS_READ $TEMP1 "Method.ini" "Field 2" "State"
StrCmp $TEMP1 "1" 0 CleanCVSUpdate
;Normal update
nsExec::ExecToLog '"$NSISBINPATH\cvs95.exe" -q -z3 update -d -P'
Pop $TEMP1
Goto CheckCVSReturn
CleanCVSUpdate:
;Clean copy
nsExec::ExecToLog '"$NSISBINPATH\cvs95.exe" -q -z3 update -C -d -P'
Pop $TEMP1
CheckCVSReturn:
StrCmp $TEMP1 "error" "" +3
MessageBox MB_OK|MB_ICONSTOP "Can't execute CVS client."
Quit
DetailPrint "CVS Update Completed"
done:
SetDetailsPrint none
SectionEnd
Reference in a new issue View git blame Copy permalink