Mercurial > pidgin.yaz
view gaim-installer.nsi @ 19764:da1075366756
[gaim-migrate @ 16885]
middle stage of debugging multiple-SOAP request
read 0 from soap Reply
comitted by MaYuan<mayuan2006@gmail.com>
committer: Ethan Blanton <elb@pidgin.im>
| author | Ma Yuan <mayuan2006@gmail.com> |
|---|---|
| date | Sat, 19 Aug 2006 16:13:55 +0000 |
| parents | 34d086c78a0d |
| children | a54ff7cafc2a |
line wrap: on
line source
; Installer script for win32 Gaim ; Original Author: Herman Bloggs <hermanator12002@yahoo.com> ; Updated By: Daniel Atallah <daniel_atallah@yahoo.com> ; NOTE: this .NSI script is intended for NSIS 2.08 ; ;-------------------------------- ;Global Variables Var name Var GTK_FOLDER Var GTK_THEME_SEL Var LANG_IS_SET Var ISSILENT Var STARTUP_RUN_KEY Var SPELLCHECK_SEL ;-------------------------------- ;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 /SOLID 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.10" !define GTK_REG_KEY "SOFTWARE\GTK\2.0" !define PERL_REG_KEY "SOFTWARE\Perl" !define PERL_DLL "perl58.dll" !define GTK_DEFAULT_INSTALL_PATH "$COMMONFILES\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" !define ASPELL_REG_KEY "SOFTWARE\Aspell" !define DOWNLOADER_URL "http://gaim.sourceforge.net/win32/download_redir.php" ;-------------------------------- ;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 !ifndef WITH_GTK !define MUI_PAGE_CUSTOMFUNCTION_PRE preWelcomePage !endif !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 "Kurdish" !insertmacro MUI_LANGUAGE "Lithuanian" !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 "KURDISH" "${GAIM_NSIS_INCLUDE_PATH}\translations\kurdish.nsh" !insertmacro GAIM_MACRO_INCLUDE_LANGFILE "LITHUANIAN" "${GAIM_NSIS_INCLUDE_PATH}\translations\lithuanian.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" +1 +4 Delete "$INSTDIR\plugins\libsilc.dll" Delete "$INSTDIR\silcclient.dll" Delete "$INSTDIR\silc.dll" 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 ;-------------------------------- ;Spell Checking SubSection /e $(GAIM_SPELLCHECK_SECTION_TITLE) SecSpellCheck Section /o $(GAIM_SPELLCHECK_BRETON) SecSpellCheckBreton Push ${SecSpellCheckBreton} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_CATALAN) SecSpellCheckCatalan Push ${SecSpellCheckCatalan} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_CZECH) SecSpellCheckCzech Push ${SecSpellCheckCzech} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_WELSH) SecSpellCheckWelsh Push ${SecSpellCheckWelsh} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_DANISH) SecSpellCheckDanish Push ${SecSpellCheckDanish} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_GERMAN) SecSpellCheckGerman Push ${SecSpellCheckGerman} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_GREEK) SecSpellCheckGreek Push ${SecSpellCheckGreek} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_ENGLISH) SecSpellCheckEnglish Push ${SecSpellCheckEnglish} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_ESPERANTO) SecSpellCheckEsperanto Push ${SecSpellCheckEsperanto} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_SPANISH) SecSpellCheckSpanish Push ${SecSpellCheckSpanish} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_FAROESE) SecSpellCheckFaroese Push ${SecSpellCheckFaroese} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_FRENCH) SecSpellCheckFrench Push ${SecSpellCheckFrench} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_ITALIAN) SecSpellCheckItalian Push ${SecSpellCheckItalian} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_DUTCH) SecSpellCheckDutch Push ${SecSpellCheckDutch} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_NORWEGIAN) SecSpellCheckNorwegian Push ${SecSpellCheckNorwegian} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_POLISH) SecSpellCheckPolish Push ${SecSpellCheckPolish} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_PORTUGUESE) SecSpellCheckPortuguese Push ${SecSpellCheckPortuguese} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_ROMANIAN) SecSpellCheckRomanian Push ${SecSpellCheckRomanian} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_RUSSIAN) SecSpellCheckRussian Push ${SecSpellCheckRussian} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_SLOVAK) SecSpellCheckSlovak Push ${SecSpellCheckSlovak} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_SWEDISH) SecSpellCheckSwedish Push ${SecSpellCheckSwedish} Call InstallAspellAndDict SectionEnd Section /o $(GAIM_SPELLCHECK_UKRAINIAN) SecSpellCheckUkrainian Push ${SecSpellCheckUkrainian} Call InstallAspellAndDict 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\docklet.dll" Delete "$INSTDIR\plugins\extplacement.dll" Delete "$INSTDIR\plugins\gaimrc.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\libsametime.dll" Delete "$INSTDIR\plugins\libsilc.dll" Delete "$INSTDIR\plugins\libsimple.dll" Delete "$INSTDIR\plugins\libtoc.dll" Delete "$INSTDIR\plugins\libyahoo.dll" Delete "$INSTDIR\plugins\notify.dll" Delete "$INSTDIR\plugins\perl.dll" Delete "$INSTDIR\plugins\psychic.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\timestamp_format.dll" Delete "$INSTDIR\plugins\win2ktrans.dll" Delete "$INSTDIR\plugins\winprefs.dll" RMDir "$INSTDIR\plugins" Delete "$INSTDIR\sounds\gaim\alert.wav" Delete "$INSTDIR\sounds\gaim\login.wav" Delete "$INSTDIR\sounds\gaim\logout.wav" Delete "$INSTDIR\sounds\gaim\receive.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\libmeanwhile-1.dll" Delete "$INSTDIR\libxml2.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_DESCRIPTION_TEXT ${SecSpellCheck} \ $(GAIM_SPELLCHECK_SECTION_DESCRIPTION) !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckBreton} \ "$(GAIM_SPELLCHECK_BRETON) (862kb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckCatalan} \ "$(GAIM_SPELLCHECK_CATALAN) (3.9Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckCzech} \ "$(GAIM_SPELLCHECK_CZECH) (17Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckWelsh} \ "$(GAIM_SPELLCHECK_WELSH) (4.2Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckDanish} \ "$(GAIM_SPELLCHECK_DANISH) (6.9Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckGerman} \ "$(GAIM_SPELLCHECK_GERMAN) (5.4Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckGreek} \ "$(GAIM_SPELLCHECK_GREEK) (7.1Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckEnglish} \ "$(GAIM_SPELLCHECK_ENGLISH) (2.3Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckEsperanto} \ "$(GAIM_SPELLCHECK_ESPERANTO) (5.7Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckSpanish} \ "$(GAIM_SPELLCHECK_SPANISH) (7.0Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckFaroese} \ "$(GAIM_SPELLCHECK_FAROESE) (913kb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckFrench} \ "$(GAIM_SPELLCHECK_FRENCH) (9.3Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckItalian} \ "$(GAIM_SPELLCHECK_ITALIAN) (770kb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckDutch} \ "$(GAIM_SPELLCHECK_DUTCH) (3.7Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckNorwegian} \ "$(GAIM_SPELLCHECK_NORWEGIAN) (3.2Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckPolish} \ "$(GAIM_SPELLCHECK_POLISH) (9.3Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckPortuguese} \ "$(GAIM_SPELLCHECK_PORTUGUESE) (5.5Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckRomanian} \ "$(GAIM_SPELLCHECK_ROMANIAN) (906kb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckRussian} \ "$(GAIM_SPELLCHECK_RUSSIAN) (11Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckSlovak} \ "$(GAIM_SPELLCHECK_SLOVAK) (8.0Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckSwedish} \ "$(GAIM_SPELLCHECK_SWEDISH) (2.2Mb)" !insertmacro MUI_DESCRIPTION_TEXT ${SecSpellCheckUkrainian} \ "$(GAIM_SPELLCHECK_UKRAINIAN) (12Mb)" !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 !macro CheckUserInstallRightsMacro UN Function ${UN}CheckUserInstallRights Push $0 Push $1 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: Exch $1 Exch Pop $0 FunctionEnd !macroend !insertmacro CheckUserInstallRightsMacro "" !insertmacro CheckUserInstallRightsMacro "un." ; ; Usage: ; Push $0 ; Path string ; Call VerifyDir ; Pop $0 ; 0 - Bad path 1 - Good path ; Function VerifyDir Exch $0 Push $1 Push $2 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 Goto done PathGood: FileClose $1 Delete "$0\gaimfoo.bar" PathGood1: StrCpy $0 "1" Push $0 done: Exch 3 ; The top of the stack contains the output variable Pop $0 Pop $2 Pop $1 FunctionEnd Function .onVerifyInstDir Push $0 Push $INSTDIR Call VerifyDir Pop $0 StrCmp $0 "0" 0 dir_good Abort dir_good: Pop $0 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" ; Reference 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 Exch $R0 Exch ; Reference version Exch $R1 Push $R2 Push $R3 ; Check that the string to check is at least 5 chars long (i.e. x.x.x) StrLen $R2 $R0 IntCmp $R2 5 0 bad_version ; Major version check StrCpy $R2 $R0 1 StrCpy $R3 $R1 1 IntCmp $R2 $R3 check_minor bad_version bad_version check_minor: StrCpy $R2 $R0 1 2 StrCpy $R3 $R1 1 2 IntCmp $R2 $R3 good_version bad_version good_version bad_version: StrCpy $R0 "0" Goto done good_version: StrCpy $R0 "1" done: Pop $R3 Pop $R2 Pop $R1 Exch $R0 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 Push $0 Push $2 Push $3 Push $4 Push $5 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. Push ${GTK_VERSION} ; Minimum GTK+ version needed 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: ; The top two items on the stack are what we want to return Exch 5 Pop $0 Exch 5 Pop $2 Pop $5 Pop $4 Pop $3 FunctionEnd !macro RunCheckMacro UN Function ${UN}RunCheck Push $R0 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: Pop $R0 FunctionEnd !macroend !insertmacro RunCheckMacro "" !insertmacro RunCheckMacro "un." Function .onInit Push $R0 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 $SPELLCHECK_SEL "" !insertmacro SetSectionFlag ${SecGtkThemes} ${SF_RO} !insertmacro UnselectSection ${SecGtkThemes} !insertmacro SelectSection $GTK_THEME_SEL !insertmacro SetSectionFlag ${SecSpellCheck} ${SF_RO} !insertmacro UnselectSection ${SecSpellCheck} ;Mark the dictionaries that are already installed as readonly Call SelectAndDisableInstalledDictionaries 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 $R0 StrCmp $R0 "HKLM" 0 user_dir StrCpy $INSTDIR "$PROGRAMFILES\Gaim" Goto instdir_done user_dir: Push $SMPROGRAMS Call GetParent Call GetParent Pop $R2 StrCpy $INSTDIR "$R2\Gaim" instdir_done: Pop $R0 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 ; This is a modified StartRadioButtons (from Sections.nsh) ; The only difference is that it allows for nothing in the group to be selected ; In that case, the default variable should be set to "" !macro StartRadioButtonsUnselectable var !define StartRadioButtons_Var "${var}" Push $R0 Push $R1 ;If we have no selection, don't try to unselect it StrCmp "${StartRadioButtons_Var}" "" +4 SectionGetFlags "${StartRadioButtons_Var}" $R0 IntOp $R1 $R0 & ${SF_SELECTED} IntOp $R0 $R0 & ${SECTION_OFF} SectionSetFlags "${StartRadioButtons_Var}" $R0 ; If the previous value isn't currently selected, ; we don't want to select it at the end IntCmp $R1 ${SF_SELECTED} +2 StrCpy "${StartRadioButtons_Var}" "" StrCpy $R1 "${StartRadioButtons_Var}" !macroend Function .onSelChange Push $0 Push $1 Push $2 !insertmacro StartRadioButtons $GTK_THEME_SEL !insertmacro RadioButton ${SecGtkNone} !insertmacro RadioButton ${SecGtkWimp} !insertmacro RadioButton ${SecGtkBluecurve} !insertmacro RadioButton ${SecGtkLighthouseblue} !insertmacro EndRadioButtons ; Check that at most one of the non-readonly spelling dictionaries are selected ; We can't use $R0 or $R1 in this block since they're used in the macros !insertmacro StartRadioButtonsUnselectable $SPELLCHECK_SEL ; Start with the first language dictionary IntOp $2 ${SecSpellCheck} + 1 start_spellcheck_radio: SectionGetFlags $2 $0 IntOp $1 $0 & ${SF_SECGRPEND} ; If it is the end of the section group, stop IntCmp $1 ${SF_SECGRPEND} end_spellcheck_radio IntOp $0 $0 & ${SF_RO} IntCmp $0 ${SF_RO} after_button_insert ; If !readonly, then it is part of the radiobutton group !insertmacro RadioButton $2 after_button_insert: IntOp $2 $2 + 1 ;Advance to the next section Goto start_spellcheck_radio end_spellcheck_radio: !insertmacro EndRadioButtons Pop $2 Pop $1 Pop $0 FunctionEnd ; Page enter and exit functions.. !ifndef WITH_GTK 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. Push $R0 Call DoWeNeedGtk Pop $R0 Pop $GTK_FOLDER StrCmp $R0 "0" have_gtk need_gtk need_gtk: IfSilent skip_mb MessageBox MB_OK $(GTK_INSTALLER_NEEDED) IDOK skip_mb: Quit have_gtk: Pop $R0 FunctionEnd !endif !ifdef WITH_GTK Function preGtkDirPage Push $R0 Push $R1 Call DoWeNeedGtk Pop $R0 Pop $R1 StrCmp $R0 "0" have_gtk StrCmp $R0 "1" upgrade_gtk StrCmp $R0 "2" no_gtk no_gtk ; Don't show dir selector.. Upgrades are done to existing path.. have_gtk: upgrade_gtk: Abort no_gtk: StrCmp $R1 "NONE" 0 no_gtk_cont ; Got no install rights.. Abort no_gtk_cont: ; Suggest path.. StrCmp $R1 "HKCU" 0 hklm1 StrCpy $R0 "$SMPROGRAMS" Push $R0 Call GetParent Call GetParent Pop $R0 StrCpy $R0 "$R0\GTK\2.0" Goto got_path hklm1: StrCpy $R0 "${GTK_DEFAULT_INSTALL_PATH}" got_path: StrCpy $name "GTK+ ${GTK_VERSION}" StrCpy $GTK_FOLDER $R0 Pop $R1 Pop $R0 FunctionEnd Function postGtkDirPage Push $R0 StrCpy $name "Gaim ${GAIM_VERSION}" Push $GTK_FOLDER Call VerifyDir Pop $R0 StrCmp $R0 "0" 0 done IfSilent skip_mb MessageBox MB_OK $(GTK_BAD_INSTALL_PATH) IDOK skip_mb: Abort done: Pop $R0 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 Push $R0 IntOp $LANG_IS_SET 0 + 0 Call GetParameters ;Pop $R0 ;Push $R0 Push "L=" Call StrStr Pop $R0 StrCmp $R0 "" next StrCpy $R0 $R0 4 2 ; Strip first 2 chars of string StrCpy $LANGUAGE $R0 IntOp $LANG_IS_SET 0 + 1 next: Pop $R0 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 ClearErrors 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 ; SpellChecker Related Functions ;------------------------------- ; Convert the a Section index to the language code ; Push the section index onto the stack and pop off the language code after the call ; This will set the error code, if no match is found Function GetLangCodeForSection ClearErrors Push $R0 Exch Pop $R0 ;This is the section index IntCmp $R0 ${SecSpellCheckBreton} 0 +3 +3 StrCpy $R0 "br" Goto done IntCmp $R0 ${SecSpellCheckCatalan} 0 +3 +3 StrCpy $R0 "ca" Goto done IntCmp $R0 ${SecSpellCheckCzech} 0 +3 +3 StrCpy $R0 "cs" Goto done IntCmp $R0 ${SecSpellCheckWelsh} 0 +3 +3 StrCpy $R0 "cy" Goto done IntCmp $R0 ${SecSpellCheckDanish} 0 +3 +3 StrCpy $R0 "da" Goto done IntCmp $R0 ${SecSpellCheckGerman} 0 +3 +3 StrCpy $R0 "de" Goto done IntCmp $R0 ${SecSpellCheckGreek} 0 +3 +3 StrCpy $R0 "el" Goto done IntCmp $R0 ${SecSpellCheckEnglish} 0 +3 +3 StrCpy $R0 "en" Goto done IntCmp $R0 ${SecSpellCheckEsperanto} 0 +3 +3 StrCpy $R0 "eo" Goto done IntCmp $R0 ${SecSpellCheckSpanish} 0 +3 +3 StrCpy $R0 "es" Goto done IntCmp $R0 ${SecSpellCheckFaroese} 0 +3 +3 StrCpy $R0 "fo" Goto done IntCmp $R0 ${SecSpellCheckFrench} 0 +3 +3 StrCpy $R0 "fr" Goto done IntCmp $R0 ${SecSpellCheckItalian} 0 +3 +3 StrCpy $R0 "it" Goto done IntCmp $R0 ${SecSpellCheckDutch} 0 +3 +3 StrCpy $R0 "nl" Goto done IntCmp $R0 ${SecSpellCheckNorwegian} 0 +3 +3 StrCpy $R0 "no" Goto done IntCmp $R0 ${SecSpellCheckPolish} 0 +3 +3 StrCpy $R0 "pl" Goto done IntCmp $R0 ${SecSpellCheckPortuguese} 0 +3 +3 StrCpy $R0 "pt" Goto done IntCmp $R0 ${SecSpellCheckRomanian} 0 +3 +3 StrCpy $R0 "ro" Goto done IntCmp $R0 ${SecSpellCheckRussian} 0 +3 +3 StrCpy $R0 "ru" Goto done IntCmp $R0 ${SecSpellCheckSlovak} 0 +3 +3 StrCpy $R0 "sk" Goto done IntCmp $R0 ${SecSpellCheckSwedish} 0 +3 +3 StrCpy $R0 "sv" Goto done IntCmp $R0 ${SecSpellCheckUkrainian} 0 +3 +3 StrCpy $R0 "uk" Goto done SetErrors done: Exch $R0 FunctionEnd ;GetLangCodeForSection ; Select and Disable any Sections that have currently installed dictionaries Function SelectAndDisableInstalledDictionaries Push $R0 Push $R1 Push $R2 ; Start with the first language dictionary IntOp $R0 ${SecSpellCheck} + 1 start: ; If it is the end of the section group, stop SectionGetFlags $R0 $R1 IntOp $R2 $R1 & ${SF_SECGRPEND} IntCmp $R2 ${SF_SECGRPEND} done Push $R0 Call GetLangCodeForSection Pop $R2 IfErrors end_loop ReadRegStr $R2 HKLM "${ASPELL_REG_KEY}-$R2" "" ; Check that the dictionary is installed StrCmp $R2 "" end_loop ; If it isn't installed, skip to the next item IntOp $R1 $R1 | ${SF_RO} ; Mark Readonly IntOp $R1 $R1 | ${SF_SELECTED} ; Select SectionSetFlags $R0 $R1 end_loop: IntOp $R0 $R0 + 1 ;Advance to the next section Goto start done: Pop $R2 Pop $R1 Pop $R0 FunctionEnd Function InstallAspellAndDict Push $R0 Exch Call GetLangCodeForSection Pop $R0 ;This is the language code Push $R1 IfErrors done ; We weren't able to convert the section to lang code retry: Call InstallAspell Pop $R1 StrCmp $R1 "" +3 StrCmp $R1 "cancel" done MessageBox MB_RETRYCANCEL "$(GAIM_SPELLCHECK_ERROR) : $R1" IDRETRY retry IDCANCEL done retry_dict: Push $R0 Call InstallAspellDictionary Pop $R1 StrCmp $R1 "" +3 StrCmp $R1 "cancel" done MessageBox MB_RETRYCANCEL "$(GAIM_SPELLCHECK_DICT_ERROR) : $R1" IDRETRY retry_dict done: Pop $R1 Pop $R0 FunctionEnd Function InstallAspell Push $R0 Push $R1 Push $R2 check: ClearErrors ReadRegDWORD $R0 HKLM ${ASPELL_REG_KEY} "AspellVersion" IntCmp $R0 15 installed ; If this is the check after installation, don't infinite loop on failure StrCmp $R1 "$TEMP\aspell_installer.exe" 0 +3 StrCpy $R0 $(ASPELL_INSTALL_FAILED) Goto done ; We need to download and install aspell StrCpy $R1 "$TEMP\aspell_installer.exe" StrCpy $R2 "${DOWNLOADER_URL}?version=${GAIM_VERSION}&dl_pkg=aspell_core" DetailPrint "Downloading Aspell... ($R2)" NSISdl::download $R2 $R1 Pop $R0 StrCmp $R0 "success" +2 Goto done ExecWait '"$R1"' Delete $R1 Goto check ; Check that it is now installed correctly installed: ;Aspell is currently installed, no error message DetailPrint "Aspell is installed" StrCpy $R0 '' done: Pop $R2 Pop $R1 Exch $R0 FunctionEnd Function InstallAspellDictionary Push $R0 Exch Pop $R0 ;This is the language code Push $R1 Push $R2 Push $R3 check: ClearErrors ReadRegStr $R2 HKLM "${ASPELL_REG_KEY}-$R0" "" StrCmp $R2 "" 0 installed ; If this is the check after installation, don't infinite loop on failure StrCmp $R1 "$TEMP\aspell_dict-$R0.exe" 0 +3 StrCpy $R0 $(ASPELL_INSTALL_FAILED) Goto done ; We need to download and install aspell StrCpy $R1 "$TEMP\aspell_dict-$R0.exe" StrCpy $R3 "${DOWNLOADER_URL}?version=${GAIM_VERSION}&dl_pkg=lang_$R0" DetailPrint "Downloading the Aspell $R0 Dictionary... ($R3)" NSISdl::download $R3 $R1 Pop $R3 StrCmp $R3 "success" +3 StrCpy $R0 $R3 Goto done ExecWait '"$R1"' Delete $R1 Goto check ; Check that it is now installed correctly installed: ;The dictionary is currently installed, no error message DetailPrint "Aspell $R0 Dictionary is installed" StrCpy $R0 '' done: Pop $R3 Pop $R2 Pop $R1 Exch $R0 FunctionEnd