Merge bug23813 (abstract rabbit out of delegate)

4 files changed, 584 insertions, 0 deletions

diff --git a/packaging/windows-exe/Makefile b/packaging/windows-exe/Makefile
new file mode 100644
index 0000000000..59803f9ce9
--- /dev/null
+++ b/packaging/windows-exe/Makefile
@@ -0,0 +1,16 @@
+VERSION=0.0.0
+ZIP=../windows/rabbitmq-server-windows-$(VERSION)
+
+dist: rabbitmq-$(VERSION).nsi rabbitmq_server-$(VERSION)
+	makensis rabbitmq-$(VERSION).nsi
+
+rabbitmq-$(VERSION).nsi: rabbitmq_nsi.in
+	sed \
+	    -e 's|%%VERSION%%|$(VERSION)|' \
+	    $< > $@
+
+rabbitmq_server-$(VERSION):
+	unzip $(ZIP)
+
+clean:
+	rm -rf rabbitmq-*.nsi rabbitmq_server-* rabbitmq-server-*.exe
diff --git a/packaging/windows-exe/lib/EnvVarUpdate.nsh b/packaging/windows-exe/lib/EnvVarUpdate.nsh
new file mode 100644
index 0000000000..839d6a0206
--- /dev/null
+++ b/packaging/windows-exe/lib/EnvVarUpdate.nsh
@@ -0,0 +1,327 @@
+/**

+ *  EnvVarUpdate.nsh

+ *    : Environmental Variables: append, prepend, and remove entries

+ *

+ *     WARNING: If you use StrFunc.nsh header then include it before this file

+ *              with all required definitions. This is to avoid conflicts

+ *

+ *  Usage:

+ *    ${EnvVarUpdate} "ResultVar" "EnvVarName" "Action" "RegLoc" "PathString"

+ *

+ *  Credits:

+ *  Version 1.0 

+ *  * Cal Turney (turnec2)

+ *  * Amir Szekely (KiCHiK) and e-circ for developing the forerunners of this

+ *    function: AddToPath, un.RemoveFromPath, AddToEnvVar, un.RemoveFromEnvVar,

+ *    WriteEnvStr, and un.DeleteEnvStr

+ *  * Diego Pedroso (deguix) for StrTok

+ *  * Kevin English (kenglish_hi) for StrContains

+ *  * Hendri Adriaens (Smile2Me), Diego Pedroso (deguix), and Dan Fuhry  

+ *    (dandaman32) for StrReplace

+ *

+ *  Version 1.1 (compatibility with StrFunc.nsh)

+ *  * techtonik

+ *

+ *  http://nsis.sourceforge.net/Environmental_Variables:_append%2C_prepend%2C_and_remove_entries

+ *

+ */

+

+

+!ifndef ENVVARUPDATE_FUNCTION

+!define ENVVARUPDATE_FUNCTION

+!verbose push

+!verbose 3

+!include "LogicLib.nsh"

+!include "WinMessages.NSH"

+!include "StrFunc.nsh"

+

+; ---- Fix for conflict if StrFunc.nsh is already includes in main file -----------------------

+!macro _IncludeStrFunction StrFuncName

+  !ifndef ${StrFuncName}_INCLUDED

+    ${${StrFuncName}}

+  !endif

+  !ifndef Un${StrFuncName}_INCLUDED

+    ${Un${StrFuncName}}

+  !endif

+  !define un.${StrFuncName} "${Un${StrFuncName}}"

+!macroend

+

+!insertmacro _IncludeStrFunction StrTok

+!insertmacro _IncludeStrFunction StrStr

+!insertmacro _IncludeStrFunction StrRep

+

+; ---------------------------------- Macro Definitions ----------------------------------------

+!macro _EnvVarUpdateConstructor ResultVar EnvVarName Action Regloc PathString

+  Push "${EnvVarName}"

+  Push "${Action}"

+  Push "${RegLoc}"

+  Push "${PathString}"

+    Call EnvVarUpdate

+  Pop "${ResultVar}"

+!macroend

+!define EnvVarUpdate '!insertmacro "_EnvVarUpdateConstructor"'

+ 

+!macro _unEnvVarUpdateConstructor ResultVar EnvVarName Action Regloc PathString

+  Push "${EnvVarName}"

+  Push "${Action}"

+  Push "${RegLoc}"

+  Push "${PathString}"

+    Call un.EnvVarUpdate

+  Pop "${ResultVar}"

+!macroend

+!define un.EnvVarUpdate '!insertmacro "_unEnvVarUpdateConstructor"'

+; ---------------------------------- Macro Definitions end-------------------------------------

+ 

+;----------------------------------- EnvVarUpdate start----------------------------------------

+!define hklm_all_users     'HKLM "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"'

+!define hkcu_current_user  'HKCU "Environment"'

+ 

+!macro EnvVarUpdate UN

+ 

+Function ${UN}EnvVarUpdate

+ 

+  Push $0

+  Exch 4

+  Exch $1

+  Exch 3

+  Exch $2

+  Exch 2

+  Exch $3

+  Exch

+  Exch $4

+  Push $5

+  Push $6

+  Push $7

+  Push $8

+  Push $9

+  Push $R0

+ 

+  /* After this point:

+  -------------------------

+     $0 = ResultVar     (returned)

+     $1 = EnvVarName    (input)

+     $2 = Action        (input)

+     $3 = RegLoc        (input)

+     $4 = PathString    (input)

+     $5 = Orig EnvVar   (read from registry)

+     $6 = Len of $0     (temp)

+     $7 = tempstr1      (temp)

+     $8 = Entry counter (temp)

+     $9 = tempstr2      (temp)

+     $R0 = tempChar     (temp)  */

+ 

+  ; Step 1:  Read contents of EnvVarName from RegLoc

+  ;

+  ; Check for empty EnvVarName

+  ${If} $1 == ""

+    SetErrors

+    DetailPrint "ERROR: EnvVarName is blank"

+    Goto EnvVarUpdate_Restore_Vars

+  ${EndIf}

+ 

+  ; Check for valid Action

+  ${If}    $2 != "A"

+  ${AndIf} $2 != "P"

+  ${AndIf} $2 != "R"

+    SetErrors

+    DetailPrint "ERROR: Invalid Action - must be A, P, or R"

+    Goto EnvVarUpdate_Restore_Vars

+  ${EndIf}

+ 

+  ${If} $3 == HKLM

+    ReadRegStr $5 ${hklm_all_users} $1     ; Get EnvVarName from all users into $5

+  ${ElseIf} $3 == HKCU

+    ReadRegStr $5 ${hkcu_current_user} $1  ; Read EnvVarName from current user into $5

+  ${Else}

+    SetErrors

+    DetailPrint 'ERROR: Action is [$3] but must be "HKLM" or HKCU"'

+    Goto EnvVarUpdate_Restore_Vars

+  ${EndIf}

+ 

+  ; Check for empty PathString

+  ${If} $4 == ""

+    SetErrors

+    DetailPrint "ERROR: PathString is blank"

+    Goto EnvVarUpdate_Restore_Vars

+  ${EndIf}

+ 

+  ; Make sure we've got some work to do

+  ${If} $5 == ""

+  ${AndIf} $2 == "R"

+    SetErrors

+    DetailPrint "$1 is empty - Nothing to remove"

+    Goto EnvVarUpdate_Restore_Vars

+  ${EndIf}

+ 

+  ; Step 2: Scrub EnvVar

+  ;

+  StrCpy $0 $5                             ; Copy the contents to $0

+  ; Remove spaces around semicolons (NOTE: spaces before the 1st entry or

+  ; after the last one are not removed here but instead in Step 3)

+  ${If} $0 != ""                           ; If EnvVar is not empty ...

+    ${Do}

+      ${${UN}StrStr} $7 $0 " ;"

+      ${If} $7 == ""

+        ${ExitDo}

+      ${EndIf}

+      ${${UN}StrRep} $0  $0 " ;" ";"         ; Remove '<space>;'

+    ${Loop}

+    ${Do}

+      ${${UN}StrStr} $7 $0 "; "

+      ${If} $7 == ""

+        ${ExitDo}

+      ${EndIf}

+      ${${UN}StrRep} $0  $0 "; " ";"         ; Remove ';<space>'

+    ${Loop}

+    ${Do}

+      ${${UN}StrStr} $7 $0 ";;" 

+      ${If} $7 == ""

+        ${ExitDo}

+      ${EndIf}

+      ${${UN}StrRep} $0  $0 ";;" ";"

+    ${Loop}

+ 

+    ; Remove a leading or trailing semicolon from EnvVar

+    StrCpy  $7  $0 1 0

+    ${If} $7 == ";"

+      StrCpy $0  $0 "" 1                   ; Change ';<EnvVar>' to '<EnvVar>'

+    ${EndIf}

+    StrLen $6 $0

+    IntOp $6 $6 - 1

+    StrCpy $7  $0 1 $6

+    ${If} $7 == ";"

+     StrCpy $0  $0 $6                      ; Change ';<EnvVar>' to '<EnvVar>'

+    ${EndIf}

+    ; DetailPrint "Scrubbed $1: [$0]"      ; Uncomment to debug

+  ${EndIf}

+ 

+  /* Step 3. Remove all instances of the target path/string (even if "A" or "P")

+     $6 = bool flag (1 = found and removed PathString)

+     $7 = a string (e.g. path) delimited by semicolon(s)

+     $8 = entry counter starting at 0

+     $9 = copy of $0

+     $R0 = tempChar      */

+ 

+  ${If} $5 != ""                           ; If EnvVar is not empty ...

+    StrCpy $9 $0

+    StrCpy $0 ""

+    StrCpy $8 0

+    StrCpy $6 0

+ 

+    ${Do}

+      ${${UN}StrTok} $7 $9 ";" $8 "0"      ; $7 = next entry, $8 = entry counter

+ 

+      ${If} $7 == ""                       ; If we've run out of entries,

+        ${ExitDo}                          ;    were done

+      ${EndIf}                             ;

+ 

+      ; Remove leading and trailing spaces from this entry (critical step for Action=Remove)

+      ${Do}

+        StrCpy $R0  $7 1

+        ${If} $R0 != " "

+          ${ExitDo}

+        ${EndIf}

+        StrCpy $7   $7 "" 1                ;  Remove leading space

+      ${Loop}

+      ${Do}

+        StrCpy $R0  $7 1 -1

+        ${If} $R0 != " "

+          ${ExitDo}

+        ${EndIf}

+        StrCpy $7   $7 -1                  ;  Remove trailing space

+      ${Loop}

+      ${If} $7 == $4                       ; If string matches, remove it by not appending it

+        StrCpy $6 1                        ; Set 'found' flag

+      ${ElseIf} $7 != $4                   ; If string does NOT match

+      ${AndIf}  $0 == ""                   ;    and the 1st string being added to $0,

+        StrCpy $0 $7                       ;    copy it to $0 without a prepended semicolon

+      ${ElseIf} $7 != $4                   ; If string does NOT match

+      ${AndIf}  $0 != ""                   ;    and this is NOT the 1st string to be added to $0,

+        StrCpy $0 $0;$7                    ;    append path to $0 with a prepended semicolon

+      ${EndIf}                             ;

+ 

+      IntOp $8 $8 + 1                      ; Bump counter

+    ${Loop}                                ; Check for duplicates until we run out of paths

+  ${EndIf}

+ 

+  ; Step 4:  Perform the requested Action

+  ;

+  ${If} $2 != "R"                          ; If Append or Prepend

+    ${If} $6 == 1                          ; And if we found the target

+      DetailPrint "Target is already present in $1. It will be removed and"

+    ${EndIf}

+    ${If} $0 == ""                         ; If EnvVar is (now) empty

+      StrCpy $0 $4                         ;   just copy PathString to EnvVar

+      ${If} $6 == 0                        ; If found flag is either 0

+      ${OrIf} $6 == ""                     ; or blank (if EnvVarName is empty)

+        DetailPrint "$1 was empty and has been updated with the target"

+      ${EndIf}

+    ${ElseIf} $2 == "A"                    ;  If Append (and EnvVar is not empty),

+      StrCpy $0 $0;$4                      ;     append PathString

+      ${If} $6 == 1

+        DetailPrint "appended to $1"

+      ${Else}

+        DetailPrint "Target was appended to $1"

+      ${EndIf}

+    ${Else}                                ;  If Prepend (and EnvVar is not empty),

+      StrCpy $0 $4;$0                      ;     prepend PathString

+      ${If} $6 == 1

+        DetailPrint "prepended to $1"

+      ${Else}

+        DetailPrint "Target was prepended to $1"

+      ${EndIf}

+    ${EndIf}

+  ${Else}                                  ; If Action = Remove

+    ${If} $6 == 1                          ;   and we found the target

+      DetailPrint "Target was found and removed from $1"

+    ${Else}

+      DetailPrint "Target was NOT found in $1 (nothing to remove)"

+    ${EndIf}

+    ${If} $0 == ""

+      DetailPrint "$1 is now empty"

+    ${EndIf}

+  ${EndIf}

+ 

+  ; Step 5:  Update the registry at RegLoc with the updated EnvVar and announce the change

+  ;

+  ClearErrors

+  ${If} $3  == HKLM

+    WriteRegExpandStr ${hklm_all_users} $1 $0     ; Write it in all users section

+  ${ElseIf} $3 == HKCU

+    WriteRegExpandStr ${hkcu_current_user} $1 $0  ; Write it to current user section

+  ${EndIf}

+ 

+  IfErrors 0 +4

+    MessageBox MB_OK|MB_ICONEXCLAMATION "Could not write updated $1 to $3"

+    DetailPrint "Could not write updated $1 to $3"

+    Goto EnvVarUpdate_Restore_Vars

+ 

+  ; "Export" our change

+  SendMessage ${HWND_BROADCAST} ${WM_WININICHANGE} 0 "STR:Environment" /TIMEOUT=5000

+ 

+  EnvVarUpdate_Restore_Vars:

+  ;

+  ; Restore the user's variables and return ResultVar

+  Pop $R0

+  Pop $9

+  Pop $8

+  Pop $7

+  Pop $6

+  Pop $5

+  Pop $4

+  Pop $3

+  Pop $2

+  Pop $1

+  Push $0  ; Push my $0 (ResultVar)

+  Exch

+  Pop $0   ; Restore his $0

+ 

+FunctionEnd

+ 

+!macroend   ; EnvVarUpdate UN

+!insertmacro EnvVarUpdate ""

+!insertmacro EnvVarUpdate "un."

+;----------------------------------- EnvVarUpdate end----------------------------------------

+ 

+!verbose pop

+!endif

diff --git a/packaging/windows-exe/rabbitmq.ico b/packaging/windows-exe/rabbitmq.ico
new file mode 100644
index 0000000000..5e169a7996
--- /dev/null
+++ b/packaging/windows-exe/rabbitmq.ico
diff --git a/packaging/windows-exe/rabbitmq_nsi.in b/packaging/windows-exe/rabbitmq_nsi.in
new file mode 100644
index 0000000000..6d79ffd4fc
--- /dev/null
+++ b/packaging/windows-exe/rabbitmq_nsi.in
@@ -0,0 +1,241 @@
+; Use the "Modern" UI
+!include MUI2.nsh
+!include LogicLib.nsh
+!include WinMessages.nsh
+!include FileFunc.nsh
+!include WordFunc.nsh
+!include lib\EnvVarUpdate.nsh
+
+!define env_hklm 'HKLM "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"'
+!define uninstall "Software\Microsoft\Windows\CurrentVersion\Uninstall\RabbitMQ"
+
+;--------------------------------
+
+; The name of the installer
+Name "RabbitMQ Server %%VERSION%%"
+
+; The file to write
+OutFile "rabbitmq-server-%%VERSION%%.exe"
+
+; Icons
+!define MUI_ICON "rabbitmq.ico"
+
+; The default installation directory
+InstallDir "$PROGRAMFILES\RabbitMQ Server"
+
+; Registry key to check for directory (so if you install again, it will
+; overwrite the old one automatically)
+InstallDirRegKey HKLM "Software\VMware, Inc.\RabbitMQ Server" "Install_Dir"
+
+; Request application privileges for Windows Vista
+RequestExecutionLevel admin
+
+SetCompressor /solid lzma
+
+VIProductVersion "%%VERSION%%.0"
+VIAddVersionKey /LANG=${LANG_ENGLISH} "ProductVersion" "%%VERSION%%"
+VIAddVersionKey /LANG=${LANG_ENGLISH} "ProductName" "RabbitMQ Server"
+;VIAddVersionKey /LANG=${LANG_ENGLISH} "Comments" ""
+VIAddVersionKey /LANG=${LANG_ENGLISH} "CompanyName" "VMware, Inc"
+;VIAddVersionKey /LANG=${LANG_ENGLISH} "LegalTrademarks" "" ; TODO ?
+VIAddVersionKey /LANG=${LANG_ENGLISH} "LegalCopyright" "Copyright (c) 2007-2011 VMware, Inc.  All rights reserved."
+VIAddVersionKey /LANG=${LANG_ENGLISH} "FileDescription" "RabbitMQ Server"
+VIAddVersionKey /LANG=${LANG_ENGLISH} "FileVersion" "%%VERSION%%"
+
+;--------------------------------
+
+; Pages
+
+
+;  !insertmacro MUI_PAGE_LICENSE "..\..\LICENSE-MPL-RabbitMQ"
+  !insertmacro MUI_PAGE_COMPONENTS
+  !insertmacro MUI_PAGE_DIRECTORY
+  !insertmacro MUI_PAGE_INSTFILES
+  !insertmacro MUI_PAGE_FINISH
+
+  !insertmacro MUI_UNPAGE_CONFIRM
+  !insertmacro MUI_UNPAGE_INSTFILES
+  !define MUI_FINISHPAGE_TEXT "RabbitMQ Server %%VERSION%% has been uninstalled from your computer.$\n$\nPlease note that the log and database directories located at $APPDATA\RabbitMQ have not been removed. You can remove them manually if desired."
+  !insertmacro MUI_UNPAGE_FINISH
+
+;--------------------------------
+;Languages
+
+  !insertmacro MUI_LANGUAGE "English"
+
+;--------------------------------
+
+; The stuff to install
+Section "RabbitMQ Server (required)" Rabbit
+
+  SectionIn RO
+
+  ; Set output path to the installation directory.
+  SetOutPath $INSTDIR
+
+  ; Put files there
+  File /r "rabbitmq_server-%%VERSION%%"
+  File "rabbitmq.ico"
+
+  ; Add to PATH
+  ${EnvVarUpdate} $0 "PATH" "A" "HKLM" "$INSTDIR\rabbitmq_server-%%VERSION%%\sbin"
+
+  ; Write the installation path into the registry
+  WriteRegStr HKLM "SOFTWARE\VMware, Inc.\RabbitMQ Server" "Install_Dir" "$INSTDIR"
+
+  ; Write the uninstall keys for Windows
+  WriteRegStr HKLM ${uninstall} "DisplayName" "RabbitMQ Server"
+  WriteRegStr HKLM ${uninstall} "UninstallString" "$INSTDIR\uninstall.exe"
+  WriteRegStr HKLM ${uninstall} "DisplayIcon" "$INSTDIR\uninstall.exe,0"
+  WriteRegStr HKLM ${uninstall} "Publisher" "VMware, Inc."
+  WriteRegStr HKLM ${uninstall} "DisplayVersion" "%%VERSION%%"
+  WriteRegDWORD HKLM ${uninstall} "NoModify" 1
+  WriteRegDWORD HKLM ${uninstall} "NoRepair" 1
+
+  ${GetSize} "$INSTDIR" "/S=0K" $0 $1 $2
+  IntFmt $0 "0x%08X" $0
+  WriteRegDWORD HKLM "${uninstall}" "EstimatedSize" "$0"
+
+  WriteUninstaller "uninstall.exe"
+SectionEnd
+
+;--------------------------------
+
+Section "RabbitMQ Service" RabbitService
+  ExpandEnvStrings $0 %COMSPEC%
+  ExecWait '"$0" /C "$INSTDIR\rabbitmq_server-%%VERSION%%\sbin\rabbitmq-service.bat" install'
+  ExecWait '"$0" /C "$INSTDIR\rabbitmq_server-%%VERSION%%\sbin\rabbitmq-service.bat" start'
+  CopyFiles "$WINDIR\.erlang.cookie" "$PROFILE\.erlang.cookie"
+SectionEnd
+
+;--------------------------------
+
+Section "Start Menu" RabbitStartMenu
+  ; In case the service is not installed, or the service installation fails,
+  ; make sure these exist or Explorer will get confused.
+  CreateDirectory "$APPDATA\RabbitMQ\log"
+  CreateDirectory "$APPDATA\RabbitMQ\db"
+
+  CreateDirectory "$SMPROGRAMS\RabbitMQ Server"
+  CreateShortCut "$SMPROGRAMS\RabbitMQ Server\Uninstall.lnk" "$INSTDIR\uninstall.exe" "" "$INSTDIR\uninstall.exe" 0
+  CreateShortCut "$SMPROGRAMS\RabbitMQ Server\Plugins Directory.lnk" "$INSTDIR\rabbitmq_server-%%VERSION%%\plugins"
+  CreateShortCut "$SMPROGRAMS\RabbitMQ Server\Log Directory.lnk" "$APPDATA\RabbitMQ\log"
+  CreateShortCut "$SMPROGRAMS\RabbitMQ Server\Database Directory.lnk" "$APPDATA\RabbitMQ\db"
+  CreateShortCut "$SMPROGRAMS\RabbitMQ Server\(Re)Install Service.lnk" "$INSTDIR\rabbitmq_server-%%VERSION%%\sbin\rabbitmq-service.bat" "install" "$INSTDIR\rabbitmq.ico"
+  CreateShortCut "$SMPROGRAMS\RabbitMQ Server\Remove Service.lnk" "$INSTDIR\rabbitmq_server-%%VERSION%%\sbin\rabbitmq-service.bat" "remove" "$INSTDIR\rabbitmq.ico"
+  CreateShortCut "$SMPROGRAMS\RabbitMQ Server\Start Service.lnk" "$INSTDIR\rabbitmq_server-%%VERSION%%\sbin\rabbitmq-service.bat" "start" "$INSTDIR\rabbitmq.ico"
+  CreateShortCut "$SMPROGRAMS\RabbitMQ Server\Stop Service.lnk" "$INSTDIR\rabbitmq_server-%%VERSION%%\sbin\rabbitmq-service.bat" "stop" "$INSTDIR\rabbitmq.ico"
+
+SectionEnd
+
+;--------------------------------
+
+; Section descriptions
+
+LangString DESC_Rabbit ${LANG_ENGLISH} "The RabbitMQ Server."
+LangString DESC_RabbitService ${LANG_ENGLISH} "Set up RabbitMQ as a Windows Service."
+LangString DESC_RabbitStartMenu ${LANG_ENGLISH} "Add some useful links to the start menu."
+
+!insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN
+  !insertmacro MUI_DESCRIPTION_TEXT ${Rabbit} $(DESC_Rabbit)
+  !insertmacro MUI_DESCRIPTION_TEXT ${RabbitService} $(DESC_RabbitService)
+  !insertmacro MUI_DESCRIPTION_TEXT ${RabbitStartMenu} $(DESC_RabbitStartMenu)
+!insertmacro MUI_FUNCTION_DESCRIPTION_END
+
+;--------------------------------
+
+; Uninstaller
+
+Section "Uninstall"
+
+  ; Remove registry keys
+  DeleteRegKey HKLM ${uninstall}
+  DeleteRegKey HKLM "SOFTWARE\VMware, Inc.\RabbitMQ Server"
+
+  ; TODO these will fail if the service is not installed - do we care?
+  ExpandEnvStrings $0 %COMSPEC%
+  ExecWait '"$0" /C "$INSTDIR\rabbitmq_server-%%VERSION%%\sbin\rabbitmq-service.bat" stop'
+  ExecWait '"$0" /C "$INSTDIR\rabbitmq_server-%%VERSION%%\sbin\rabbitmq-service.bat" remove'
+
+  ; Remove from PATH
+  ${un.EnvVarUpdate} $0 "PATH" "R" "HKLM" "$INSTDIR\rabbitmq_server-%%VERSION%%\sbin"
+
+  ; Remove files and uninstaller
+  RMDir /r "$INSTDIR\rabbitmq_server-%%VERSION%%"
+  Delete "$INSTDIR\rabbitmq.ico"
+  Delete "$INSTDIR\uninstall.exe"
+
+  ; Remove start menu items
+  RMDir /r "$SMPROGRAMS\RabbitMQ Server"
+
+  DeleteRegValue ${env_hklm} ERLANG_HOME
+  SendMessage ${HWND_BROADCAST} ${WM_WININICHANGE} 0 "STR:Environment" /TIMEOUT=5000
+
+SectionEnd
+
+;--------------------------------
+
+; Functions
+
+Function .onInit
+  Call findErlang
+
+  ReadRegStr $0 HKLM ${uninstall} "UninstallString"
+  ${If} $0 != ""
+    MessageBox MB_OKCANCEL|MB_ICONEXCLAMATION "RabbitMQ is already installed. $\n$\nClick 'OK' to remove the previous version or 'Cancel' to cancel this installation." IDCANCEL norun
+
+    ;Run the uninstaller
+    ClearErrors
+    ExecWait $INSTDIR\uninstall.exe
+
+    norun:
+    Abort
+  ${EndIf}
+FunctionEnd
+
+Function findErlang
+
+  StrCpy $0 0
+  StrCpy $2 "not-found"
+  ${Do}
+    EnumRegKey $1 HKLM Software\Ericsson\Erlang $0
+    ${If} $1 = ""
+      ${Break}
+    ${EndIf}
+    ${If} $1 <> "ErlSrv"
+      StrCpy $2 $1
+    ${EndIf}
+
+    IntOp $0 $0 + 1
+  ${Loop}
+
+  ${If} $2 = "not-found"
+    MessageBox MB_YESNO|MB_ICONEXCLAMATION "Erlang could not be detected.$\nYou must install Erlang before installing RabbitMQ. Would you like the installer to open a browser window to the Erlang download site?" IDNO abort
+    ExecShell "open" "http://www.erlang.org/download.html"
+    abort:
+    Abort
+  ${Else}
+    ${VersionCompare} $2 "5.6.3" $0
+    ${VersionCompare} $2 "5.8.1" $1
+
+    ${If} $0 = 2
+      MessageBox MB_OK|MB_ICONEXCLAMATION "Your installed version of Erlang ($2) is too old. Please install a more recent version."
+      Abort
+    ${ElseIf} $1 = 2
+      MessageBox MB_YESNO|MB_ICONEXCLAMATION "Your installed version of Erlang ($2) is comparatively old.$\nFor best results, please install a newer version.$\nDo you wish to continue?" IDYES no_abort
+      Abort
+      no_abort:
+    ${EndIf}
+
+    ReadRegStr $0 HKLM "Software\Ericsson\Erlang\$2" ""
+
+    ; See http://nsis.sourceforge.net/Setting_Environment_Variables
+    WriteRegExpandStr ${env_hklm} ERLANG_HOME $0
+    SendMessage ${HWND_BROADCAST} ${WM_WININICHANGE} 0 "STR:Environment" /TIMEOUT=5000
+
+    ; On Windows XP changing the permanent environment does not change *our*
+    ; environment, so do that as well.
+    System::Call 'Kernel32::SetEnvironmentVariableA(t, t) i("ERLANG_HOME", "$0").r0'
+  ${EndIf}
+
+FunctionEnd
\ No newline at end of file