Mercurial Mercurial > repos > experienceui / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Contrib/ExperienceUI/Utils/Source/UpdateWiz.nsi
changeset 0 d5ce4c64ef88 
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Contrib/ExperienceUI/Utils/Source/UpdateWiz.nsi	Tue Oct 16 00:07:41 2007 -0400
@@ -0,0 +1,206 @@
+!ifdef MAKEFILE
+  !verbose 0
+!else
+  !define VERSION 1.1
+!endif
+;!define BETA
+!define BETA_IP 192.168.0.253
+!define BETA_PORT 8765
+SetCompress off
+XPStyle on
+Icon Update.ico
+Name "ExperienceUI Downloader"
+Caption "ExperienceUI Update Wizard"
+OutFile ..\Updater.exe
+ChangeUI all ..\..\UIs\tinyui.exe
+SubCaption 3 " "
+SubCaption 4 " "
+InstallColors 0x000000 0xFFFFFF
+BrandingText " "
+CompletedText "Done."
+!define VER_MAJOR 1
+!define VER_TENS 1
+!define VER_ONES 0
+
+Page custom welcome lock
+Page custom infonotice lock
+Page instfiles
+
+Function welcome
+LockWindow on
+SetOutPath $TEMP
+File Updater.ini
+InstallOptions::initDialog /NOUNLOAD $TEMP\Updater.ini
+Pop $1
+SetCtlColors $1 0xFFFFFF 0xFFFFFF
+GetDlgItem $0 $1 1200
+SetCtlColors $0 0xC0C0C0 0xFFFFFF
+CreateFont $2 "Verdana" 28 100
+SendMessage $0 0x30 $2 ""
+GetDlgItem $0 $1 1201
+SetCtlColors $0 0x000000 transparent
+CreateFont $2 "MS Sans Serif" 8 700
+SendMessage $0 0x30 $2 ""
+!ifdef BETA
+SendMessage $0 0xC 0 "STR:This is a ßeta release."
+!endif
+GetDlgItem $0 $1 1202
+SetCtlColors $0 0x000000 transparent
+CreateFont $2 "MS Sans Serif" 8 350
+SendMessage $0 0x30 $2 ""
+!ifdef BETA
+SendMessage $0 0xC 0 "STR:This updater will fail unless you have a computer with the IP address ${BETA_IP} on your network, and it has the file xpui/updates.ini on port ${BETA_PORT}.  Please e-mail dandaman32@users.sourceforge.net for an updated version of this program!"
+!endif
+LockWindow off
+InstallOptions::show
+FunctionEnd
+
+Function infonotice
+SetOutPath $TEMP
+File Updater.ini
+WriteINIStr $TEMP\Updater.ini "Field 1" Left -173
+InstallOptions::initDialog /NOUNLOAD $TEMP\Updater.ini
+Pop $1
+SetCtlColors $1 0xFFFFFF 0xFFFFFF
+GetDlgItem $0 $1 1200
+SetCtlColors $0 0xC0C0C0 0xFFFFFF
+CreateFont $2 "Verdana" 28 100
+SendMessage $0 0x30 $2 ""
+SendMessage $0 0xC 0 "STR:privacy notice"
+GetDlgItem $0 $1 1201
+SetCtlColors $0 0x000000 transparent
+CreateFont $2 "MS Sans Serif" 8 700
+SendMessage $0 0x30 $2 ""
+SendMessage $0 0xC 0 "STR:Your privacy is important."
+GetDlgItem $0 $1 1202
+SetCtlColors $0 0x000000 transparent
+CreateFont $2 "MS Sans Serif" 8 350
+SendMessage $0 0x30 $2 ""
+SendMessage $0 0xC 0 "STR:This program does not send any information about to or your computer to anyone.  The only thing it does is download a text file from my web server and check its version information."
+LockWindow off
+InstallOptions::show
+FunctionEnd
+
+Function lock
+LockWindow on
+FunctionEnd
+
+Function .onUserAbort
+LockWindow off
+FunctionEnd
+
+!define LVM_DELETEALLITEMS 0x1009
+!macro CLS
+Push $0
+FindWindow $0 "#32770" "" $HWNDPARENT
+GetDlgItem $0 $0 1016
+SendMessage $0 ${LVM_DELETEALLITEMS} 0 0
+Pop $0
+!macroend
+
+Section
+LockWindow off
+GetDlgItem $0 $HWNDPARENT 1044
+ShowWindow $0 0
+GetDlgItem $0 $HWNDPARENT 3
+ShowWindow $0 0
+FindWindow $0 "#32770" "" $HWNDPARENT
+GetDlgItem $0 $0 1004
+ShowWindow $0 0
+FindWindow $0 "#32770" "" $HWNDPARENT
+GetDlgItem $0 $0 1027
+ShowWindow $0 0
+GetDlgItem $0 $HWNDPARENT 1
+ShowWindow $0 0
+DetailPrint "Connecting to the Internet..."
+Dialer::AttemptConnect
+IfErrors noie3
+Pop $R0
+!insertmacro CLS
+DetailPrint "Connecting to the Internet...$R0"
+StrCmp $R0 "online" connected      
+MessageBox MB_OK|MB_ICONSTOP "The ExperienceUI was unable to establish a connection to the Internet.  A few possible reasons for this are:$\n$\n1) You have an Internet provider that requires authentication (such as dial-up) and you did not supply a valid$\n     username or password.$\n2) Your firewall is preventing this program ($CMDLINE) from accessing the Internet.$\n3) You do not have an Internet connection set up on this computer.$\n$\nThe updater cannot continue.  Please click OK to exit."
+Call cleanup
+Abort "Unable to connect."
+noie3:
+!insertmacro CLS
+DetailPrint "Connecting to the Internet...cannot find IE3 or later"
+MessageBox MB_OK|MB_ICONINFORMATION "The ExperienceUI has detected that you do not have Microsoft Internet Explorer 3 or later installed.  The automatic internet connection feature requires MSIE3 or later to work right.$\n$\nPlease connect to the Internet now, and then click OK to continue updating the ExperienceUI."
+connected:
+!ifdef BETA
+  nsisdl::download /TRANSLATE "Downloading the update information file..." "Initializing..." " " " " " "  s " "                        "Time left: %d %s%s"   "http://${BETA_IP}:${BETA_PORT}/xpui/Updates.ini" "$TEMP\xpuiupd.ini"
+    !else
+  nsisdl::download /TRANSLATE "Downloading the update information file..." "Initializing..." " " " " " "  s " "                        "Time left: %d %s%s"   http://xpui.sourceforge.net/bin/Updates.ini "$TEMP\xpuiupd.ini"
+!endif
+Pop $0
+StrCmp $0 success GoodINI
+MessageBox MB_OK|MB_ICONINFORMATION "The ExperienceUI updater was unable to download the update information file from the web site.$\nThe web server may be down, or there may be a problem with your Internet connection.$\n$\nError: $0"
+Call cleanup
+SetDetailsPrint textonly
+DetailPrint "The updater cannot continue. Click Cancel to exit."
+SetDetailsPrint listonly
+Abort "Release info download failed: $0"
+Goto Done
+GoodINI:
+DetailPrint "Checking version..."
+DetailPrint "  Current: ${VERSION}"
+ReadINIStr $0 $TEMP\xpuiupd.ini ExperienceUI Display
+DetailPrint "  Latest: $0"
+ReadINIStr $1 $TEMP\xpuiupd.ini ExperienceUI Major
+ReadINIStr $2 $TEMP\xpuiupd.ini ExperienceUI Tens
+ReadINIStr $3 $TEMP\xpuiupd.ini ExperienceUI Ones
+ReadINIStr $4 $TEMP\xpuiupd.ini ExperienceUI Size
+IntCmp $1 ${VER_MAJOR} "" "" Updates
+IntCmp $2 ${VER_TENS} "" "" Updates
+IntCmp $3 ${VER_ONES} "" "" Updates
+Goto NoUpdates
+Updates:
+ReadINIStr $5 $TEMP\xpuiupd.ini ExperienceUI Class
+ReadINIStr $6 $TEMP\xpuiupd.ini ExperienceUI HighlightsLine1
+ReadINIStr $7 $TEMP\xpuiupd.ini ExperienceUI HighlightsLine2 
+ReadINIStr $8 $TEMP\xpuiupd.ini ExperienceUI TimeID
+DetailPrint "Update ready!"
+MessageBox MB_YESNO|MB_ICONQUESTION "An update is available!$\n$\nYour version: ${VERSION}$\nNew version: $0 (Release ID: $8) $\n$\nThis update is classified as $5.$\n$\nRelease highlights:$\n$6$\n$7$\n$\nDownload it now? (size: ~$4kb)" IDYES Download
+DetailPrint "Update found, but not downloaded."
+Goto done
+Download:
+!ifdef BETA
+nsisdl::download /TRANSLATE "Downloading ExperienceUI version $0..."  "Connecting to server..." second minute hour s "%dKB (%d%%) of %dKB at %d.%01dKB/second" "; Time left: %d %s%s" http://${BETA_IP}:${BETA_PORT}/xpui/$0/ExperienceUISetup$0.exe "$DESKTOP\ExperienceUI Setup $0.exe"
+!else
+nsisdl::download /TRANSLATE "Downloading ExperienceUI version $0..."  "Connecting to server..." second minute hour s "%dKB (%d%%) of %dKB at %d.%01dKB/second" "; Time left: %d %s%s" http://internap.dl.sourceforge.net/sourceforge/xpui/ExperienceUISetup$0.exe "$DESKTOP\ExperienceUI Setup $0.exe"
+!endif
+Pop $0
+StrCmp $0 cancel DLCancelled
+StrCmp $0 success "" DLError
+MessageBox MB_OK|MB_ICONINFORMATION "The file was downloaded successfully to your Desktop."
+DetailPrint "Update found and downloaded successfully."
+Goto done
+DLCancelled:
+DetailPrint "Download cancelled."
+MessageBox MB_OK|MB_ICONINFORMATION "The download was cancelled."
+Goto done
+DLError:
+SetDetailsPrint textonly
+DetailPrint "The updater cannot continue. Click Cancel to exit."
+SetDetailsPrint listonly
+Call Cleanup
+Abort "Download error: $0"
+MessageBox MB_OK|MB_ICONINFORMATION "The updater was unable to download the file from the web site.$\n$\nThe following error occurred:$\n$0"
+Goto done
+NoUpdates:
+DetailPrint "No updates available."
+MessageBox MB_OK|MB_ICONINFORMATION "No updates are available at this time.  Please try again later.$\n$\nCurrent version: ${VERSION}$\nLatest version: $0$\n"
+Done:
+Call Cleanup
+SectionEnd
+
+Function cleanup
+SetDetailsPrint none
+Delete $TEMP\xpuiupd.ini
+SetDetailsPrint both
+FindWindow $R0 "#32770" "" $HWNDPARENT
+GetDlgItem $R0 $R0 1016
+ShowWindow $R0 5
+GetDlgItem $R0 $HWNDPARENT 1
+ShowWindow $R0 5
+Functionend
\ No newline at end of file
ExperienceUI for NSIS