Installer.nsh

!define LSFUSION_NAME "lsFusion ${LSFUSION_MAJOR_VERSION}"

Name "lsFusion ${LSFUSION_MAJOR_VERSION}"

; NSIS 3 doesn't work under wine (can't find a lot of files)
; NSIS 2 - use another nsis version for unicode 
;Unicode true

SetCompressor lzma

# General Symbol Definitions
!define REGKEY "SOFTWARE\$(^Name)"
!define VERSION ${LSFUSION_VERSION}
!define COMPANY lsFusion
!define URL lsfusion.org

!define JAVA_INSTALLER "java-${JDK_VERSION}-${ARCH}"
!define JAVA_INSTALLER_EXT "msi"
;!define JAVA_INSTALLER_EXT "exe"
!define PG_INSTALLER "postgresql-${PG_VERSION}-${ARCH}"
!define IDEA_INSTALLER "ideaIC-${IDEA_VERSION}"
!define IDEA_PLUGIN "lsfusion-idea-plugin"
!define TOMCAT_ARCHIVE "apache-tomcat-${TOMCAT_VERSION}-${ARCH}"
!define ANT_ARCHIVE "apache-ant-${ANT_VERSION}"
!define JASPER_INSTALLER "jasper-${JASPER_VERSION}-${ARCH}"

!define DOWNLOADURL "https://download.lsfusion.org/exe/links"
!define DOWNLOADURL_JAVA "https://download.lsfusion.org/java"
!define DOWNLOAD_SERVER_JAR "${DOWNLOADURL_JAVA}/lsfusion-server-${LSFUSION_VERSION}.jar"
!define DOWNLOAD_SERVER_SOURCES_JAR "${DOWNLOADURL_JAVA}/lsfusion-server-${LSFUSION_VERSION}-sources.jar"
!define DOWNLOAD_CLIENT_JAR "${DOWNLOADURL_JAVA}/lsfusion-client-${LSFUSION_VERSION}.jar"
!define DOWNLOAD_CLIENT_WAR "${DOWNLOADURL_JAVA}/lsfusion-client-${LSFUSION_VERSION}.war"

!define PG_SECTION_NAME "Database" ; "PostgreSQL ${PG_MAJORVERSION}"
!define JAVA_SECTION_NAME "Java" ; "JDK ${JDK_VERSION}"
!define SERVER_SECTION_NAME "Server"
!define CLIENT_SECTION_NAME "Client (Web & Desktop)"
!define DESKTOP_CLIENT_SECTION_NAME "Client (Desktop)"
!define IDEA_SECTION_NAME "IDE" ; "IntelliJ IDEA Community Edition ${IDEA_VERSION} with lsFusion plugin"
!define JASPER_SECTION_NAME "Reports IDE" ; "Jaspersoft Studio ${JASPER_VERSION}"

!define CLIENT_JAR "client.jar"
!define SERVER_LIBRARY_NAME "lsfusion-${LSFUSION_MAJOR_VERSION}"
!define SERVER_JAR "server.jar"
!define SERVER_SOURCES_JAR "server-sources.jar"

!define INSTBINDIR "$INSTDIR\install-bin"
!define INSTCONFDIR "$INSTDIR\install-config"

!define INSTCLIENTDIR "$INSTDIR\Client"
!define INSTSERVERDIR "$INSTDIR\Server"

# MUI Symbol Definitions
!define MUI_ICON resources\lsfusion.ico
!define MUI_FINISHPAGE_NOAUTOCLOSE
!define MUI_UNICON resources\lsfusion.ico
!define MUI_UNFINISHPAGE_NOAUTOCLOSE
!define MUI_LANGDLL_REGISTRY_ROOT HKLM
!define MUI_LANGDLL_REGISTRY_KEY ${REGKEY}
!define MUI_LANGDLL_REGISTRY_VALUENAME InstallerLanguage
; !define MUI_LANGDLL_ALWAYSSHOW 1

!define IE_NETCONFIG "Software\Microsoft\Windows\CurrentVersion\Internet Settings"

# Needed Variables
Var javaVersion
Var javaDir
Var javaHome
Var jvmDll

Var pgHost
Var pgPort
Var pgDbName
Var pgUser
Var pgPassword
Var pgVersion
Var pgDir
Var pgServiceName

Var ideaDir
!define IDEA_CONFIG_DIR "$PROFILE\AppData\Roaming\JetBrains\IdeaIC${IDEA_MAJORVERSION}"

Var jasperDir

Var serverHost
Var serverPort
Var serverPassword
Var serverCreateService
Var serverServiceName
Var serverServiceDisplayName

Var clientShutdownPort
Var clientHttpPort
Var clientAjpPort
Var clientServiceName 
Var clientDisplayServiceName 
Var clientContext

Var serverLanguage
Var serverCountry

# no locals in nsis
Var serviceFile

Var secureProtocols
Var secureProtocolsChanged

# Included files
!include Sections.nsh
!include MUI2.nsh
!include LogicLib.nsh
!include TextFunc.nsh

!include StrFunc.nsh
${StrRep}

!include WordFunc.nsh
!include Utils.nsh

!include URLEncode.nsh

# Installer pages
!insertmacro MUI_PAGE_WELCOME

# TODO License page
;!insertmacro MUI_PAGE_LICENSE $(lsLicense)

!define MUI_PAGE_CUSTOMFUNCTION_LEAVE pageComponentsLeave
!insertmacro MUI_PAGE_COMPONENTS

!include FusionSections.nsh

# pgPagePre, javaPagePre, etc. are defined with DefinePreFeatureFunction in the end of Section.nsh, and all they do is enabling / disabling page if section is selected / unselected 

# PG pages
!include PgFunctions.nsh
Page custom pgConfigPagePre pgConfigPageLeave
!insertmacro CustomDirectoryPage $(strPostgreDirHeader) $(strPostgreDirTextTop) $(strDestinationFolder) $pgDir pgPagePre

# Java pages
!include JavaFunctions.nsh
Page custom javaConfigPagePre javaConfigPageLeave
!insertmacro CustomDirectoryPage $(strJavaDirHeader) $(strJavaDirTextTop) $(strDestinationFolder) $javaDir javaPagePre

# Server pages
!include ServerFunctions.nsh
Page custom serverConfigPagePre serverConfigPageLeave
; directory - main

# Client pages
!include ClientFunctions.nsh
Page custom clientConfigPagePre clientConfigPageLeave
; directory - main

# IDE (IntelliJ Idea + plugin) pages
; leaf - we don't need any config
!insertmacro CustomDirectoryPage $(strIdeaDirHeader) $(strIdeaDirTextTop) $(strDestinationFolder) $ideaDir ideaPagePre

# Jaspersoft Studio pages
; leaf - we don't need any config
!insertmacro CustomDirectoryPage $(strJasperDirHeader) $(strJasperDirTextTop) $(strDestinationFolder) $jasperDir jasperPagePre

!insertmacro MUI_PAGE_DIRECTORY
!insertmacro MUI_PAGE_INSTFILES
!insertmacro MUI_PAGE_FINISH

# Uninstaller pages
!insertmacro MUI_UNPAGE_COMPONENTS
!insertmacro MUI_UNPAGE_CONFIRM
!insertmacro MUI_UNPAGE_INSTFILES

# Reserved Files
!insertmacro MUI_RESERVEFILE_LANGDLL
; NSIS 2 
ReserveFile "${NSISDIR}\Plugins\AdvSplash.dll"
;ReserveFile "${NSISDIR}\Plugins\x86-unicode\AdvSplash.dll"

# Installer languages
!insertmacro MUI_LANGUAGE English
!insertmacro MUI_LANGUAGE Russian
!include I18nEn.nsh
!include I18nRu.nsh

LicenseLangString lsLicense ${LANG_ENGLISH} "resources\license-english.txt"
LicenseLangString lsLicense ${LANG_RUSSIAN} "resources\license-russian.txt"

# Installer attributes
OutFile ${OUT_FILE}
RequestExecutionLevel admin ;Require admin rights on NT6+ (When UAC is turned on)
InstallDir "$ProgramFiles${ARCH}\${LSFUSION_NAME}"
CRCCheck on
XPStyle on
ShowInstDetails show
VIProductVersion ${VI_LSFUSION_VERSION}
VIAddVersionKey /LANG=${LANG_ENGLISH} ProductName "${LSFUSION_NAME}"
VIAddVersionKey /LANG=${LANG_ENGLISH} ProductVersion "${VERSION}"
VIAddVersionKey /LANG=${LANG_ENGLISH} CompanyName "${COMPANY}"
VIAddVersionKey /LANG=${LANG_ENGLISH} CompanyWebsite "${URL}"
VIAddVersionKey /LANG=${LANG_ENGLISH} FileVersion "${VERSION}"
VIAddVersionKey /LANG=${LANG_ENGLISH} FileDescription ""
VIAddVersionKey /LANG=${LANG_ENGLISH} LegalCopyright ""
InstallDirRegKey HKLM "${REGKEY}" Path
ShowUninstDetails show

!include Uninstaller.nsh

Function pageComponentsLeave
FunctionEnd

# Installer functions
Function .onInit
    SetRegView ${ARCH}
    
    ReadRegDWORD $secureProtocols HKCU "${IE_NETCONFIG}" "SecureProtocols"
    
    StrCpy $1 0x00000800 ; we need TLS 1.2
    IntOp $2 $secureProtocols & $1
    ${If} $2 == 0
        WriteRegDWORD HKCU "${IE_NETCONFIG}" "SecureProtocols" 0x00000A80
        StrCpy $secureProtocolsChanged "TRUE"
    ${EndIf}
    
    InitPluginsDir
    
    Call checkUserAdmin
    
    Call getWindowsVersion
    Pop $R0
    ${LogMessage} "Windows version: $R0"
    
    Call getIEVersion
    Pop $R0
    ${LogMessage} "IE version: $R0"

    Push $R1
    File /oname=$PLUGINSDIR\spltmp.bmp resources\lsfusion.bmp
    advsplash::show 1000 600 400 -1 $PLUGINSDIR\spltmp
    Pop $R1
    Pop $R1
    
    StrCpy $javaDir "$ProgramFiles${ARCH}\Java\jdk${JDK_VERSION}"

    StrCpy $ideaDir "$ProgramFiles${ARCH}\JetBrains\IDEA Community Edition ${IDEA_VERSION}"
    
    StrCpy $jasperDir "$ProgramFiles${ARCH}\TIBCO\Jaspersoft Studio-${JASPER_VERSION}"

    StrCpy $pgDir "$ProgramFiles${ARCH}\PostgreSQL\${PG_MAJORVERSION}"
    StrCpy $pgHost "localhost"
    StrCpy $pgPort "5432"
    StrCpy $pgUser "postgres"
    StrCpy $pgDbName "lsfusion"
    StrCpy $pgServiceName "postgresql-${PG_MAJORVERSION}"
    
    StrCpy $clientHttpPort "8080"
    StrCpy $clientContext ""
    StrCpy $clientShutdownPort "8005"
    StrCpy $clientAjpPort "8009"
    StrCpy $clientServiceName "lsfusion${LSFUSION_MAJOR_VERSION}_client"
    StrCpy $clientDisplayServiceName "${LSFUSION_NAME} Client"

    StrCpy $serverHost "localhost"
    StrCpy $serverPort "7652"
    StrCpy $serverServiceName "lsfusion${LSFUSION_MAJOR_VERSION}_server"
    StrCpy $serverServiceDisplayName "${LSFUSION_NAME} Server"
    !ifndef DEV
        StrCpy $serverCreateService 1
    !else
        StrCpy $serverCreateService 0
    !endif
    
    !insertmacro MUI_LANGDLL_DISPLAY

    Call initJavaFromRegistry
    ${ifNot} $javaVersion == ""
        !insertmacro DisableSection ${SecJava}
    ${endIf}

    !ifdef DESKTOP
        !insertmacro HideSection ${SecPG}
        !insertmacro HideSection ${SecServer}
        !insertmacro HideSection ${SecClient}
    !else
        Call initPostgresFromRegistry
        ${ifNot} $pgVersion == ""
            !insertmacro DisableSection ${SecPG}
        ${endIf}
    !endif

    !ifndef DEV
        !insertmacro HideSection ${SecIdea}
        !insertmacro HideSection ${SecJasper}
    !endif
FunctionEnd

Function .onInstFailed
    Call AfterInstall
FunctionEnd

Function .onInstSuccess
    Call AfterInstall
FunctionEnd

Function AfterInstall
    SetOutPath $INSTDIR

    Var /GLOBAL file
    Var /GLOBAL line
    Var /GLOBAL installText
    Var /GLOBAL configText
    ClearErrors
    FileOpen $file "install.log" r
    ${Do}
        FileRead $file $line
        ${If} ${Errors}
            ${ExitDo}
        ${EndIf}
        StrCpy $installText "$installText$line"
    ${Loop}
    FileClose $file
    
    FileOpen $file "${INSTCONFDIR}\configure.log" r
    ${Do}
        FileRead $file $line
        ${If} ${Errors}
            ${ExitDo}
        ${EndIf}
        StrCpy $configText "$configText$line"
    ${Loop}
    FileClose $file

    nsJSON::Quote $installText
    Pop $R0
    
    nsJSON::Quote $configText
    Pop $R1
    
    Push `{ "installLog" : $R0, "configureLog" : $R1 }`
    Call URLEncode
    Pop $0  
    
    ${ForEach} $downloadTry 1 5 + 1
        inetc::post `p=$0` /WEAKSECURITY "https://tryonline.lsfusion.org/exec?action=saveInstallLog" "result.htm" /END
        Pop $0
        ${if} $0 != "SendRequest Error"
            ${ExitFor}
        ${endIf}
        Sleep 1000
    ${Next}
    
    ${If} $secureProtocolsChanged == "TRUE"
        WriteRegDWORD HKCU "${IE_NETCONFIG}" "SecureProtocols" $secureProtocols
    ${EndIf}
    
    Delete install.log
    Delete result.htm
    RMDir /r ${INSTCONFDIR}
FunctionEnd

Section -post SecPost
    WriteRegStr HKLM "${REGKEY}" Path $INSTDIR
    
    SetOutPath $INSTDIR

    WriteUninstaller $INSTDIR\uninstall.exe
    
    WriteRegStr HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$(^Name)" DisplayName "$(^Name)"
    WriteRegStr HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$(^Name)" DisplayVersion "${VERSION}"
    WriteRegStr HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$(^Name)" Publisher "${COMPANY}"
    WriteRegStr HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$(^Name)" URLInfoAbout "${URL}"
    WriteRegStr HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$(^Name)" DisplayIcon $INSTDIR\uninstall.exe
    WriteRegStr HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$(^Name)" UninstallString $INSTDIR\uninstall.exe
    WriteRegDWORD HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$(^Name)" NoModify 1
    WriteRegDWORD HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\$(^Name)" NoRepair 1

    Call execAntConfiguration
    
    CALL createServices

    CALL createShortcuts
    
    RMDir ${INSTBINDIR}
SectionEnd

Function CheckUserAdmin
    ClearErrors
    UserInfo::GetName
    ${if} ${Errors}    
        MessageBox MB_OK|MB_ICONSTOP "$(strNoWindows9x)"
        Quit
    ${endIf}
    
    Pop $0
    UserInfo::GetAccountType
    Pop $1
  
    ${ifNot} $1 == "Admin"
        MessageBox MB_OK|MB_ICONSTOP "$(strUserShouldBeAdmin)"
        Quit
    ${endIf}
FunctionEnd

Function initJavaFromRegistry
    ClearErrors

    ReadRegStr $javaVersion HKLM "SOFTWARE\JavaSoft\JDK" "CurrentVersion"
    ${if} $javaVersion == ""
        ReadRegStr $javaVersion HKLM "SOFTWARE\JavaSoft\Java Development Kit" "CurrentVersion"
        ReadRegStr $javaHome HKLM "SOFTWARE\JavaSoft\Java Development Kit\$javaVersion" "JavaHome"
        ReadRegStr $jvmDll HKLM "SOFTWARE\JavaSoft\Java Runtime Environment\$javaVersion" "RuntimeLib"
    ${else}        
        ReadRegStr $javaHome HKLM "SOFTWARE\JavaSoft\JDK\$javaVersion" "JavaHome"
        ReadRegStr $jvmDll HKLM "SOFTWARE\JavaSoft\JDK\$javaVersion" "RuntimeLib"
    ${endIf}
    
;    ${VersionCompare} $javaVersion "${JDK_MAJORVERSION}" $0

    IfFileExists $jvmDll noProblem

    ; there is a bug, when RuntimeLib refers client instead of server folder

    StrCpy $0 $javaHome

    Call setJvmPath

    StrCpy $javaHome $0
    StrCpy $jvmDll $2

    noProblem:

    ${if} $0 == "2"
    ${orIf} ${Errors}
       StrCpy $javaVersion ""
       StrCpy $javaHome ""
       StrCpy $jvmDll ""
   ${endIf}
FunctionEnd

Function initPostgresFromRegistry
    ClearErrors

    EnumRegKey $1 HKLM "SOFTWARE\PostgreSQL\Installations\" "0"
    ${ifNot} $1 == ""
        ReadRegStr $pgDir HKLM "SOFTWARE\PostgreSQL\Installations\$1" "Base Directory"
        ReadRegStr $pgVersion HKLM "SOFTWARE\PostgreSQL\Installations\$1" "Version"
        ; if installed version is < PG_MAJORVERSION then abort
;        ${VersionCompare} $pgVersion "${PG_MAJORVERSION}" $0
;        ${if} $0 == "2"
;            MessageBox MB_ICONEXCLAMATION|MB_OK $(strOldPostgreMessage)
;            Abort
;        ${endIf}
    ${endIf}
    
    ${if} $1 == ""
    ${orIf} ${Errors}
        StrCpy $pgVersion ""
   ${endIf}
FunctionEnd


# no locals in nsis
Var serverSettingsFile
Var antArchive
Function execAntConfiguration

    ${LogMessage} "Configuring lsFusion"
    
    ${if} ${SectionIsSelected} ${SecServer}
        ${LogMessage} "Configuring server"
        StrCpy $serverSettingsFile "${INSTSERVERDIR}\conf\settings.properties"
        ${ConfigWriteSE} "$serverSettingsFile" "db.server=" "$pgHost:$pgPort" $R0
        ${ConfigWriteSE} "$serverSettingsFile" "db.name=" "$pgDbName" $R0
        ${ConfigWriteSE} "$serverSettingsFile" "db.user=" "$pgUser" $R0
        ${ConfigWriteSE} "$serverSettingsFile" "db.password=" "$pgPassword" $R0
        ${ConfigWriteSE} "$serverSettingsFile" "rmi.host=" "$serverHost" $R0
        ${ConfigWriteSE} "$serverSettingsFile" "rmi.port=" "$serverPort" $R0
        ${ConfigWriteSE} "$serverSettingsFile" "logics.initialAdminPassword=" "$serverPassword" $R0
        ${ifNot} $serverLanguage == ""
            ${ConfigWriteSE} "$serverSettingsFile" "user.setLanguage=" $serverLanguage $R0
        ${endIf}
        ${ifNot} $serverCountry == ""
            ${ConfigWriteSE} "$serverSettingsFile" "user.setCountry=" $serverCountry $R0
        ${endIf}
    ${endIf}
    
    ${if} ${SectionIsSelected} ${SecClient}
    ${orIf} ${SectionIsSelected} ${SecIdea}
    
        ${RunLinkFile} ${ANT_ARCHIVE} "zip" "Ant" "${INSTBINDIR}" ; assuming that will unzip to ANT_ARCHIVE dir    
    
        SetOutPath ${INSTCONFDIR}
        File install-config\configure.bat
        File install-config\configure.xml
        File install-config\configure.properties
    
        ${ConfigWriteS} "${INSTCONFDIR}\configure.bat" "set JAVA_HOME=" "$javaHome" $R0
        StrCpy $antArchive ${INSTBINDIR}\${ANT_ARCHIVE}
    
        ${if} ${SectionIsSelected} ${SecClient}
            ${LogMessage} "Configuring Client (Web & Desktop)"
            
            File install-config\tomcat.xml
    
            ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "client.dir=" "${INSTCLIENTDIR}" $R0
            
            ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "client.httpPort=" "$clientHttpPort" $R0
            ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "client.shutdownPort=" "$clientShutdownPort" $R0
            ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "client.ajpPort=" "$clientAjpPort" $R0
            
            ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "client.conf=" "${INSTCONFDIR}\tomcat.xml" $R0
            ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "client.context.file=" "$clientContextFile" $R0
    
            ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "server.host=" "$serverHost" $R0
            ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "server.port=" "$serverPort" $R0
            nsExec::ExecToLog '"${INSTCONFDIR}\configure.bat" "$antArchive" configureClient'
            Pop $0    
            ${LogMessage} "Ant returned $0"
            
            Delete tomcat.xml
        ${endIf}
    
        ${if} ${SectionIsSelected} ${SecIdea}
            ${LogMessage} "Configuring Intellij IDEA"

            File install-config\jdk.table.xml
            File install-config\options.xml
            
            ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "jdk.home=" "$javaHome" $R0
            ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "jdk.majorversion=" "${JDK_MAJORVERSION}" $R0
            ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "jdk.version=" "${JDK_VERSION}" $R0

            ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "idea.majorversion=" "${IDEA_MAJORVERSION}" $R0
            ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "idea.dir=" "$ideaDir" $R0
            ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "idea.conf.dir=" "${IDEA_CONFIG_DIR}" $R0
            
            ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "db.host=" "$pgHost" $R0
            ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "db.port=" "$pgPort" $R0
            ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "db.user=" "$pgUser" $R0
            ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "db.pass=" "$pgPassword" $R0
            ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "admin.pass=" "$serverPassword" $R0
            nsExec::ExecToLog '"${INSTCONFDIR}\configure.bat" "$antArchive" configureIdea'
            Pop $0
            ${LogMessage} "Ant returned $0"

            Delete jdk.table.xml
            Delete options.xml

            ${if} ${SectionIsSelected} ${SecServer}
                ${LogMessage} "Configuring Intellij IDEA lsFusion Server Library"

                File install-config\applicationLibraries.xml

                ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "lsfusion.library.name=" "${SERVER_LIBRARY_NAME}" $R0
                ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "server.archive=" "${INSTSERVERDIR}\${SERVER_JAR}" $R0
                ${ConfigWriteSE} "${INSTCONFDIR}\configure.properties" "server.sources=" "${INSTSERVERDIR}\${SERVER_SOURCES_JAR}" $R0

                nsExec::ExecToLog '"${INSTCONFDIR}\configure.bat" "$antArchive" configureIdeaServer'
                Pop $0
                ${LogMessage} "Ant returned $0"

                Delete applicationLibraries.xml
            ${endIf}
        ${endIf}

        ${RMDir_Silent} $antArchive ; we don't need ant anymore
    ${endIf}
FunctionEnd

Function createServices
    ${if} ${SectionIsSelected} ${SecClient}
        StrCpy $serviceFile "${INSTCLIENTDIR}\bin\$clientServiceName.exe"
    
        ClearErrors
        ${LogMessage} "Installing Client service"
        
        Rename "${INSTCLIENTDIR}\bin\tomcat${TOMCAT_MAJOR_VERSION}.exe" $serviceFile
        Rename "${INSTCLIENTDIR}\bin\tomcat${TOMCAT_MAJOR_VERSION}w.exe" "${INSTCLIENTDIR}\bin\$clientServiceNamew.exe"
        
        nsExec::ExecToStack '"$serviceFile" //IS//$clientServiceName --DisplayName "$clientDisplayServiceName" --Description "lsFusion Web Server" --LogPath "${INSTCLIENTDIR}\logs" --Install "$serviceFile" --Jvm "$jvmDll" --StartPath "${INSTCLIENTDIR}" --StopPath "${INSTCLIENTDIR}"'
        Pop $0
        Pop $1
        ${ifNot} $0 == "0"
            ${LogMessage} $1
            MessageBox MB_OK|MB_ICONSTOP $(strErrorInstallingClientService)
        ${else}
            ${LogMessage} "Configuring $clientServiceName service"
    
            nsExec::ExecToLog "sc config $clientServiceName obj=LocalSystem"  ; switch to LocalSystem instead of LocalService (tomcat 9.0.23+)
            nsExec::ExecToLog '"$serviceFile" //US//$clientServiceName --Startup auto'
            nsExec::ExecToLog '"$serviceFile" //US//$clientServiceName --Classpath "${INSTCLIENTDIR}\bin\bootstrap.jar;${INSTCLIENTDIR}\bin\tomcat-juli.jar" --StartClass org.apache.catalina.startup.Bootstrap --StopClass org.apache.catalina.startup.Bootstrap --StartParams start --StopParams stop --StartMode jvm --StopMode jvm'
            nsExec::ExecToLog '"$serviceFile" //US//$clientServiceName --JvmOptions "-Dcatalina.home=${INSTCLIENTDIR}#-Dcatalina.base=${INSTCLIENTDIR}#-Djava.io.tmpdir=${INSTCLIENTDIR}\temp#-Djava.util.logging.manager=org.apache.juli.ClassLoaderLogManager#-Djava.util.logging.config.file=${INSTCLIENTDIR}\conf\logging.properties"'
            nsExec::ExecToLog '"$serviceFile" //US//$clientServiceName --JvmOptions9 "--add-opens=java.base/java.util=ALL-UNNAMED"'
            ;nsExec::ExecToLog '"$serviceFile" //US//$clientServiceName --JvmOptions9 "-Dcatalina.home=${INSTCLIENTDIR}#-Dcatalina.base=${INSTCLIENTDIR}#-Djava.io.tmpdir=${INSTCLIENTDIR}\temp#-Djava.util.logging.manager=org.apache.juli.ClassLoaderLogManager#-Djava.util.logging.config.file=${INSTCLIENTDIR}\conf\logging.properties"'
            nsExec::ExecToLog '"$serviceFile" //US//$clientServiceName --StdOutput auto --StdError auto'

            ${LogMessage} "Starting $clientServiceName service"
            nsExec::ExecToLog '"$serviceFile" //ES//$clientServiceName'
        ${endIf}
    ${endIf}

    ${if} ${SectionIsSelected} ${SecServer}
    ${andIf} $serverCreateService == "1"
        StrCpy $serviceFile "${INSTSERVERDIR}\bin\$serverServiceName.exe"

        ClearErrors
        ${LogMessage} "Installing Server service"

        nsExec::ExecToStack '"$serviceFile" //IS//$serverServiceName --DisplayName "$serverServiceDisplayName" --Description "lsFusion Application Server" --LogPath "${INSTSERVERDIR}\logs" --Install "$serviceFile" --Jvm "$jvmDll" --StartPath "${INSTSERVERDIR}" --StopPath "${INSTSERVERDIR}"'
        Pop $0
        Pop $1
        ${ifNot} $0 == "0"
            ${LogMessage} $1
            MessageBox MB_OK|MB_ICONSTOP $(strErrorInstallingServerService)
        ${else}
            ${LogMessage} "Configuring $serverServiceName service"

            nsExec::ExecToLog '"$serviceFile" //US//$serverServiceName --Startup auto'
            nsExec::ExecToLog '"$serviceFile" //US//$serverServiceName --Classpath "${INSTSERVERDIR}\${SERVER_JAR};${INSTSERVERDIR}\lib\*;${INSTSERVERDIR}\lib" --StartClass lsfusion.server.logics.BusinessLogicsBootstrap --StopClass lsfusion.server.logics.BusinessLogicsBootstrap --StartMethod start --StopMethod stop --StartMode jvm --StopMode jvm'
            nsExec::ExecToLog '"$serviceFile" //US//$serverServiceName --JvmMs=512 --JvmMx=1024'
            nsExec::ExecToLog '"$serviceFile" //US//$serverServiceName --StdOutput auto --StdError auto'

            ${LogMessage} "Starting $serverServiceName service"
            nsExec::ExecToLog '"$serviceFile" //ES//$serverServiceName'
        ${endIf}
    ${endIf}
    
FunctionEnd

Function createShortcuts
    ${LogMessage} "Creating shortcuts"

    SetOutPath $INSTDIR
    File "resources\lsfusion.ico"
    
    CreateDirectory "$SMPROGRAMS\${LSFUSION_NAME}"

    ${if} ${SectionIsSelected} ${SecDesktopClient}
        SetOutPath $INSTDIR
        CreateShortCut "$SMPROGRAMS\${LSFUSION_NAME}\Open Desktop Client.lnk" \
                        "$javaHome\bin\javaw.exe" \
                        "-Xmx300m -cp ${CLIENT_JAR} -Dlsfusion.client.hostname=$serverHost -Dlsfusion.client.hostport=$serverPort -Dlsfusion.client.exportname=default lsfusion.client.controller.MainController" \
                        "$INSTDIR\lsfusion.ico"
        CreateShortCut "$DESKTOP\lsFusion Desktop Client.lnk" \
                        "$javaHome\bin\javaw.exe" \
                        "-Xmx300m -cp ${CLIENT_JAR} -Dlsfusion.client.hostname=$serverHost -Dlsfusion.client.hostport=$serverPort -Dlsfusion.client.exportname=default lsfusion.client.controller.MainController" \
                        "$INSTDIR\lsfusion.ico"
    ${endIf}

    ${if} ${SectionIsSelected} ${SecServer}
        ${if} $serverCreateService == "1"
            CreateShortCut "$SMPROGRAMS\${LSFUSION_NAME}\Start Server.lnk" "${INSTSERVERDIR}\bin\$serverServiceName.exe" "//ES//$serverServiceName" "$INSTDIR\lsfusion.ico"
            CreateShortCut "$SMPROGRAMS\${LSFUSION_NAME}\Stop Server.lnk" "${INSTSERVERDIR}\bin\$serverServiceName.exe" "//SS//$serverServiceName" "$INSTDIR\lsfusion.ico"
        ${else}
            SetOutPath ${INSTSERVERDIR} ; setting working dir
            CreateShortCut "$SMPROGRAMS\${LSFUSION_NAME}\Start Server as console application.lnk" \
                            "$javaHome\bin\java.exe" \
                            '-Xmx1200m -cp "${INSTSERVERDIR}\${SERVER_JAR};${INSTSERVERDIR}\lib\*;${INSTSERVERDIR}\lib" lsfusion.server.logics.BusinessLogicsBootstrap' \
                            "$INSTDIR\lsfusion.ico"
        ${endIf}
    ${endIf}

    ${if} ${SectionIsSelected} ${SecClient}
        CreateShortCut "$SMPROGRAMS\${LSFUSION_NAME}\Open Web Client.lnk" "http://127.0.0.1:$clientHttpPort/$clientContext" "" "$INSTDIR\lsfusion.ico"
        CreateShortCut "$DESKTOP\lsFusion Web Client.lnk" "http://127.0.0.1:$clientHttpPort/$clientContext" "" "$INSTDIR\lsfusion.ico"

        CreateShortCut "$SMPROGRAMS\${LSFUSION_NAME}\Start Client.lnk" "${INSTCLIENTDIR}\bin\$clientServiceName.exe" "//ES//$clientServiceName" "$INSTDIR\lsfusion.ico"
        CreateShortCut "$SMPROGRAMS\${LSFUSION_NAME}\Stop Client.lnk" "${INSTCLIENTDIR}\bin\$clientServiceName.exe" "//SS//$clientServiceName" "$INSTDIR\lsfusion.ico"
    ${endIf}

    CreateShortCut "$SMPROGRAMS\${LSFUSION_NAME}\Uninstall.lnk" "$INSTDIR\uninstall.exe"
FunctionEnd