From 994c8efa8e7468df07db9b9ee6ecb147bcb45958 Mon Sep 17 00:00:00 2001
From: Ron Pedde <ron@pedde.com>
Date: Fri, 31 Mar 2006 08:32:14 +0000
Subject: [PATCH] Add nsSCM service manager to be able to implement
 installation deps, fixing #29.  Additionally, added a check for Bonjour for
 Windows before installing.

---
 win32/nsi/mt-daapd.nsi   |  48 ++++--
 win32/nsi/nsSCM.dll      | Bin 0 -> 5632 bytes
 win32/nsi/servicelib.nsh | 348 ---------------------------------------
 3 files changed, 31 insertions(+), 365 deletions(-)
 create mode 100644 win32/nsi/nsSCM.dll
 delete mode 100644 win32/nsi/servicelib.nsh

diff --git a/win32/nsi/mt-daapd.nsi b/win32/nsi/mt-daapd.nsi
index 706a1a8d..e1d1396e 100644
--- a/win32/nsi/mt-daapd.nsi
+++ b/win32/nsi/mt-daapd.nsi
@@ -14,7 +14,6 @@
 
 ; MUI 1.67 compatible ------
 !include "MUI.nsh"
-!include "servicelib.nsh"
 
 ; MUI Settings
 !define MUI_ABORTWARNING
@@ -47,6 +46,18 @@ InstallDirRegKey HKLM "${PRODUCT_DIR_REGKEY}" ""
 ShowInstDetails show
 ShowUnInstDetails show
 
+Section -Pre
+  nsSCM::QueryStatus "Bonjour Service"
+  Pop $0
+  Pop $1
+
+  StrCmp $0 "success" lbl_got_bonjour
+  MessageBox MB_OK "Bonjour for Windows service not found.  Please install Apple's Bonjour for Windows."
+  Quit
+
+  lbl_got_bonjour:
+SectionEnd
+
 Section "MainSection" SEC01
   SetOutPath "$INSTDIR"
   SetOverwrite ifnewer
@@ -120,8 +131,17 @@ Section -Post
   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${PRODUCT_VERSION}"
   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "URLInfoAbout" "${PRODUCT_WEB_SITE}"
   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}"
-  ExecWait "$INSTDIR\mt-daapd.exe -i"
-;  !insertmacro SERVICE "create" "${PRODUCT_SERVICE}" "path=$INSTDIR\mt-daapd.exe;autostart=1;interact=0;shortname=mt-daapd;"
+;  ExecWait "$INSTDIR\mt-daapd.exe -i"
+
+  nsSCM::Install "${PRODUCT_NAME}" "${PRODUCT_SERVICE}" 16 2 "$INSTDIR\mt-daapd.exe" "" "Bonjour Service" "" ""
+  Pop $0
+  Pop $1
+
+  StrCmp $0 "success" lbl_install_success
+  IntCmp $1 1073 lbl_install_success  ; service already exists
+  MessageBox MB_OK "Error installing service: $1"
+
+  lbl_install_success:
 SectionEnd
 
 
@@ -136,21 +156,15 @@ Function un.onInit
 FunctionEnd
 
 Section Uninstall
-;  !undef UN
-;  !define UN "un."
-;  !insertmacro SERVICE "running" "${PRODUCT_SERVICE}" ""
-;  IntCmp $0 0 lbl_check_install
-;  !insertmacro SERVICE "stop" "${PRODUCT_SERVICE}" ""
-  
-;  lbl_check_install:
-;  !insertmacro SERVICE "installed" "${PRODUCT_SERVICE}" ""
-;  IntCmp $0 0 lbl_svc_done
-;  !insertmacro SERVICE "uninstall" "${PRODUCT_SERVICE}" ""
-  
-;  lbl_svc_done:
+  nsSCM::Stop "${PRODUCT_NAME}"
+  nsSCM::Remove "${PRODUCT_NAME}"
 
-  ExecWait "net stop mt-daapd"
-  ExecWait "$INSTDIR\mt-daapd.exe -u"
+  Pop $0
+  StrCmp $0 "success" lbl_continue_uninstall
+
+  MessageBox MB_OK "Error Uninstalling service: $1"  
+
+  lbl_continue_uninstall:
   Delete "$INSTDIR\${PRODUCT_NAME}.url"
   Delete "$INSTDIR\uninst.exe"
   Delete "$INSTDIR\gnu_regex.dll"
diff --git a/win32/nsi/nsSCM.dll b/win32/nsi/nsSCM.dll
new file mode 100644
index 0000000000000000000000000000000000000000..067a6d158ebe079302be055f1bae7ae2c7ac90b0
GIT binary patch
literal 5632
zcmeHLZ){W76+bU={tz5uz@aGx)hTAs6-ADppI=g-wUamuEh#1@34t!fB!=J_JAHmH
zfJT~R4^MO6Ty<h!I&B|Vw`x?aHg(m+SjC)%4Z=#x_>fVdcGXIy7tGdli?U=G-p+l0
zl6ZpB4^uU%T<N@f&bjBF`#a~Jd!L`1cfA1l0ANB=6o6CMljc#MpZ&Ok!%H4My#(G^
zbg}Xj)pW6PN6&${t(S}K=Yj`qUBPHH#@qIWY@86a9f;Z*wgqelW8I;u($W&U?pio^
zXsG(-2QSZ4#pNea4*aI%vK#x?Pd{+kfjyg8ruOfAXSLe59O&vHbMA)F?*nL}OpvWO
zRcF|I2ums#Q-uH}s43R8V-H|&L9(f`MdkCfd=L%Ei`xA7MB$_N0dN=_P9pQ>dR=@3
zU>LPKZ2)A-U7H6$zU$y;4A=k~K4Z9w4;|)lTq5xid?ePnAdtsq1K3l=bqDz%VkN<#
zLbX|f{etGfGN{tbU=`6jkcj;<BFr}rK)Q+xMPgk5t0>f?LbbDEzo2;l>K2Ii+5dwK
zv`ROIZoGg%q-Lw+GmD#XlPyZJ)QX+dYzefrzhpr+Sz3Wlp-dL=vgm2Dfn{PnauVZ0
z*5eO*o;l~U{Nl`OAG9mu(v?8+8)kVqjwjL`yftyP?AUoMn}AYoCllX9{seLA@f+4z
z`D0WP>q?0sMv1F@en1%)`^`{xOu{imFe~E|L&&8Py^5mv<zHztgm(<Z04|vHO&a2H
z9PdDv!fS@6Q#F`U*X~dk_a}W;IjlM2E5v>)Mnsn93lzbsj3=&62)NdNft`_S^cjz7
z*0i$mFDl&HeycvSwm(a_tTJBPZ=R^lbu!Z~PvbFBlcR^L@cEbvjCyw<)7CEc;UzWL
zT|+?!J(fuKl?`sH-5{6-?X}?Dc%J)I2Nd?G$(B#*&Nk)bE}{7p`)7banIYM<sw_q(
z_GdA%KfaB?gzUs|>=*i+Y?E7cpL-J1d{LXWa|o|U-$Zm?)UIjO1s0J7)a_LlLD6c6
zS>RF38Y0=y(^zk~p%a-~iZWc7YPC#Xc__W+5B}kNl^OL97pcrSzvP=4E}nkxp|Ld=
zw)@d(m{No(MVRbSs4{esC1t^=C0h=pY^IaGsfBnKYbn7}$`t0L`tE7b_l=YuVX^GQ
z{wWY1R?64o3Q3<uepZEVk;kw<XR?#ikXcP|m9IipZqbKd(S{p{Za4BB&vfn{8$Cfz
zR$C&?KPovew`)?3Ccnbl%}V(OG?cW1SJ;-Mw1m;=&e1Tnvs0Ug)0Ruci7~!ZTDm=H
z(M&SeM#as<EAX}IF1Cs3Vmy*cIXRpPLynp>N!C!;DtDk(MIk}5P-T*i&N&ww@8E*B
z7fX{kxn~DX^(*C@3=iU2bB+^fhuuV{18u`4gR>4HHoS`(ym^=}7`(YtsHv+fJ5y38
z&N_~kh_kf=1>%Gwvr3!|5^*09+cTx&toP^+akg<_n>fLad}zua$y^|w)}p5rhtAl6
zm5;x7bcHl-`1*=C%MMhg8b&T<Zj_xFL#K6#v7;7ocG1A%lxZ+!@}gx%?%X{pHQ6mv
zgS|NSifgi)bFMgEAh(&8ItkA~Gae0cP)l*IcIoFJvt2E}Hly;2F&&9%X=c9g6uv49
zVZak&B4cS`sa8FkZTKqYP4sjoKTLJvFe#YCv|yH3<2vfSnkkW&5?(DEJ91byqj*b;
zH&)&Giq3@}%!U6vo-hM`qXB>Oz2UD+`L6lH6e2Vu!geg5d8i!vG@$MyybARQatL+o
z^J5iC<aIb{g8W?aob$<e<3LXC|CF5vzrg^%=APh%74o|{QxRm<zi~pHBqR*TvM?a|
zXS(GrvetBmP^3jxpau0))T%*!&f?jfn|%v$suz#P2!Oq30K64pS{K4pOXS}-=kxw|
z!mD|wG>D_5wDEed_tD}^USE+olh0RV*7ZCIWmt$|P|7RN;Y;MI%q%@YI&lW?a6HVU
z1o4J>%M5R0!$3{{8o?JO@YZ3<do0a+G*S4p0F@w7r<L2cpUb}_PAc?U;)v-aP}C4F
zOWrKnI*(oB?I-ba2YxwrpzwK_iz%-{ygoKEn)2SB<8IAyS)C*9@3${F19_DIRwO%;
z3#k$5X`~3!4Vwn$hsggN=@imgr0*e-_JQ8Vg|4npJPsj_i*cx5+l}@%VxhI?h@B1K
zZ6u>zLY*DuYe+`Bjyim`+_C*HaJryA5{ridA+GO0SLkcOXm=!pUx`r9g@U}H_5!?4
z1^6Jx>vmq)LT&2}Mdw6dpgtDmxmZM30kl%vg%Ec{mvJ^P!~qUNLnsoO^9(-CPknPR
z8r&b^a3ya;o7caUc2;#qA^=0wmPl-GFyf7nPpR+fQX>~alq;z%A-*XX=Y3j|^YSBc
zp6lv8f?f&?KI(<9`&ypzH5ndX%{vtD<qkyoeO_n{_*x8oZi<a><Xw*dP&ibe(|VLQ
zA^DNWw`9u-fOYu2d>y~*UM>gdMtub7Fwy{00*QFY!+#V^5RC`wo7KR!M&o=C1JrV)
zC8s5HFxD3WHPQHt^^&Rg+ZUbzd{5%PKKI*~HUoIB$^TGG9Tko>jz=Ag!{dlL4m*xJ
zrX0(v*H(L~!`0ue{&n@c)g{jLPTKi|v)TEy^PA4I&I`^f&c8bU=G;Kn(@)WRX^xiY
z@6$h`U!i|TpQkU;@6#XA|D<PV%C*?F++}lBxfs{uu143C>!z!aF*6m6gL#5!V74=R
zm@qTIq?i|(H<;ftzi0l){F(WLxy9tWE$&M9SKT%42KOHKe)qHPL+&5AUv-~$r`;Fb
zAG`nIzUf}ZKFC(HHEcb*m2G7YvfpBd*yq_7*`Kh#WZz`3v!AfjY+lWmc6aX?_<sNv
CBaRpV

literal 0
HcmV?d00001

diff --git a/win32/nsi/servicelib.nsh b/win32/nsi/servicelib.nsh
deleted file mode 100644
index 96d94102..00000000
--- a/win32/nsi/servicelib.nsh
+++ /dev/null
@@ -1,348 +0,0 @@
-; NSIS SERVICE LIBRARY - servicelib.nsh
-; Version 1.3 - January 5th, 2006
-; Questions/Comments - dselkirk@hotmail.com
-;
-; Description:
-;   Provides an interface to window services
-;
-; Inputs:
-;   action	- systemlib action ie. create, delete, start, stop, pause,
-;		continue, installed, running, status
-;   name	- name of service to manipulate
-;   param	- action parameters; usage: var1=value1;var2=value2;...etc.
-;                 (don't forget to add a ';' after the last value!)
-;
-; Actions:
-;   create	- creates a new windows service
-;		Parameters:
-;		  path	- path to service executable
-;		  autostart	- automatically start with system ie. 1|0
-;		  interact	- interact with the desktop ie. 1|0
-;		  machine	- machine name where to install service
-;		  user		- user that runs the service
-;		  password	- password of the above user
-;
-;   delete	- deletes a windows service
-;   start	- start a stopped windows service
-;   stop	- stops a running windows service
-;   pause	- pauses a running windows service
-;   continue	- continues a paused windows service
-;   installed	- is the provided service installed
-;		Parameters:
-;		  action	- if true then invokes the specified action
-;   running	- is the provided service running
-;		Parameters:
-;		  action	- if true then invokes the specified action
-;   status	- check the status of the provided service
-;
-; If run from uninstall define "UN" as "un." gefore running.
-;
-; Usage:
-;   Method 1:
-;     Push "action"
-;     Push "name"
-;     Push "param"
-;     Call Service
-;     Pop $0 ;response
-;
-;   Method 2:
-;     !insertmacro SERVICE "action" "name" "param"
-;
-; History:
-;		1.0 - 09/15/2003 - Initial release
-;		1.1 - 09/16/2003 - Changed &l to i, thx brainsucker
-;		1.2 - 02/29/2004 - Fixed documentation.
- 
-!ifndef SERVICELIB
-  !define SERVICELIB
- 
-  !define SC_MANAGER_ALL_ACCESS 0x3F
-  !define SERVICE_ALL_ACCESS 0xF01FF
- 
-  !define SERVICE_CONTROL_STOP  1
-  !define SERVICE_CONTROL_PAUSE  2
-  !define SERVICE_CONTROL_CONTINUE  3
- 
-  !define SERVICE_STOPPED 0x1
-  !define SERVICE_START_PENDING 0x2
-  !define SERVICE_STOP_PENDING 0x3
-  !define SERVICE_RUNNING 0x4
-  !define SERVICE_CONTINUE_PENDING 0x5
-  !define SERVICE_PAUSE_PENDING 0x6
-  !define SERVICE_PAUSED 0x7
- 
-  !ifndef UN
-    !define UN ""
-  !endif
- 
-  !macro SERVICE ACTION NAME PARAM
-    Push '${ACTION}'
-    Push '${NAME}'
-    Push '${PARAM}'
-    Call ${UN}Service
-  !macroend
- 
-  !macro FUNC_GETPARAM
-    Push $0
-    Push $1
-    Push $2
-    Push $3
-    Push $4
-    Push $5
-    Push $6
-    Push $7
-    Exch 8
-    Pop $1 ;name
-    Exch 8
-    Pop $2 ;source
-    StrCpy $0 ""
-    StrLen $7 $2
-    StrCpy $3 0
-    lbl_loop:
-      IntCmp $3 $7 0 0 lbl_done
-      StrLen $4 "$1="
-      StrCpy $5 $2 $4 $3
-      StrCmp $5 "$1=" 0 lbl_next
-      IntOp $5 $3 + $4
-      StrCpy $3 $5
-      lbl_loop2:
-        IntCmp $3 $7 0 0 lbl_done
-        StrCpy $6 $2 1 $3
-        StrCmp $6 ";" 0 lbl_next2
-        IntOp $6 $3 - $5
-        StrCpy $0 $2 $6 $5
-        Goto lbl_done
-        lbl_next2:
-        IntOp $3 $3 + 1
-        Goto lbl_loop2
-      lbl_next:
-      IntOp $3 $3 + 1
-      Goto lbl_loop
-    lbl_done:
-    Pop $5
-    Pop $4
-    Pop $3
-    Pop $2
-    Pop $1
-    Exch 2
-    Pop $6
-    Pop $7
-    Exch $0
-  !macroend
- 
-  !macro CALL_GETPARAM VAR NAME DEFAULT LABEL
-    Push $1
-    Push ${NAME}
-    Call ${UN}GETPARAM
-    Pop $6
-    StrCpy ${VAR} "${DEFAULT}"
-    StrCmp $6 "" "${LABEL}" 0
-    StrCpy ${VAR} $6
-  !macroend
- 
-  !macro FUNC_SERVICE UN
-    Push $0
-    Push $1
-    Push $2
-    Push $3
-    Push $4
-    Push $5
-    Push $6
-    Push $7
-    Exch 8
-    Pop $1 ;param
-    Exch 8
-    Pop $2 ;name
-    Exch 8
-    Pop $3 ;action
-    ;$0 return
-    ;$4 OpenSCManager
-    ;$5 OpenService
- 
- 
-    StrCpy $0 "false"
-    System::Call 'advapi32::OpenSCManagerA(n, n, i ${SC_MANAGER_ALL_ACCESS}) i.r4'
-    IntCmp $4 0 lbl_done
-    StrCmp $3 "create" lbl_create
-    System::Call 'advapi32::OpenServiceA(i r4, t r2, i ${SERVICE_ALL_ACCESS}) i.r5'
-    IntCmp $5 0 lbl_done
- 
-    lbl_select:
-    StrCmp $3 "delete" lbl_delete
-    StrCmp $3 "start" lbl_start
-    StrCmp $3 "stop" lbl_stop
-    StrCmp $3 "pause" lbl_pause
-    StrCmp $3 "continue" lbl_continue
-    StrCmp $3 "installed" lbl_installed
-    StrCmp $3 "running" lbl_running
-    StrCmp $3 "status" lbl_status
-    Goto lbl_done
- 
-    ; create service
-    lbl_create:
-      Push $R1 ;machine
-      Push $R2 ;user
-      Push $R3 ;password
-      Push $R4 ;interact
-      Push $R5 ;autostart
-      Push $R6 ;path
-      Push $R7 ;shortname
- 
-      !insertmacro CALL_GETPARAM $R1 "machine" "n" "lbl_machine"
-      lbl_machine:
- 
-      !insertmacro CALL_GETPARAM $R2 "user" "n" "lbl_user"
-      lbl_user:
- 
-      !insertmacro CALL_GETPARAM $R3 "password" "n" "lbl_password"
-      lbl_password:
- 
-      !insertmacro CALL_GETPARAM $R4 "interact" "0x10" "lbl_interact"
-        StrCpy $6 0x10
-        IntCmp $R4 0 +2
-        IntOp $6 $6 | 0x100
-        StrCpy $R4 $6
-      lbl_interact:
- 
-      !insertmacro CALL_GETPARAM $R5 "autostart" "0x3" "lbl_autostart"
-        StrCpy $6 0x3
-        IntCmp $R5 0 +2
-        StrCpy $6 0x2
-        StrCpy $R5 $6
-      lbl_autostart:
- 
-      !insertmacro CALL_GETPARAM $R6 "path" "n" "lbl_path"
-      lbl_path:
- 
-      !insertmacro CALL_GETPARAM $R7 "shortname" r2 "lbl_shortname"
-      lbl_shortname:
-
-      System::Call 'advapi32::CreateServiceA(i r4, t r7, t r2, i ${SERVICE_ALL_ACCESS}, \
-                                             i R4, i R5, i 0, t R6, n, n, R1, R2, R3) i.r6'
-      Pop $R7
-      Pop $R6
-      Pop $R5
-      Pop $R4
-      Pop $R3
-      Pop $R2
-      Pop $R1
-      StrCmp $6 0 lbl_done lbl_good
- 
-    ; delete service
-    lbl_delete:
-      System::Call 'advapi32::DeleteService(i r5) i.r6'
-      StrCmp $6 0 lbl_done lbl_good
- 
-    ; start service
-    lbl_start:
-      System::Call 'advapi32::StartServiceA(i r5, i 0, i 0) i.r6'
-      StrCmp $6 0 lbl_done lbl_good
- 
-    ; stop service
-    lbl_stop:
-      Push $R1
-      System::Call '*(i,i,i,i,i,i,i) i.R1'
-      System::Call 'advapi32::ControlService(i r5, i ${SERVICE_CONTROL_STOP}, i $R1) i'
-      System::Free $R1
-      Pop $R1
-      StrCmp $6 0 lbl_done lbl_good
- 
-    ; pause service
-    lbl_pause:
-      Push $R1
-      System::Call '*(i,i,i,i,i,i,i) i.R1'
-      System::Call 'advapi32::ControlService(i r5, i ${SERVICE_CONTROL_PAUSE}, i $R1) i'
-      System::Free $R1
-      Pop $R1
-      StrCmp $6 0 lbl_done lbl_good
- 
-    ; continue service
-    lbl_continue:
-      Push $R1
-      System::Call '*(i,i,i,i,i,i,i) i.R1'
-      System::Call 'advapi32::ControlService(i r5, i ${SERVICE_CONTROL_CONTINUE}, i $R1) i'
-      System::Free $R1
-      Pop $R1
-      StrCmp $6 0 lbl_done lbl_good
- 
-    ; is installed
-    lbl_installed:
-      !insertmacro CALL_GETPARAM $7 "action" "" "lbl_good"
-        StrCpy $3 $7
-        Goto lbl_select
- 
-    ; is service running
-    lbl_running:
-      Push $R1
-      System::Call '*(i,i,i,i,i,i,i) i.R1'
-      System::Call 'advapi32::QueryServiceStatus(i r5, i $R1) i'
-      System::Call '*$R1(i, i.r6)'
-      System::Free $R1
-      Pop $R1
-      IntFmt $6 "0x%X" $6
-      StrCmp $6 ${SERVICE_RUNNING} 0 lbl_done
-      !insertmacro CALL_GETPARAM $7 "action" "" "lbl_good"
-        StrCpy $3 $7
-        Goto lbl_select
- 
-    lbl_status:
-      Push $R1
-      System::Call '*(i,i,i,i,i,i,i) i.R1'
-      System::Call 'advapi32::QueryServiceStatus(i r5, i $R1) i'
-      System::Call '*$R1(i, i .r6)'
-      System::Free $R1
-      Pop $R1
-      IntFmt $6 "0x%X" $6
-      StrCpy $0 "running"
-      IntCmp $6 ${SERVICE_RUNNING} lbl_done
-      StrCpy $0 "stopped"
-      IntCmp $6 ${SERVICE_STOPPED} lbl_done
-      StrCpy $0 "start_pending"
-      IntCmp $6 ${SERVICE_START_PENDING} lbl_done
-      StrCpy $0 "stop_pending"
-      IntCmp $6 ${SERVICE_STOP_PENDING} lbl_done
-      StrCpy $0 "running"
-      IntCmp $6 ${SERVICE_RUNNING} lbl_done
-      StrCpy $0 "continue_pending"
-      IntCmp $6 ${SERVICE_CONTINUE_PENDING} lbl_done
-      StrCpy $0 "pause_pending"
-      IntCmp $6 ${SERVICE_PAUSE_PENDING} lbl_done
-      StrCpy $0 "paused"
-      IntCmp $6 ${SERVICE_PAUSED} lbl_done
-      StrCpy $0 "unknown"
- 
-    lbl_good:
-    StrCpy $0 "true"
-    lbl_done:
-    IntCmp $5 0 +2
-    System::Call 'advapi32::CloseServiceHandle(i r5) n'
-    IntCmp $4 0 +2
-    System::Call 'advapi32::CloseServiceHandle(i r4) n'
-    Pop $4
-    Pop $3
-    Pop $2
-    Pop $1
-    Exch 3
-    Pop $5
-    Pop $7
-    Pop $6
-    Exch $0
-  !macroend
- 
-  Function Service
-    !insertmacro FUNC_SERVICE ""
-  FunctionEnd
- 
-  Function un.Service
-    !insertmacro FUNC_SERVICE "un."
-  FunctionEnd
- 
-  Function GetParam
-    !insertmacro FUNC_GETPARAM
-  FunctionEnd
- 
-  Function un.GetParam
-    !insertmacro FUNC_GETPARAM
-  FunctionEnd
- 
-!endif
\ No newline at end of file