Subversion Repositories Tewi

# $Id: install.nsi 217 2024-10-02 19:50:16Z nishi $

VIFileVersion "1.0.0.0"
VIProductVersion "1.0.0.0"
VIAddVersionKey "FileVersion" "${VERSION}"
VIAddVersionKey "LegalCopyright" "Public domain. Original by Nishi"
VIAddVersionKey "FileDescription" "Tewi HTTPd Installer"

LoadLanguageFile "${NSISDIR}\Contrib\Language files\Japanese.nlf"
LoadLanguageFile "${NSISDIR}\Contrib\Language files\English.nlf"

Name "Tewi HTTPd"
OutFile "install.exe"
InstallDir "C:\Tewi"
Icon "../Binary/tewi-install.ico"
LicenseData ../LICENSE

LangString EXEC_ONLY ${LANG_ENGLISH} "Install the executable only"
LangString EXEC_ONLY ${LANG_JAPANESE} "実行機能のみをインストールする"
LangString SERV_TOO ${LANG_ENGLISH} "Install the service too (NT-only)"
LangString SERV_TOO ${LANG_JAPANESE} "サービスもインストールする(NTのみ)"
LangString WAIT_STOP ${LANG_ENGLISH} "Waiting for 1 second so service can stop"
LangString WAIT_STOP ${LANG_JAPANESE} "サービスが止まるのを待っています"

!include "x64.nsh"
!include "LogicLib.nsh"
!include "Sections.nsh"

Page license
Page directory
Page components
Page instfiles
UninstPage uninstConfirm
UninstPage instfiles
Section
        CreateDirectory "$INSTDIR\etc"
        CreateDirectory "$INSTDIR\www"
        CreateDirectory "$INSTDIR\www\icons"
        CreateDirectory "$INSTDIR\modules"
        CreateDirectory "$INSTDIR\bin"
        SetOutPath "$INSTDIR"
        !cd ..
        File /oname=LICENSE.txt "LICENSE"
        SetOutPath "$INSTDIR\modules"
        !cd Module
        File "*.dll"
        !cd ..
        SetOutPath "$INSTDIR\etc"
        SetOverWrite off
        File /oname=tewi.conf "generated.conf"
        SetOutPath "$INSTDIR\www"
        File /oname=index.html "itworks.html"
        !cd Binary
        File /oname=pbtewi.gif "pbtewi.gif"
        !cd ..
        SetOutPath "$INSTDIR\www\icons"
        !cd Icons
        File "*.png"
        !cd ..
        !cd Server
        SetOverWrite on

        CreateDirectory "$SMPROGRAMS\Tewi HTTPd"
        CreateShortcut "$SMPROGRAMS\Tewi HTTPd\License.lnk" "$INSTDIR\LICENSE.txt" ""
        CreateShortcut "$SMPROGRAMS\Tewi HTTPd\Start Tewi HTTPd.lnk" "$INSTDIR\bin\tewi.exe" ""
        CreateShortcut "$SMPROGRAMS\Tewi HTTPd\Start Tewi HTTPd (verbose).lnk" "$INSTDIR\bin\tewi.exe" "-v"
        CreateShortcut "$SMPROGRAMS\Tewi HTTPd\Uninstall Tewi HTTPd.lnk" "$INSTDIR\uninstall.exe" ""

        ${If} ${RunningX64}
                SetRegView 64
        ${Else}
                SetRegView 32
        ${EndIf}
        WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Tewi HTTPd" "DisplayName" "Tewi HTTPd"
        WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Tewi HTTPd" "InstallDir" "$INSTDIR"
        WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Tewi HTTPd" "UninstallString" '"$INSTDIR\uninstall.exe"'

        WriteUninstaller "$INSTDIR\uninstall.exe"
SectionEnd

Section "$(EXEC_ONLY)" SEL_EXEC
        SetOutPath "$INSTDIR\bin"
        !cd ..
        File "tewi.exe"
        !cd Server
        WriteINIStr $INSTDIR\install.ini uninstall service false
SectionEnd

!ifndef ONLY_EXEC
Section /o "$(SERV_TOO)" SEL_SERVICE
        WriteINIStr $INSTDIR\install.ini uninstall service true
        FileOpen $9 $INSTDIR\install.bat w
        FileWrite $9 '"$SYSDIR\sc.exe" stop "TewiHTTPd"$\r$\n'
        FileClose $9
        nsExec::Exec '"$INSTDIR\install.bat"'
        Pop $0
        DetailPrint "$(WAIT_STOP)"
        Sleep 1000
        CreateDirectory "$INSTDIR\logs"
        SetOutPath "$INSTDIR\bin"
        !cd ..
        File "tewi.exe"
        File /oname=tewisrv.exe "tewi-service.exe"
        !cd Server
        FileOpen $9 $INSTDIR\install.bat w
        FileWrite $9 '"$SYSDIR\sc.exe" delete "TewiHTTPd"$\r$\n'
        FileWrite $9 '"$SYSDIR\sc.exe" create "TewiHTTPd" DisplayName= "Tewi HTTPd" binpath= "$INSTDIR\bin\tewisrv.exe" start= "auto"$\r$\n'
        FileWrite $9 '"$SYSDIR\sc.exe" start "TewiHTTPd"$\r$\n'
        FileClose $9
        nsExec::Exec '"$INSTDIR\install.bat"'
        Pop $0
        Delete $INSTDIR\install.bat
SectionEnd
!endif

Function .onInit
        StrCpy $1 ${SEL_EXEC}
FunctionEnd

Function .onSelChange
        !insertmacro StartRadioButtons $1
        !insertmacro RadioButton ${SEL_EXEC}
        !ifndef ONLY_EXEC
        !insertmacro RadioButton ${SEL_SERVICE}
        !endif
        !insertmacro EndRadioButtons
FunctionEnd

Section "Uninstall"
        ReadINIStr $8 $INSTDIR\install.ini uninstall service
        ${If} $8 == "true"
                FileOpen $9 $INSTDIR\uninstall.bat w
                FileWrite $9 '"$SYSDIR\sc.exe" stop "TewiHTTPd"$\r$\n'
                FileClose $9
                nsExec::Exec '"$INSTDIR\uninstall.bat"'
                Pop $0
                FileOpen $9 $INSTDIR\uninstall.bat w
                DetailPrint "$(WAIT_STOP)"
                Sleep 1000
                FileWrite $9 '"$SYSDIR\sc.exe" delete "TewiHTTPd"$\r$\n'
                FileClose $9
                nsExec::Exec '"$INSTDIR\uninstall.bat"'
                Pop $0
                Delete $INSTDIR\uninstall.bat
        ${EndIf}

        RMDir /r "$INSTDIR"
        RMDir /r "$SMPROGRAMS\Tewi HTTPd"

        ${If} ${RunningX64}
                SetRegView 64
        ${Else}
                SetRegView 32
        ${EndIf}
        DeleteRegKey HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Tewi HTTPd"
SectionEnd