gaim/gaim

When we reconnect an account, we should probably reset it's reconnect delay to the initial.. Haven't tested this yet but it should be fine. Do we want this on HEAD?
oldstatus
2005-05-20, Gary Kramlich
e5465aba0b1a
When we reconnect an account, we should probably reset it's reconnect delay to the initial.. Haven't tested this yet but it should be fine. Do we want this on HEAD?
; Installer script for win32 Gaim
; Herman Bloggs <hermanator12002@yahoo.com>
; NOTE: this .NSI script is intended for NSIS 2.0 (final release).
;
;--------------------------------
;Global Variables
Var name
Var GTK_FOLDER
Var GTK_THEME_SEL
Var LANG_IS_SET
Var ISSILENT
Var STARTUP_RUN_KEY
;--------------------------------
;Configuration
;The name var is set in .onInit
Name $name
!ifdef WITH_GTK
OutFile "gaim-${GAIM_VERSION}.exe"
!else
!ifdef DEBUG
OutFile "gaim-${GAIM_VERSION}-debug.exe"
!else
OutFile "gaim-${GAIM_VERSION}-no-gtk.exe"
!endif
!endif
SetCompressor lzma
ShowInstDetails show
ShowUninstDetails show
SetDateSave on
; $name and $INSTDIR are set in .onInit function..
!include "MUI.nsh"
!include "Sections.nsh"
;--------------------------------
;Defines
!define GAIM_NSIS_INCLUDE_PATH ".\src\win32\nsis"
!define GAIM_INSTALLER_DEPS "..\win32-dev\gaim-inst-deps"
!define GAIM_REG_KEY "SOFTWARE\gaim"
!define GAIM_UNINSTALL_KEY "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Gaim"
!define HKLM_APP_PATHS_KEY "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\gaim.exe"
!define GAIM_STARTUP_RUN_KEY "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
!define GAIM_UNINST_EXE "gaim-uninst.exe"
!define GAIM_REG_LANG "Installer Language"
!define GTK_VERSION "2.6.7"
!define GTK_REG_KEY "SOFTWARE\GTK\2.0"
!define PERL_REG_KEY "SOFTWARE\Perl"
!define PERL_DLL "perl58.dll"
!define GTK_DEFAULT_INSTALL_PATH "$PROGRAMFILES\Common Files\GTK\2.0"
!define GTK_RUNTIME_INSTALLER "..\gtk_installer\gtk-runtime*.exe"
!define GTK_THEME_DIR "..\gtk_installer\gtk_themes"
!define GTK_DEFAULT_THEME_GTKRC_DIR "share\themes\Default\gtk-2.0"
!define GTK_DEFAULT_THEME_ENGINE_DIR "lib\gtk-2.0\2.4.0\engines"
;--------------------------------
;Modern UI Configuration
!define MUI_ICON ".\pixmaps\gaim-install.ico"
!define MUI_UNICON ".\pixmaps\gaim-install.ico"
!define MUI_WELCOMEFINISHPAGE_BITMAP ".\src\win32\nsis\gaim-intro.bmp"
!define MUI_HEADERIMAGE
!define MUI_HEADERIMAGE_BITMAP ".\src\win32\nsis\gaim-header.bmp"
; Alter License section
!define MUI_LICENSEPAGE_BUTTON $(GAIM_LICENSE_BUTTON)
!define MUI_LICENSEPAGE_TEXT_BOTTOM $(GAIM_LICENSE_BOTTOM_TEXT)
!define MUI_COMPONENTSPAGE_SMALLDESC
!define MUI_ABORTWARNING
;Finish Page config
!define MUI_FINISHPAGE_RUN "$INSTDIR\gaim.exe"
!define MUI_FINISHPAGE_RUN_NOTCHECKED
!define MUI_FINISHPAGE_LINK $(GAIM_FINISH_VISIT_WEB_SITE)
!define MUI_FINISHPAGE_LINK_LOCATION "http://gaim.sourceforge.net/win32"
;--------------------------------
;Pages
!define MUI_PAGE_CUSTOMFUNCTION_PRE preWelcomePage
!insertmacro MUI_PAGE_WELCOME
!insertmacro MUI_PAGE_LICENSE "./COPYING"
!insertmacro MUI_PAGE_COMPONENTS
!ifdef WITH_GTK
; GTK+ install dir page
!define MUI_PAGE_CUSTOMFUNCTION_PRE preGtkDirPage
!define MUI_PAGE_CUSTOMFUNCTION_LEAVE postGtkDirPage
!define MUI_DIRECTORYPAGE_VARIABLE $GTK_FOLDER
!insertmacro MUI_PAGE_DIRECTORY
!endif
; Gaim install dir page
!insertmacro MUI_PAGE_DIRECTORY
!insertmacro MUI_PAGE_INSTFILES
!insertmacro MUI_PAGE_FINISH
!insertmacro MUI_UNPAGE_WELCOME
!insertmacro MUI_UNPAGE_CONFIRM
!insertmacro MUI_UNPAGE_INSTFILES
!insertmacro MUI_UNPAGE_FINISH
;--------------------------------
;Languages
;; English goes first because its the default. The rest are
;; in alphabetical order (at least the strings actually displayed
;; will be).
!insertmacro MUI_LANGUAGE "English"
!insertmacro MUI_LANGUAGE "Albanian"
!insertmacro MUI_LANGUAGE "Bulgarian"
!insertmacro MUI_LANGUAGE "Catalan"
!insertmacro MUI_LANGUAGE "Czech"
!insertmacro MUI_LANGUAGE "Danish"
!insertmacro MUI_LANGUAGE "SimpChinese"
!insertmacro MUI_LANGUAGE "TradChinese"
!insertmacro MUI_LANGUAGE "German"
!insertmacro MUI_LANGUAGE "Spanish"
!insertmacro MUI_LANGUAGE "French"
!insertmacro MUI_LANGUAGE "Hebrew"
!insertmacro MUI_LANGUAGE "Italian"
!insertmacro MUI_LANGUAGE "Japanese"
!insertmacro MUI_LANGUAGE "Korean"
!insertmacro MUI_LANGUAGE "Hungarian"
!insertmacro MUI_LANGUAGE "Dutch"
!insertmacro MUI_LANGUAGE "Norwegian"
!insertmacro MUI_LANGUAGE "Polish"
!insertmacro MUI_LANGUAGE "PortugueseBR"
!insertmacro MUI_LANGUAGE "Portuguese"
!insertmacro MUI_LANGUAGE "Romanian"
!insertmacro MUI_LANGUAGE "Russian"
!insertmacro MUI_LANGUAGE "Serbian"
!insertmacro MUI_LANGUAGE "Slovak"
!insertmacro MUI_LANGUAGE "Slovenian"
!insertmacro MUI_LANGUAGE "Finnish"
!insertmacro MUI_LANGUAGE "Swedish"
;--------------------------------
;Translations
!define GAIM_DEFAULT_LANGFILE "${GAIM_NSIS_INCLUDE_PATH}\translations\english.nsh"
!include "${GAIM_NSIS_INCLUDE_PATH}\langmacros.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "ALBANIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\albanian.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "BULGARIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\bulgarian.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "CATALAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\catalan.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "CZECH" "${GAIM_NSIS_INCLUDE_PATH}\translations\czech.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "DANISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\danish.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "DUTCH" "${GAIM_NSIS_INCLUDE_PATH}\translations\dutch.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "ENGLISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\english.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "FINNISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\finnish.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "FRENCH" "${GAIM_NSIS_INCLUDE_PATH}\translations\french.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "GERMAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\german.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "HEBREW" "${GAIM_NSIS_INCLUDE_PATH}\translations\hebrew.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "HUNGARIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\hungarian.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "ITALIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\italian.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "JAPANESE" "${GAIM_NSIS_INCLUDE_PATH}\translations\japanese.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "KOREAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\korean.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "NORWEGIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\norwegian.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "POLISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\polish.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "PORTUGUESE" "${GAIM_NSIS_INCLUDE_PATH}\translations\portuguese.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "PORTUGUESEBR" "${GAIM_NSIS_INCLUDE_PATH}\translations\portuguese-br.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "ROMANIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\romanian.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "RUSSIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\russian.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "SERBIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\serbian-latin.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "SIMPCHINESE" "${GAIM_NSIS_INCLUDE_PATH}\translations\simp-chinese.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "SLOVAK" "${GAIM_NSIS_INCLUDE_PATH}\translations\slovak.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "SLOVENIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\slovenian.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "SPANISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\spanish.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "SWEDISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\swedish.nsh"
!insertmacro GAIM_MACRO_INCLUDE_LANGFILE "TRADCHINESE" "${GAIM_NSIS_INCLUDE_PATH}\translations\trad-chinese.nsh"
;--------------------------------
;Reserve Files
; Only need this if using bzip2 compression
!insertmacro MUI_RESERVEFILE_INSTALLOPTIONS
!insertmacro MUI_RESERVEFILE_LANGDLL
ReserveFile "${NSISDIR}\Plugins\UserInfo.dll"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Start Install Sections ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;--------------------------------
;Uninstall any old version of Gaim
Section -SecUninstallOldGaim
; Check install rights..
Call CheckUserInstallRights
Pop $R0
;If gaim is currently set to run on startup,
; save the section of the Registry where the setting is before uninstalling,
; so we can put it back after installing the new version
ClearErrors
ReadRegStr $STARTUP_RUN_KEY HKCU "${GAIM_STARTUP_RUN_KEY}" "Gaim"
IfErrors +3
StrCpy $STARTUP_RUN_KEY "HKCU"
Goto +4
ReadRegStr $STARTUP_RUN_KEY HKLM "${GAIM_STARTUP_RUN_KEY}" "Gaim"
IfErrors +2
StrCpy $STARTUP_RUN_KEY "HKLM"
StrCmp $R0 "HKLM" gaim_hklm
StrCmp $R0 "HKCU" gaim_hkcu done
gaim_hkcu:
ReadRegStr $R1 HKCU ${GAIM_REG_KEY} ""
ReadRegStr $R2 HKCU ${GAIM_REG_KEY} "Version"
ReadRegStr $R3 HKCU "${GAIM_UNINSTALL_KEY}" "UninstallString"
Goto try_uninstall
gaim_hklm:
ReadRegStr $R1 HKLM ${GAIM_REG_KEY} ""
ReadRegStr $R2 HKLM ${GAIM_REG_KEY} "Version"
ReadRegStr $R3 HKLM "${GAIM_UNINSTALL_KEY}" "UninstallString"
; If previous version exists .. remove
try_uninstall:
StrCmp $R1 "" done
; Version key started with 0.60a3. Prior versions can't be
; automaticlly uninstalled.
StrCmp $R2 "" uninstall_problem
; Check if we have uninstall string..
IfFileExists $R3 0 uninstall_problem
; Have uninstall string.. go ahead and uninstall.
SetOverwrite on
; Need to copy uninstaller outside of the install dir
ClearErrors
CopyFiles /SILENT $R3 "$TEMP\${GAIM_UNINST_EXE}"
SetOverwrite off
IfErrors uninstall_problem
; Ready to uninstall..
ClearErrors
ExecWait '"$TEMP\${GAIM_UNINST_EXE}" /S _?=$R1'
IfErrors exec_error
Delete "$TEMP\${GAIM_UNINST_EXE}"
Goto done
exec_error:
Delete "$TEMP\${GAIM_UNINST_EXE}"
Goto uninstall_problem
uninstall_problem:
; In this case just wipe out previous Gaim install dir..
; We get here because versions 0.60a1 and 0.60a2 don't have versions set in the registry
; and versions 0.60 and lower did not correctly set the uninstall reg string
; (the string was set in quotes)
IfSilent do_wipeout
MessageBox MB_YESNO $(GAIM_PROMPT_WIPEOUT) IDYES do_wipeout IDNO cancel_install
cancel_install:
Quit
do_wipeout:
StrCmp $R0 "HKLM" gaim_del_lm_reg gaim_del_cu_reg
gaim_del_cu_reg:
DeleteRegKey HKCU ${GAIM_REG_KEY}
Goto uninstall_prob_cont
gaim_del_lm_reg:
DeleteRegKey HKLM ${GAIM_REG_KEY}
uninstall_prob_cont:
RMDir /r "$R1"
done:
SectionEnd
;--------------------------------
;GTK+ Runtime Install Section
!ifdef WITH_GTK
Section $(GTK_SECTION_TITLE) SecGtk
SectionIn 1 RO
Call CheckUserInstallRights
Pop $R1
SetOutPath $TEMP
SetOverwrite on
File /oname=gtk-runtime.exe ${GTK_RUNTIME_INSTALLER}
SetOverwrite off
; This keeps track whether we install GTK+ or not..
StrCpy $R5 "0"
Call DoWeNeedGtk
Pop $R0
Pop $R6
StrCmp $R0 "0" have_gtk
StrCmp $R0 "1" upgrade_gtk
StrCmp $R0 "2" no_gtk no_gtk
no_gtk:
StrCmp $R1 "NONE" gtk_no_install_rights
ClearErrors
ExecWait '"$TEMP\gtk-runtime.exe" /L=$LANGUAGE $ISSILENT /D=$GTK_FOLDER'
Goto gtk_install_cont
upgrade_gtk:
StrCpy $GTK_FOLDER $R6
IfSilent skip_mb
MessageBox MB_YESNO $(GTK_UPGRADE_PROMPT) IDNO done
skip_mb:
ClearErrors
ExecWait '"$TEMP\gtk-runtime.exe" /L=$LANGUAGE $ISSILENT'
Goto gtk_install_cont
gtk_install_cont:
IfErrors gtk_install_error
StrCpy $R5 "1" ; marker that says we installed...
Goto done
gtk_install_error:
Delete "$TEMP\gtk-runtime.exe"
IfSilent skip_mb1
MessageBox MB_OK $(GTK_INSTALL_ERROR) IDOK
skip_mb1:
Quit
have_gtk:
StrCpy $GTK_FOLDER $R6
StrCmp $R1 "NONE" done ; If we have no rights.. can't re-install..
; Even if we have a sufficient version of GTK+, we give user choice to re-install.
ClearErrors
ExecWait '"$TEMP\gtk-runtime.exe" /L=$LANGUAGE $ISSILENT'
IfErrors gtk_install_error
Goto done
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; end got_install rights
gtk_no_install_rights:
; Install GTK+ to Gaim install dir
StrCpy $GTK_FOLDER $INSTDIR
ClearErrors
ExecWait '"$TEMP\gtk-runtime.exe" /L=$LANGUAGE $ISSILENT /D=$GTK_FOLDER'
IfErrors gtk_install_error
SetOverwrite on
ClearErrors
CopyFiles /FILESONLY "$GTK_FOLDER\bin\*.dll" $GTK_FOLDER
SetOverwrite off
IfErrors gtk_install_error
Delete "$GTK_FOLDER\bin\*.dll"
Goto done
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; end gtk_no_install_rights
done:
Delete "$TEMP\gtk-runtime.exe"
SectionEnd ; end of GTK+ section
!endif
;--------------------------------
;Gaim Install Section
Section $(GAIM_SECTION_TITLE) SecGaim
SectionIn 1 RO
; Check install rights..
Call CheckUserInstallRights
Pop $R0
; Get GTK+ lib dir if we have it..
StrCmp $R0 "NONE" gaim_none
StrCmp $R0 "HKLM" gaim_hklm gaim_hkcu
gaim_hklm:
ReadRegStr $R1 HKLM ${GTK_REG_KEY} "Path"
WriteRegStr HKLM "${HKLM_APP_PATHS_KEY}" "" "$INSTDIR\gaim.exe"
WriteRegStr HKLM "${HKLM_APP_PATHS_KEY}" "Path" "$R1\bin"
WriteRegStr HKLM ${GAIM_REG_KEY} "" "$INSTDIR"
WriteRegStr HKLM ${GAIM_REG_KEY} "Version" "${GAIM_VERSION}"
WriteRegStr HKLM "${GAIM_UNINSTALL_KEY}" "DisplayName" $(GAIM_UNINSTALL_DESC)
WriteRegStr HKLM "${GAIM_UNINSTALL_KEY}" "UninstallString" "$INSTDIR\${GAIM_UNINST_EXE}"
; Sets scope of the desktop and Start Menu entries for all users.
SetShellVarContext "all"
Goto gaim_install_files
gaim_hkcu:
ReadRegStr $R1 HKCU ${GTK_REG_KEY} "Path"
StrCmp $R1 "" 0 gaim_hkcu1
ReadRegStr $R1 HKLM ${GTK_REG_KEY} "Path"
gaim_hkcu1:
WriteRegStr HKCU ${GAIM_REG_KEY} "" "$INSTDIR"
WriteRegStr HKCU ${GAIM_REG_KEY} "Version" "${GAIM_VERSION}"
WriteRegStr HKCU "${GAIM_UNINSTALL_KEY}" "DisplayName" $(GAIM_UNINSTALL_DESC)
WriteRegStr HKCU "${GAIM_UNINSTALL_KEY}" "UninstallString" "$INSTDIR\${GAIM_UNINST_EXE}"
Goto gaim_install_files
gaim_none:
ReadRegStr $R1 HKLM ${GTK_REG_KEY} "Path"
gaim_install_files:
SetOutPath "$INSTDIR"
; Gaim files
SetOverwrite on
File /r .\win32-install-dir\*.*
!ifdef DEBUG
File "${GAIM_INSTALLER_DEPS}\exchndl.dll"
!endif
; Install shfolder.dll if need be..
SearchPath $R4 "shfolder.dll"
StrCmp $R4 "" 0 got_shfolder
SetOutPath "$SYSDIR"
File "${GAIM_INSTALLER_DEPS}\shfolder.dll"
SetOutPath "$INSTDIR"
got_shfolder:
; Check if Perl is installed, If not remove perl plugin
ReadRegStr $R2 HKLM ${PERL_REG_KEY} ""
StrCmp $R2 "" 0 perl_exists
ReadRegStr $R2 HKCU ${PERL_REG_KEY} ""
StrCmp $R2 "" perl_remove perl_exists
perl_remove:
Delete "$INSTDIR\plugins\perl.dll"
RMDir /r "$INSTDIR\perlmod"
Goto perl_done
perl_exists:
IfFileExists "$R2\bin\${PERL_DLL}" 0 perl_remove
StrCmp $R0 "HKLM" 0 perl_done
ReadRegStr $R3 HKLM "${HKLM_APP_PATHS_KEY}" "Path"
WriteRegStr HKLM "${HKLM_APP_PATHS_KEY}" "Path" "$R3;$R2\bin"
perl_done:
; If this is under NT4, delete the SILC support stuff
; there is a bug that will prevent any account from connecting
; See https://lists.silcnet.org/pipermail/silc-devel/2005-January/001588.html
Call GetWindowsVersion
Pop $R2
StrCmp $R2 "NT 4.0" 0 nt4_done
Delete "$INSTDIR\plugins\libsilc.dll"
Delete "$INSTDIR\silcclient.dll"
Delete "$INSTDIR\silc.dll"
nt4_done:
SetOutPath "$INSTDIR"
; If we don't have install rights.. we're done
StrCmp $R0 "NONE" done
SetOverwrite off
; Write out installer language
WriteRegStr HKCU "${GAIM_REG_KEY}" "${GAIM_REG_LANG}" "$LANGUAGE"
; write out uninstaller
SetOverwrite on
WriteUninstaller "$INSTDIR\${GAIM_UNINST_EXE}"
SetOverwrite off
; If we previously had gaim setup to run on startup, make it do so again
StrCmp $STARTUP_RUN_KEY "HKCU" +1 +2
WriteRegStr HKCU "${GAIM_STARTUP_RUN_KEY}" "Gaim" "$INSTDIR\gaim.exe"
StrCmp $STARTUP_RUN_KEY "HKLM" +1 +2
WriteRegStr HKLM "${GAIM_STARTUP_RUN_KEY}" "Gaim" "$INSTDIR\gaim.exe"
done:
SectionEnd ; end of default Gaim section
;--------------------------------
;Shortcuts
SubSection /e $(GAIM_SHORTCUTS_SECTION_TITLE) SecShortcuts
Section /o $(GAIM_DESKTOP_SHORTCUT_SECTION_TITLE) SecDesktopShortcut
SetOverwrite on
CreateShortCut "$DESKTOP\Gaim.lnk" "$INSTDIR\gaim.exe"
SetOverwrite off
SectionEnd
Section $(GAIM_STARTMENU_SHORTCUT_SECTION_TITLE) SecStartMenuShortcut
SetOverwrite on
CreateDirectory "$SMPROGRAMS\Gaim"
CreateShortCut "$SMPROGRAMS\Gaim\Gaim.lnk" "$INSTDIR\gaim.exe"
SetOverwrite off
SectionEnd
SubSectionEnd
;--------------------------------
;GTK+ Themes
SubSection /e $(GTK_THEMES_SECTION_TITLE) SecGtkThemes
Section /o $(GTK_NOTHEME_SECTION_TITLE) SecGtkNone
Call CanWeInstallATheme
Pop $R0
StrCmp $R0 "" done
SetOverwrite on
Rename $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc.old
CopyFiles $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc.plain $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc
SetOverwrite off
done:
SectionEnd
Section $(GTK_WIMP_SECTION_TITLE) SecGtkWimp
Call CanWeInstallATheme
Pop $R0
StrCmp $R0 "" done
SetOverwrite on
Rename $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc.old
SetOutPath $R0\${GTK_DEFAULT_THEME_ENGINE_DIR}
File ${GTK_THEME_DIR}\engines\libwimp.dll
SetOutPath $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}
File ${GTK_THEME_DIR}\themes\gtkrc.gtkwimp
File /oname=gtkrc ${GTK_THEME_DIR}\themes\gtkrc.gtkwimp
SetOverwrite off
done:
SectionEnd
Section /o $(GTK_BLUECURVE_SECTION_TITLE) SecGtkBluecurve
Call CanWeInstallATheme
Pop $R0
StrCmp $R0 "" done
SetOverwrite on
Rename $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc.old
SetOutPath $R0\${GTK_DEFAULT_THEME_ENGINE_DIR}
File ${GTK_THEME_DIR}\engines\libbluecurve.dll
SetOutPath $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}
File ${GTK_THEME_DIR}\themes\gtkrc.bluecurve
File /oname=gtkrc ${GTK_THEME_DIR}\themes\gtkrc.bluecurve
SetOverwrite off
done:
SectionEnd
Section /o $(GTK_LIGHTHOUSEBLUE_SECTION_TITLE) SecGtkLighthouseblue
Call CanWeInstallATheme
Pop $R0
StrCmp $R0 "" done
SetOverwrite on
Rename $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}\gtkrc.old
SetOutPath $R0\${GTK_DEFAULT_THEME_ENGINE_DIR}
File ${GTK_THEME_DIR}\engines\liblighthouseblue.dll
SetOutPath $R0\${GTK_DEFAULT_THEME_GTKRC_DIR}
File ${GTK_THEME_DIR}\themes\gtkrc.lighthouseblue
File /oname=gtkrc ${GTK_THEME_DIR}\themes\gtkrc.lighthouseblue
SetOverwrite off
done:
SectionEnd
SubSectionEnd
;--------------------------------
;Uninstaller Section
Section Uninstall
Call un.CheckUserInstallRights
Pop $R0
StrCmp $R0 "NONE" no_rights
StrCmp $R0 "HKCU" try_hkcu try_hklm
try_hkcu:
ReadRegStr $R0 HKCU ${GAIM_REG_KEY} ""
StrCmp $R0 $INSTDIR 0 cant_uninstall
; HKCU install path matches our INSTDIR.. so uninstall
DeleteRegKey HKCU ${GAIM_REG_KEY}
DeleteRegKey HKCU "${GAIM_UNINSTALL_KEY}"
Goto cont_uninstall
try_hklm:
ReadRegStr $R0 HKLM ${GAIM_REG_KEY} ""
StrCmp $R0 $INSTDIR 0 try_hkcu
; HKLM install path matches our INSTDIR.. so uninstall
DeleteRegKey HKLM ${GAIM_REG_KEY}
DeleteRegKey HKLM "${GAIM_UNINSTALL_KEY}"
DeleteRegKey HKLM "${HKLM_APP_PATHS_KEY}"
; Sets start menu and desktop scope to all users..
SetShellVarContext "all"
cont_uninstall:
; The WinPrefs plugin may have left this behind..
DeleteRegValue HKCU "${GAIM_STARTUP_RUN_KEY}" "Gaim"
DeleteRegValue HKLM "${GAIM_STARTUP_RUN_KEY}" "Gaim"
; Remove Language preference info
DeleteRegKey HKCU ${GAIM_REG_KEY} ;${MUI_LANGDLL_REGISTRY_ROOT} ${MUI_LANGDLL_REGISTRY_KEY}
RMDir /r "$INSTDIR\locale"
RMDir /r "$INSTDIR\pixmaps"
RMDir /r "$INSTDIR\perlmod"
Delete "$INSTDIR\plugins\autorecon.dll"
Delete "$INSTDIR\plugins\docklet.dll"
Delete "$INSTDIR\plugins\extplacement.dll"
Delete "$INSTDIR\plugins\history.dll"
Delete "$INSTDIR\plugins\iconaway.dll"
Delete "$INSTDIR\plugins\idle.dll"
Delete "$INSTDIR\plugins\libgg.dll"
Delete "$INSTDIR\plugins\libirc.dll"
Delete "$INSTDIR\plugins\libjabber.dll"
Delete "$INSTDIR\plugins\libmsn.dll"
Delete "$INSTDIR\plugins\libnapster.dll"
Delete "$INSTDIR\plugins\libnovell.dll"
Delete "$INSTDIR\plugins\liboscar.dll"
Delete "$INSTDIR\plugins\libtoc.dll"
Delete "$INSTDIR\plugins\libyahoo.dll"
Delete "$INSTDIR\plugins\libsilc.dll"
Delete "$INSTDIR\plugins\perl.dll"
Delete "$INSTDIR\plugins\relnot.dll"
Delete "$INSTDIR\plugins\spellchk.dll"
Delete "$INSTDIR\plugins\ssl-nss.dll"
Delete "$INSTDIR\plugins\ssl.dll"
Delete "$INSTDIR\plugins\statenotify.dll"
Delete "$INSTDIR\plugins\tcl.dll"
Delete "$INSTDIR\plugins\ticker.dll"
Delete "$INSTDIR\plugins\timestamp.dll"
Delete "$INSTDIR\plugins\win2ktrans.dll"
Delete "$INSTDIR\plugins\winprefs.dll"
RMDir "$INSTDIR\plugins"
Delete "$INSTDIR\sounds\gaim\arrive.wav"
Delete "$INSTDIR\sounds\gaim\leave.wav"
Delete "$INSTDIR\sounds\gaim\receive.wav"
Delete "$INSTDIR\sounds\gaim\redalert.wav"
Delete "$INSTDIR\sounds\gaim\send.wav"
RMDir "$INSTDIR\sounds\gaim"
RMDir "$INSTDIR\sounds"
Delete "$INSTDIR\gaim.dll"
Delete "$INSTDIR\gaim.exe"
Delete "$INSTDIR\idletrack.dll"
Delete "$INSTDIR\libgtkspell.dll"
Delete "$INSTDIR\nspr4.dll"
Delete "$INSTDIR\nss3.dll"
Delete "$INSTDIR\nssckbi.dll"
Delete "$INSTDIR\plc4.dll"
Delete "$INSTDIR\plds4.dll"
Delete "$INSTDIR\silc.dll"
Delete "$INSTDIR\silcclient.dll"
Delete "$INSTDIR\softokn3.dll"
Delete "$INSTDIR\ssl3.dll"
Delete "$INSTDIR\${GAIM_UNINST_EXE}"
!ifdef DEBUG
Delete "$INSTDIR\exchndl.dll"
!endif
;Try to remove Gaim install dir .. if empty
RMDir "$INSTDIR"
; Shortcuts..
RMDir /r "$SMPROGRAMS\Gaim"
Delete "$DESKTOP\Gaim.lnk"
Goto done
cant_uninstall:
IfSilent skip_mb
MessageBox MB_OK $(un.GAIM_UNINSTALL_ERROR_1) IDOK
skip_mb:
Quit
no_rights:
IfSilent skip_mb1
MessageBox MB_OK $(un.GAIM_UNINSTALL_ERROR_2) IDOK
skip_mb1:
Quit
done:
SectionEnd ; end of uninstall section
;--------------------------------
;Descriptions
!insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN
!insertmacro MUI_DESCRIPTION_TEXT ${SecGaim} \
$(GAIM_SECTION_DESCRIPTION)
!ifdef WITH_GTK
!insertmacro MUI_DESCRIPTION_TEXT ${SecGtk} \
$(GTK_SECTION_DESCRIPTION)
!endif
!insertmacro MUI_DESCRIPTION_TEXT ${SecGtkThemes} \
$(GTK_THEMES_SECTION_DESCRIPTION)
!insertmacro MUI_DESCRIPTION_TEXT ${SecGtkNone} \
$(GTK_NO_THEME_DESC)
!insertmacro MUI_DESCRIPTION_TEXT ${SecGtkWimp} \
$(GTK_WIMP_THEME_DESC)
!insertmacro MUI_DESCRIPTION_TEXT ${SecGtkBluecurve} \
$(GTK_BLUECURVE_THEME_DESC)
!insertmacro MUI_DESCRIPTION_TEXT ${SecGtkLighthouseblue} \
$(GTK_LIGHTHOUSEBLUE_THEME_DESC)
!insertmacro MUI_DESCRIPTION_TEXT ${SecShortcuts} \
$(GAIM_SHORTCUTS_SECTION_DESCRIPTION)
!insertmacro MUI_DESCRIPTION_TEXT ${SecDesktopShortcut} \
$(GAIM_DESKTOP_SHORTCUT_DESC)
!insertmacro MUI_DESCRIPTION_TEXT ${SecStartMenuShortcut} \
$(GAIM_STARTMENU_SHORTCUT_DESC)
!insertmacro MUI_FUNCTION_DESCRIPTION_END
;--------------------------------
;Functions
;
; Usage:
;
; Call CanWeInstallATheme
; Pop $R0
;
; Return:
; "" - If no
; "root path of GTK+ installation" - if yes
;
Function CanWeInstallATheme
Push $1
Push $0
; Set default.. no rights
StrCpy $1 ""
Call CheckUserInstallRights
Pop $0
; If no rights check if gtk was installed to gaim dir..
StrCmp $0 "NONE" 0 themes_cont
StrCmp $GTK_FOLDER $INSTDIR 0 no_rights
StrCpy $1 $INSTDIR
Goto done
themes_cont:
StrCmp $0 "HKCU" hkcu hklm
hkcu:
ReadRegStr $1 HKCU ${GTK_REG_KEY} "Path"
StrCmp $1 "" no_rights done
hklm:
ReadRegStr $1 HKLM ${GTK_REG_KEY} "Path"
Goto done
no_rights:
IfSilent skip_mb
MessageBox MB_OK $(GTK_NO_THEME_INSTALL_RIGHTS) IDOK
skip_mb:
StrCpy $1 ""
done:
Pop $0
Exch $1
FunctionEnd
Function CheckUserInstallRights
ClearErrors
UserInfo::GetName
IfErrors Win9x
Pop $0
UserInfo::GetAccountType
Pop $1
StrCmp $1 "Admin" 0 +3
StrCpy $1 "HKLM"
Goto done
StrCmp $1 "Power" 0 +3
StrCpy $1 "HKLM"
Goto done
StrCmp $1 "User" 0 +3
StrCpy $1 "HKCU"
Goto done
StrCmp $1 "Guest" 0 +3
StrCpy $1 "NONE"
Goto done
; Unknown error
StrCpy $1 "NONE"
Goto done
Win9x:
StrCpy $1 "HKLM"
done:
Push $1
FunctionEnd
Function un.CheckUserInstallRights
ClearErrors
UserInfo::GetName
IfErrors Win9x
Pop $0
UserInfo::GetAccountType
Pop $1
StrCmp $1 "Admin" 0 +3
StrCpy $1 "HKLM"
Goto done
StrCmp $1 "Power" 0 +3
StrCpy $1 "HKLM"
Goto done
StrCmp $1 "User" 0 +3
StrCpy $1 "HKCU"
Goto done
StrCmp $1 "Guest" 0 +3
StrCpy $1 "NONE"
Goto done
; Unknown error
StrCpy $1 "NONE"
Goto done
Win9x:
StrCpy $1 "HKLM"
done:
Push $1
FunctionEnd
;
; Usage:
; Push $0 ; Path string
; Call VerifyDir
; Pop $0 ; 0 - Bad path 1 - Good path
;
Function VerifyDir
Pop $0
Loop:
IfFileExists $0 dir_exists
StrCpy $1 $0 ; save last
Push $0
Call GetParent
Pop $0
StrLen $2 $0
; IfFileExists "C:" on xp returns true and on win2k returns false
; So we're done in such a case..
IntCmp $2 2 loop_done
; GetParent of "C:" returns ""
IntCmp $2 0 loop_done
Goto Loop
loop_done:
StrCpy $1 "$0\GaImFooB"
; Check if we can create dir on this drive..
ClearErrors
CreateDirectory $1
IfErrors DirBad DirGood
dir_exists:
ClearErrors
FileOpen $1 "$0\gaimfoo.bar" w
IfErrors PathBad PathGood
DirGood:
RMDir $1
Goto PathGood1
DirBad:
RMDir $1
Goto PathBad1
PathBad:
FileClose $1
Delete "$0\gaimfoo.bar"
PathBad1:
StrCpy $0 "0"
Push $0
Return
PathGood:
FileClose $1
Delete "$0\gaimfoo.bar"
PathGood1:
StrCpy $0 "1"
Push $0
FunctionEnd
Function .onVerifyInstDir
Push $INSTDIR
Call VerifyDir
Pop $0
StrCmp $0 "0" 0 dir_good
Abort
dir_good:
FunctionEnd
; GetParent
; input, top of stack (e.g. C:\Program Files\Poop)
; output, top of stack (replaces, with e.g. C:\Program Files)
; modifies no other variables.
;
; Usage:
; Push "C:\Program Files\Directory\Whatever"
; Call GetParent
; Pop $R0
; ; at this point $R0 will equal "C:\Program Files\Directory"
Function GetParent
Exch $0 ; old $0 is on top of stack
Push $1
Push $2
StrCpy $1 -1
loop:
StrCpy $2 $0 1 $1
StrCmp $2 "" exit
StrCmp $2 "\" exit
IntOp $1 $1 - 1
Goto loop
exit:
StrCpy $0 $0 $1
Pop $2
Pop $1
Exch $0 ; put $0 on top of stack, restore $0 to original value
FunctionEnd
; CheckGtkVersion
; inputs: Push 2 GTK+ version strings to check. The major value needs to
; be equal and the minor value needs to be greater or equal.
;
; Usage:
; Push "2.1.0" ; Refrence version
; Push "2.2.1" ; Version to check
; Call CheckGtkVersion
; Pop $R0
; $R0 will now equal "1", because 2.2 is greater than 2.1
;
Function CheckGtkVersion
; Version we want to check
Pop $6
; Reference version
Pop $8
; Check that the string to check is at least 5 chars long (i.e. x.x.x)
StrLen $7 $6
IntCmp $7 5 0 bad_version
; Major version check
StrCpy $7 $6 1
StrCpy $9 $8 1
IntCmp $7 $9 check_minor bad_version bad_version
check_minor:
StrCpy $7 $6 1 2
StrCpy $9 $8 1 2
IntCmp $7 $9 good_version bad_version good_version
bad_version:
StrCpy $6 "0"
Push $6
Goto done
good_version:
StrCpy $6 "1"
Push $6
done:
FunctionEnd
;
; Usage:
; Call DoWeNeedGtk
; First Pop:
; 0 - We have the correct version
; Second Pop: Key where Version was found
; 1 - We have an old version that needs to be upgraded
; Second Pop: HKLM or HKCU depending on where GTK was found.
; 2 - We don't have Gtk+ at all
; Second Pop: "NONE, HKLM or HKCU" depending on our rights..
;
Function DoWeNeedGtk
; Logic should be:
; - Check what user rights we have (HKLM or HKCU)
; - If HKLM rights..
; - Only check HKLM key for GTK+
; - If installed to HKLM, check it and return.
; - If HKCU rights..
; - First check HKCU key for GTK+
; - if good or bad exists stop and ret.
; - If no hkcu gtk+ install, check HKLM
; - If HKLM ver exists but old, return as if no ver exits.
; - If no rights
; - Check HKLM
Call CheckUserInstallRights
Pop $3
StrCmp $3 "HKLM" check_hklm
StrCmp $3 "HKCU" check_hkcu check_hklm
check_hkcu:
ReadRegStr $0 HKCU ${GTK_REG_KEY} "Version"
StrCpy $5 "HKCU"
StrCmp $0 "" check_hklm have_gtk
check_hklm:
ReadRegStr $0 HKLM ${GTK_REG_KEY} "Version"
StrCpy $5 "HKLM"
StrCmp $0 "" no_gtk have_gtk
have_gtk:
; GTK+ is already installed.. check version.
StrCpy $1 ${GTK_VERSION} ; Minimum GTK+ version needed
Push $1
Push $0
Call CheckGtkVersion
Pop $2
StrCmp $2 "1" good_version bad_version
bad_version:
; Bad version. If hklm ver and we have hkcu or no rights.. return no gtk
StrCmp $3 "NONE" no_gtk ; if no rights.. can't upgrade
StrCmp $3 "HKCU" 0 upgrade_gtk ; if HKLM can upgrade..
StrCmp $5 "HKLM" no_gtk upgrade_gtk ; have hkcu rights.. if found hklm ver can't upgrade..
upgrade_gtk:
StrCpy $2 "1"
Push $5
Push $2
Goto done
good_version:
StrCmp $5 "HKLM" have_hklm_gtk have_hkcu_gtk
have_hkcu_gtk:
; Have HKCU version
ReadRegStr $4 HKCU ${GTK_REG_KEY} "Path"
Goto good_version_cont
have_hklm_gtk:
ReadRegStr $4 HKLM ${GTK_REG_KEY} "Path"
Goto good_version_cont
good_version_cont:
StrCpy $2 "0"
Push $4 ; The path to existing GTK+
Push $2
Goto done
no_gtk:
StrCpy $2 "2"
Push $3 ; our rights
Push $2
Goto done
done:
FunctionEnd
Function RunCheck
System::Call 'kernel32::OpenMutex(i 2031617, b 0, t "gaim_is_running") i .R0'
IntCmp $R0 0 done
MessageBox MB_OK|MB_ICONEXCLAMATION $(GAIM_IS_RUNNING) IDOK
Abort
done:
FunctionEnd
Function un.RunCheck
System::Call 'kernel32::OpenMutex(i 2031617, b 0, t "gaim_is_running") i .R0'
IntCmp $R0 0 done
MessageBox MB_OK|MB_ICONEXCLAMATION $(GAIM_IS_RUNNING) IDOK
Abort
done:
FunctionEnd
Function .onInit
System::Call 'kernel32::CreateMutexA(i 0, i 0, t "gaim_installer_running") i .r1 ?e'
Pop $R0
StrCmp $R0 0 +3
MessageBox MB_OK|MB_ICONEXCLAMATION $(INSTALLER_IS_RUNNING)
Abort
Call RunCheck
StrCpy $name "Gaim ${GAIM_VERSION}"
StrCpy $GTK_THEME_SEL ${SecGtkWimp}
StrCpy $ISSILENT "/NOUI"
; GTK installer has two silent states.. one with Message boxes, one without
; If gaim installer was run silently, we want to supress gtk installer msg boxes.
IfSilent 0 set_gtk_normal
StrCpy $ISSILENT "/S"
set_gtk_normal:
Call ParseParameters
; Select Language
IntCmp $LANG_IS_SET 1 skip_lang
; Display Language selection dialog
!insertmacro MUI_LANGDLL_DISPLAY
skip_lang:
; If install path was set on the command, use it.
StrCmp $INSTDIR "" 0 instdir_done
; If gaim is currently intalled, we should default to where it is currently installed
ClearErrors
ReadRegStr $INSTDIR HKCU "${GAIM_REG_KEY}" ""
IfErrors +2
StrCmp $INSTDIR "" 0 instdir_done
ReadRegStr $INSTDIR HKLM "${GAIM_REG_KEY}" ""
IfErrors +2
StrCmp $INSTDIR "" 0 instdir_done
Call CheckUserInstallRights
Pop $0
StrCmp $0 "HKLM" 0 user_dir
StrCpy $INSTDIR "$PROGRAMFILES\Gaim"
Goto instdir_done
user_dir:
StrCpy $2 "$SMPROGRAMS"
Push $2
Call GetParent
Call GetParent
Pop $2
StrCpy $INSTDIR "$2\Gaim"
instdir_done:
FunctionEnd
Function un.onInit
Call un.RunCheck
StrCpy $name "Gaim ${GAIM_VERSION}"
; Get stored language prefrence
ReadRegStr $LANGUAGE HKCU ${GAIM_REG_KEY} "${GAIM_REG_LANG}"
FunctionEnd
Function .onSelChange
Push $0
Push $2
StrCpy $2 ${SF_SELECTED}
SectionGetFlags ${SecGtkNone} $0
IntOp $2 $2 & $0
SectionGetFlags ${SecGtkWimp} $0
IntOp $2 $2 & $0
SectionGetFlags ${SecGtkBluecurve} $0
IntOp $2 $2 & $0
SectionGetFlags ${SecGtkLighthouseblue} $0
IntOp $2 $2 & $0
StrCmp $2 0 skip
SectionSetFlags ${SecGtkNone} 0
SectionSetFlags ${SecGtkWimp} 0
SectionSetFlags ${SecGtkBluecurve} 0
SectionSetFlags ${SecGtkLighthouseblue} 0
skip:
!insertmacro UnselectSection $GTK_THEME_SEL
; Remember old selection
StrCpy $2 $GTK_THEME_SEL
; Now go through and see who is checked..
SectionGetFlags ${SecGtkNone} $0
IntOp $0 $0 & ${SF_SELECTED}
IntCmp $0 ${SF_SELECTED} 0 +2 +2
StrCpy $GTK_THEME_SEL ${SecGtkNone}
SectionGetFlags ${SecGtkWimp} $0
IntOp $0 $0 & ${SF_SELECTED}
IntCmp $0 ${SF_SELECTED} 0 +2 +2
StrCpy $GTK_THEME_SEL ${SecGtkWimp}
SectionGetFlags ${SecGtkBluecurve} $0
IntOp $0 $0 & ${SF_SELECTED}
IntCmp $0 ${SF_SELECTED} 0 +2 +2
StrCpy $GTK_THEME_SEL ${SecGtkBluecurve}
SectionGetFlags ${SecGtkLighthouseblue} $0
IntOp $0 $0 & ${SF_SELECTED}
IntCmp $0 ${SF_SELECTED} 0 +2 +2
StrCpy $GTK_THEME_SEL ${SecGtkLighthouseblue}
StrCmp $2 $GTK_THEME_SEL 0 +2 ; selection hasn't changed
!insertmacro SelectSection $GTK_THEME_SEL
Pop $2
Pop $0
FunctionEnd
; Page enter and exit functions..
Function preWelcomePage
; If this installer dosn't have GTK, check whether we need it.
; We do this here an not in .onInit because language change in
; .onInit doesn't take effect until it is finished.
!ifndef WITH_GTK
Call DoWeNeedGtk
Pop $0
Pop $GTK_FOLDER
StrCmp $0 "0" have_gtk need_gtk
need_gtk:
IfSilent skip_mb
MessageBox MB_OK $(GTK_INSTALLER_NEEDED) IDOK
skip_mb:
Quit
have_gtk:
!endif
FunctionEnd
!ifdef WITH_GTK
Function preGtkDirPage
Call DoWeNeedGtk
Pop $0
Pop $1
StrCmp $0 "0" have_gtk
StrCmp $0 "1" upgrade_gtk
StrCmp $0 "2" no_gtk no_gtk
; Don't show dir selector.. Upgrades are done to existing path..
have_gtk:
upgrade_gtk:
Abort
no_gtk:
StrCmp $1 "NONE" 0 no_gtk_cont
; Got no install rights..
Abort
no_gtk_cont:
; Suggest path..
StrCmp $1 "HKCU" 0 hklm1
StrCpy $2 "$SMPROGRAMS"
Push $2
Call GetParent
Call GetParent
Pop $2
StrCpy $2 "$2\GTK\2.0"
Goto got_path
hklm1:
StrCpy $2 "${GTK_DEFAULT_INSTALL_PATH}"
got_path:
StrCpy $name "GTK+ ${GTK_VERSION}"
StrCpy $GTK_FOLDER $2
FunctionEnd
Function postGtkDirPage
StrCpy $name "Gaim ${GAIM_VERSION}"
Push $GTK_FOLDER
Call VerifyDir
Pop $0
StrCmp $0 "0" 0 done
IfSilent skip_mb
MessageBox MB_OK $(GTK_BAD_INSTALL_PATH) IDOK
skip_mb:
Abort
done:
FunctionEnd
!endif
; GetParameters
; input, none
; output, top of stack (replaces, with e.g. whatever)
; modifies no other variables.
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
; StrStr
; input, top of stack = string to search for
; top of stack-1 = string to search in
; output, top of stack (replaces with the portion of the string remaining)
; modifies no other variables.
;
; Usage:
; Push "this is a long ass string"
; Push "ass"
; Call StrStr
; Pop $R0
; ($R0 at this point is "ass string")
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
;
; Parse the Command line
;
; Unattended install command line parameters
; /L=Language e.g.: /L=1033
;
Function ParseParameters
IntOp $LANG_IS_SET 0 + 0
Call GetParameters
Pop $R0
Push $R0
Push "L="
Call StrStr
Pop $R1
StrCmp $R1 "" next
StrCpy $R1 $R1 4 2 ; Strip first 2 chars of string
StrCpy $LANGUAGE $R1
IntOp $LANG_IS_SET 0 + 1
next:
FunctionEnd
; GetWindowsVersion
;
; Based on Yazno's function, http://yazno.tripod.com/powerpimpit/
; Updated by Joost Verburg
;
; Returns on top of stack
;
; Windows Version (95, 98, ME, NT x.x, 2000, XP, 2003)
; or
; '' (Unknown Windows Version)
;
; Usage:
; Call GetWindowsVersion
; Pop $R0
;
; at this point $R0 is "NT 4.0" or whatnot
Function GetWindowsVersion
Push $R0
Push $R1
ReadRegStr $R0 HKLM \
"SOFTWARE\Microsoft\Windows NT\CurrentVersion" CurrentVersion
IfErrors 0 lbl_winnt
; we are not NT
ReadRegStr $R0 HKLM \
"SOFTWARE\Microsoft\Windows\CurrentVersion" VersionNumber
StrCpy $R1 $R0 1
StrCmp $R1 '4' 0 lbl_error
StrCpy $R1 $R0 3
StrCmp $R1 '4.0' lbl_win32_95
StrCmp $R1 '4.9' lbl_win32_ME lbl_win32_98
lbl_win32_95:
StrCpy $R0 '95'
Goto lbl_done
lbl_win32_98:
StrCpy $R0 '98'
Goto lbl_done
lbl_win32_ME:
StrCpy $R0 'ME'
Goto lbl_done
lbl_winnt:
StrCpy $R1 $R0 1
StrCmp $R1 '3' lbl_winnt_x
StrCmp $R1 '4' lbl_winnt_x
StrCpy $R1 $R0 3
StrCmp $R1 '5.0' lbl_winnt_2000
StrCmp $R1 '5.1' lbl_winnt_XP
StrCmp $R1 '5.2' lbl_winnt_2003 lbl_error
lbl_winnt_x:
StrCpy $R0 "NT $R0" 6
Goto lbl_done
lbl_winnt_2000:
Strcpy $R0 '2000'
Goto lbl_done
lbl_winnt_XP:
Strcpy $R0 'XP'
Goto lbl_done
lbl_winnt_2003:
Strcpy $R0 '2003'
Goto lbl_done
lbl_error:
Strcpy $R0 ''
lbl_done:
Pop $R1
Exch $R0
FunctionEnd