Merge with default

11 files changed, 687 insertions, 20 deletions

diff --git a/.hgignore b/.hgignore
index 03b60914a3..912b4a5676 100644
--- a/.hgignore
+++ b/.hgignore
@@ -25,6 +25,9 @@ syntax: regexp
 ^packaging/macports/macports$
 ^packaging/generic-unix/rabbitmq-server-generic-unix-.*\.tar\.gz$
 ^packaging/windows/rabbitmq-server-windows-.*\.zip$
+^packaging/windows-exe/rabbitmq_server-.*$
+^packaging/windows-exe/rabbitmq-.*\.nsi$
+^packaging/windows-exe/rabbitmq-server-.*\.exe$
 
 ^docs/.*\.[15]\.gz$
 ^docs/.*\.man\.xml$
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
diff --git a/src/rabbit.erl b/src/rabbit.erl
index c6661d390a..67e2e40f47 100644
--- a/src/rabbit.erl
+++ b/src/rabbit.erl
@@ -153,6 +153,11 @@
                    [{mfa,         {rabbit_networking, boot, []}},
                     {requires,    log_relay}]}).
 
+-rabbit_boot_step({notify_cluster,
+                   [{description, "notify cluster nodes"},
+                    {mfa,         {rabbit_node_monitor, notify_cluster, []}},
+                    {requires,    networking}]}).
+
 %%---------------------------------------------------------------------------
 
 -include("rabbit_framing.hrl").
@@ -225,11 +230,11 @@ start(normal, []) ->
     case erts_version_check() of
         ok ->
             {ok, SupPid} = rabbit_sup:start_link(),
+            true = register(rabbit, self()),
 
             print_banner(),
             [ok = run_boot_step(Step) || Step <- boot_steps()],
             io:format("~nbroker running~n"),
-
             {ok, SupPid};
         Error ->
             Error
diff --git a/src/rabbit_amqqueue.erl b/src/rabbit_amqqueue.erl
index a6da551d15..2545b07c14 100644
--- a/src/rabbit_amqqueue.erl
+++ b/src/rabbit_amqqueue.erl
@@ -356,7 +356,8 @@ consumers_all(VHostPath) ->
                          {ChPid, ConsumerTag, AckRequired} <- consumers(Q)]
           end)).
 
-stat(#amqqueue{pid = QPid}) -> delegate_call(QPid, stat, infinity).
+stat(#amqqueue{pid = QPid}) ->
+    delegate_call(QPid, stat, infinity).
 
 emit_stats(#amqqueue{pid = QPid}) ->
     delegate_cast(QPid, emit_stats).
diff --git a/src/rabbit_misc.erl b/src/rabbit_misc.erl
index 7d9167973d..e36b1dd12c 100644
--- a/src/rabbit_misc.erl
+++ b/src/rabbit_misc.erl
@@ -350,8 +350,11 @@ throw_on_error(E, Thunk) ->
 with_exit_handler(Handler, Thunk) ->
     try
         Thunk()
-    catch exit:{R, _} when R =:= noproc; R =:= nodedown;
-                           R =:= normal; R =:= shutdown ->
+    catch
+        exit:{R, _} when R =:= noproc; R =:= nodedown;
+                         R =:= normal; R =:= shutdown ->
+            Handler();
+        exit:{{R, _}, _} when R =:= nodedown; R =:= shutdown ->
             Handler()
     end.
 
diff --git a/src/rabbit_node_monitor.erl b/src/rabbit_node_monitor.erl
index e4bc1cdc5a..817abaa2bd 100644
--- a/src/rabbit_node_monitor.erl
+++ b/src/rabbit_node_monitor.erl
@@ -22,14 +22,41 @@
 
 -export([init/1, handle_call/3, handle_cast/2, handle_info/2,
          terminate/2, code_change/3]).
+-export([notify_cluster/0, rabbit_running_on/1]).
 
 -define(SERVER, ?MODULE).
+-define(RABBIT_UP_RPC_TIMEOUT, 2000).
+
+%%----------------------------------------------------------------------------
+
+-ifdef(use_specs).
+
+-spec(rabbit_running_on/1 :: (node()) -> 'ok').
+-spec(notify_cluster/0 :: () -> 'ok').
+
+-endif.
 
 %%--------------------------------------------------------------------
 
 start_link() ->
     gen_server:start_link({local, ?SERVER}, ?MODULE, [], []).
 
+rabbit_running_on(Node) ->
+    gen_server:cast(rabbit_node_monitor, {rabbit_running_on, Node}).
+
+notify_cluster() ->
+    Node = node(),
+    Nodes = rabbit_mnesia:running_clustered_nodes() -- [Node],
+    %% notify other rabbits of this rabbit
+    case rpc:multicall(Nodes, rabbit_node_monitor, rabbit_running_on,
+                       [Node], ?RABBIT_UP_RPC_TIMEOUT) of
+        {_, [] } -> ok;
+        {_, Bad} -> rabbit_log:info("failed to contact nodes ~p~n", [Bad])
+    end,
+    %% register other active rabbits with this rabbit
+    [ rabbit_node_monitor:rabbit_running_on(N) || N <- Nodes ],
+    ok.
+
 %%--------------------------------------------------------------------
 
 init([]) ->
@@ -39,19 +66,20 @@ init([]) ->
 handle_call(_Request, _From, State) ->
     {noreply, State}.
 
+handle_cast({rabbit_running_on, Node}, State) ->
+    rabbit_log:info("node ~p up~n", [Node]),
+    erlang:monitor(process, {rabbit, Node}),
+    {noreply, State};
 handle_cast(_Msg, State) ->
     {noreply, State}.
 
-handle_info({nodeup, Node}, State) ->
-    rabbit_log:info("node ~p up", [Node]),
-    {noreply, State};
 handle_info({nodedown, Node}, State) ->
-    rabbit_log:info("node ~p down", [Node]),
-    %% TODO: This may turn out to be a performance hog when there are
-    %% lots of nodes.  We really only need to execute this code on
-    %% *one* node, rather than all of them.
-    ok = rabbit_networking:on_node_down(Node),
-    ok = rabbit_amqqueue:on_node_down(Node),
+    rabbit_log:info("node ~p down~n", [Node]),
+    ok = handle_dead_rabbit(Node),
+     {noreply, State};
+handle_info({'DOWN', _MRef, process, {rabbit, Node}, _Reason}, State) ->
+    rabbit_log:info("node ~p lost 'rabbit'~n", [Node]),
+    ok = handle_dead_rabbit(Node),
     {noreply, State};
 handle_info(_Info, State) ->
     {noreply, State}.
@@ -64,3 +92,10 @@ code_change(_OldVsn, State, _Extra) ->
 
 %%--------------------------------------------------------------------
 
+%% TODO: This may turn out to be a performance hog when there are
+%% lots of nodes.  We really only need to execute this code on
+%% *one* node, rather than all of them.
+handle_dead_rabbit(Node) ->
+    ok = rabbit_networking:on_node_down(Node),
+    ok = rabbit_amqqueue:on_node_down(Node).
+
diff --git a/src/rabbit_reader.erl b/src/rabbit_reader.erl
index 4bb87f19d5..1781469a13 100644
--- a/src/rabbit_reader.erl
+++ b/src/rabbit_reader.erl
@@ -925,10 +925,14 @@ socket_info(Get, Select) ->
     end.
 
 ssl_info(F, Sock) ->
+    %% The first ok form is R14
+    %% The second is R13 - the extra term is exportability (by inspection,
+    %% the docs are wrong)
     case rabbit_net:ssl_info(Sock) of
-        nossl       -> '';
-        {error, _}  -> '';
-        {ok, Info}  -> F(Info)
+        nossl                   -> '';
+        {error, _}              -> '';
+        {ok, {P, {K, C, H}}}    -> F({P, {K, C, H}});
+        {ok, {P, {K, C, H, _}}} -> F({P, {K, C, H}})
     end.
 
 cert_info(F, Sock) ->
diff --git a/src/rabbit_tests.erl b/src/rabbit_tests.erl
index 32cdaa52f1..f3af1129c3 100644
--- a/src/rabbit_tests.erl
+++ b/src/rabbit_tests.erl
@@ -26,6 +26,7 @@
 
 -define(PERSISTENT_MSG_STORE, msg_store_persistent).
 -define(TRANSIENT_MSG_STORE,  msg_store_transient).
+-define(CLEANUP_QUEUE_NAME, <<"cleanup-queue">>).
 
 test_content_prop_roundtrip(Datum, Binary) ->
     Types =  [element(1, E) || E <- Datum],
@@ -80,19 +81,21 @@ run_cluster_dependent_tests(SecondaryNode) ->
     io:format("Running cluster dependent tests with node ~p~n", [SecondaryNode]),
     passed = test_delegates_async(SecondaryNode),
     passed = test_delegates_sync(SecondaryNode),
+    passed = test_queue_cleanup(SecondaryNode),
 
     %% we now run the tests remotely, so that code coverage on the
     %% local node picks up more of the delegate
     Node = node(),
     Self = self(),
     Remote = spawn(SecondaryNode,
-                   fun () -> A = test_delegates_async(Node),
-                             B = test_delegates_sync(Node),
-                             Self ! {self(), {A, B}}
+                   fun () -> Rs = [ test_delegates_async(Node),
+                                    test_delegates_sync(Node),
+                                    test_queue_cleanup(Node) ],
+                             Self ! {self(), Rs}
                    end),
     receive
         {Remote, Result} ->
-            Result = {passed, passed}
+            Result = [passed, passed, passed]
     after 2000 ->
             throw(timeout)
     end,
@@ -1377,6 +1380,35 @@ test_delegates_sync(SecondaryNode) ->
 
     passed.
 
+test_queue_cleanup_receiver(Pid) ->
+    receive
+        shutdown ->
+            ok;
+        {send_command, Method} ->
+            Pid ! Method,
+            test_queue_cleanup_receiver(Pid)
+    end.
+
+
+test_queue_cleanup(_SecondaryNode) ->
+    {_Writer, Ch} = test_spawn(fun test_queue_cleanup_receiver/1),
+    rabbit_channel:do(Ch, #'queue.declare'{ queue = ?CLEANUP_QUEUE_NAME }),
+    receive #'queue.declare_ok'{queue = ?CLEANUP_QUEUE_NAME} ->
+            ok
+    after 1000 -> throw(failed_to_receive_queue_declare_ok)
+    end,
+    rabbit:stop(),
+    rabbit:start(),
+    rabbit_channel:do(Ch, #'queue.declare'{ passive = true,
+                                            queue   = ?CLEANUP_QUEUE_NAME }),
+    receive
+        {channel_exit, 1, {amqp_error, not_found, _, _}} ->
+            ok
+    after 2000 ->
+            throw(failed_to_receive_channel_exit)
+    end,
+    passed.
+
 %---------------------------------------------------------------------
 
 control_action(Command, Args) ->