; Script generated by the HM NIS Edit Script Wizard.
################################################################################################################################################
## NOTE FOR ADDING NEW PLATFORMS TO THIS SCRIPT, Search ON [ ## ADDINGPLATFORM ## ]
## These will be sequentially incremented NOTES. If you F3 through the script, handling each step as you go, you will not miss anything.
################################################################################################################################################
; HM NIS Edit Wizard helper defines
!define PRODUCT_NAME "Message Sniffer Server Installer"
## ADDINGPLATFORM ## STEP 0 :: INCREMENT BUILD NUMBER If Desired.
!define PRODUCT_VERSION "v3.2"
!define PRODUCT_PUBLISHER "Arm Research"
SetCompressor lzma
!include "WinMessages.nsh" ; needed for Word searching of the Plugins.dat file.
!include "WordFunc.nsh" ; needed for Word searching of the Plugins.dat file.
# already included !insertmacro GetParent ; replace the moveup directory function.....
!include "Sections.nsh"
!include "FileFunc.nsh" ; needed for the ${GetParent} directory calls
!include "nsDialogs.nsh" ; needed to dynamically handle custom page creation
!include "LogicLib.nsh" ; needed for if than do while.
#!insertmacro GetTime ; compiler macro... needed to call before use
!insertmacro WordFind ; compiler macro... needed to call before use
#############################################################################
## These variables hold the list of platforms for which we MAY install SNF.
## There may be one, more or many.
## ADDINGPLATFORM ## STEP 1 :: Add the isXYZINSTALLED variable. This is a boolean flag to track a platform.
VAR /GLOBAL isIceWarpInstalled
VAR /GLOBAL isMailSiteInstalled
VAR /GLOBAL isKerioInstalled
VAR /GLOBAL isImailInstalled
VAR /GLOBAL isSmarterMailInstalled
VAR /GLOBAL isAlligateInstalled
VAR /GLOBAL isDecludeInstalled
VAR /GLOBAL isMXGuardInstalled
VAR /GLOBAL isMINIMIInstalled
VAR /GLOBAL isSNF4AlligateInstalled
Var /GLOBAL isMDaemonInstalled
## ADDINGPLATFORM ## STEP 2 :: If it is a shim module, then you need to add this conditional in order to support reinstall-new-vs-just-use option for the shim.
VAR /GLOBAL Set_For_MINIMI_INSTALL ; may or may not be set, depending of if the user wants to re-install MINIMI
VAR /GLOBAL Set_For_SNF4Alligate_INSTALL ; may or may not be set, depending of if the user wants to re-install MINIMI
VAR /GLOBAL SelectedCaseIndexForPlatformScreen ; This is the var for controlling the case display on the platform screen. Indxed top to bottom.
## Now define the variables to hold the locations of WHERE we install SNF
## in the event we select any of these options.
## ADDINGPLATFORM ## STEP 3 :: Add the variable that will hold the foldername for the given platform.
VAR /GLOBAL IceWarpInstallFolder
VAR /GLOBAL MailSiteInstallFolder
VAR /GLOBAL KerioInstallFolder
VAR /GLOBAL ImailInstallFolder
VAR /GLOBAL SmarterMailInstallFolder
VAR /GLOBAL AlligateInstallFolder
VAR /GLOBAL DecludeInstallFolder
VAR /GLOBAL MXGuardInstallFolder
VAR /GLOBAL MINIMIInstallFolder
VAR /GLOBAL SNF4AlligateInstallFolder
VAR /GLOBAL MDaemonInstallFolder
##
##
##################################################################################
## Tests for file / directory finding
Var /GLOBAL SNF_SearchFor_Location_Button
Var /GLOBAL SNF_SearchFor_Location ; This is the variable that holds what platform folder we're looking for initially. ( Install Platform Screen )
Var /GLOBAL SNF_SearchFor_Location_ButtonB
Var /GLOBAL SNF_SearchFor_LocationB
VAR /GLOBAL SNFServerInstallDir ; Path to the InstallDirectory.
VAR /GLOBAL MessageSnifferRestoreDir ; Path to the ArchivedRestore Dir. Or blank for fresh install.
; VAR /GLOBAL PreExistingMessageSnifferInstallDirectory ; Path to MessageSniffer root directory
VAR /GLOBAL PreviousSnifferInstalled ; Flag to indicate if there was a previous sniffer install.
VAR /GLOBAL ArchivesAvailable ; Flag to indicate, if there isn't a sniffer version installed but there ARE archives... then we have another option set.
VAR /GLOBAL OldVersionOfSniffer ; Flag to indicate that we need to deal with the /sniffer pathname.
VAR /GLOBAL ShowTelemetryPage ; Flag to indicate that we need to show the status page.
VAR /GLOBAL ShowRestoreOptionsPage ; The flag to determine if the user wanted to install/restore and so to show the
; options page for that.
VAR /GLOBAL ShowArchiveOptionsPage ; Ok, this will be the flag to display the archive screen.
VAR /GLOBAL HandleUninstallPage ; Ok, we don't want to flash to another page when we pick uninstall. ( It was jumping to the Master Utilities,
; installation screen before it called the section code... and it was looking strange from the user's persepctive
; like there was unintended page flicker.
VAR /GLOBAL CustomFolderName ; User input variable to name the archive folder.
VAR /GLOBAL LicenseID
VAR /GLOBAL Authentication
VAR /GLOBAL BaseRadioDefault ; this is the Int id of the section that will be the minimal permitted default on either the Platforms or the Utilities screen.
VAR /GLOBAL currentPlatformSelection ; this is the Int id of the section that is the current select option for the Platforms or the Utilities screen.
VAR /GLOBAL currentUtilitySelection
# These vars are used by the page that looks for missing folders.
Var /GLOBAL FindApplicationMessage ; This is used to abstract the search page.
Var /GLOBAL MissingApplicationName ; This is used to identify the abstracted application name.
Var /GLOBAL MissingApplicationFolder ; This is used to identify the abstracted application folder to start the search from
Var /GLOBAL Find_Explanation_INFO ; if you want a verbose instruction put it here.
# For holding the shortened version of paths.
Var /GLOBAL localINSTDIR ; for use with shortente PROGR~1 path anmes.
Var /GLOBAL localSERVDIR
PageEx components
ComponentText "Welcome to the Message Sniffer Platforms Screen. $\nPlease select the platform you will use with Message Sniffer." " " "Please select from these available platforms:"
PageCallbacks "setupPlatforms" "" "" ; the setupPlatforms displays the lines based on DetermineInstallationPlatforms
PageExEnd
# Prior to this call, you would have to set the parameters to indicate that you were looking for something, and what that was... otherwise
# This page will just skip. If the user selects default install, it will put it in a default folder but let the user select another if they choose.
Page custom "FindApplicationPath" "setupINSTALLDIR" "Confirm Install Location:"
; setupINSTALLDIR sets the $INSTALLDIR and the archives folder flags if applicable for whatever
; installation is relevant.... ( This has complicated MessageSnifferRegistry entries...)
PageEx components
ComponentText "Welcome to the Message Sniffer Server Install Utility. Please select from the available activities." " " "Please select from the available activities:"
PageCallbacks "setupComponents2" "" "Components2_Leave"
PageExEnd
Page custom "nsDialogsTelemetryShow" "nsDialogsTelemetryLeave" "Status Viewer"
;Page custom nsDialogsSelectRestoreDir nsDialogsSelectRestoreDir_leave "Restore Or Archive"
;Page custom nsDialogsSelectRestoreDir nsDialogsSelectRestoreDir_leave "Restore Or Archive"
;Page custom nsDialogsInstallRestoreDir nsDialogsInstallRestoreDir_leave "Install"
;Page custom nsDialogHandleArchive nsDialogArchive_leave "Archive"
Page custom nsDialogHandleUninstall "" "Uninstall"
Page instfiles nsDialogInstall "" ""
Name "${PRODUCT_NAME} ${PRODUCT_VERSION}"
## ADDINGPLATFORM ## STEP 4 :: INCREMENT BUILD NAME IF DESIRED
OutFile "SNF_CS_Installer.exe"
ShowInstDetails show
AddBrandingImage left 140
!insertmacro GetParent
!macro BIMAGE IMAGE PARMS
Push $0
GetTempFileName $0
File /oname=$0 "${IMAGE}"
SetBrandingImage ${PARMS} $0
Delete $0
Pop $0
!macroend
###############################################################################
##
## Open source functional additions from NSIS website. Provided by users.
##
##
###############################################################################
; BEGIN REPLACEINFILE SUBTOUTINES
; StrReplace
; Replaces all ocurrences of a given needle within a haystack with another string
; Written by dandaman32
Var STR_REPLACE_VAR_0
Var STR_REPLACE_VAR_1
Var STR_REPLACE_VAR_2
Var STR_REPLACE_VAR_3
Var STR_REPLACE_VAR_4
Var STR_REPLACE_VAR_5
Var STR_REPLACE_VAR_6
Var STR_REPLACE_VAR_7
Var STR_REPLACE_VAR_8
Function StrReplace
Exch $STR_REPLACE_VAR_2
Exch 1
Exch $STR_REPLACE_VAR_1
Exch 2
Exch $STR_REPLACE_VAR_0
StrCpy $STR_REPLACE_VAR_3 -1
StrLen $STR_REPLACE_VAR_4 $STR_REPLACE_VAR_1
StrLen $STR_REPLACE_VAR_6 $STR_REPLACE_VAR_0
loop:
IntOp $STR_REPLACE_VAR_3 $STR_REPLACE_VAR_3 + 1
StrCpy $STR_REPLACE_VAR_5 $STR_REPLACE_VAR_0 $STR_REPLACE_VAR_4 $STR_REPLACE_VAR_3
StrCmp $STR_REPLACE_VAR_5 $STR_REPLACE_VAR_1 found
StrCmp $STR_REPLACE_VAR_3 $STR_REPLACE_VAR_6 done
Goto loop
found:
StrCpy $STR_REPLACE_VAR_5 $STR_REPLACE_VAR_0 $STR_REPLACE_VAR_3
IntOp $STR_REPLACE_VAR_8 $STR_REPLACE_VAR_3 + $STR_REPLACE_VAR_4
StrCpy $STR_REPLACE_VAR_7 $STR_REPLACE_VAR_0 "" $STR_REPLACE_VAR_8
StrCpy $STR_REPLACE_VAR_0 $STR_REPLACE_VAR_5$STR_REPLACE_VAR_2$STR_REPLACE_VAR_7
StrLen $STR_REPLACE_VAR_6 $STR_REPLACE_VAR_0
Goto loop
done:
Pop $STR_REPLACE_VAR_1 ; Prevent "invalid opcode" errors and keep the
Pop $STR_REPLACE_VAR_1 ; stack as it was before the function was called
Exch $STR_REPLACE_VAR_0
FunctionEnd
Function un.StrReplace
Exch $STR_REPLACE_VAR_2
Exch 1
Exch $STR_REPLACE_VAR_1
Exch 2
Exch $STR_REPLACE_VAR_0
StrCpy $STR_REPLACE_VAR_3 -1
StrLen $STR_REPLACE_VAR_4 $STR_REPLACE_VAR_1
StrLen $STR_REPLACE_VAR_6 $STR_REPLACE_VAR_0
loop:
IntOp $STR_REPLACE_VAR_3 $STR_REPLACE_VAR_3 + 1
StrCpy $STR_REPLACE_VAR_5 $STR_REPLACE_VAR_0 $STR_REPLACE_VAR_4 $STR_REPLACE_VAR_3
StrCmp $STR_REPLACE_VAR_5 $STR_REPLACE_VAR_1 found
StrCmp $STR_REPLACE_VAR_3 $STR_REPLACE_VAR_6 done
Goto loop
found:
StrCpy $STR_REPLACE_VAR_5 $STR_REPLACE_VAR_0 $STR_REPLACE_VAR_3
IntOp $STR_REPLACE_VAR_8 $STR_REPLACE_VAR_3 + $STR_REPLACE_VAR_4
StrCpy $STR_REPLACE_VAR_7 $STR_REPLACE_VAR_0 "" $STR_REPLACE_VAR_8
StrCpy $STR_REPLACE_VAR_0 $STR_REPLACE_VAR_5$STR_REPLACE_VAR_2$STR_REPLACE_VAR_7
StrLen $STR_REPLACE_VAR_6 $STR_REPLACE_VAR_0
Goto loop
done:
Pop $STR_REPLACE_VAR_1 ; Prevent "invalid opcode" errors and keep the
Pop $STR_REPLACE_VAR_1 ; stack as it was before the function was called
Exch $STR_REPLACE_VAR_0
FunctionEnd
!macro _strReplaceConstructor OUT NEEDLE NEEDLE2 HAYSTACK
Push "${HAYSTACK}"
Push "${NEEDLE}"
Push "${NEEDLE2}"
Call StrReplace
Pop "${OUT}"
!macroend
!macro un._strReplaceConstructor OUT NEEDLE NEEDLE2 HAYSTACK
Push "${HAYSTACK}"
Push "${NEEDLE}"
Push "${NEEDLE2}"
Call un.StrReplace
Pop "${OUT}"
!macroend
!define StrReplace '!insertmacro "_strReplaceConstructor"'
!define un.StrReplace '!insertmacro "un._strReplaceConstructor"'
!macro ReplaceInFile SOURCE_FILE SEARCH_TEXT REPLACEMENT
Push "${SOURCE_FILE}"
Push "${SEARCH_TEXT}"
Push "${REPLACEMENT}"
Call RIF
!macroend
!macro un.ReplaceInFile SOURCE_FILE SEARCH_TEXT REPLACEMENT
Push "${SOURCE_FILE}"
Push "${SEARCH_TEXT}"
Push "${REPLACEMENT}"
Call un.RIF
!macroend
Function RIF
ClearErrors ; want to be a newborn
Exch $0 ; REPLACEMENT
Exch
Exch $1 ; SEARCH_TEXT
Exch 2
Exch $2 ; SOURCE_FILE
Push $R0 ; SOURCE_FILE file handle
Push $R1 ; temporary file handle
Push $R2 ; unique temporary file name
Push $R3 ; a line to sar/save
Push $R4 ; shift puffer
IfFileExists $2 +1 RIF_error ; knock-knock
FileOpen $R0 $2 "r" ; open the door
GetTempFileName $R2 ; who's new?
FileOpen $R1 $R2 "w" ; the escape, please!
RIF_loop: ; round'n'round we go
FileRead $R0 $R3 ; read one line
IfErrors RIF_leaveloop ; enough is enough
RIF_sar: ; sar - search and replace
Push "$R3" ; (hair)stack
Push "$1" ; needle
Push "$0" ; blood
Call StrReplace ; do the bartwalk
StrCpy $R4 "$R3" ; remember previous state
Pop $R3 ; gimme s.th. back in return!
StrCmp "$R3" "$R4" +1 RIF_sar ; loop, might change again!
FileWrite $R1 "$R3" ; save the newbie
Goto RIF_loop ; gimme more
RIF_leaveloop: ; over'n'out, Sir!
FileClose $R1 ; S'rry, Ma'am - clos'n now
FileClose $R0 ; me 2
;MessageBox MB_OK "Files Closed. $R1 , $R0"
Delete "$2.old" ; go away, Sire
;MessageBox MB_OK "Deleete $2.old"
Rename "$2" "$2.old" ; step aside, Ma'am
;MessageBox MB_OK "Rename $2 to $2.old"
Rename "$R2" "$2" ; hi, baby!
;MessageBox MB_OK "Rename $R2 to $2"
Delete "$2.old"
ClearErrors ; now i AM a newborn
Goto RIF_out ; out'n'away
RIF_error: ; ups - s.th. went wrong...
SetErrors ; ...so cry, boy!
RIF_out: ; your wardrobe?
Pop $R4
Pop $R3
Pop $R2
Pop $R1
Pop $R0
Pop $2
Pop $0
Pop $1
FunctionEnd
Function un.RIF
ClearErrors ; want to be a newborn
Exch $0 ; REPLACEMENT
Exch
Exch $1 ; SEARCH_TEXT
Exch 2
Exch $2 ; SOURCE_FILE
Push $R0 ; SOURCE_FILE file handle
Push $R1 ; temporary file handle
Push $R2 ; unique temporary file name
Push $R3 ; a line to sar/save
Push $R4 ; shift puffer
IfFileExists $2 +1 RIF_error ; knock-knock
FileOpen $R0 $2 "r" ; open the door
GetTempFileName $R2 ; who's new?
FileOpen $R1 $R2 "w" ; the escape, please!
RIF_loop: ; round'n'round we go
FileRead $R0 $R3 ; read one line
IfErrors RIF_leaveloop ; enough is enough
RIF_sar: ; sar - search and replace
Push "$R3" ; (hair)stack
Push "$1" ; needle
Push "$0" ; blood
Call un.StrReplace ; do the bartwalk
StrCpy $R4 "$R3" ; remember previous state
Pop $R3 ; gimme s.th. back in return!
StrCmp "$R3" "$R4" +1 RIF_sar ; loop, might change again!
FileWrite $R1 "$R3" ; save the newbie
Goto RIF_loop ; gimme more
RIF_leaveloop: ; over'n'out, Sir!
FileClose $R1 ; S'rry, Ma'am - clos'n now
FileClose $R0 ; me 2
;MessageBox MB_OK "Files Closed. $R1 , $R0"
Delete "$2.old" ; go away, Sire
;MessageBox MB_OK "Deleete $2.old"
Rename "$2" "$2.old" ; step aside, Ma'am
;MessageBox MB_OK "Rename $2 to $2.old"
Rename "$R2" "$2" ; hi, baby!
;MessageBox MB_OK "Rename $R2 to $2"
Delete "$2.old"
ClearErrors ; now i AM a newborn
Goto RIF_out ; out'n'away
RIF_error: ; ups - s.th. went wrong...
SetErrors ; ...so cry, boy!
RIF_out: ; your wardrobe?
Pop $R4
Pop $R3
Pop $R2
Pop $R1
Pop $R0
Pop $2
Pop $0
Pop $1
FunctionEnd
; END REPLACE IN FILE SUBROUTINES
; The following code is for finding strings inbetween two markers... reguardless of linefeeds.
!macro GetBetween This AndThis In Return
Push "${This}"
Push "${AndThis}"
Push "${In}"
Call GetBetween
Pop "${Return}"
!macroend
!define GetBetween "!insertmacro GetBetween"
Function GetBetween
Exch $R0 ; file ; $R0_Old + AndThis + This + Stack
Exch ; AndThis + $R0_Old + This + Stack
Exch $R1 ; before this (marker 2) ; $R1_Old + $R0_Old + This + Stack
Exch 2 ; This + $R0_Old + $R1_Old + Stack
Exch $R2 ; after this (marker 1) $R2_Old + $R0_OLD + $R1_Old + Stack
Exch 2 ; $R1_Old + $R0_OLD + $R2_Old + Stack
Exch ; $R0_Old + $R1_OLD + $R2_Old + Stack
Exch 2 ; $R2_Old + $R1_OLD + $R0_Old + Stack
Push $R3 ; marker 1 len R3,R2,R1,R0,Stack
Push $R4 ; marker 2 len R4,R3,R2,R1,R0,Stack
Push $R5 ; marker pos R5,R4,R3,R2,R1,R0,Stack
Push $R6 ; file handle R6,R5,R4,R3,R2,R1,R0,Stack
Push $R7 ; current line string R7,R6,R5,R4,R3,R2,R1,R0,Stack
Push $R8 ; current chop R8,R7,R6,R5,R4,R3,R2,R1,R0,Stack
FileOpen $R6 $R0 r
StrLen $R4 $R2
StrLen $R3 $R1
StrCpy $R0 ""
Read1:
ClearErrors
FileRead $R6 $R7
IfErrors Done
StrCpy $R5 0
FindMarker1:
IntOp $R5 $R5 - 1
StrCpy $R8 $R7 $R4 $R5
StrCmp $R8 "" Read1
StrCmp $R8 $R2 0 FindMarker1
IntOp $R5 $R5 + $R4
StrCpy $R7 $R7 "" $R5
StrCpy $R5 -1
Goto FindMarker2
Read2:
ClearErrors
FileRead $R6 $R7
IfErrors Done
StrCpy $R5 -1
FindMarker2:
IntOp $R5 $R5 + 1
StrCpy $R8 $R7 $R3 $R5
StrCmp $R8 "" 0 +3
StrCpy $R0 $R0$R7
Goto Read2
StrCmp $R8 $R1 0 FindMarker2
StrCpy $R7 $R7 $R5
StrCpy $R0 $R0$R7
Done:
FileClose $R6
Pop $R8
Pop $R7
Pop $R6
Pop $R5
Pop $R4
Pop $R3
Pop $R2
Pop $R1
Exch $R0
FunctionEnd
; End code for FindBetween functions and macro
;----------------------------------------------------------------------------
; Title : Go to a NSIS page
; Short Name : RelGotoPage
; Last Changed : 22/Feb/2005
; Code Type : Function
; Code Sub-Type : Special Restricted Call, One-way StrCpy Input
;----------------------------------------------------------------------------
; Description : Makes NSIS to go to a specified page relatively from
; the current page. See this below for more information:
; "http://nsis.sf.net/wiki/Go to a NSIS page"
;----------------------------------------------------------------------------
; Function Call : StrCpy $R9 "(number|X)"
;
; - If a number > 0: Goes foward that number of
; pages. Code of that page will be executed, not
; returning to this point. If it excess the number of
; pages that are after that page, it simulates a
; "Cancel" click.
;
; - If a number < 0: Goes back that number of pages.
; Code of that page will be executed, not returning to
; this point. If it excess the number of pages that
; are before that page, it simulates a "Cancel" click.
;
; - If X: Simulates a "Cancel" click. Code will go to
; callback functions, not returning to this point.
;
; - If 0: Continues on the same page. Code will still
; be running after the call.
;
; Call RelGotoPage
;----------------------------------------------------------------------------
; Author : Diego Pedroso
; Author Reg. Name : deguix
;----------------------------------------------------------------------------
Function RelGotoPage
IntCmp $R9 0 0 Move Move
StrCmp $R9 "X" 0 Move
StrCpy $R9 "120"
Move:
SendMessage $HWNDPARENT "0x408" "$R9" ""
FunctionEnd
## ADDINGPLATFORM ## STEP 5 :: Add DetermineXYZPlatform Subroutine.
##This is the code that looks/hunts to see if we can predetermine the folder for an expected platform.
## Besure to set the Folder and the IsInstalled varables for any specific DetermineXYZ sub that you add.
Function DetermineMDaemon
; Clear flag.
StrCpy $isMDaemonInstalled "0"
ReadRegStr $MDaemonInstallFolder HKLM "SOFTWARE\Alt-N Technologies\MDaemon" "AppPath"
StrCmp $MDaemonInstallFolder "" ReportFalse 0
StrCpy $isMDaemonInstalled "1"
; But the App Registry var has the \App\ appended. We want that removed. soo...
${GetParent} $MDaemonInstallFolder $MDaemonInstallFolder ; get the parent of the AppPath and mark it as the master MDaemon dir.
; No the plugins.dat file might not exist, but we need to confirm that the folders are there.
ifFileExists "$MDaemonInstallFolder\App\*.*" 0 ReportFalse
ifFileExists "$MDaemonInstallFolder\SpamAssassin\rules\*.*" 0 ReportFalse
StrCpy $isMDaemonInstalled "1"
ReportFalse:
Return
FunctionEnd
Function DetermineIceWarp
; Clear flag.
StrCpy $isIceWarpInstalled "0"
; Icewarp registry files are stored in:
ReadRegStr $IceWarpInstallFolder HKLM "SOFTWARE\IceWarp\Merak Mail Server" "InstallDir"
StrCpy $IceWarpInstallFolder $IceWarpInstallFolder -1 ; Take the slash off the last end to conform with the rest of the paradigm.
StrCmp $IceWarpInstallFolder "" ReportFalse 0
StrCpy $isIceWarpInstalled "1"
; Now if they don't have any Content Filters created yet, there won't be a file. And we don't want that to be the case,
; so if we find the folder, then we'll create the file in anticipation of installing it.
ifFileExists "$IceWarpInstallFolder\config\*.*" 0 skipFilecreation
ifFileExists "$IceWarpInstallFolder\config\content.xml" skipFilecreation 0
Var /GLOBAL tempFileHandle
FileOpen $tempFileHandle "$IceWarpInstallFolder\config\content.xml" w ; so create an empty file. It doesn't bother IceWarp, and it will maintain the integrity
FileClose $tempFileHandle
skipFileCreation: ; of the file check portion of the directory selection popups.
ReportFalse:
Return
FunctionEnd
Function DetermineSNF4Alligate
; If there's no Alligate, there can't be SNF4Alligate
StrCmp $isAlligateInstalled "0" ReportFalse 0
; Currently we have a small SMTP rerouting application called SNF4Alligate
; we can know this if we check the FilterEXE value
Var /GLOBAL FilterEXE
ReadRegStr $FilterEXE HKLM "SOFTWARE\SolidOak\Alligate\Settings" "FilterEXE"
Var /GLOBAL SNF4AWordCount
StrCmp $FilterEXE "" ReportFalse 0
${WordFind} $FilterEXE "SNF4Alligate" "E*" $SNF4AWordCount ; This will return in #R0 the number of times the delimiter was found in the testString.
iferrors ReportFalse 0 ; if errors is true $R0 will be 1... indicating not-found...
${IF} $SNF4AWordCount > "0" ; But witn no errors, 1 means it found 1 instandce.
; then we display the option.
; It found the exe file in the path... good to go.
StrCpy $isSNF4AlligateInstalled "1"
${endif}
; Now set the magic folder at:
ReadRegStr $SNF4AlligateInstallFolder HKLM "SOFTWARE\SolidOak\Alligate\Settings" "InstallDir"
StrCpy $SNF4AlligateInstallFolder $SNF4AlligateInstallFolder -1 ; Take the slash off the last end to conform with the rest of the paradigm.
Return
ReportFalse:
StrCpy $isSNF4AlligateInstalled "0"
StrCpy $SNF4AlligateInstallFolder ""
FunctionEnd
Function DetermineMINIMI
; If there's no imail, there can't be MINIMI
StrCmp $isIMailInstalled "0" ReportFalse 0
; Currently we have a small SMTP rerouting application called MINIMI.
; we can know this if we check the send mail
Var /GLOBAL SendNameValue
ReadRegStr $SendNameValue HKLM "SOFTWARE\Ipswitch\IMail\Global" "SendName"
Var /GLOBAL WordCount
StrCmp $SendNameValue "" ReportFalse 0
${WordFind} $SendNameValue "SNFIMailShim.exe" "E*" $WordCount ; This will return in #R0 the number of times the delimiter was found in teh testString.
iferrors ReportFalse 0 ; if errors is true $R0 will be 1... indicating not-found...
${IF} $WordCount > "0" ; But witn no errors, 1 means it found 1 instandce.
; then we display the option.
; It found the exe file in the path... good to go.
StrCpy $isMINIMIInstalled "1"
${endif}
ReportFalse:
; Now set the magic folder at:
ReadRegStr $MINIMIInstallFolder HKLM "SOFTWARE\Ipswitch\IMail\Global" "TopDir"
Return
FunctionEnd
## ADDINGPLATFORM ## STEP 6 Add SetInstallForXYZPlatform suboutine.
## THIS IS ONLY NECESSARY FOR SHIM STYLE INSTALLS SUCH AS MINIMI OR SNF4ALLIGATE
## Test for the existance, reword the popup, and put the proper variables for the boolean flags.
Function SetInstallForSNF4Alligate
; Ok , new happening here. Up to this point, the only thing that was different with the installs was where it was being put.
; The Install script was the same.... but here we have a branch effect. Because the setup for the install, isnt' just picking the placement folder.
; it now includes the installation of the SNF5Alligate application. So.... we need to set the flag for installing SNF4Alligate
; Presumabely IF SNF4Alligate has already been installed, we don't need to call it....
Var /GLOBAL WAS_SNF4AlligateInstalledAlready
ReadRegStr $WAS_SNF4AlligateInstalledAlready HKLM "Software\MessageSniffer" "isSNF4AlligateInstalled"
iferrors Install_SNF4Alligate ; no key, just go and set the install flag, for after we leave the components page.
StrCmp $WAS_SNF4AlligateInstalledAlready "1" 0 Install_SNF4Alligate ; if it is, then drop in and handle the tests.....
MessageBox MB_OKCANCEL "A previous installation of SNF4Alligate was detected. Select OK to reinstall or CANCEL to work with the existing version?" IDOK Install_SNF4Alligate IDCANCEL SkipInstall
Install_SNF4Alligate:
StrCpy $Set_For_SNF4Alligate_INSTALL "1" # This is set because SetInstallForMINIMI gets called if you check the box, but we only want to call
# the install on the page leave function.
Return
SkipInstall:
StrCpy $Set_For_SNF4Alligate_INSTALL "0"
Return
FunctionEnd
## ADDINGPLATFORM ## STEP 7 Add installXYZPLATFORM Shim routine.
## THIS IS ONLY NECESSARY FOR SHIM STYLE INSTALLS SUCH AS MINIMI or SNF4ALIGATE.
Function installSNF4Alligate
; This function puts SNF4Alligate in the proper location. It depends on an install of Alligate being present.
; if Alligate is not present this function exits.
StrCmp $isAlligateInstalled "0" ReportFalse 0 ; ok, if Alligate is up, then we'll try to unpack SNF4Alligate
; It also registers with MessageSniffer the location of the SNF4Alligate Install.
; First we must find the FilterEXE key in the Alligate registry folder.
## So test to be sure the path is combined properly with Alligate
Var /GLOBAL LocalKeyhandle
Var /GLOBAL defaultHoldValue ; dummy var
Var /GLOBAL defaultDeliveryValue ; dummy var
nsExec::Exec 'NET STOP "Alligate SMTP Service"' '' SH_HIDE
;MessageBox MB_OK "Installing SNF4Alligate"
; Ok, SNF4Allgiate goes in Alligate's InstallDir, where it stores AgFiltSvc.exe
; Get InstallDir registry key....
ReadRegStr $LocalKeyhandle HKLM "SOFTWARE\SolidOak\Alligate\Settings" "InstallDir"
StrCmp $LocalKeyhandle "" ReportFalse 0 ; ensure no empty string.
; Local key handle now holds the top directory where AGFiltSvc.exe should reside.
; lop last char '\' off end
StrCpy $LocalKeyhandle $LocalKeyhandle -1 ; because Alligate postpends a \ on the backside of their paths...
IfFileExists "$LocalKeyhandle\AGFiltSvc.exe" +2 0
MessageBox MB_OK "Can't find AGFiltSvc.exe in ImAlligate's root directory: $LocalKeyhandle. SNF4Alligate's xml config file will need manual file correction and you will need to install and start Alligates AGFiltSvc manually."
; Ok, file exists.... then we'll put MINIMI right here...
StrCpy $SNF4AlligateInstallFolder $LocalKeyhandle
SetOutPath $SNF4AlligateInstallFolder
IfFileExists "$SNF4AlligateInstallFolder\SNF4Alligate.exe" 0 +2 ; if we're doing a re-install we need to be able to put it all back....
Rename "$SNF4AlligateInstallFolder\SNF4Alligate.exe" "$SNF4AlligateInstallFolder\OLD_SNF4Alligate.exe" ; leave this to be consumed by the Archiver.
File "SNF4Alligate.exe" ; We can install a new SNF4Alligate.exe file in case updates...
;Now create the hold location for SNF4Alligate:
IfFileExists "$LocalKeyhandle\Hold\*.*" +2 0 ; check to see if exists, if so,skip line, otherwise make dir.
CreateDirectory "$LocalKeyhandle\Hold" ; Recreates target folder. Sniffer and SNF safe...
IfFileExists "$SNF4AlligateInstallFolder\SNF4Alligate.xml" UseExistingXML 0 ; if doesnt' exist then drop in.... and dump the file.
; If this was already installed, then editing it will create issues
; because you can't just take the target from Alligate cause SNF5Alligate has set itself to be the target.
; but if it doesn't exist then we just drop in here and write out the file.
File "SNF4Alligate.xml"
; SNF4Alligate.xml files are unpacked.
UseExistingXML:
; Set the processing folder.
WriteRegStr HKLM "SOFTWARE\SolidOak\Alligate\Settings" "DropDir" "$SNF4AlligateInstallFolder\Drop"
; Set the user help keys for integration with the Alligate Controlpanel.
WriteRegStr HKLM SOFTWARE\SolidOak\Alligate\Settings\Addins\MsgSniffer\ "ProcessDirHint" "Sniffer" ; this holds the verbage for the Alligate Inteface clue.
WriteRegStr HKLM SOFTWARE\SolidOak\Alligate\Settings\Addins\MsgSniffer\ "ProcessDir" "$SNF4AlligateInstallFolder\Drop" ; This flags the directory.
WriteRegStr HKLM SOFTWARE\SolidOak\Alligate\Settings\Addins\MsgSniffer\ "ProcessDirLabel" "If you are using the Routing table feature to expressly define processing directories then you will need to manually set the folders you want Sniffer to scan, to process messages in the \Drop\ folder." ; This is "Sniffer"
; Now we determine what IMail was pointing at:
ReadRegStr $LocalKeyhandle HKLM "SOFTWARE\SolidOak\Alligate\Settings" "FilterEXE"
; if this returns with an error and an empty string, the tag didn't exist. LocalKeyhandle will be "";
; WordCount is a dummy var defined in an earlier sub.... just a handler...
${WordFind} $LocalKeyhandle "SNF4Alligate.exe" "E*" $WordCount ; This will return in WordCount the number of times the delimiter was found in teh testString.
iferrors NoSNFIPRESENT_OK SKIP_INCHAIN_DELIVERY_ALTERAION ; if errors is true this indicates not-found...
; If we have sniffy present then we need to skip all this file setup because the chain is intact.
NoSNFIPRESENT_OK:
StrCmp $LocalKeyhandle "" 0 SkipCreatingFilterExe ; $R0 equalling empty indicates that there was no target... otherwise notify user.... ( This test is redundant...
WriteRegStr HKLM "SOFTWARE\SolidOak\Alligate\Settings" "FilterEXE" "SNF4Alligate.exe"
WriteRegDWORD HKLM "SOFTWARE\SolidOak\Alligate\Settings" "FilterThreads" "20"
SkipCreatingFilterExe:
StrCmp $LocalKeyhandle "" +2 0 ; $R0 equalling empty indicates that there was no target... otherwise notify user.... ( This test is redundant...
NoSMTP32: MessageBox MB_OK "Alligate is currently delivering its messages to: $LocalKeyHandle $\r$\n SNF4Alligate will insert itself ahead of that call, and send valid messages to its custom handler upon completion."
; Normal delivery line for SNF4Alligate looks like this: " " or 'none'
${GetBetween} "$\r$\n" "$SNF4AlligateInstallFolder\SNF4Alligate.xml" "$defaultDeliveryValue" ; This makes it not brittly dependant on the default value. i.e. It would
; If empty replace delivery with "none" otherwise replace with path/file.exe
StrCmp $LocalKeyhandle "" 0 ReplaceWithValue
!insertmacro ReplaceInFile "$SNF4AlligateInstallFolder\SNF4Alligate.xml" "$\r$\n" "$\r$\n"
Goto NextTest
ReplaceWithValue:
!insertmacro ReplaceInFile "$SNF4AlligateInstallFolder\SNF4Alligate.xml" "$\r$\n" "$\r$\n"
NextTest:
ClearErrors
## IS this an error? What if the LocalKeyHandle was Path\SNFClient.exe the following wouldn't make sense.
${GetBetween} "" "$SNF4AlligateInstallFolder\SNF4Alligate.xml" "$defaultHoldValue" ; This makes it not brittly dependant on the default value. i.e. It would
StrCmp $defaultHoldValue "$LocalKeyhandle\Hold\" NextTest2 0 ; If there the same, don't replace, otherwise replace.
!insertmacro ReplaceInFile "$SNF4AlligateInstallFolder\SNF4Alligate.xml" "" ""
NextTest2: ClearErrors
; Hold is defined.
SKIP_INCHAIN_DELIVERY_ALTERAION:
ExecWait "$SNF4AlligateInstallFolder\AGFiltSvc.exe /install"
iferrors WeMustUndo 0
Done:
SetOutPath $INSTDIR ; return this path to what it normally is.
WriteRegStr HKLM "Software\MessageSniffer" "isSNF4AlligateInstalled" "1"
WriteRegStr HKLM "Software\MessageSniffer" "SNF4AlligateInstallFolder" "$SNF4AlligateInstallFolder"
; good to go.
StrCpy $isSNF4AlligateInstalled "1"
nsExec::Exec 'NET START AgSMTPSvc' '' SH_HIDE
nsExec::Exec 'NET START AGFiltSvc' '' SH_HIDE
return
ReportFalse: MessageBox MB_OK "Unable to find valid Alligate InstallDir from the registry. SNF4Alligate Install was aborted."
nsExec::Exec 'NET START AgSMTPSvc' '' SH_HIDE
Return
WeMustUndo:
MessageBox MB_OKCANCEL "Failed Attempt. Clean Up?$\r$\nDetails: SNF4Alligate install script was unable to write to the Alligate FilterEXE registry key. ( To instert SNF4Alligate into the message control stream. ) Click OK if you want the installer to remove and restore the intallation attempt? ( Cancel if you want to leave the two SNF4Aligate files. i.e. You might want to try to tie in SNF4Alligate through Alligate's Administration screens? )" IDOK cleanupFiles IDCANCEL leaveFiles
nsExec::Exec 'NET START AgSMTPSvc' '' SH_HIDE
cleanupFiles:
; since we couldn't edit the registry, we don't need to worry abou tit. Now Kill attempt:
ifFileExists "$SNF4AlligateInstallFolder\SNF4AlligateNEW.xml" 0 +2
Delete "$SNF4AlligateInstallFolder\SNF4AlligateNEW.xml"
ifFileExists "$SNF4AlligateInstallFolder\OLD_SNF4Alligate.xml" 0 +2
Delete "$SNF4AlligateInstallFolder\OLD_SNF4Alligate.xml"
ifFileExists "$SNF4AlligateInstallFolder\OLD_SNF4Alligate.exe" 0 +2
Delete "$SNF4AlligateInstallFolder\OLD_SNF4Alligate.exe"
ifFileExists "$SNF4AlligateInstallFolder\SNF4Aligate.xml" 0 +2
Delete "$SNF4AlligateInstallFolder\SNF4Alligate.xml"
ifFileExists "$SNF4AlligateInstallFolder\SNF4Alligate.exe" 0 +2
Delete "$SNF4AlligateInstallFolder\SNF4Alligate.exe"
leaveFiles:
return
FunctionEnd
Function SetInstallForMINIMI
; Ok , new happening here. Up to this point, the only thing that was different with the installs was where it was being put.
; The Install script was the same.... but here we have a branch effect. Because the setup for the install, isnt' just picking the placement folder.
; it now includes the installation of the MINIMI application. So.... we need to set the flag for installing MINIMI.
; Presumabely IF MINIMI has already been installed, we don't need to call it....
Var /GLOBAL WAS_MINIMIInstalledAlready
ReadRegStr $WAS_MINIMIInstalledAlready HKLM "Software\MessageSniffer" "isMINIMIInstalled"
iferrors Install_MINIMI ; no key, just go and set the install flag, for after we leave the components page.
StrCmp $WAS_MINIMIInstalledAlready "1" 0 Install_MINIMI ; if it is, then drop in and handle the tests.....
MessageBox MB_OKCANCEL "A previous installation of MINIMI was detected. Select OK to reinstall or CANCEL to work with the existing version?" IDOK Install_MINIMI IDCANCEL SkipInstall
Install_MINIMI:
StrCpy $Set_For_MINIMI_INSTALL "1" # This is set because SetInstallForMINIMI gets called if you check the box, but we only want to call
# the install on the page leave function.
Return
SkipInstall:
StrCpy $Set_For_MINIMI_INSTALL "0"
Return
FunctionEnd
Function installMINIMI
; This function puts MINIMI in the proper location. It depends on an install of IMail being present.
; if IMail is not present this function exits.
StrCmp $isIMailInstalled "0" ReportFalse 0 ; ok, if Imail is up, then we'll try to unpack MINIMI.
; It also registers with MessageSniffer the location of the MINIMI Install.
; First we must find the SENDNAME key in the Imail folder.
## So test to be sure the path is combined properly with Imail
##Var /GLOBAL LocalKeyhandle - declared in installSNF4Alligate
##Var /GLOBAL defaultHoldValue ; dummy var - declared in installSNF4Alligate
##Var /GLOBAL defaultDeliveryValue ; dummy var - declared in installSNF4Alligate
;MessageBox MB_OK "Installing MINIM"
; Ok, MINIMI goes in IMAILS Top Directory, where it usually stores SMTP32.exe
; Get TopDir registry key....
ReadRegStr $LocalKeyhandle HKLM "SOFTWARE\Ipswitch\IMail\Global" "TopDir"
StrCmp $LocalKeyhandle "" ReportFalse 0 ; ensure no empty string.
; Local key handle now holds the top directory where SMTP32.exe should reside.
IfFileExists "$LocalKeyhandle\SMTP32.exe" +2 0
MessageBox MB_OK "Can't find SMTP32.exe in Imail's root directory: $LocalKeyhandle. MINIMI's xml config file will need manual file correction."
; Ok, file exists.... then we'll put MINIMI right here...
StrCpy $MINIMIInstallFolder $LocalKeyhandle
SetOutPath $MINIMIInstallFolder
IfFileExists "$MINIMIInstallFolder\SNFIMailShim.exe" 0 +2 ; if we're doing a re-install we need to be able to put it all back....
Rename "$MINIMIInstallFolder\SNFIMailShim.exe" "$MINIMIInstallFolder\OLD_SNFIMailShim.exe" ; leave this to be consumed by the Archiver.
File "SNFIMailShim.exe" ; We can install a new SNFIMailShim.exe file in case updates...
File "MIMIMIreadme.txt" ; output instruction file.
IfFileExists "$MINIMIInstallFolder\SNFIMailShim.xml" UseExistingXML 0 ; if doesnt' exist then drop in.... and dump the file.
; If this was already installed, then editing it will create issues
; because you can't just take the target from IMail cause IMAIL has set MINIMI to be the target.
; but if it doesn't exist then we just drop in here and write out the file.
File "SNFIMailShim.xml"
; MINIMI files are unpacked.
UseExistingXML:
; if the MINIMI files were already installed, then we'll presume the registry settings and the folders are set up,
; and all the tests were run... so we're just going to plugin the things we currently know into a new file.... incase there are
; XML changes in the MINIMI xml file that don't require installer adjustment, but get repackaged. i.e. new settings etc.
; So handle the target setting.
;MessageBox MB_OKCancel "Would you like to keep your current MINIMI configuration, select cancel to reset to the defaults." IDOK SkipIt IDCANCEL DoIt
; DoIt:
; SetoutPath "$MINIMIInstallFolder"
; File /oname=SNFIMailShimNEW.xml "SNFIMailShim.xml" ; Ok, well even though we overwriting, we need to get the data out.... so put a temp file in.
; Var /GLOBAL existingSetting
; Normal delivery line for MINIM looks like this: " "
; Get existing value
; ${GetBetween} "$\r$\n" "$MINIMIInstallFolder\SNFIMailShim.xml" "$existingSetting" ; This makes it not brittly dependant on the default value. i.e. It would
; Get default value in new file
; ${GetBetween} "$\r$\n" "$MINIMIInstallFolder\SNFIMailShimNEW.xml" "$defaultDeliveryValue" ; This makes it not brittly dependant on the default value. i.e. It would
; if different then replace new with old.
; StrCmp $existingSetting $defaultDeliveryValue SkipDeliveryReplacment 0 ; If they're the same, don't replace, otherwise replace.
; !insertmacro ReplaceInFile "$MINIMIInstallFolder\SNFIMailShimNEW.xml" "$\r$\n" "$\r$\n"
; SkipDeliveryReplacment: ClearErrors
; Now do for the hold path.... all other settings are gone baby gone....
; ${GetBetween} "$\r$\n" "$MINIMIInstallFolder\SNFIMailShim.xml" "$existingSetting" ; This makes it not brittly dependant on the default value. i.e. It would
; ${GetBetween} "$\r$\n" "$MINIMIInstallFolder\SNFIMailShimNEW.xml" "$defaultHoldValue" ; This makes it not brittly dependant on the default value. i.e. It would
; StrCmp $existingSetting $$defaultHoldValue SkipHoldFolderReplacement 0 ; If there the same, don't replace, otherwise replace.
; !insertmacro ReplaceInFile "$MINIMIInstallFolder\SNFIMailShimNEW.xml" "$\r$\n" "$\r$\n"
; SkipHoldFolderReplacement: ClearErrors
; Now delete existing config file.
; Rename "$MINIMIInstallFolder\SNFIMailShim.xml" "$MINIMIInstallFolder\OLD_SNFIMailShim.xml"
; NOTE: This should be archived.... in a perfect world..... leaving it for the Archiver to grab when it wants to.
; Rename "$MINIMIInstallFolder\SNFIMailShimNEW.xml" "$MINIMIInstallFolder\SNFIMailShim.xml"
; SkipIt:
; Now we determine what IMail was pointing at:
ReadRegStr $LocalKeyhandle HKLM "SOFTWARE\Ipswitch\IMail\Global" "SendName"
; WordCount is a dummy var defined in an earlier sub.... just a handler...
${WordFind} $LocalKeyhandle "SNFIMailShim.exe" "E*" $WordCount ; This will return in #R0 the number of times the delimiter was found in teh testString.
iferrors NoSNFIPRESENT_OK SKIP_INCHAIN_DELIVERY_ALTERAION ; if errors is true $R0 will be 1... indicating not-found...
; If we have sniffy present then we need to skip all this file setup because the chain is intact.
NoSNFIPRESENT_OK:
${WordFind} $LocalKeyhandle "SMTP32.exe" "E*" $WordCount ; This will return in #R0 the number of times the delimiter was found in teh testString.
iferrors NoSMTP32 0 ; if errors is true $R0 will be 1... indicating not-found...
StrCmp $WordCount "0" 0 +2 ; $R0 equalling zero indicates that SMTP32.exe was not the target... notify user.... ( This test is redundant...)
; then we record the SendMail32.exe path.
NoSMTP32: MessageBox MB_OK "IMail is currently delivering its messages to: $LocalKeyHandle $\r$\n MINIMI will insert itself ahead of that call, and send valid messages to its custom handler upon completion."
; Normal delivery line for MINIM looks like this: " "
${GetBetween} "$\r$\n" "$MINIMIInstallFolder\SNFIMailShim.xml" "$defaultDeliveryValue" ; This makes it not brittly dependant on the default value. i.e. It would
StrCmp $defaultDeliveryValue $LocalKeyhandle NextTest 0 ; If they're the same, don't replace, otherwise replace.
!insertmacro ReplaceInFile "$MINIMIInstallFolder\SNFIMailShim.xml" "$\r$\n" "$\r$\n"
NextTest: ClearErrors
;Now get the spool location for IMAIL:
ReadRegStr $LocalKeyhandle HKLM "SOFTWARE\Ipswitch\IMail\Global" "SpoolDir" ; Grab the path to the spool folder.
; We presume to put the storage/hold folder for MINIMI inside the spool directory...
IfFileExists "$LocalKeyhandle\spam\*.*" +2 0 ; check to see if exists, if so,skip line, otherwise make dir.
CreateDirectory "$LocalKeyhandle\spam" ; Recreates target folder. Sniffer and SNF safe...
; Ok, Spool is good, now set file for hold directory...
; Normal hold definition for MINIMI looks like this:
${GetBetween} "$\r$\n" "$MINIMIInstallFolder\SNFIMailShim.xml" "$defaultHoldValue" ; This makes it not brittly dependant on the default value. i.e. It would
StrCmp $defaultHoldValue $LocalKeyhandle NextTest2 0 ; If there the same, don't replace, otherwise replace.
!insertmacro ReplaceInFile "$MINIMIInstallFolder\SNFIMailShim.xml" "$\r$\n" "$\r$\n"
NextTest2: ClearErrors
; Hold is defined.
SKIP_INCHAIN_DELIVERY_ALTERAION: ; but still upgrade MINIMI to the proper location in the SENDNAME registry key....
WriteRegStr HKLM "SOFTWARE\Ipswitch\IMail\Global" "SendName" "$MINIMIInstallFolder\SNFIMailShim.exe"
iferrors WeMustUndo 0
Done:
SetOutPath $INSTDIR ; return this path to what it normally is.
WriteRegStr HKLM "Software\MessageSniffer" "isMINIMIInstalled" "1"
WriteRegStr HKLM "Software\MessageSniffer" "MINIMIInstallFolder" "$MINIMIInstallFolder"
; good to go.
StrCpy $isMINIMIInstalled "1"
return
ReportFalse: MessageBox MB_OK "Unable to find valid IMail TopDirector from the registry. MINIMI Install was aborted."
Return
WeMustUndo:
MessageBox MB_OKCANCEL "Failed Attempt. Clean Up?$\r$\nDetails: MINIMI Install script was unable to write to the IMail SendName registry key. ( To instert MINIMI into the message control stream. ) Click OK if you want the installer to remove and restore the intallation attempt? ( Cancel if you want to leave the three MINIMI files. i.e. You might want to try to tie in MINIMI through Imails Administration screens? )" IDOK cleanupFiles IDCANCEL leaveFiles
cleanupFiles:
; since we couldn't edit the registry, we don't need to worry abou tit. Now Kill attempt:
ifFileExists "$MINIMIInstallFolder\SNFIMailShimNEW.xml" 0 +2
Delete "$MINIMIInstallFolder\SNFIMailShimNEW.xml"
ifFileExists "$MINIMIInstallFolder\OLD_SNFIMailShim.xml" 0 +2
Delete "$MINIMIInstallFolder\OLD_SNFIMailShim.xml"
ifFileExists "$MINIMIInstallFolder\OLD_SNFIMailShim.exe" 0 +2
Delete "$MINIMIInstallFolder\OLD_SNFIMailShim.exe"
ifFileExists "$MINIMIInstallFolder\SNFIMailShim.xml" 0 +2
Delete "$MINIMIInstallFolder\SNFIMailShim.xml"
ifFileExists "$MINIMIInstallFolder\SNFIMailShim.exe" 0 +2
Delete "$MINIMIInstallFolder\SNFIMailShim.exe"
ifFileExists "$MINIMIInstallFolder\MIMIMIreadme.txt" 0 +2
Delete "$MINIMIInstallFolder\MIMIMIreadme.txt"
leaveFiles:
return
FunctionEnd
Function DetermineMXGuard
; NOTE: Currently the only test for MXGuard being installed is a looking at IMAILS SendName parameter.
; Versions of 4.1 of MXGUard will have a registry key put in for our use.
; The alternative is to ask for it, ???? or to guess in C:\Program Files\dgSoft Internet Services\mxGuard for Mail Servers
; dont' forget there can be the mxhook.exe
StrCpy $isMXGuardInstalled "0"
;; If Imail is activated with MXGuard then its HKEY_LOCAL_MACHINE\SOFTWARE\Ipswitch\IMail\Global\SendName
;; registry entry will look like: C:\\anypath\\imailtomxguard.exe This is valid test for MXGuard 3.2 - present.
Var /GLOBAL MXPathVar
Var /GLOBAl testVar
StrCmp $isIMailInstalled "1" 0 TestSmarterMail
## So test to be sure the path is combined properly with Imail
ReadRegStr $MXPathVar HKLM "SOFTWARE\Ipswitch\IMail\Global" "SendName"
StrCmp $MXPathVar "" ReportFalse 0
${WordFind} $MXPathVar "imailtomxguard.exe" "E*" $R0 ; This will return in #R0 the number of times the delimiter was found in teh testString.
iferrors ReportFalse 0 ; if errors is true $R0 will be 1... indicating not-found...
${IF} $R0 > "0" ; But witn no errors, 1 means it found 1 instandce.
; then we display the option.
; It found the exe file in the path... good to go.
StrCpy $isMXGuardInstalled "1"
${GetParent} $MXPathVar $MXGuardInstallFolder
${endif}
Return
TestSmarterMail:
StrCmp $isSmarterMailInstalled "1" 0 ReportFalse
ifFileExists "C:\Program Files\dgSoft Internet Services\mxGuard for Mail Servers\mxGuard.xml" 0 ReportFalse
; well we lucked out. Looks like its here.
${GetBetween} "" "" "C:\Program Files\dgSoft Internet Services\mxGuard for Mail Servers\mxGuard.xml" "$testVar"
StrCmp $testVar "SmarterMail" 0 ReportFalse
StrCpy $isMXGuardInstalled "1"
StrCpy $MXGuardInstallFolder "C:\Program Files\dgSoft Internet Services\mxGuard for Mail Servers"
ReportFalse:
Return
FunctionEnd
Function SetInstallForMXGuard
; Currently, it doesn't matter where sniffer is for MXGuard, so
; we're going to put it at C:\MessageSniffer\MXGuard
;CreateDirectory "C:\MessageSniffer\"
;CreateDirectory "C:\MessageSniffer\MXGuardRoot" ; This will be where the SNFArchive goes for the MXGuard Install....
;StrCpy $MXGuardInstallFolder "C:\MessageSniffer\MXGuard"
;StrCpy $SNFServerInstallDir $MXGuardInstallFolder
;StrCpy $INSTDIR "$SNFServerInstallDir\SNF"
FunctionEnd
Function DetermineDeclude
; Declude is detected by the following methods:
; First you locate its defined registry call in the following key:
; HKLM SOFTWARE ComputerizedHorizons
; Relevant Keys from Declude: DecludeInstalled , MailConfigFilePath, RootMailPath, SmarterMailPath
StrCpy $isDecludeInstalled "0" ; Default to no until proven otherwise.
StrCpy $DecludeInstallFolder = "";
; Now detect Declude:
; This is useless, it comes in as "01" or something.... incomparable with -1-
; ReadRegStr $isDecludeInstalled HKLM "SOFTWARE\ComputerizedHorizons" "DecludeInstalled"
ReadRegStr $DecludeInstallFolder HKLM "SOFTWARE\ComputerizedHorizons" "RootMailPath"
StrCmp $DecludeInstallFolder "" ReportBad 0
IfFileExists "$DecludeInstallFolderdeclude" 0 ReportBad ; the RootMailPath has an ending slash.
StrCpy $isDecludeInstalled "1" ; Default to no until proven otherwise
Return
ReportBad:
StrCpy $isDecludeInstalled "0" ; Default to no until proven otherwise
Return
; The following items are of interest: DecludeInstalled 0 or 01
; MailConfigFilePath ( for smatermail will be SmarterMailServiceFolder/mailConfig.xml
; RootMailPath ( for smartermail will be C:\Smartermail\ ) Add "declude\" for declude folder
; SmarterMailPath ( For smartermail will be the service folder.)
FunctionEnd ; end finding Declude
Function SetInstallForDeclude
; NOTE: Declude puts a slash at the end of its root path key... so we need to remove the slash from the string
StrCpy $1 $DecludeInstallFolder "" -1 ; get the last char.
StrCmp $1 "\" 0 JustCopy ; if its a slash, then lop it off....
StrCpy $DecludeInstallFolder $DecludeInstallFolder -1 ; Lop off last char.
JustCopy:
StrCpy $SNFServerInstallDir "$DecludeInstallFolder\declude" ; So we're going to install the SNF here....
StrCpy $INSTDIR "$SNFServerInstallDir\SNF"
FunctionEnd
Function DetermineAlligate
StrCpy $isAlligateInstalled "0" ; Default to no until proven otherwise.
StrCpy $AlligateInstallFolder = "";
; Now detect Alligate:
ReadRegStr $AlligateInstallFolder HKLM "SOFTWARE\SolidOak\Alligate\Settings" "InstallDir"
StrCpy $AlligateInstallFolder $AlligateInstallFolder -1 ; lop last '\' off end of alligates paths.....
; If Alligate exists, get its folder:
StrCmp $AlligateInstallFolder "" ReportBad 0
StrCpy $isAlligateInstalled "1" ; Default to no until proven otherwise
Return
ReportBad:
StrCpy $isAlligateInstalled "0" ; Default to no until proven otherwise
Return
Return
FunctionEnd
Function DetermineSmarterMail
; Smarter mail is detected by the following methods:
; First you locate its defined registry call in the following key:
; HKLM SOFTWARE SmarterTools SmarterMail InstallPath
; When found, you then look in that directory for the the Service Folder and open the mailConfig.xml file.
; And then you find the SpoolPath i.e.
; c:\SmarterMail\Spool\
StrCpy $isSmarterMailInstalled "0" ; Default to no until proven otherwise.
StrCpy $SmarterMailInstallFolder = "";
; Now detect SmarterMail:
ReadRegStr $SmarterMailInstallFolder HKLM "SOFTWARE\SmarterTools\SmarterMail" "InstallPath"
; If Declude exists, get its folder:
StrCmp $SmarterMailInstallFolder "" ReportBad 0
StrCpy $isSmarterMailInstalled "1" ; Default to no until proven otherwise
Return
ReportBad:
StrCpy $isSmarterMailInstalled "0" ; Default to no until proven otherwise
Return
; This tells you where the Spool folder for SmarterMail folder is. Go up one directory and that is the root SmarterMail dir.
; This is where Declude will be installed if it is installed.
;
return
FunctionEnd
Function DetermineImail
StrCpy $isIMailInstalled "0" ; Default to no until proven otherwise.
StrCpy $IMailInstallFolder = "";
; Now detect IMail:
ReadRegStr $IMailInstallFolder HKLM "SOFTWARE\Ipswitch\Imail\Global" "TopDir"
StrCmp $IMailInstallFolder "" ReportBad 0
IfFileExists $IMailInstallFolder 0 ReportBad ; Check to see if path is valid.
; If Declude exists, get its folder:
StrCpy $isIMailInstalled "1" ; Default to no until proven otherwise
Return
ReportBad:
StrCpy $isIMailInstalled "0" ; Default to no until proven otherwise
Return
FunctionEnd
Function DetermineInstallationPlatforms
Call InitPlatformFlags
; This function determines and sets the flags on the installation platform options.
; We have several options available to us:
## ADDINGPLATFORM ## STEP 8 ADD LINE HERE TO CALL THE DetermineXYZPlatform option. This ensures that when the time comes to
## Check all the known/supported platforms, that the check gets run.
; First determine mail platforms.
Call DetermineIMail
Call DetermineSmarterMail
Call DetermineAlligate
; Now determine implementation platforms.
Call DetermineDeclude
Call DetermineMXGuard
Call DetermineMINIMI
Call DetermineMDaemon
FunctionEnd
Function UninstallXYNTService
; This stops and uninstalls the XYNTService
nsExec::Exec "NET STOP SNFService" "" SH_HIDE
ifFileExists "$SNFServerInstallDir\SNF\XYNTService.exe" 0 +2
nsExec::Exec "$SNFServerInstallDir\SNF\XYNTService -u" "" SH_HIDE ; This should run reguardless of where the master installer is located.
ifFileExists "$SNFServerInstallDir\Sniffer\XYNTService.exe" 0 +2
nsExec::Exec "$SNFServerInstallDir\Sniffer\XYNTService -u" "" SH_HIDE ; This should run reguardless of where the master installer is located.
return
FunctionEnd
Function checkTelemetry
${GetBetween} "licenseid='" "'" "$INSTDIR\identity.xml" $LicenseID ; This makes it not brittly dependant on the default value. i.e. It would
${GetBetween} "authentication='" "'" "$INSTDIR\identity.xml" $Authentication
; first test for valid rulebase Status
nsExec::Exec /TIMEOUT=700 '"$INSTDIR\snf2check.exe" "$INSTDIR\$LicenseID.snf" "$Authentication"' SH_HIDE
pop $0
${If} $0 = "0"
Detailprint " The Rulebase passes the snf2check.exe authentication."
${Else}
Detailprint " Snf2check fails: "
${Switch} $0
${Case} "0"
DetailPrint " SNFClient successfuly connected with SNFServer."
Goto EndSNF2CheckTest
${Case} "65"
DetailPrint " {65} ERROR_CMDLINE. SNF was called improperly."
Goto EndSNF2CheckTest
${Case} "66"
DetailPrint " {66}ERROR_LOGFILE Cannot open logfile."
Goto EndSNF2CheckTest
${Case} "67"
DetailPrint " {67} ERROR RULE FILE. Cannot open rules file."
Goto EndSNF2CheckTest
${Case} "68"
DetailPrint " {68} ERROR_RULE_DATA Cannot create pattern matrix."
Goto EndSNF2CheckTest
${Case} "69"
DetailPrint " {69} ERROR_MSG_FILE Cannot open message file."
Goto EndSNF2CheckTest
${Case} "70"
DetailPrint " {70} ERROR_ALLOCATION Allocation error during processing."
Goto EndSNF2CheckTest
${Case} "71"
DetailPrint " {71} ERROR_BAD_MATRIX Pattern trace went out of range."
Goto EndSNF2CheckTest
${Case} "72"
DetailPrint " {72} ERROR_MAX_EVALS The maximum number of evaluation paths was exceeded."
Goto EndSNF2CheckTest
${Case} "73"
DetailPrint " {73} ERROR_RULE_AUTH The rulebase file did not authenticate properly."
Goto EndSNF2CheckTest
${Case} "99"
DetailPrint " {99} ERROR_UNKNOWN"
Goto EndSNF2CheckTest
${EndSwitch}
EndSNF2CheckTest:
${EndIF}
ifFileExists "$SNFServerInstallDir\App\MDaemon.exe" 0 +3
Detailprint "MDaemon Install system check complete."
return
DetailPrint "Checking SNFService:"
nsExec::Exec /TIMEOUT=700 "NET START SNFService" SH_HIDE
pop $0
${Switch} $0
${Case} "0"
DetailPrint " SNFService was started."
Goto EndSNFServiceTest
${Case} "1"
DetailPrint " SNFService was not supported."
Goto EndSNFServiceTest
${Case} "2"
DetailPrint " SNFService is running."
Goto EndSNFServiceTest
${Case} "8"
DetailPrint " Unknown failure starting SNFService."
Goto EndSNFServiceTest
${Case} "10"
DetailPrint " Installer has verified that SNFService is running."
Goto EndSNFServiceTest
${EndSwitch}
EndSNFServiceTest:
; These are the NET START return codes.
; gs_service_status( 0) = "Success"
; gs_service_status( 1) = "Not Supported"
; gs_service_status( 2) = "Access Denied"
; gs_service_status( 3) = "Dependent Services Running"
; gs_service_status( 4) = "Invalid Service Control"
; gs_service_status( 5) = "Service Cannot Accept Control"
; gs_service_status( 6) = "Service Not Active"
; gs_service_status( 7) = "Service Request Timeout"
; gs_service_status( 8) = "Unknown Failure"
; gs_service_status( 9) = "Path Not Found"
; gs_service_status(10) = "Service Already Running"
; gs_service_status(11) = "Service Database Locked"
; gs_service_status(12) = "Service Dependency Deleted"
; gs_service_status(13) = "Service Dependency Failure"
; gs_service_status(14) = "Service Disabled"
; gs_service_status(15) = "Service Logon Failure"
; gs_service_status(16) = "Service Marked For Deletion"
; gs_service_status(17) = "Service No Thread"
; gs_service_status(18) = "Status Circular Dependency"
; gs_service_status(19) = "Status Duplicate Name"
; gs_service_status(20) = "Status Invalid Name"
; gs_service_status(21) = "Status Invalid Parameter"
; gs_service_status(22) = "Status Invalid Service Account"
; gs_service_status(23) = "Status Service Exists"
; gs_service_status(24) = "Service Already Paused"
Sleep 3000
DetailPrint "Waiting for SNFServer to spin up."
; nsExec::ExecToLog /TIMEOUT=700 '$INSTDIR\SNFClient.exe -status.second'
nsExec::Exec /TIMEOUT=700 '$INSTDIR\SNFClient.exe -status.second' SH_HIDE ; This should run reguardless of where the master installer is located.
pop $0
${Switch} $0
${Case} "0"
DetailPrint " SNFClient successfuly connected with SNFServer."
Goto EndSNFClientTest
${Case} "65"
DetailPrint " {65} ERROR_CMDLINE. SNF was called improperly."
Goto EndSNFClientTest
${Case} "66"
DetailPrint " {66}ERROR_LOGFILE Cannot open logfile."
Goto EndSNFClientTest
${Case} "67"
DetailPrint " {67} ERROR RULE FILE. Cannot open rules file."
Goto EndSNFClientTest
${Case} "68"
DetailPrint " {68} ERROR_RULE_DATA Cannot create pattern matrix."
Goto EndSNFClientTest
${Case} "69"
DetailPrint " {69} ERROR_MSG_FILE Cannot open message file."
Goto EndSNFClientTest
${Case} "70"
DetailPrint " {70} ERROR_ALLOCATION Allocation error during processing."
Goto EndSNFClientTest
${Case} "71"
DetailPrint " {71} ERROR_BAD_MATRIX Pattern trace went out of range."
Goto EndSNFClientTest
${Case} "72"
DetailPrint " {72} ERROR_MAX_EVALS The maximum number of evaluation paths was exceeded."
Goto EndSNFClientTest
${Case} "73"
DetailPrint " {73} ERROR_RULE_AUTH The rulebase file did not authenticate properly."
Goto EndSNFClientTest
${Case} "99"
DetailPrint " {99} ERROR_UNKNOWN"
Goto EndSNFClientTest
${EndSwitch}
EndSNFClientTest:
Detailprint "System test complete."
Return ; The Installed Restorer will have handled everything.
FunctionEnd
Section /o "New Install" g1o1
; This uninstalls the XYNTService if it exists.
Call UninstallXYNTService
; Lastly, since we don't want to redo all this activity when we finally DO get to the archiver or the installer..... we need to put a local file
; in the root directory where the Archiver.exe or the Restorer.exe is going to be to give it a local reference.
Call OutputLocalRootInfoFile
## ADDINGPLATFORM ## STEP 9 If you're install requires you to bounce a dependant service after doing all the installs,
## ensure that that happens here.
StrCmp $isMDaemonInstalled "1" 0 TestNextHandle1
ifFileExists "$MDaemonInstallFolder\App\MDaemon.exe" 0 TestNextHandle1
nsExec::Exec 'NET STOP MDAEMON' "" SH_HIDE
Sleep 1000
;nsExec::Exec 'net start MDAEMON' "" SH_HIDE
;Sleep 1000
TestNextHandle1:
StrCmp $isSNF4AlligateInstalled "1" 0 Handlenext1
nsExec::Exec 'net stop AgSMTPSvc' "" SH_HIDE
Sleep 1000
Handlenext1:
StrCmp $isMINIMIInstalled "1" 0 TestNext1
nsExec::Exec 'NET STOP "IMail SMTP Server"' "" SH_HIDE
Sleep 1000
Testnext1:
StrCmp $isDecludeInstalled "1" 0 +2
nsExec::Exec "NET STOP Decludeproc" "" SH_HIDE
; This means that we made a fresh SNF folder and we're going to insert the files there.
SetOutPath $INSTDIR ; determines where to put the Restorer/Installer
File "Restorer.exe" ; Unpack the files.
ExecWait "$INSTDIR\Restorer.exe -F" ; Execute it.
StrCmp $isMDaemonInstalled "1" 0 TestNextHandle
nsExec::Exec 'NET STOP MDAEMON' "" SH_HIDE
Sleep 3000
nsExec::Exec 'net start MDAEMON' "" SH_HIDE
Sleep 1000
TestNextHandle:
StrCmp $isSNF4AlligateInstalled "1" 0 Handlenext
nsExec::Exec 'net stop AgSMTPSvc' "" SH_HIDE
Sleep 1000
nsExec::Exec '"$SNF4AlligateInstallFolder\AGFiltSvc.exe" /start' ; this will start it up with the reset FilterEXE registry settings.
Sleep 1000
nsExec::Exec 'net start AgSMTPSvc' "" SH_HIDE
Sleep 1000
Handlenext:
StrCmp $isMINIMIInstalled "1" 0 TestNext
nsExec::Exec 'NET STOP "IMail SMTP Server"' "" SH_HIDE
Sleep 1000
nsExec::Exec 'NET START "IMail SMTP Server"' "" SH_HIDE
Sleep 1000
Testnext:
StrCmp $isDecludeInstalled "1" 0 ThenQuit
nsExec::Exec "NET STOP Decludeproc" "" SH_HIDE
Sleep 1000
nsExec::Exec "NET START Decludeproc" "" SH_HIDE
ThenQuit:
call checkTelemetry
return
SectionEnd
Section /o "Install Fresh (Discard local configuration.)" g1o2
; This uninstalls the XYNTService if it exists.
Call UninstallXYNTService
; The decision tree here is do we want to maintain the configuration file, or blow it away.
; this section is for blowing it away. We do record a rollback.
StrCpy $CustomFolderName "" ; Leaving this as empty string means Just use the default naming convention inside ArchiveSnapshot.
; Lastly, since we don't want to redo all this activity when we finally DO get to the archiver or the installer..... we need to put a local file
; in the root directory where the the Restorer.exe is going to be to give it a local reference.
Call OutputLocalRootInfoFile ; This needed to be done before you archive in order to get the LocalRoot.txt file included.
; Now create the folder to dump the Restorer.exe into.
ifFileExists "$INSTDIR\*.*" +2 0
CreateDirectory "$INSTDIR" ; create folder.
## ADDINGPLATFORM ## STEP 9B If you're install requires you to bounce a dependant service after doing all the installs,
## ensure that that happens here as well as at #9.
StrCmp $isMDaemonInstalled "1" 0 TestNextHandle
nsExec::Exec 'NET STOP MDAEMON' "" SH_HIDE
Sleep 1000
TestNextHandle:
StrCmp $Set_For_SNF4Alligate_INSTALL "1" 0 Handlenext
nsExec::Exec '"$SNF4AlligateInstallFolder\AGFiltSvc.exe" /Stop' "" SH_HIDE ; this will stop it and release the SNF4Alligate.exe file.
Sleep 1000
nsExec::Exec 'net stop AgSMTPSvc' SH_HIDE
Sleep 1000
Handlenext:
StrCmp $isDecludeInstalled "1" 0 +2
nsExec::Exec "NET STOP Decludeproc" "" SH_HIDE
; Exract the files.
SetOutPath $INSTDIR
File "Restorer.exe" ; Unpack the files.
SetOutPath $SNFServerInstallDir
ExecWait "$INSTDIR\Restorer.exe -F" ; execute it for fresh install.
;nsExec::Exec 'NET START "SNFService"' "" SH_HIDE
StrCmp $Set_For_SNF4Alligate_INSTALL "1" 0 Handlenext2
nsExec::Exec '"$SNF4AlligateInstallFolder\AGFiltSvc.exe" /start' "" SH_HIDE ; this will start it up with the reset FilterEXE registry settings.
Sleep 1000
nsExec::Exec 'net start AgSMTPSvc' "" SH_HIDE
Sleep 1000
Handlenext2:
StrCmp $isMINIMIInstalled "1" 0 TestNext2
nsExec::Exec 'NET STOP "IMail SMTP Server"' "" SH_HIDE
Sleep 1000
nsExec::Exec 'NET START "IMail SMTP Server"' "" SH_HIDE
Sleep 1000
Testnext2:
StrCmp $isMDaemonInstalled "1" 0 TestNextHandle2
nsExec::Exec 'NET STOP MDAEMON' "" SH_HIDE
Sleep 3000
nsExec::Exec 'net start MDAEMON' "" SH_HIDE
Sleep 1000
TestNextHandle2:
StrCmp $isDecludeInstalled "1" 0 ThenQuit
nsExec::Exec "NET STOP Decludeproc" "" SH_HIDE
nsExec::Exec "NET START Decludeproc" "" SH_HIDE
ThenQuit:
call checkTelemetry
return
SectionEnd
Section /o "Upgrade (Retain existing settings.)" g1o3
; The decision tree here is do we want to maintain the configuration file, or blow it away.
; this section is for blowing it away. We do archive
;Stop the service if its working.
Call UninstallXYNTService
; Since we don't want to redo all this path determination activity when we finally DO get to the archiver or the installer..... we need to put a local file
; in the root directory where the Archiver.exe or the Restorer.exe is going to be to give it a local reference.
Call OutputLocalRootInfoFile ; This needed to be done before you archive in order to get the LocalRoot.txt file included.
############################################################
; Now create the folder to dump the Restorer.exe into.
IfFileExists "$INSTDIR\*.*" +2 0
CreateDirectory "$INSTDIR" ; create folder if it doesn't exist. ( Meaning that the older sniffer files are left behind. )
## ADDINGPLATFORM ## STEP 9C If you're install requires you to bounce a dependant service after doing all the installs,
## ensure that that happens here as well as at #9 and #9B.
StrCmp $isMDaemonInstalled "1" 0 TestNextHandle
nsExec::Exec 'NET STOP MDAEMON' "" SH_HIDE
Sleep 3000
;nsExec::Exec 'net start MDAEMON' "" SH_HIDE
;Sleep 1000
TestNextHandle:
StrCmp $isSNF4AlligateInstalled "1" 0 Handlenext
nsExec::Exec 'net stop AgSMTPSvc' "" SH_HIDE
Sleep 1000
nsExec::Exec '"$SNF4AlligateInstallFolder\AGFiltSvc.exe" /stop' "" SH_HIDE
Sleep 1000 ; this will stop it and release the SNF4Alligate.exe file.
Handlenext:
; Exract the files.
SetOutPath $INSTDIR
File "Restorer.exe" ; Unpack the files.
SetOutPath $SNFServerInstallDir
ExecWait "$INSTDIR\Restorer.exe" ; execute it for fresh install. THIS IS THE DIFFERENCE NO -F in the command line attempts to ressurect the existing files.
;nsExec::Exec 'NET START "SNFService"' "" SH_HIDE
StrCmp $isMDaemonInstalled "1" 0 TestNextHandle2
nsExec::Exec 'NET STOP MDAEMON' "" SH_HIDE
Sleep 1000
nsExec::Exec 'net start MDAEMON' "" SH_HIDE
Sleep 1000
TestNextHandle2:
StrCmp $Set_For_SNF4Alligate_INSTALL "1" 0 Handlenext3
nsExec::Exec '"$SNF4AlligateInstallFolder\AGFiltSvc.exe" /start' "" SH_HIDE
Sleep 1000 ; this will start it up with the reset FilterEXE registry settings.
nsExec::Exec 'net start AgSMTPSvc' "" SH_HIDE
Sleep 1000
Handlenext3:
; If its a MINIMI install, bounce the IMAIL SMTP
StrCmp $isMINIMIInstalled "1" 0 TestNext
nsExec::Exec 'NET STOP "IMail SMTP Server"' "" SH_HIDE
Sleep 1000
nsExec::Exec 'NET START "IMail SMTP Server"' "" SH_HIDE
Sleep 1000
Testnext:
StrCmp $isDecludeInstalled "1" 0 ThenQuit
nsExec::Exec "NET STOP Decludeproc" "" SH_HIDE
nsExec::Exec "NET START Decludeproc" "" SH_HIDE
ThenQuit:
call checkTelemetry
return
SectionEnd
; NOTE, if this doesn't exist in the current install, it must be greyed out.... or not displayed.
Section /o "Archive Utility" g1o4
; The Intermediate archive display
; page handles this in the event flow. By this point theres nothing to do.
SectionEnd
Section /o "Restore Utility" g1o5
## This section is stubbed.
SectionEnd
; NOTE, Same for this.... can't fire it, if it doesn't exist.
Section /o "Remove Install" g1o6
; By this point, its been handled, so there's nothign to do. This response is handled
; in the callback funciton of hte components selection page.
SectionEnd
Section /o "Status Viewer" g1o6B
; Nothing happenes here. This is here to enable it to show up in the sections components viewer page.
SectionEnd
;SectionGroupEnd
;--------------------------------
; Functions for control of components selection
; $1 stores the status of group 1
; $2 stores the status of group 2
; Ok, this list is going to become a little different. We'e not detecting and displaying available options, we'e offeing options
; ( albite if we find one, we mark it as the recommended one. ) but that means the onSelect doesn't really set anything until after the
; next custom page which will properly locate all the files.... )
;SectionGroup /e "Platform Options" GRP_2
## ADDINGPLATFORM ## STEP 10 This is very important. You must add an optional section ( indicated by the /o ) for your new platform.
## You need to add it in the placement that you want it to appear in the list. BUT!!!! IF you insert it in the middle, you have to patch all
## ordinal responses for the swithc-case handling code for items below it. So unless you have a VERY good reason, add it at the end.
## The placment order affects which number is returned when the user clicks it.
## i.e. When a user clicks the option, it will come back with an ordinal say "20" for the ID of the checkbox that triggered the 'event'.
## So at the end of this list, add your new one.
## ADDINGPLATFORM ## STEP 10B Give it a unique option name that is meaningful.
## For example: gIWDI means [I]mail[W/][D]eclude[I]nstall. Note that some of them have commented ones to the right like g107 meaning group1option7.
## This became impossible to keep track after five or six options, so clearer names were swapped in.
## ADDINGPLATFORM ## STEP 10C pay attention to where in the list you put your new option.
## There are more places you need to insert items, and you should insert them in the same place in all the lists. This will keep things easier later.
Section /o "Imail w/ Declude Install" gIWDI ; g1o7 Imail w/ Declude Install
; This means that we made a fresh SNF folder and we're going to insert the files there.
; MessageBox MB_OK "Selected Imail Declude option."
SectionEnd
Section /o "Imail MXGuard Install" gIMXI ; g1oA Imail w/ MXGuard Install
; This means that we made a fresh SNF folder and we're going to insert the files there.
;MessageBox MB_OK "Selected Imail MXGuard option."
SectionEnd
Section /o "Imail w/MINIMI for SNF" gIMMI ; g1o7B Imail MiniMi Install
; Nothing happenes here. This is here to enable it to show up in the sections components viewer page.
SectionEnd
Section /o "SmarterMail w/ Declude Install" gSWDI ; g1o8 Smartermail W/ Declude Install
; This means that we made a fresh SNF folder and we're going to insert the files there.
;MessageBox MB_OK "Selected SmarterMail Declude option."
SectionEnd
Section /o "SmarterMail MXGuard Install" gSMXI ; g1oA2 Smartermail W/ MXGuard Install
; This means that we made a fresh SNF folder and we're going to insert the files there.
;MessageBox MB_OK "Selected Imail MXGuard option."
SectionEnd
Section /o "Alligate Install" gAWDI ; g1o9 Alligate w/
; This means that we made a fresh SNF folder and we're going to insert the files there.
;MessageBox MB_OK "Selected Alligate Declude option."
SectionEnd
SectionGroup /e "IceWarp" gIW
Section /o "IceWarp in ~A.V.~ position" gIWTI ; IcewWarp Tie In ( In AntiVirus Position )
; this is the tie in to Icewarp via the filter. It may be expand with the IceWarp .dll tie in.
SectionEnd
Section /o "IceWarp As Custom-Filter (y/n) " gIWTICF ; IceWarp Tie In Custom Filter
; this is the tie in to Icewarp via the filter. It may be expand with the IceWarp .dll tie in.
SectionEnd
Section /o "IceWarp As Custom-Filter (+5)" gIWTICF2 ; IceWarp Tie In Custom Filter 2
; this is the tie in to Icewarp via the filter. It may be expand with the IceWarp .dll tie in.
SectionEnd
SectionGroupEnd
Section /o "MailSite Install" gMSI
; this is the tie in to MailSite.
SectionEnd
Section /o "Kerio Mail Install" gKMI
; this is the tie in to Kerio.
SectionEnd
Section /o "MDaemon Install" gMDDLL
; this section is to tie in and install the dll for the MDaemon Mail Site.
SectionEnd
Section /o "Default SNF Install / Sniffer Install" gSNFI ; g1oB
; This means that we made a fresh SNF folder and we're going to insert the files there.
;MessageBox MB_OK "Selected DefaultSNF option."
SectionEnd
Section /o "Unknown Server - Declude Install" gUSWDI ; g1oC
; Can't recognize what host is using Declude, but declude is there....
; MessageBox MB_OK "Selected DefaultSNF option."
SectionEnd
Section /o "Other (custom/unknown combination)" gCUKC ; MDI_mx
SectionEnd
Function InitPlatformFlags
; Used to clear the setup flags.
## ADDINGPLATFORM ## STEP 11 Add a clear command here so when you want all the init flags to be cleared, they will all clear together.
StrCpy $isIceWarpInstalled "0"
StrCpy $isMailSiteInstalled "0"
StrCpy $isKerioInstalled "0"
StrCpy $isImailInstalled "0"
StrCpy $isSmarterMailInstalled "0"
StrCpy $isAlligateInstalled "0"
StrCpy $isDecludeInstalled "0"
StrCpy $isMXGuardInstalled "0"
StrCpy $isMINIMIInstalled "0"
StrCpy $isMDaemonInstalled "0"
StrCpy $SelectedCaseIndexForPlatformScreen "0" ; undetermined.
FunctionEND
Function ResetSectionNames
; Used to reset the cleared section flags.
## ADDINGPLATFORM ## STEP 12 Add the text that you want to appear for the new platform option. Should be the same as the text you entered
## to define the section in step 10a. The scripting program makes an option unavailable by clearing this text field. You need to have
## the line in this list, so that if you need to refresh the screen, or go back, etc, the script can get the original values and reset them.
SectionSetText ${g1o1} "New Install"
SectionSetText ${g1o2} "Install Fresh (Discard local configuration.)"
SectionSetText ${g1o3} "Upgrade (Retain existing settings.)"
SectionSetText ${g1o4} "Archive Utility"
SectionSetText ${g1o5} "Rollback Altered Files"
SectionSetText ${g1o6} "Remove Install"
SectionSetText ${g1o6B} "Status Viewer"
SectionSetText ${gIWDI} "Imail w/ Declude Install" ; g1o7
SectionSetText ${gIMXI} "Imail MXGuard Install" ; g1oA
SectionSetText ${gIMMI} "Imail w/MINIMI for SNF" ; g1o7B
SectionSetText ${gSWDI} "SmarterMail w/ Declude Install" ; g1o8
SectionSetText ${gSMXI} "SmarterMail MXGuard Install" ; g1oA2
SectionSetText ${gAWDI} "Alligate Install" ; g1o9
SectionSetText ${gIW} "IceWarp" ; g1o7
SectionSetText ${gIWTI} "IceWarp in ~A.V.~ position" ; g1o9
SectionSetText ${gIWTICF} "IceWarp as Content-Filter (y/n)"
SectionSetText ${gIWTICF2} "IceWarp as Content-Filter (+5)"
;SectionSetText ${gMSI} "MailSite Install" ; g1o9
SectionSetText ${gMSI} "" ; g1o9
SectionSetText ${gKMI} "Kerio Install" ; g1o9
SectionSetText ${gMDDLL} "MDaemon Install" ; gMDDLL
SectionSetText ${gSNFI} "" ;SectionSetText ${gSNFI} "Default SNF Install / Sniffer Install" ; g1oB
SectionSetText ${gUSWDI} "" ;SectionSetText ${gUSWDI} "Unknown Server - Declude Install" ; g1oC
SectionSetText ${gCUKC} "Other (custom/unknown combination)" ; MDI_mx
FunctionEND
Function .onInit
## Test for useable Service wrapper that this installer can hijack and control ( i.e. It was installed with this Installer,
## even if its on a differing platform.
nsExec::Exec /TIMEOUT=1500 "NET STOP SNFService"
pop $0
StrCmp $0 "0" 0 NotStoppable ; needs to return zero to be known and available.....if not, inconclusive...
## Service was stoppable. Not start it.
nsExec::Exec /TIMEOUT=1500 "NET START SNFService" SH_HIDE
pop $0
Goto FineToRunInstaller ; To be clean this needs to return zero also....
NotStoppable:
## Wasn't running (Inconclusive) so we must test for SNFServer.exe and if so... tell them to manually stop the service/server first.
SetOutPath $Temp
ifFileExists "$Temp\SNFCLient.exe" +2 0
File "SNFClient.exe"
nsExec::Exec /TIMEOUT=1500 "$Temp\SNFClient.exe -status.second" SH_HIDE
pop $0
StrCmp $0 "0" 0 +3
MessageBox MB_OK "SNFServer was detected running on this system. You must stop the SNFServer in order to run this installer."
Quit
Delete "$Temp/SNFClient.exe"
SetOutPath $INSTDIR
FineToRunInstaller:
; Ensure the utility manager only has one instance running at a time.
System::Call 'kernel32::CreateMutexA(i 0, i 0, t "Sniffer Untility Mng") i .r1 ?e'
Pop $R0
StrCmp $R0 0 +3
MessageBox MB_OK|MB_ICONEXCLAMATION "The Message Sniffer Utility Manager is already running."
Abort
InitPluginsDir ; this is needed in order to use the plugins dir for the splash pictures.......
SetOutPath "$PLUGINSDIR" ; set the folder for unpacking the pictures...
; Modal banner sample: show
File "SnifferSplash.bmp"
newadvsplash::show 3000 100 500 0x04025C "$PLUGINSDIR\SnifferSplash.bmp"
Sleep 1000 ; optional
Delete "$PLUGINSDIR\SnifferSplash.bmp"
; Ok, enough gratuitous logo flashing... get to work....
; Reset these vars for the FindApplication screen that may or maynot be used.
StrCpy $MissingApplicationName "" ; if we use the find page, this is the name of what we're looking for. It'll show up on the title and label.
StrCpy $FindApplicationMessage "" ; if you want to customize the message you do that here. Set to blank for default.
StrCpy $MissingApplicationFolder "" ; if you have a starting point, stick it here... otherwise leave it blank.
StrCpy $Find_Explanation_INFO "" ; if you want a verbose instruction put it here.
; Preset other navigation flow flags.
StrCpy $ArchivesAvailable "0" ; Defaulting to no, but will hold if there is an SNFArchives folder....
StrCpy $ShowRestoreOptionsPage "0" ; Default is true, unless proven otherwise, by no archives folder.
StrCpy $HandleUninstallPage "0" ; Execute the uninstall page is set to no by default, unless user selects the uninstall path on the 2nd Components page.
StrCpy $ShowTelemetryPage "0" ; Default is to ignore the status page.
; Preset installation flags;
StrCpy $PreviousSnifferInstalled "0" ; Until proven otherwise, there is no previously installed sniffer engine.
StrCpy $MessageSnifferRestoreDir "" ; Fresh Install until restore archive is selected.
StrCpy $OldVersionOfSniffer "0" ; This is used to flag if we're dealing with the first install after an old sniffer folder.
StrCpy $currentPlatformSelection "55" ; default the option for the PlatformSelection to the Unknown Server install.
StrCpy $currentUtilitySelection "0" ; default the utility to NEW
StrCpy $Set_For_MINIMI_INSTALL "0" ; default the utilitn to not installing MINIMI
StrCpy $Set_For_SNF4Alligate_INSTALL "0" ; default the utilitn to not installing MINIMI
; This will set the flags for what is displayable in the 1st components screen.. ( Platforms... ) Based on what they select there,
; the exit function will determine and set the "INSTDIR...." and the Archives flags....
Call DetermineInstallationPlatforms ; This will determine what installations are available for display.
; Obviously not all recognized email platforms will be displayed if they're not installed....
; At this point, the above call nas determined
FunctionEnd
############################################
## This function attempts to make the best guess of the available known platforms, and checks the one on the screen that makes the most sense.
############################################
Function setBestPlatformGuess
FunctionEnd
#########################
## setupPlatforms is called prior to the display of the first custom page.
## This will check and setup the flags for the available items, and set the selected ones.
## This was important to have in its own function and not in the init because of BACK... it was remembering the selection, and
## not obeying the single selection option handler. So we had to reinit the page each time before its viewed.
Function setupPlatforms
; This gets run if we want to show Install Platforms, not utilities. We change the title and the image but we use the same components screen.
SendMessage $HWNDPARENT ${WM_SETTEXT} 0 "STR:Message Sniffer Platform Selection:"
!insertmacro BIMAGE "SnifferBanner.bmp" ""
SendMessage $HWNDPARENT ${WM_SETTEXT} 0 "STR:Message Sniffer Server 3.0 Install Utility:"
!insertmacro BIMAGE "SnifferBanner.bmp" ""
Call ResetSectionNames ; This puts ALL the names back...
StrCpy $BaseRadioDefault $currentPlatformSelection ; This sets the platform default and seeds the onSelectChange macro selection.
; onInit sets first one to 11 - SNFStandalone
;
; Make sure nothing that is being hidden is selected... this creates null-ignored clicks and wierd user interaction.
; because of the modality of the radio buttons... ( even though not all options are being displayed, they're all there 1 - 12 of them
!insertmacro UnselectSection ${g1o1} ; none of the chekcboxes should be checked.
!insertmacro UnselectSection ${g1o2}
!insertmacro UnselectSection ${g1o3}
!insertmacro UnselectSection ${g1o4}
!insertmacro UnselectSection ${g1o5}
!insertmacro UnselectSection ${g1o6}
; This was added after the order of the rest... and so I'm wondering if its essential to keep it in order for the sake of the
; platform references.
!insertmacro UnselectSection ${g1o6B} ; because this will be index 13..... so it must come after g1oC which is 12....
;Of course, don't display install options on platform screen
SectionSetText ${g1o1} ""
SectionSetText ${g1o2} ""
SectionSetText ${g1o3} ""
SectionSetText ${g1o4} ""
SectionSetText ${g1o5} ""
SectionSetText ${g1o6} ""
SectionSetText ${g1o6B} ""
StrCmp $SelectedCaseIndexForPlatformScreen "0" 0 LeaveEnabled
;if We haven't been to this screen before, the case flag will be zero. And we leave teh Next button disabled.... otherwise we leave it enabled:
; Disable the next button until selection is made.
Var /GLOBAL NextButton
GetDlgItem $NextButton $HWNDPARENT 1
EnableWindow $NextButton "0"
LeaveEnabled:
#################################################################################
; NOTE: THE UNKNOWN DECLUDE OPTION WAS HIDDEN AND DEPRECATED.....
Var /GLOBAL testUnknownDeclude ; Use this to flag if we intend to use the unknownDeclude option
StrCpy $testUnknownDeclude "1" ; The only time we don't-test is if we can identify WHICH declude
; So for the first time through....in addition to disabling the next button, we can just breeze through clearly the checkboxes.
; First off: Show the platform options.
#################################################################################
## ADDINGPLATFORM ## STEP 15 This is the platforms setup screen. We need to have the new platform be available for selection, so we do that
## by adding it to the UnselectedSection list with the macros. If you use SectionSetText #NAME "" you are clearing the name, and it won't
## show up in the displayed list. To have it show up as unselected, add the UnselectedSectionLine. ( You could add it selected too.. but
## that gets annoying for a variety of reasons, so we default to everything off. Remember to keep it in the right list order. )
; We'll always show these options...
; the new paradigm is to show, and then attempt to check the intended one, and then alter the paths after the fact.....
!insertmacro UnselectSection ${gIWDI} ; g1o7
!insertmacro UnselectSection ${gIMXI} ; g1oA
!insertmacro UnselectSection ${gIMMI} ; g1o7B
!insertmacro UnselectSection ${gSWDI} ; g1o8
!insertmacro UnselectSection ${gSMXI} ; g1oA2
!insertmacro UnselectSection ${gAWDI} ; g1o9
SectionSetText ${gSNFI} "" ; not using this feature yt.
#!insertmacro UnselectSection ${gSNFI} ; g1oB
SectionSetText ${gUSWDI} "" ; !insertmacro UnselectSection ${gUSWDI} ; g1oC
!insertmacro UnselectSection ${gIWTI} ; Icewarp AS AV
!insertmacro UnselectSection ${gIWTICF} ; "IceWarp as Content-Filter (y/n)"
!insertmacro UnselectSection ${gIWTICF2} ; as Spam Score Contributer
#!insertmacro UnselectSection ${gMSI} ; MailSite
SectionSetText ${gMSI} ""
#!insertmacro UnselectSection ${gKMI} ; Kerio Mail Server
SectionSetText ${gKMI} ""
!insertmacro UnselectSection ${gMDDLL} ; MDaemon Dll option.
!insertmacro UnselectSection ${gCUKC} ; custom unknown combination
; NOTE: ALl clears need to go ahead of the switch, cause we exit immediately after we've found a selection that was set.
; - this would indicate a back event... (if $SelectedCaseIndexForPlatformScreen was set).......
## ADDINGPLATFORM ## STEP 16 Add your newe platform in this switch statement in order to properly key on a preexisting selection,
## if the user moves back a screen in the installer. Remember to stay in order as a form of habit. Keep the same form. Change the case text
## key as well as the keyname in brackets ${ THIS }
; But if we HAVE one selected, we need to case through them, and only clear the ones that aren't selected:
${Switch} $SelectedCaseIndexForPlatformScreen
${Case} "gIWDI"
!insertmacro SelectSection ${gIWDI} ; g1o7
Return
${Case} "gIMXI"
!insertmacro SelectSection ${gIMXI} ; g1oA
Return
${Case} "gIMMI"
!insertmacro SelectSection ${gIMMI} ; g1o7B
Return
${Case} "gSWDI"
!insertmacro SelectSection ${gSWDI} ; g1o8
Return
${Case} "gSMXI"
!insertmacro SelectSection ${gSMXI} ; g1oA2
Return
${Case} "gAWDI"
!insertmacro SelectSection ${gAWDI} ; g1o9
Return
${Case} "gIWTI"
!insertmacro SelectSection ${gIWTI} ; Icewarp as AV position
Return
${Case} "gIWTICF"
!insertmacro SelectSection ${gIWTICF} ; Icewarp as content filter
Return
${Case} "gIWTICF2"
!insertmacro SelectSection ${gIWTICF2} ; Icewarp as spam score contributer
Return
${Case} "gMSI"
#!insertmacro SelectSection ${gMSI} ; MailSite
Return
${Case} "gKMI"
!insertmacro SelectSection ${gKMI} ; Kerio Mail
Return
${Case} "gMDDLL"
!insertmacro SelectSection ${gMDDLL} ; MDaemon Mail
Return
${Case} "gSNFI" ; NOT USEING THIS OPTION
!insertmacro UnselectSection ${gSNFI} ; g1o9
#!insertmacro SelectSection ${gSNFI} ; g1oB
Return
${Case} "gUSWDI" ; NOT USEING THIS OPTION
!insertmacro SelectSection ${gUSWDI} ; g1oC
Return
${Case} "gCUKC"
!insertmacro SelectSection ${gCUKC} ;
Return
${Default}
; If we get here, we have an unusual situation that leaks through. Don't let them through without a selection being defined.
EnableWindow $NextButton "0"
${EndSwitch}
; IF we were here, then we skipped through the switch, and didn't take. That means that there wasn't a remembered setting... and we
; need to make our best attempt at a guess.
; here would be where we need to have made our best guess as to the install that seems to make the most sense:
call setBestPlatformGuess
FunctionEnd
#########################
## setupComponents2 is called prior to the display of the components page. It will setup the empty or the unselected lists.
## This was important to have in its own function and not in the init because of BACK... it was remembering the selection, and
## not obeying the single selection option handler. So we had to reinit the page each time before its viewed.
Function setupComponents2
;Var /GLOBAL NextButton
SendMessage $HWNDPARENT ${WM_SETTEXT} 0 "STR:Message Sniffer Server 3.0 Install Utility:"
!insertmacro BIMAGE "SnifferBanner.bmp" ""
; Disable the next button until selection is made.
GetDlgItem $NextButton $HWNDPARENT 1
EnableWindow $NextButton "0"
; We need to set the default radio button for the Utilities component view of the sections options now..
StrCpy $BaseRadioDefault $currentUtilitySelection ; This sets the platform default onIniti starts it on NEW but we may change that further down.....
Call ResetSectionNames ; This puts ALL the names back...
## ADDINGPLATFORM ## STEP 13 Add your platform here, as an Unselected Section Call. ( To clear it from being selected. )
## There is only one section list, but we screen it differently for the activities vs the platforms.
## This is the first time, you see the ordinal commented. Remember to keep the order,
## increment any ordinals below your new one, and notice the point that you need to bump them all down for later, in the case element.
; this makes sure there isn't anything selected thats hiding...
!insertmacro UnselectSection ${g1o1} ; none of the chekcboxes should be checked. 0
!insertmacro UnselectSection ${g1o2} ; none of the chekcboxes should be checked. 1
!insertmacro UnselectSection ${g1o3} ; none of the chekcboxes should be checked. 2
!insertmacro UnselectSection ${g1o4} ; none of the chekcboxes should be checked. 3
!insertmacro UnselectSection ${g1o5} ; none of the chekcboxes should be checked. 4
!insertmacro UnselectSection ${g1o6} ; none of the chekcboxes should be checked. 5
!insertmacro UnselectSection ${g1o6B} ; none of the chekcboxes should be checked. - This is status index 13 6
!insertmacro UnselectSection ${gIW}
!insertmacro UnselectSection ${gIWDI} ; g1o7 #7 is Imail with Declude
!insertmacro UnselectSection ${gIMXI} ; g1oA #8 is Imail with MXGuard
!insertmacro UnselectSection ${gIMMI} ; g1o7B #9 is IMail with MINIMI
!insertmacro UnselectSection ${gSWDI} ; g1o8 #10 is SmarterMail with Declude
!insertmacro UnselectSection ${gSMXI} ; g1oA2 #11 is SmarterMail with MXGuard
!insertmacro UnselectSection ${gAWDI} ; g1o9 #12 is Alligate
; 13 is the SectionGroup
!insertmacro UnselectSection ${gIWTI} ; g1o9 #14 is Icewarp as AV position
!insertmacro UnselectSection ${gIWTICF} ; g1o9 #15 is Icewarp as content filter
!insertmacro UnselectSection ${gIWTICF2} ; g1o9 #16 is Icewarp as Spam Score contributer
!insertmacro UnselectSection ${gMSI} ; g1o9 #18 is MailSite
!insertmacro UnselectSection ${gKMI} ; g1o9 #19 is Kerio
!insertmacro UnselectSection ${gMDDLL} ; MDaemon Install #20 is SNF stand alone
!insertmacro UnselectSection ${gSNFI} ; g1oB #21 is SNF stand alone
!insertmacro UnselectSection ${gUSWDI} ; g1oC #22 is Unknown Server with Declude
!insertmacro UnselectSection ${gCUKC} ; #23 is Custom Unknown
## ADDINGPLATFORM ## STEP 14 Now set it not to display on the activities screen.
; First off: Hide the platform options because wer'e only showing components.
SectionSetText ${gIWDI} "" ; Imail with declude
SectionSetText ${gIMXI} "" ; Imail MXGuard
SectionSetText ${gIMMI} "" ; IMail w/ MINIMI
SectionSetText ${gSWDI} "" ; SmarterMail with Declude
SectionSetText ${gSMXI} "" ; SmarterMail with MXGuard
SectionSetText ${gAWDI} "" ; Nonused alligate option
SectionSetText ${gIW} ""
SectionSetText ${gIWTI} "" ; is Icewarp in AV position
SectionSetText ${gIWTICF} "" ; is Icewarp as Content Filter
SectionSetText ${gIWTICF2} "" ; is Icewarp as spam score contributer
SectionSetText ${gMSI} "" ; is MailSite
SectionSetText ${gKMI} "" ; is Kerio
SectionSetText ${gMDDLL} "" ; is Kerio
SectionSetText ${gSNFI} "" ; Nonused Sniffer standing alone somewhere..
SectionSetText ${gUSWDI} "" ; Unknown server w/ Declude
SectionSetText ${gCUKC} "" ; Custom unknown
; Now we have two situations. The first was if there was no preexisting sniffer folder Thats easy.
StrCmp $PreviousSnifferInstalled "0" RunFreshInstaller RunChoices
RunFreshInstaller:
StrCmp $ArchivesAvailable "0" RunFreshNoRestore RunWithRestore
RunFreshNoRestore:
; Setup the settings options for a fresh install:
!insertmacro UnselectSection ${g1o1} ; none of the chekcboxes should be checked.
SectionSetText ${g1o2} ""
SectionSetText ${g1o3} ""
SectionSetText ${g1o4} ""
SectionSetText ${g1o5} ""
SectionSetText ${g1o6} ""
SectionSetText ${g1o6B} "" ; obviously no status either.
Return
RunWithRestore: ; Now we're restoring to the previous state before EVERY install..... this is moot.
; Setup the settings options for a fresh install:
!insertmacro UnselectSection ${g1o1}
SectionSetText ${g1o2} ""
SectionSetText ${g1o3} ""
SectionSetText ${g1o4} ""
SectionSetText ${g1o5} "" ; used to be when you had the option for restore....
SectionSetText ${g1o6} ""
SectionSetText ${g1o6B} "" ; obviously still no status either.
Return
RunChoices:
; So we're going to allow the Utility Manager to offer the choices of what sniffer engine to use.
; Setup the settings options for a fresh install:
;!insertmacro UnselectSection ${another_section_id}
SectionSetText ${g1o1} ""
!insertmacro UnselectSection ${g1o2} ; none of the chekcboxes should be checked.
!insertmacro UnselectSection ${g1o3}
SectionSetText ${g1o4} "" ; used to be when you had the option for archive UnselectSection ${g1o4}
SectionSetText ${g1o5} "" ; used to be when you had the option for restore....
!insertmacro UnselectSection ${g1o6}
#ReadRegStr $0 HKLM "Software\MessageSniffer" "Install_Dir" ; "SRS_RollbackPath"
# ifErrors HideUninstaller AllowUninstaller ; So only on the condition that an installer hasn't run, do we consider blocking.
# AllowUninstaller:
# !insertmacro UnselectSection ${g1o6}
## Goto NextItem
# HideUninstaller:
# SectionSetText ${g1o6} ""
NextItem:
!insertmacro UnselectSection ${g1o6B} ; now we can have status
; So we DO need to set the default radio button for the Utilities to FRESH not NEW
StrCpy $BaseRadioDefault "1" ; This sets the platform default to new but we may change that further down.....
Return
FunctionEnd
Function Components2_Leave
; Ok, we need to install MINIMI here, if its a valid installation, but if its just utilities then we don't.
StrCmp $ShowRestoreOptionsPage "1" 0 +4
; Might as well handle this here. We dont' need another page.
MessageBox MB_OK "Attempting to Restore. This code should be stubbed."
;ExecWait "Restorer.exe -R"
Quit
return ; If 4 was selected, we dont' install
StrCmp $ShowArchiveOptionsPage "1" 0 +2
return ; If 4 was selected, we dont' install
StrCmp $ShowTelemetryPage "1" 0 +2
return ; If 4 was selected, we dont' install
StrCmp $HandleUninstallPage "1" 0 +2
return ; If 4 was selected, we dont' install
StrCmp $Set_For_MINIMI_INSTALL "1" 0 done
StrCmp $SelectedCaseIndexForPlatformScreen "gIMMI" 0 done
call InstallMINIMI
done:
StrCmp $Set_For_SNF4Alligate_INSTALL "1" 0 done2
StrCmp $SelectedCaseIndexForPlatformScreen "gAWDI" 0 done2
call InstallSNF4Alligate
done2:
return
FunctionEnd
Function setupINSTALLDIR
## NOTE This call was moved to the back of the file lookup screen. that is to say that this is now the validation screen for the
## Find files page...... before you reset and mark all the features.... you need to revalidate the text boxes....
var /Global temp1 ; holds the strings from the lookup text boxes.
var /Global temp2
## ADDINGPLATFORM ## STEP 17 This is the biggie. Here you need to add a complex case block to handle the popups of the specific platfomr,
## to find the necessary folders, and to set the install folders for both the platform, as well as where Sniffer is going to be installed.
## Remember to keep the order. The requires customizing the itFileExists test to beable to confirm that the expected dependant file,
## is indeed where the installer expects to find it. If it isn't there, it won't progress until the user locates the proper folder.
## These cases start their search where the respective platform install folders are set to look by DetermineXYZPLatform...
${Switch} $SelectedCaseIndexForPlatformScreen
${Case} "gIWDI" ; zero indexed array... Imail with Declude gIWDI
;; So this becomes a declude test....
${NSD_GetText} $SNF_SearchFor_Location $R0
StrCpy $temp1 $R0 ; Set the global variable to the new authentication ID.
ifFileExists "$temp1\global.cfg" +3 0 ; skip or notify then leave....
MessageBox MB_OK "Please select the location path where decludes global.cfg file exists."
Goto NoPassFromHere
; and make sure the user didn't edit the string....
${NSD_GetText} $SNF_SearchFor_LocationB $R0
StrCpy $temp2 $R0 ; Set the global variable to the new authentication ID.
StrCmp $temp2 "" 0 +3 ; skip or notify then leave....
MessageBox MB_OK "You must define a folder as the install directory."
Goto NoPassFromHere
;ok well override those settings if they're good.....
; be sure it exists.
ifFileExists "$temp2\*.*" +2 0
CreateDirectory $temp2
; set them p.
StrCpy $SNFServerInstallDir $temp1
StrCpy $INSTDIR $temp2
Goto ProceedWithInstallDirSetup ;
${Case} "gIMXI"
# Handle MXGuard check...
${NSD_GetText} $SNF_SearchFor_Location $R0
StrCpy $temp1 $R0 ; Set the global variable to the new authentication ID.
ifFileExists "$temp1\mxguard.ini" +3 0 ; skip or notify then leave....
MessageBox MB_OK "Please select the location path where the mxguard.ini file exists."
Goto NoPassFromHere
; and make sure the user didn't edit the string....
${NSD_GetText} $SNF_SearchFor_LocationB $R0
StrCpy $temp2 $R0 ; Set the global variable to the new authentication ID.
StrCmp $temp2 "" 0 +3 ; skip or notify then leave....
MessageBox MB_OK "You must define a folder as the install directory."
Goto NoPassFromHere
; ok well override those settings if they're good.....
; be sure it exists.
ifFileExists "$temp2\*.*" +2 0
CreateDirectory $temp2
; set them p.
StrCpy $SNFServerInstallDir $temp1
StrCpy $INSTDIR $temp2
Goto ProceedWithInstallDirSetup ;
${Case} "gIMMI"
# Handle MINIMI check...
${NSD_GetText} $SNF_SearchFor_Location $R0
StrCpy $temp1 $R0 ; Set the global variable to the new authentication ID.
ifFileExists "$temp1\SMTP32.EXE" +3 0 ; skip or notify then leave....
MessageBox MB_OK "Please select the location path where IMails SMTP32.exe resides."
Goto NoPassFromHere
; and make sure the user didn't edit the string....
${NSD_GetText} $SNF_SearchFor_LocationB $R0
StrCpy $temp2 $R0 ; Set the global variable to the new authentication ID.
StrCmp $temp2 "" 0 +3 ; skip or notify then leave....
MessageBox MB_OK "You must define a folder as the install directory."
Goto NoPassFromHere
; ok well override those settings if they're good.....
; be sure it exists.
ifFileExists "$temp2\*.*" +2 0
CreateDirectory $temp2
; set them p.
StrCpy $SNFServerInstallDir $temp1
StrCpy $INSTDIR $temp2
Goto ProceedWithInstallDirSetup ;
${Case} "gSWDI" ; zero indexed array... Smartermail with Declude
; So this becomes a declude test....
${NSD_GetText} $SNF_SearchFor_Location $R0
StrCpy $temp1 $R0 ; Set the global variable to the new authentication ID.
ifFileExists "$temp1\global.cfg" +3 0 ; skip or notify then leave....
MessageBox MB_OK "Please select the location path where decludes global.cfg file exists."
Goto NoPassFromHere
; and make sure the user didn't edit the string....
${NSD_GetText} $SNF_SearchFor_LocationB $R0
StrCpy $temp2 $R0 ; Set the global variable to the new authentication ID.
StrCmp $temp2 "" 0 +3 ; skip or notify then leave....
MessageBox MB_OK "You must define a folder as the install directory."
Goto NoPassFromHere
;ok well override those settings if they're good.....
; be sure it exists.
ifFileExists "$temp2\*.*" +2 0
CreateDirectory $temp2
; set them p.
StrCpy $SNFServerInstallDir $temp1
StrCpy $INSTDIR $temp2
Goto ProceedWithInstallDirSetup ;
${Case} "gSMXI"
# Handle MXGuard check...
${NSD_GetText} $SNF_SearchFor_Location $R0
StrCpy $temp1 $R0 ; Set the global variable to the new authentication ID.
ifFileExists "$temp1\mxguard.ini" +3 0 ; skip or notify then leave....
MessageBox MB_OK "Please select the location path where the mxguard.ini file exists."
Goto NoPassFromHere
; and make sure the user didn't edit the string....
${NSD_GetText} $SNF_SearchFor_LocationB $R0
StrCpy $temp2 $R0 ; Set the global variable to the new authentication ID.
StrCmp $temp2 "" 0 +3 ; skip or notify then leave....
MessageBox MB_OK "You must define a folder as the install directory."
Goto NoPassFromHere
; ok well override those settings if they're good.....
; be sure it exists.
ifFileExists "$temp2\*.*" +2 0
CreateDirectory $temp2
; set them p.
StrCpy $SNFServerInstallDir $temp1
StrCpy $INSTDIR $temp2
Goto ProceedWithInstallDirSetup ;
${Case} "gAWDI"
# Handle SNF4Alligate check...
${NSD_GetText} $SNF_SearchFor_Location $R0
StrCpy $temp1 $R0 ; Set the global variable to the new authentication ID.
ifFileExists "$temp1\AGFiltSvc.exe" +3 0 ; skip or notify then leave....
MessageBox MB_OK "Please select the location path where Alligates AGFiltSvc.exe resides."
Goto NoPassFromHere
ifFileExists "$temp1\Drop" +3 0 ; skip or notify then leave....
MessageBox MB_OK "There is no Drop folder in your Alligate location."
Goto NoPassFromHere
ifFileExists "$temp1\Drop" +3 0 ; skip or notify then leave....
MessageBox MB_OK "There is no Spool folder in your Alligate location."
Goto NoPassFromHere
; and make sure the user didn't edit the string....
${NSD_GetText} $SNF_SearchFor_LocationB $R0
StrCpy $temp2 $R0 ; Set the global variable to the new authentication ID.
StrCmp $temp2 "" 0 +3 ; skip or notify then leave....
MessageBox MB_OK "You must define a folder as the install directory."
Goto NoPassFromHere
; ok well override those settings if they're good.....
; be sure it exists.
ifFileExists "$temp2\*.*" +2 0
CreateDirectory $temp2
; set them p.
StrCpy $SNFServerInstallDir $temp1
StrCpy $INSTDIR $temp2
Goto ProceedWithInstallDirSetup ;
${Case} "gIWTICF" ; let this drop through
${Case} "gIWTICF2" ; let this drop through
${Case} "gIWTI"
# Handle Icewarp check...
${NSD_GetText} $SNF_SearchFor_Location $R0
StrCpy $temp1 $R0 ; Set the global variable to the new authentication ID.
ifFileExists "$temp1\config\*.*" 0 NoPassFromHere ; shouldn't happen.. determine Icewarp should fail if not properly installed.
ifFileExists "$temp1\config\content.xml" +3 0 ; skip or notify then leave....
MessageBox MB_OK "Please select the location path where IceWarp is installed. [IceWarpRoot]\config\content.xml couldn't be found."
Goto NoPassFromHere
; and make sure the user didn't edit the string....
${NSD_GetText} $SNF_SearchFor_LocationB $R0
StrCpy $temp2 $R0 ; Set the global variable to the new authentication ID.
StrCmp $temp2 "" 0 +3 ; skip or notify then leave....
MessageBox MB_OK "You must define a folder as the install directory."
Goto NoPassFromHere
; ok well override those settings if they're good.....
; be sure it exists.
ifFileExists "$temp2\*.*" +2 0
CreateDirectory $temp2
; set them p.
StrCpy $SNFServerInstallDir $temp1
StrCpy $INSTDIR $temp2
Goto ProceedWithInstallDirSetup ;
${Case} "gMSI"
## WONT HAPPEN
${Case} "gKMI"
## WONT HAPPEN
${Case} "gMDDLL"
# Handle MDaemon check...
${NSD_GetText} $SNF_SearchFor_Location $R0
StrCpy $temp1 $R0 ; Set the global variable to the new authentication ID.
ifFileExists "$temp1\App\*.*" 0 NoPassFromHere ; shouldn't happen.. determine Icewarp should fail if not properly installed.
ifFileExists "$temp1\App\MDaemon.exe" +3 0 ; skip or notify then leave....
MessageBox MB_OK "Please select the location path where MDaemon is installed. [MDaemon]\App\MDaemon.exe couldn't be found."
Goto NoPassFromHere
; and make sure the user didn't edit the string....
${NSD_GetText} $SNF_SearchFor_LocationB $R0
StrCpy $temp2 $R0 ; Set the global variable to the new authentication ID.
StrCmp $temp2 "" 0 +3 ; skip or notify then leave....
MessageBox MB_OK "You must define a folder as the install directory."
Goto NoPassFromHere
; ok well override those settings if they're good.....
; be sure it exists.
ifFileExists "$temp2\*.*" +2 0
CreateDirectory $temp2
; set them p.
StrCpy $SNFServerInstallDir $temp1
StrCpy $INSTDIR $temp2
Goto ProceedWithInstallDirSetup ;
${Case} "gSNFI"
## WONT HAPPEN
${Case} "gUSWDI"
## WONT HAPPEN
;StrCpy $Find_Explanation_INFO "You have chosen to install Sniffer in an identified Declude install. You will need to confirm the location of the following items:"
;StrCpy $MissingApplicationName "Generic Declude Install"
;Goto ProceedWithInstallDirSetup ;
${Case} "gCUKC"
${NSD_GetText} $SNF_SearchFor_LocationB $R0
StrCpy $temp2 $R0 ; Set the global variable to the new authentication ID.
StrCmp $temp2 "" 0 +3 ; skip or notify then leave....
MessageBox MB_OK "You must define a folder as the install directory."
Goto NoPassFromHere
; ok well override those settings if they're good.....
; be sure it exists.
ifFileExists "$temp2\*.*" +2 0
CreateDirectory $temp2
; set them p.
${GetParent} $temp2 $SNFServerInstallDir ; get the parent of the selected folder and mark it as the master server dir.
StrCpy $INSTDIR $temp2
Goto ProceedWithInstallDirSetup ;
${Default}
; If we get here, we have an unusual situation that leaks through teh event handler.
; Though its not possible, you can unclick a radio button that should always have one selected.
; and put yourself in the original state of having nothing picked... if so, disable next.
EnableWindow $NextButton "0"
${EndSwitch}
NoPassFromHere: ; this cancels the next because it didn't validate.
abort
ProceedWithInstallDirSetup:
; ok we're good... here we have defined the INSDIR and the $SNFServerInstallDir
## NOTE: Even though it would seem that there could be multiple Declude folders because they only use one set of registry keys
## There can't be multiple FUNCTIONING decludes. So don't get confused even though SNF is going to remain abtracted....
StrCpy $OldVersionOfSniffer "0"
StrCpy $PreviousSnifferInstalled "0"
StrCpy $ArchivesAvailable "0"
; So test to see if the message sniffer folder exists.
IfFileExists "$INSTDIR\identity.xml" SetPreviouslyInstalledFlag 0 ; Test for no folder at proper location.
StrCpy $PreviousSnifferInstalled "0" ; we key off the identity.xml file.
; Set previous flag to false. ( default. , but kept here for clarity. )
Goto ContinueInit ; Skip setting the previous flag to true.....
SetPreviouslyInstalledFlag:
IfFileExists "$INSTDIR\$LicenseID.exe" 0 +2 ; Test for older install file keying off of nomerization of the executable.....
StrCpy $OldVersionOfSniffer "1" ; ( Declude comes with its own sniffer folder already made....
StrCpy $PreviousSnifferInstalled "1" ; Set flag for previously exists.
ContinueInit:
## ARCHIVE NOTE: We are no longer offering archives, so we are hiding this code at the moment. ARCHIVES ARE NEVER AVAILABLE.
#IfFileExists "$SNFServerInstallDir\SNFArchive\*.*" 0 +2
StrCpy $ArchivesAvailable "0" ; This sets the state for the modified option set to offer restore possibilities....
; Lastly, since we don't want to redo all this activity when we finally DO get to the archiver or the installer..... we need to put a local file
; in the root directory where the Archiver.exe or the Restorer.exe is going to be to give it a local reference. We could use a registry key
; but that limits us to one controlable archive..... if you turn off one installation and turn another on, this way it should heal itself.
# This lets the internal installer program utilize all the sorting and sifting we did to determine the actual path of where to put the stuff.
Call OutputLocalRootInfoFile
RETURN
FunctionEnd
Function OutputLocalRootInfoFile
; Lastly, since we don't want to redo all this activity when we finally DO get to the archiver or the installer..... we need to put a local file
; in the root directory where the Archiver.exe or the Restorer.exe is going to be to give it a local reference. We could use a registry key
; but that limits us to one controlable archive..... if you turn off one installation and turn another on, this way it should heal itself.
SetOutPath $INSTDIR
Var /GLOBAL myContextFile
FileOpen $myContextFile "$INSTDIR\LocalRoot.txt" w
FileWrite $myContextFile "$SNFServerInstallDir$INSTDIR"
FileClose $myContextFile
; NOTE: THis code is called in the SECTION area for FRESH install as well as ...setupINSTALLDIR because it needs to happen After the removal of the original folder.
; i.e. If you install Fresh the localroot.txt file is destroyed... so it needs to be rebuilt.
FunctionEnd
#####################################
## .onSelChange is the callback event handler
## for the components page.
Function .onSelChange
; Now Enable the Next Button
GetDlgItem $NextButton $HWNDPARENT 1
EnableWindow $NextButton "1"
; Radio Button State Checking code. Uncomment and run
;Var /GLOBAL TestVar
;StrCpy $TestVar ""
;SectionGetFlags "${g1o1}" $R0
;StrCpy $TestVar "g101:$R0$\n"
;SectionGetFlags "${g1o2}" $R0
;StrCpy $TestVar "$TestVar g102:$R0$\n"
;SectionGetFlags "${g1o3}" $R0
;StrCpy $TestVar "$TestVar g103:$R0$\n"
;SectionGetFlags "${g1o4}" $R0
;StrCpy $TestVar "$TestVar g104:$R0$\n"
;SectionGetFlags "${g1o5}" $R0
;StrCpy $TestVar "$TestVar g105:$R0$\n"
;SectionGetFlags "${g1o6}" $R0
;StrCpy $TestVar "$TestVar g106:$R0$\n"
;SectionGetFlags "${g1o7}" $R0
;StrCpy $TestVar "$TestVar g107:$R0$\n"
;SectionGetFlags "${g1o8}" $R0
;StrCpy $TestVar "$TestVar g108:$R0$\n"
;SectionGetFlags "${g1o9}" $R0
;StrCpy $TestVar "$TestVar g109:$R0$\n"
;SectionGetFlags "${g1oA}" $R0
;StrCpy $TestVar "$TestVar g10A:$R0$\n"
;SectionGetFlags "${g1oA2}" $R0
;StrCpy $TestVar "$TestVar g10A2:$R0$\n"
;SectionGetFlags "${g1oB}" $R0
;StrCpy $TestVar "$TestVar g10B:$R0$\n"
;SectionGetFlags "${g1oC}" $R0
;StrCpy $TestVar "$TestVar g10C:$R0$\n"
;MessageBox MB_OK $TestVar
; init $1
;MessageBox MB_OK "Current setting: $1 / $BaseRadioDefault"
; Problem: When a group is present, clicking the group creates the abstract effect ( when using the RadioButton macros. ) that
; the last item in the group that wasn't highlighted becomes checked. Abberrant behavior. So to counteract that we
; screen for the effect of the user clicking on the group header, and clear all boxes prior to the rest of the analysis.
; This is going to flag if the group was selected by the user clickin on the header of the IceWarp Group. We will then preempt that
; by clearing all the settings....
Var /Global TheAddition
Var /Global Report
StrCpy $Report ""
SectionGetFlags ${gIWTI} $TheAddition
StrCpy $Report $Report$TheAddition
SectionGetFlags ${gIWTICF} $TheAddition
StrCpy $Report $Report$TheAddition
SectionGetFlags ${gIWTICF2} $TheAddition
StrCpy $Report $Report$TheAddition
StrCmp $Report "111" 0 ContineButtonAnalysis
!insertmacro UnselectSection ${gIWTI}
!insertmacro UnselectSection ${gIWTICF}
!insertmacro UnselectSection ${gIWTICF2}
ContineButtonAnalysis:
; This concludes the manual clearing/correcting of the group state.
## ADDINGPLATFORM ## STEP 18 You must add the radiobutton detection code in here to detect the event and handle it.
## Add it in the proper place in order. Increment the ordinal comments on everything below your entry.
StrCpy $1 $BaseRadioDefault
!insertmacro StartRadioButtons $1 ; Each of these is a macro that inserts handling code for the section named in ${g1o1}
; These are the components
!insertmacro RadioButton ${g1o1} ; new
!insertmacro RadioButton ${g1o2} ; fresh
!insertmacro RadioButton ${g1o3} ; update
!insertmacro RadioButton ${g1o4} ; archive
!insertmacro RadioButton ${g1o5} ; restore
!insertmacro RadioButton ${g1o6} ; uninstall
!insertmacro RadioButton ${g1o6B} ; status...
; and we add them in the order we're writing the code, not the display order ( handled in by the order we define the sections order )$\r$\n \
; these are teh platforms.
!insertmacro RadioButton ${gIWDI} ; g1o7 #7 is Imail with Declude
!insertmacro RadioButton ${gIMXI} ; g1oA #8 is Imail with MXGuard
!insertmacro RadioButton ${gIMMI} ; g1o7B #9 is IMail with MINIMI
!insertmacro RadioButton ${gSWDI} ; g1o8 #10 is SmarterMail with Declude
!insertmacro RadioButton ${gSMXI} ; g1oA2 #11 is SmarterMail with MXGuard
!insertmacro RadioButton ${gAWDI} ; g1o9 #12 is Alligate
; 13 is the Section Group
;MessageBox MB_OK "$1"
!insertmacro RadioButton ${gIWTI} ; g1o9 #14 is Icewarp
;MessageBox MB_OK "$1"
!insertmacro RadioButton ${gIWTICF} ; g1o9 #15 is Icewarp as content filter.
;MessageBox MB_OK "$1"
!insertmacro RadioButton ${gIWTICF2} ; g1o9 #16 is Icewarp as spam contributer.
;MessageBox MB_OK "$1"
!insertmacro RadioButton ${gMSI} ; g1o9 #18 is MailSite
!insertmacro RadioButton ${gKMI} ; g1o9 #19 is Kerio
!insertmacro RadioButton ${gMDDLL} ; g1o9 #20 is MDaemon
!insertmacro RadioButton ${gSNFI} ; g1oB #21 is SNF stand alone
!insertmacro RadioButton ${gUSWDI} ; g1oC #22 is Unknown Server with Declude
!insertmacro RadioButton ${gCUKC} ; #23 is Custom Unknown
; On inspecting the flag state for all options under a group, the result for when you select the group is
; 35 1 1 1 1 but when you select just a single option it is 98 0 0 0 1 for example....
;Var /Global TheState
;Var /Global TheAddition
;SectionGetFlags ${MDI} $TheAddition ; but selecting it, mathematically selects ALL the options underneith... and that's not right.
;StrCpy $TheState "$TheState$\r$\n$TheAddition"
;SectionGetFlags ${MDI_mx} $TheAddition ; but selecting it, mathematically selects ALL the options underneith... and that's not right.
;StrCpy $TheState "$TheState$\r$\n$TheAddition"
;SectionGetFlags ${MDI_dc} $TheAddition ; but selecting it, mathematically selects ALL the options underneith... and that's not right.
;StrCpy $TheState "$TheState$\r$\n$TheAddition"
;SectionGetFlags ${MDI_mm} $TheAddition ; but selecting it, mathematically selects ALL the options underneith... and that's not right.
;StrCpy $TheState "$TheState$\r$\n$TheAddition"
;SectionGetFlags ${MDI_sa} $TheAddition ; but selecting it, mathematically selects ALL the options underneith... and that's not right.
;StrCpy $TheState "$TheState$\r$\n$TheAddition"
;MessageBox MB_OK "$TheState"
;!insertmacro RadioButton ${MDI} ;"Manually Detect Installation" This is the group header.
; StrCmp $1 "15" 0 NextRadioButton ; it needs to be in the list for presentation
; OK we're removing it from the list of Radiobutton macros cause we dont' ever want to have the group header be 'SET'
; but we need to trap and undo the selection of all its members.... so we check to see if its flag is set to 35 or 98.
; 98 indicates that something underneith it was selected, not the group header itself. See SectionSetFlags for the bit values
; of the flags themselves..... but uncommentint the above code will popup the flag states at this point in the marco list....
; This was for handling a group... but we're not doing that... so we don't care...
; This setting checks, and if its 35 ( clicked it directly ) it will unset all its subcomponents, because they're mutually exclusive...
;SectionGetFlags ${MDI} $TempRadioButtonFlagsVar ; but selecting it, mathematically selects ALL the options underneith... and that's not right.
;StrCmp $TempRadioButtonFlagsVar "35" 0 NextRadioButton
; MessageBox MB_OK "Please click on the platform you'd like to manually locate:"
; IntOp $TempRadioButtonFlagsVar $TempRadioButtonFlagsVar & ${SECTION_OFF} ; so even thoug we have it here, we have to UNdo the errant click on this option.
; SectionSetFlags ${MDI} $TempRadioButtonFlagsVar
;NextRadioButton:
;MessageBox MB_OK "The value for 1 after the group header is : $1"
; EndTrappingButtons
!insertmacro EndRadioButtons
; The Above code leaves var $1 holding the index of the radio button that was clicked.
;DEBUG MessageBox MB_OK "Now setting: $1 / $BaseRadioDefault"
## ADDINGPLATFORM ## STEP 19 You must add the command to clear all checkboxes. We need to do this in order to manually control what gets displayed.
## the above code, saved the ordinal of what came back from the click event. But when you have sub-elements, it requires manual handling of
## which option to activate in order to have the proper item or subitem show the check. SO ENTER IN YOUR CLEAR LINE with your proper section name.
## Increment the ordinal in the comments for everything below your entry....
; Even though we've got the above macro... because we're using this list for two screens
; ( Forced on us because this function gets called from both pages on a select-Change event)
; We need to Case-control the display on entry to the first page based on a flag we store...
; because of that, the above macro isn't behaving nicely on the first click, so we need to
; manually control final state... so here we clear them all, and then we reselect the one
; that is notified as being clicked upon from the above code.....
!insertmacro UnselectSection ${g1o1} ; none of the chekcboxes should be checked. 0
!insertmacro UnselectSection ${g1o2} ; none of the chekcboxes should be checked. 1
!insertmacro UnselectSection ${g1o3} ; none of the chekcboxes should be checked. 2
!insertmacro UnselectSection ${g1o4} ; none of the chekcboxes should be checked. 3
!insertmacro UnselectSection ${g1o5} ; none of the chekcboxes should be checked. 4
!insertmacro UnselectSection ${g1o6} ; none of the chekcboxes should be checked. 5
!insertmacro UnselectSection ${g1o6B} ; none of the chekcboxes should be checked. - This is status index
!insertmacro UnselectSection ${gIWDI} ; g1o7 #7 is Imail with Declude
!insertmacro UnselectSection ${gIMXI} ; g1oA #8 is Imail with MXGuard
!insertmacro UnselectSection ${gIMMI} ; g1o7B #9 is IMail with MINIMI
!insertmacro UnselectSection ${gSWDI} ; g1o8 #10 is SmarterMail with Declude
!insertmacro UnselectSection ${gSMXI} ; g1oA2 #11 is SmarterMail with MXGuard
!insertmacro UnselectSection ${gAWDI} ; gAWDI #12 is Alligate
; 13 is the Section Group.
!insertmacro UnselectSection ${gIWTI} ; gIWTI #14 is Icewarp
!insertmacro UnselectSection ${gIWTICF} ; gIWTICF #15 is Icewarp
!insertmacro UnselectSection ${gIWTICF2} ; gIWTICF2 #16 is Icewarp
!insertmacro UnselectSection ${gMSI} ; gMSI #18 is MailSite
!insertmacro UnselectSection ${gKMI} ; gKMI #19 is Kerio
!insertmacro UnselectSection ${gMDDLL} ; MDaemon #20 is MDaemon
!insertmacro UnselectSection ${gSNFI} ; g1oB #21 is SNF stand alone
!insertmacro UnselectSection ${gUSWDI} ; g1oC #22 is Unknown Server with Declude
!insertmacro UnselectSection ${gCUKC} ; #23 is Custom Unknown
;MessageBox MB_OK "$1"
StrCpy $BaseRadioDefault $1 ; set this so that the next time through the click-handler it knows what to start with.
;MessageBox MB_OK "Click result is:$1"
## ADDINGPLATFORM ## STEP 20 OK! This is the doosey! Here is where the ordinal matters. Cause the code above, grabbed the event, and it will
## comeback with master ordinal. ( Not the ordinal of what was SHOWN in the list.) So even if you only displayed six items, the ordinal could come
## back with a 18. The Switch below, is ENTIRELY BASED ON THAT ORDINAL... which is why, if don't bump all the case elements BELOW YOUR ENTRY
## you will end up with VERY STRANGE Event handling behavior.
## Insert a new case element, custom code the effect you desire, and then increment every number below your entry.
## Ignore the fact that 1 through 6 are at the very end, ( They are the returns for the activities. New, Fresh, Update, Remove etc. )
## IF your install requires a custom call back you call that here.
## Do not remove the StrCy $currentPlatformSelection $1 line. ( $1 is the register that returns the currently selected checkbox, and if you come back
## to this screen, the screen remember what was selected based on the value contained by $currentPlatformSelection
; Now based on the clicked selection mark it shown, and setup the proper flags.
${Switch} $1
${Case} "7" ; zero indexed array... Imail with Declude gIWDI
StrCpy $SelectedCaseIndexForPlatformScreen "gIWDI" ; Which is the first platform option....
!insertmacro SelectSection ${gIWDI} ; check Declude with Imail.
Call SetInstallForDeclude ; Set the install folder to put MessageSniffer in based on the Declude settings.
; If Its declude, then its whatever declude is setup for.... i.e. Declude can't be both
; IMail and Smartermail at the same time.... it will be one or the other.
; StrCpy $INSTDIR
StrCpy $currentPlatformSelection $1 ; set this so that the next time through the click-handler it knows what to start with.
return ;
${Case} "8"
StrCpy $SelectedCaseIndexForPlatformScreen "gIMXI"
!insertmacro SelectSection ${gIMXI} ; MXGuard with Imail
Call SetInstallForMXGuard
StrCpy $currentPlatformSelection $1
return
${Case} "9"
StrCpy $SelectedCaseIndexForPlatformScreen "gIMMI" ; this marker is for the presetting the platforms screen on back event
!insertmacro SelectSection ${gIMMI} ; MINIMI with IMAIL
Call SetInstallForMINIMI
StrCpy $currentPlatformSelection $1 ; this marker is for remembering what was checked....
return
${Case} "10"
StrCpy $SelectedCaseIndexForPlatformScreen "gSWDI"
!insertmacro SelectSection ${gSWDI} ; check Declude with Smartermail
Call SetInstallForDeclude ; Set the install folder to put MessageSniffer in based on the Declude settings.
; If Its declude, then its whatever declude is setup for.... i.e. Declude can't be both
; IMail and Smartermail at the same time.... it will be one or the other.
StrCpy $currentPlatformSelection $1
return
${Case} "11"
StrCpy $SelectedCaseIndexForPlatformScreen "gSMXI"
!insertmacro SelectSection ${gSMXI} ; MXGuard with SmarterMail
Call SetInstallForMXGuard
StrCpy $currentPlatformSelection $1
return
${Case} "12"
StrCpy $SelectedCaseIndexForPlatformScreen "gAWDI"
!insertmacro SelectSection ${gAWDI} ; Alligate
Call SetInstallForSNF4Alligate ; Set the install folder to put MessageSniffer in based on the non-existant Alligate settings...
StrCpy $currentPlatformSelection $1 ; set this so that the next time through the click-handler it knows what to start with.
return ;
${Case} "13"
${Case} "14"
WriteRegStr HKLM "SOFTWARE\MessageSniffer" "IceWarpType" "AV" ; tells the Installer script to insert in AV position. Script will consume flag;
StrCpy $SelectedCaseIndexForPlatformScreen "gIWTI"
!insertmacro SelectSection ${gIWTI} ; IceWarp TieIn.
;Call SetInstallForIceWarp
StrCpy $currentPlatformSelection $1 ; set this so that the next time through the click-handler it knows what to start with.
return ;
${Case} "15"
WriteRegStr HKLM "SOFTWARE\MessageSniffer" "IceWarpType" "CF" ; tells the Installer script to insert in dominant filter position. Script will consume flag;
StrCpy $SelectedCaseIndexForPlatformScreen "gIWTICF"
!insertmacro SelectSection ${gIWTICF} ; IceWarp TieIn.
;Call SetInstallForIceWarp
StrCpy $currentPlatformSelection $1 ; set this so that the next time through the click-handler it knows what to start with.
return ;
${Case} "16"
WriteRegStr HKLM "SOFTWARE\MessageSniffer" "IceWarpType" "SS" ; tells the Installer script to insert with SpamScore contribution. Script will consume flag;
StrCpy $SelectedCaseIndexForPlatformScreen "gIWTICF2"
!insertmacro SelectSection ${gIWTICF2} ; IceWarp TieIn.
;Call SetInstallForIceWarp
StrCpy $currentPlatformSelection $1 ; set this so that the next time through the click-handler it knows what to start with.
return ;
${Case} "18"
StrCpy $SelectedCaseIndexForPlatformScreen "gMSI"
!insertmacro SelectSection ${gMSI} ; MailStop
;Call SetInstallForMailSite ; Set the install folder to put MessageSniffer in based on the non-existant Alligate settings...
StrCpy $currentPlatformSelection $1 ; set this so that the next time through the click-handler it knows what to start with.
return ;
${Case} "19"
StrCpy $SelectedCaseIndexForPlatformScreen "gKMI"
!insertmacro SelectSection ${gKMI} ; Kerio
;Call SetInstallForKerio ; Set the install folder to put MessageSniffer in based on the non-existant Alligate settings...
StrCpy $currentPlatformSelection $1 ; set this so that the next time through the click-handler it knows what to start with.
return ;
${Case} "20"
StrCpy $SelectedCaseIndexForPlatformScreen "gMDDLL"
!insertmacro SelectSection ${gMDDLL} ; Kerio
;Call SetInstallForMDaemon ; Set callback for the MDaemon install code
StrCpy $currentPlatformSelection $1 ; set this so that the next time through the click-handler it knows what to start with.
return ;
${Case} "21" ## WON'T HAPPEN
StrCpy $SelectedCaseIndexForPlatformScreen "gSNFI"
!insertmacro SelectSection ${gSNFI} ; SnifferStandalone
# These vars are used by the page that looks for missing folders.
;StrCpy $MissingApplicationName "Stand Alone Sniffer installation" ; This is used to identify the abstracted application name.
; MissingApplicationFolder ; This is used to identify the abstracted application folder to start the search from
;StrCpy $FindApplicationMessage "Please choose the folder where the $MissingApplicationName should reside." ; This is used to abstract the search page.
;Call LocatePlatformScreen
;StrCpy $SNFServerInstallDir $MissingApplicationFolder ; This will get the \SNF and the \SNFArchive folders built inside.....
;StrCpy $INSTDIR "$SNFServerInstallDir\SNF"
;StrCpy $currentPlatformSelection $1
return
${Case} "22"
StrCpy $SelectedCaseIndexForPlatformScreen "gUSWDI"
!insertmacro SelectSection ${gUSWDI} ; Unknown Declude
; Can't call this until you select the folders...Call SetInstallForDeclude ; No guarantees.... just install it in decludes folder.
StrCpy $currentPlatformSelection $1
return
${Case} "23"
StrCpy $SelectedCaseIndexForPlatformScreen "gCUKC" ; this Custom unknown
; doesn't matter where the folder is.. user will set it on the next screen.
!insertmacro SelectSection ${gCUKC} ;
return
# END THE Case elements for the Platforms OnSelectChange handling....
# These bottom ones are shown on the second components page.....
${Case} "6" ; Handling the request to see the status page.
StrCpy $ShowRestoreOptionsPage "0" ; don't show restore utilities.
StrCpy $ShowArchiveOptionsPage "0" ; don't show archive utilities.
StrCpy $ShowTelemetryPage "1" ; don't show status utilities.
StrCpy $HandleUninstallPage "0" ; don't show uninstall screen.
!insertmacro SelectSection ${g1o6B} ; INSTALL NEW chekcboxes should be checked.
StrCpy $currentUtilitySelection $1
Return
${Case} "5" ; if 5 was selected we jump with no play to the uninstaller.
StrCpy $HandleUninstallPage "1" ; don't show uninstall screen.
StrCpy $ShowArchiveOptionsPage "0" ; don't show utilities.
StrCpy $ShowTelemetryPage "0" ; don't show status utilities.
StrCpy $ShowRestoreOptionsPage "0" ; don't show restore utility.
!insertmacro SelectSection ${g1o6} ; Just Uninstall should be checked.
StrCpy $currentUtilitySelection $1
Return
${Case} "4"
StrCpy $ShowRestoreOptionsPage "1" ; If 4 was selected, we show the restore utility
StrCpy $ShowArchiveOptionsPage "0" ; don't show utilities.
StrCpy $ShowTelemetryPage "0" ; don't show status utilities.
StrCpy $HandleUninstallPage "0" ; don't show uninstall screen.
!insertmacro SelectSection ${g1o5} ; Just RESTORE should be checked.
StrCpy $currentUtilitySelection $1
Return
${Case} "3"
StrCpy $ShowArchiveOptionsPage "1" ; If 3 was selected, we show the archive utility
StrCpy $ShowRestoreOptionsPage "0" ; don't show restore utility.
StrCpy $ShowTelemetryPage "0" ; don't show status utilities.
StrCpy $HandleUninstallPage "0" ; don't show uninstall screen.
!insertmacro SelectSection ${g1o4} ; JUST THE ARCHIVE chekcboxes should be checked.
StrCpy $currentUtilitySelection $1
Return
${Case} "2"
StrCpy $ShowRestoreOptionsPage "0" ; don't show restore utilities.
StrCpy $ShowTelemetryPage "0" ; don't show status utilities.
StrCpy $ShowArchiveOptionsPage "0" ; don't show archive utilities.
StrCpy $HandleUninstallPage "0" ; don't show uninstall screen.
!insertmacro SelectSection ${g1o3} ; INSTALL WITH SETTINGS chekcboxes should be checked.
StrCpy $currentUtilitySelection $1
Return
${Case} "1"
StrCpy $ShowRestoreOptionsPage "0" ; don't show restore utilities.
StrCpy $ShowArchiveOptionsPage "0" ; don't show archive utilities.
StrCpy $ShowTelemetryPage "0" ; don't show statsu utilities.
StrCpy $HandleUninstallPage "0" ; don't show uninstall screen.
!insertmacro SelectSection ${g1o2} ; INSTALL FRESH chekcboxes should be checked.
StrCpy $currentUtilitySelection $1
Return
${Case} "0" ; Handling the 0 ( the expected result ) from clicking the NEW INSTALL button, ( but only when the Restore option is presented...)
StrCpy $ShowRestoreOptionsPage "0" ; don't show restore utilities.
StrCpy $ShowArchiveOptionsPage "0" ; don't show archive utilities.
StrCpy $ShowTelemetryPage "0" ; don't show status utilities.
StrCpy $HandleUninstallPage "0" ; don't show uninstall screen.
!insertmacro SelectSection ${g1o1} ; INSTALL NEW chekcboxes should be checked.
StrCpy $currentUtilitySelection $1
Return
${Case} "\" ; When NEW INSTALL is by itself...or some reason the subroutine is returning slash as the result of clicking the NEW button when its the only option.
StrCpy $ShowRestoreOptionsPage "0" ; don't show restore utilities.
StrCpy $ShowArchiveOptionsPage "0" ; don't show archive utilities.
StrCpy $ShowTelemetryPage "0" ; don't show status utilities.
StrCpy $HandleUninstallPage "0" ; don't show uninstall screen.
!insertmacro SelectSection ${g1o1} ; INSTALL NEW chekcboxes should be checked.
StrCpy $currentUtilitySelection "0"
Return
${Default}
; If we get here, we have an unusual situation that leaks through teh event handler.
; Though its not possible, you can unclick a radio button that should always have one selected.
; and put yourself in the original state of having nothing picked... if so, disable next.
EnableWindow $NextButton "0"
${EndSwitch}
FunctionEnd
; Ending Functions for control of components selection
;-----------------------------------
Function nsDialogHandleUninstall
; This page never shows. It will always complete and then return to the main components page. ( Or play through if $HandleUninstallPage= 0
StrCmp $HandleUninstallPage "1" 0 exit_nsDialogsUninstall
SetOutPath $INSTDIR
ifFileExists "$INSTDIR\uninstall.exe" 0 NotifyFind
SetOutPath $SNFServerInstallDir ; Reset this to enable the descturction of working directories.. THIS WAS THE CULPRET THAT HELD THE LOCK ON THE FOLDER!!!
ExecWait "$INSTDIR\uninstall.exe"
StrCpy $R9 "-4" ;Relative page number. See below.
Call RelGotoPage ; take me back to main screen
return ;
NotifyFind:
MessageBox MB_OK "Message Sniffer Utility is unable to locate the Uninstaller in the proper directory. Please search for the uninstall.exe in the proper directory."
StrCpy $R9 "-4" ;Relative page number. See below.
Call RelGotoPage ; take me back to main screen
exit_nsDialogsUninstall:
return ;
FunctionEND
Function nsDialogsTelemetryShow
StrCmp $ShowTelemetryPage "1" 0 exit_nsDialogsTelemetry
!insertmacro BIMAGE "SnifferBannerArchive.bmp" ""
GetDlgItem $0 $HWNDPARENT 1
SendMessage $0 ${WM_SETTEXT} 0 "STR:Exit Status" ; set the next button text:
SendMessage $HWNDPARENT ${WM_SETTEXT} 0 "STR:Message Sniffer Server 3.0 Status Viewer:" ; set the window text.
Var /GLOBAL TEXTBOX_Telemetry
Var /GLOBAL TelemetryData
Var /GLOBAL TelemetryGo
nsDialogs::Create /NOUNLOAD 1018
Pop $0
${NSD_CreateLabel} 0 0 100% 90 "Greetings. This is the quick status checking screen. You may press the test buttons to manually reload the status and rulebase authentication validation."
Pop $0
${NSD_CreateLabel} 0 30 100% 80u "Press to load status...." ; Default text goes in the quotes if you want something in the text box initially.;
Pop $TEXTBOX_Telemetry
${NSD_CreateButton} 0 180 30% 14u "Retest Status"
Pop $TelemetryGo
GetFunctionAddress $0 reloadTelemetry
nsDialogs::OnClick /NOUNLOAD $TelemetryGo $0
nsDialogs::Show
exit_nsDialogsTelemetry:
FunctionEnd
Function reloadTelemetry
${GetBetween} "licenseid='" "'" "$INSTDIR\identity.xml" $LicenseID ; This makes it not brittly dependant on the default value. i.e. It would
${GetBetween} "authentication='" "'" "$INSTDIR\identity.xml" $Authentication
StrCpy $TelemetryData "" "Starting Status Test.$\r$\n"
StrCpy $TelemetryData "" "$TelemetryData $\r$\nLicense = $LicenseID Authentication = $Authentication"
nsExec::ExecToStack 'NET START SNFService'
Pop $0 # return value/error/timeout
StrCpy $TelemetryData "$TelemetryData$\r$\n NET START Return Code: $0"
Pop $1 # printed text, up to ${NSIS_MAX_STRLEN}
StrCpy $TelemetryData "$TelemetryData$\r$\n $1"
nsExec::ExecToStack '$INSTDIR\SNFService'
Pop $0 # return value/error/timeout
Pop $1 # printed text, up to ${NSIS_MAX_STRLEN}
StrCpy $TelemetryData "$TelemetryData$\r$\n $1"
; but first test for valid status
nsExec::ExecToStack '"$INSTDIR\snf2check.exe" "$INSTDIR\$LicenseID.snf" "$Authentication"'
Pop $0 # return value/error/timeout
StrCpy $TelemetryData "$TelemetryData$\r$\n snf2check return code: $0"
Pop $1 # printed text, up to ${NSIS_MAX_STRLEN}
StrCpy $TelemetryData "$TelemetryData$\r$\n $1"
;Sleep 5000
;MessageBox MB_OK "$INSTDIR"
nsExec::ExecToStack '$INSTDIR\SNFClient -status.second'
Pop $0 # return value/error/timeout
StrCpy $TelemetryData "$TelemetryData$\r$\n SNFClient return code: $0"
Pop $1 # printed text, up to ${NSIS_MAX_STRLEN}
StrCpy $TelemetryData "$TelemetryData$\r$\n $1"
MessageBox MB_OK "$1"
SendMessage $TEXTBOX_Telemetry ${WM_SETTEXT} 0 "STR:$TelemetryData"
FunctionEND
Function nsDialogsTelemetryLeave
StrCpy $R9 "-1" ;Relative page number. See below.
Call RelGotoPage
FunctionEND
Function nsDialogInstall
SendMessage $HWNDPARENT ${WM_SETTEXT} 0 "STR:Install Utility Unpacking Components:" ; change text screen.
!insertmacro BIMAGE "SnifferBanner2.bmp" "" ; change banner image.
FunctionEND
Function .onUserAbort
; If this happenes we don't want to leave a folder hanging there.
SetOutPath "$SNFServerInstallDir"
;IfFileExists "$SNFServerInstallDir\SNF\mingwm10.dll" +2 0 ; If the dll exists, presume a decent install. If not... presume its screwed and delete it.
;RMDir /r "$SNFServerInstallDir\SNF"
FunctionEnd
Function check_CompoundEnable
VAR /GLOBAL Compound_Enable1 ; a value to ensure enabling.
VAR /GLOBAL Compound_Enable2 ; another value that must be enabled to enable the next.
EnableWindow $NextButton "0" ; presume no.
StrCmp $Compound_Enable1 "0" 0 +2
return
StrCmp $Compound_Enable2 "0" 0 +2
return
#StrCmp $Compound_Enable3 "0" 0 +2
# return
EnableWindow $NextButton "1" ; presume no.
return
FunctionEnd
Function FindApplicationPath
Var /Global windowHandle
nsDialogs::Create /NOUNLOAD 1018
Pop $windowHandle
SendMessage $HWNDPARENT ${WM_SETTEXT} 0 "STR:Please locate the $MissingApplicationName folders."
!insertmacro BIMAGE "SnifferBanner.bmp" ""
; Disable the next button until selection is made.
GetDlgItem $NextButton $HWNDPARENT 1
EnableWindow $NextButton "0"
#############################################################################
## These variables hold the list of platforms for which we MAY install SNF.
## There may be one, more or many.
##VAR /GLOBAL isIceWarpInstalled
##VAR /GLOBAL isMailSiteInstalled
##VAR /GLOBAL isKerioInstalled
##VAR /GLOBAL isImailInstalled
##VAR /GLOBAL isSmarterMailInstalled
##VAR /GLOBAL isAlligateInstalled
##VAR /GLOBAL isDecludeInstalled
#VAR /GLOBAL isMXGuardInstalled
#VAR /GLOBAL isMINIMIInstalled
#VAR /GLOBAL Set_For_MINIMI_INSTALL ; may or may not be set, depending of if the user wants to re-install MINIMI
#VAR /GLOBAL SelectedCaseIndexForPlatformScreen ; This is the var for controlling the case display on the platform screen. Indxed top to bottom.
## Now define the variables to hold the locations of WHERE we install SNF
## in the event we select any of these options.
#VAR /GLOBAL IceWarpInstallFolder
#VAR /GLOBAL MailSiteInstallFolder
#VAR /GLOBAL KerioInstallFolder
#VAR /GLOBAL ImailInstallFolder
#VAR /GLOBAL SmarterMailInstallFolder
#VAR /GLOBAL AlligateInstallFolder
#VAR /GLOBAL DecludeInstallFolder
#VAR /GLOBAL MXGuardInstallFolder
#VAR /GLOBAL MINIMIInstallFolder
Var /Global HowToFindMessage ; var for holding the popped winhandle for the message control...
Var /Global SNF_StartLookingHere
StrCpy $SNF_StartLookingHere "C:\Program Files\SNF"
StrCpy $Compound_Enable1 "0" ; the default is you must declare at least the Sniffer directory....
StrCpy $Compound_Enable2 "0" ; but maybe the declude dir?
## ADDINGPLATFORM ## Step 21
## Ok, here is the validation screens. This sub is called after you've selected the platform in the installer.
## It calls a switch on what platform, and based on that switch, it displays and runs tests on the folders it can find, or knows about.
## If it finds the expected files, then its all rosy and it enables the button. If not, it will force the user to lookup the target
## and redisplay this page to test if the new locaton has the expected files. If it can't find the expected files, it won't let the installer
## proceed, and it won't install. The case is driven off of the short name of the SECTION, so is NOT ordinal based, but its just nice to
## keep it in the same order that you saw it in the list.
## Steps to add this case block are:
## Copy block. Alter DetermineXYZ call to test for specific platform.
## Convert the file testing, adjust the user display responses.
## If necessary, add NOPLATFORM block after Switch block.
## Alter the default folder to display in the text block with SendMessage to hold the XYZInstallDir
## Alter the paths in the ifFileExists tests, to reflect the platform desired.
## Be sure to complete step 22, us the name that you unter as the callback in the NSD_OnClick button handler. i.e. LocateXYZFolder.
## Fix the compound enable test to be happy if the proper files are where they should be.
${Switch} $SelectedCaseIndexForPlatformScreen
${Case} "gIWDI" ; zero indexed array... Imail with Declude gIWDI
StrCpy $Find_Explanation_INFO "You have chosen to install Sniffer under Declude with an Imail configuration. You will need to confirm the location of the following items:"
## Handle the definition of the page for Imail and Declude
Call DetermineImail
StrCmp $IsImailInstalled "1" 0 NoImailFound
Call DetermineDeclude
StrCmp $IsDecludeInstalled "1" 0 NoDecludeFound
StrCpy $FindApplicationMessage "Imail was found. Please confirm the folder for Declude's global.cfg file. "
Goto +2
NoDecludeFound:
StrCpy $FindApplicationMessage "Imail was found. Declude was not. Please find Declude's global.cfg file."
${NSD_CreateDirRequest} 0 55% 75% 12u "" ; instructions
Pop $SNF_SearchFor_Location ; handle
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:$SNFServerInstallDir" ; yes, the var comes from the registry with an apended '/'... it stupid... This is the look up for the global.cfg
; For Declude, you need to add \declude to the end of the DecludeInstalationFolder......
${NSD_CreateBrowseButton} 340 55% 8% 12u "..."
Pop $SNF_SearchFor_Location_Button
${NSD_OnClick} $SNF_SearchFor_Location_Button LocateDecludeFolder
ifFileExists "$SNFServerInstallDir\global.cfg" 0 +3 ; if the file exists then both folders could be ok... offer the next.
StrCpy $Compound_Enable2 "1" ; clear for double ok.
;EnableWindow $NextButton "1" ; enable button, cause if you have 1 you have SOMETHING for the other...
Call check_CompoundEnable
StrCpy $SNF_StartLookingHere "$SNFServerInstallDir\SNF" ; store the starting path here for looking.
Goto EndDisplayChoices
${Case} "gIMXI"
StrCpy $Find_Explanation_INFO "You have chosen to install Sniffer under MXGuard with an Imail configuration. You will need to confirm the location of the following items:"
StrCpy $MissingApplicationName "Imail w/ MXGuard"
## Handle the definition of the page for Imail and MINIMI
Call DetermineImail
StrCmp $IsImailInstalled "1" 0 NoImailFound
Call DetermineMXGuard
StrCmp $IsMXGuardInstalled "1" 0 NoMXGuardFound
StrCpy $FindApplicationMessage "Imail was found. Please confirm the folder for MXGuard. "
Goto +2
NoMXGuardFound:
StrCpy $FindApplicationMessage "Imail was found. MXGuard was not. Please find MXGuards/ install directory."
${NSD_CreateDirRequest} 0 55% 75% 12u "" ; instructions
Pop $SNF_SearchFor_Location ; handle
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:$MXGuardInstallFolder" ; yes, the var comes from the registry with an apended '/'... it stupid... This is the look up for the global.cfg
${NSD_CreateBrowseButton} 340 55% 8% 12u "..."
Pop $SNF_SearchFor_Location_Button
${NSD_OnClick} $SNF_SearchFor_Location_Button LocateMXGuardFolder
ifFileExists "$MXGuardInstallFolder\mxguard.ini" 0 +3 ; if the file exists then both folders could be ok... offer the next.
StrCpy $Compound_Enable2 "1" ; clear for double ok.
;EnableWindow $NextButton "1" ; enable button, cause if you have 1 you have SOMETHING for the other...
Call check_CompoundEnable ; this will enable or hold based on multiple flags....
StrCpy $SNF_StartLookingHere "$MXGuardInstallFolder\SNF" ; store the starting path here for looking.
Goto EndDisplayChoices ;
${Case} "gIMMI"
StrCpy $Find_Explanation_INFO "You have chosen to install Sniffer with MINIMI for the Imail server. You will need to confirm the location of the following items:"
StrCpy $MissingApplicationName "Imail w/ MINIMI"
## Handle the definition of the page for Imail and MINIMI
Call DetermineImail
StrCmp $IsImailInstalled "1" 0 NoImailFound
Call DetermineMINIMI
StrCmp $IsMINIMIInstalled "1" 0 NoMINIMIFound
StrCpy $FindApplicationMessage "Imail was found. Please confirm the folder for MINIMI to be installed in $\nby finding Imail's location for smtp32. "
Goto +2
NoMINIMIFound:
StrCpy $FindApplicationMessage "Imail was found. MINIMI was not. Please confirm the location for MINIMI.$\n(Imail's location for smtp32.)"
${NSD_CreateDirRequest} 0 55% 75% 12u "" ; instructions
Pop $SNF_SearchFor_Location ; handle
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:$MINIMIInstallFolder" ; yes, the var comes from the registry with an apended '/'... it stupid... This is the look up for the global.cfg
${NSD_CreateBrowseButton} 340 55% 8% 12u "..."
Pop $SNF_SearchFor_Location_Button
${NSD_OnClick} $SNF_SearchFor_Location_Button LocateMINIMIFolder
ifFileExists "$MINIMIInstallFolder\SMTP32.exe" 0 +3 ; if the file exists then both folders could be ok... offer the next.
StrCpy $Compound_Enable2 "1" ; clear for double ok.
;EnableWindow $NextButton "1" ; enable button, cause if you have 1 you have SOMETHING for the other...
Call check_CompoundEnable ; this will enable or hold based on multiple flags....
StrCpy $SNF_StartLookingHere "$MINIMIInstallFolder\SNF" ; store the starting path here for looking.
Goto EndDisplayChoices ;
${Case} "gSWDI"
StrCpy $Find_Explanation_INFO "You have chosen to install Sniffer with Declude under SmarterMail. You will need to confirm the location of the following items:"
StrCpy $MissingApplicationName "Smartermail w/ Declude"
## Handle the definition of the page for Imail and Declude
Call DetermineSmarterMail
StrCmp $IsSmarterMailInstalled "1" 0 NoSmarterMail
Call DetermineDeclude ; handles both conditions.....
StrCmp $IsDecludeInstalled "1" 0 NoDeclude_Found
StrCpy $FindApplicationMessage "SmarterMail was found. Please confirm the folder for Declude's global.cfg file. "
Goto +2
NoDeclude_Found:
StrCpy $FindApplicationMessage "SmarterMail was found. Declude was not. Please find Declude's global.cfg file."
${NSD_CreateDirRequest} 0 55% 75% 12u "" ; instructions
Pop $SNF_SearchFor_Location ; handle
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:$SNFServerInstallDir" ; yes, the var comes from the registry with an apended '/'... it stupid... This is the look up for the global.cfg
${NSD_CreateBrowseButton} 340 55% 8% 12u "..."
Pop $SNF_SearchFor_Location_Button
${NSD_OnClick} $SNF_SearchFor_Location_Button LocateDecludeFolder
ifFileExists "$SNFServerInstallDir\global.cfg" 0 +3 ; if the file exists then both folders could be ok... offer the next.
StrCpy $Compound_Enable2 "1" ; clear for double ok.
;EnableWindow $NextButton "1" ; enable button, cause if you have 1 you have SOMETHING for the other...
Call check_CompoundEnable
StrCpy $SNF_StartLookingHere "$SNFServerInstallDir\SNF" ; store the starting path here for looking.
Goto EndDisplayChoices ;
${Case} "gSMXI"
StrCpy $Find_Explanation_INFO "You have chosen to install Sniffer with MXGuard under SmarterMail. You will need to confirm the location of the following items:"
StrCpy $MissingApplicationName "Smartermail w/ MXGuard"
## Handle the definition of the page for Smartermail and and MXGuard
Call DetermineSmarterMail
StrCmp $IsSmarterMailInstalled "1" 0 NoSmarterMail
Call DetermineMXGuard
StrCmp $IsMXGuardInstalled "1" 0 NoSMMXGuardFound
StrCpy $FindApplicationMessage "SmarterMail was found. Please confirm the folder for MXGuard. "
Goto +2
NoSMMXGuardFound:
StrCpy $FindApplicationMessage "SmarterMail was found. MXGuard was not. Please find MXGuards mxguard.ini file. $\nTypical locations would be in: [root]\Program Files\dgSoft Internet Services\mxGuard for Mail Servers."
StrCmp $MXGuardInstallFolder "" 0 +2 ; If Its not empty then use what DetermineMXGuard found.... otherwise... use guess...
StrCpy $MXGuardInstallFolder "C:\Program Files\dgSoft Internet Services\mxGuard for Mail Servers"
${NSD_CreateDirRequest} 0 55% 75% 12u "" ; instructions
Pop $SNF_SearchFor_Location ; handle
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:$MXGuardInstallFolder" ; yes, the var comes from the registry with an apended '/'... it stupid... This is the look up for the global.cfg
${NSD_CreateBrowseButton} 340 55% 8% 12u "..."
Pop $SNF_SearchFor_Location_Button
${NSD_OnClick} $SNF_SearchFor_Location_Button LocateMXGuardFolder
ifFileExists "$MXGuardInstallFolder\mxguard.ini" 0 +3 ; if the file exists then both folders could be ok... offer the next.
StrCpy $Compound_Enable2 "1" ; clear for double ok.
;EnableWindow $NextButton "1" ; enable button, cause if you have 1 you have SOMETHING for the other...
Call check_CompoundEnable ; this will enable or hold based on multiple flags....
StrCpy $SNF_StartLookingHere "$MXGuardInstallFolder\SNF" ; store the starting path here for looking.
#C:\Program Files\dgSoft Internet Services\mxGuard for Mail Servers
Goto EndDisplayChoices ;
${Case} "gAWDI"
StrCpy $Find_Explanation_INFO "You have chosen to install Sniffer with Alligate. You will need to confirm the location of the following items:"
StrCpy $MissingApplicationName "Alligate"
## Handle the definition of the page for Imail and MINIMI
Call DetermineAlligate
StrCmp $IsAlligateInstalled "1" 0 NoAlligateFound
Call DetermineSNF4Alligate
StrCmp "1" 0 NoSNF4AlligateFound
StrCpy $FindApplicationMessage "Alligate was found. Please confirm the folder for SNF4Alligate to be installed in $\nby confirming Alligates install location for AGFiltSVC.exe "
Goto +2
NoSNF4AlligateFound:
StrCpy $FindApplicationMessage "Alligate was found. SNF4Alligate was not. Please confirm the location for SNF4Alligate \n(Same as Alligate's location for AGFiltSVC.exe)"
${NSD_CreateDirRequest} 0 55% 75% 12u "" ; instructions
Pop $SNF_SearchFor_Location ; handle
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:$AlligateInstallFolder" ; yes, the var comes from the registry with an apended '/'... it stupid... This is the look up for the global.cfg
${NSD_CreateBrowseButton} 340 55% 8% 12u "..."
Pop $SNF_SearchFor_Location_Button
${NSD_OnClick} $SNF_SearchFor_Location_Button LocateSNF4AlligateFolder
StrCpy $SNF4AlligateInstallFolder $AlligateInstallFolder
ifFileExists "$AlligateInstallFolder\AGFiltSvc.exe" 0 +3 ; if the file exists then both folders could be ok... offer the next.
StrCpy $Compound_Enable2 "1" ; clear for double ok.
;EnableWindow $NextButton "1" ; enable button, cause if you have 1 you have SOMETHING for the other...
Call check_CompoundEnable ; this will enable or hold based on multiple flags....
StrCpy $SNF_StartLookingHere "$AlligateInstallFolder\SNF" ; store the starting path here for looking.
Goto EndDisplayChoices ;
${Case} "gIWTICF"
${Case} "gIWTICF2"
${Case} "gIWTI"
StrCpy $Find_Explanation_INFO "You have chosen to install Sniffer with Icewarp You will need to confirm the location of the following items:"
StrCpy $MissingApplicationName "Icewarp"
## Handle the definition of the page for Imail and MINIMI
Call DetermineIceWarp
StrCmp $IsIceWarpInstalled "1" 0 NoIceWarpFound
IfFileExists "$IceWarpInstallFolder\config\content.xml" 0 NoContentXMLFound
StrCpy $FindApplicationMessage "IceWarp was found. Please confirm Icewarp's install location."
Goto +2
NoContentXMLFound:
StrCpy $FindApplicationMessage "IceWarp was found. Its content.xml was not. Please confirm the location of the [config] folder holding Merak\config\content.xml"
${NSD_CreateDirRequest} 0 55% 75% 12u "" ; instructions
Pop $SNF_SearchFor_Location ; handle
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:$IceWarpInstallFolder" ; yes, the var comes from the registry with an apended '/'... it stupid... This is the look up for the global.cfg
${NSD_CreateBrowseButton} 340 55% 8% 12u "..."
Pop $SNF_SearchFor_Location_Button
${NSD_OnClick} $SNF_SearchFor_Location_Button LocateIceWarpFolder
ifFileExists "$IceWarpInstallFolder\config\content.xml" 0 +3 ; if the file exists then both folders could be ok... offer the next.
StrCpy $Compound_Enable2 "1" ; clear for double ok.
;EnableWindow $NextButton "1" ; enable button, cause if you have 1 you have SOMETHING for the other...
Call check_CompoundEnable ; this will enable or hold based on multiple flags....
StrCpy $SNF_StartLookingHere "$IceWarpInstallFolder\SNF" ; store the starting path here for looking.
Goto EndDisplayChoices ;
${Case} "gMSI"
StrCpy $Find_Explanation_INFO "MailSite isn't fully supported yet."
StrCpy $MissingApplicationName "MailSite"
StrCpy $FindApplicationMessage "MailSite was not found."
${NSD_CreateDirRequest} 0 55% 75% 12u "" ; instructions
Pop $SNF_SearchFor_Location ; handle
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:$MailSiteInstallFolder" ; yes, the var comes from the registry with an apended '/'... it stupid... This is the look up for the global.cfg
${NSD_CreateBrowseButton} 340 55% 8% 12u "..."
Pop $SNF_SearchFor_Location_Button
${NSD_OnClick} $SNF_SearchFor_Location_Button LocateMailSiteFolder
ifFileExists "$MailSiteInstallFolder\*.*" 0 +3 ; if the file exists then both folders could be ok... offer the next.
StrCpy $Compound_Enable2 "1" ; clear for double ok.
;EnableWindow $NextButton "1" ; enable button, cause if you have 1 you have SOMETHING for the other...
Call check_CompoundEnable ; this will enable or hold based on multiple flags....
StrCpy $SNF_StartLookingHere "$MailSiteInstallFolder\SNF" ; store the starting path here for looking.
Goto EndDisplayChoices ;
${Case} "gKMI"
StrCpy $Find_Explanation_INFO "Kerio isn't fully supported yet."
StrCpy $MissingApplicationName "Kerio"
StrCpy $FindApplicationMessage "Kerio was not found."
${NSD_CreateDirRequest} 0 55% 75% 12u "" ; instructions
Pop $SNF_SearchFor_Location ; handle
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:$KerioInstallFolder" ; yes, the var comes from the registry with an apended '/'... it stupid... This is the look up for the global.cfg
${NSD_CreateBrowseButton} 340 55% 8% 12u "..."
Pop $SNF_SearchFor_Location_Button
${NSD_OnClick} $SNF_SearchFor_Location_Button LocateKerioFolder
ifFileExists "$KerioInstallFolder\*.*" 0 +3 ; if the file exists then both folders could be ok... offer the next.
StrCpy $Compound_Enable2 "1" ; clear for double ok.
;EnableWindow $NextButton "1" ; enable button, cause if you have 1 you have SOMETHING for the other...
Call check_CompoundEnable ; this will enable or hold based on multiple flags....
StrCpy $SNF_StartLookingHere "$KerioInstallFolder\SNF" ; store the starting path here for looking.
Goto EndDisplayChoices ;
${Case} "gMDDLL"
StrCpy $Find_Explanation_INFO "You have chosen to install Sniffer with MDaemon You will need to confirm the location of the following items:"
StrCpy $MissingApplicationName "MDaemon"
## Handle the determination of MDaemon.
Call DetermineMDaemon
StrCmp $IsMDaemonInstalled "1" 0 NoMDaemon
StrCpy $FindApplicationMessage "MDaemon was found. Please confirm where SNF should reside:"
ifFileExists "$MDaemonInstallFolder\App\*.*" +2 0
StrCpy $FindApplicationMessage "MDaemons App folder was not found. Please confirm the MDaemon and SNF locations:"
${NSD_CreateDirRequest} 0 55% 75% 12u "" ; instructions
Pop $SNF_SearchFor_Location ; handle
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:$MDaemonInstallFolder" ; yes, the var comes from the registry with an apended '/'... it stupid... This is the look up for the global.cfg
${NSD_CreateBrowseButton} 340 55% 8% 12u "..."
Pop $SNF_SearchFor_Location_Button
${NSD_OnClick} $SNF_SearchFor_Location_Button LocateMDaemonFolder
ifFileExists "$MDaemonInstallFolder\*.*" 0 +3 ; if the file exists then both folders could be ok... offer the next.
StrCpy $Compound_Enable2 "1" ; clear for double ok.
;EnableWindow $NextButton "1" ; enable button, cause if you have 1 you have SOMETHING for the other...
Call check_CompoundEnable ; this will enable or hold based on multiple flags....
StrCpy $SNF_StartLookingHere "$MDaemonInstallFolder\SNF" ; store the starting path here for looking.
Goto EndDisplayChoices ;
${Case} "gSNFI"
StrCpy $Find_Explanation_INFO "You have chosen to install Sniffer in a stand alone. You will need to confirm the location of the install directory."
StrCpy $MissingApplicationName "Stand Alone Sniffer"
Goto EndDisplayChoices ;
${Case} "gUSWDI"
StrCpy $Find_Explanation_INFO "You have chosen to install Sniffer in an unidentified Declude install. You will need to confirm the location of the following items:"
StrCpy $MissingApplicationName "Generic Declude Install"
## Handle the definition of the page for Imail and Declude
Call DetermineDeclude ; handles both conditions.....
StrCmp $IsDecludeInstalled "1" 0 NoDeclude_Found
StrCpy $FindApplicationMessage "No supporting mail server was recognized. Please locate the folder holding Declude's global.cfg file. "
${NSD_CreateDirRequest} 0 55% 75% 12u "" ; instructions
Pop $SNF_SearchFor_Location ; handle
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:$SNFServerInstallDir" ; yes, the var comes from the registry with an apended '/'... it stupid... This is the look up for the global.cfg
${NSD_CreateBrowseButton} 340 55% 8% 12u "..."
Pop $SNF_SearchFor_Location_Button
${NSD_OnClick} $SNF_SearchFor_Location_Button LocateDecludeFolder
ifFileExists "$SNFServerInstallDir\global.cfg" 0 +3 ; if the file exists then both folders could be ok... offer the next.
StrCpy $Compound_Enable2 "1" ; clear for double ok.
;EnableWindow $NextButton "1" ; enable button, cause if you have 1 you have SOMETHING for the other...
Call check_CompoundEnable
StrCpy $SNF_StartLookingHere "$SNFServerInstallDir\SNF" ; store the starting path here for looking.
Goto EndDisplayChoices ;
${Case} "gCUKC"
StrCpy $Find_Explanation_INFO "You have chosen to install Sniffer in a stand alone. You will need to confirm the location of the install directory."
StrCpy $MissingApplicationName "Custom / Unknown" ;
StrCpy $FindApplicationMessage ""
StrCpy $Compound_Enable2 "1" ; clear for double ok.
Call check_CompoundEnable
Goto EndDisplayChoices ;
${Default}
; If we get here, we have an unusual situation that leaks through teh event handler.
; Though its not possible, you can unclick a radio button that should always have one selected.
; and put yourself in the original state of having nothing picked... if so, disable next.
EnableWindow $NextButton "0"
${EndSwitch}
EndDisplayChoices:
Var /GLOBAL FindINSTDIRMessage
StrCpy $FindINSTDIRMessage "Please locate the directory where you wish to install Message Sniffer. "
; put in the header handlers.
${NSD_CreateLabel} 0 0 75% 25% "$Find_Explanation_INFO"
Pop $0
${NSD_CreateLabel} 0 25% 100% 30% "$FindApplicationMessage"
Pop $HowToFindMessage
; Now put in the controls for handling the Sniffer Path.....
${NSD_CreateLabel} 0 70% 100% 15 "Please confirm/locate the folder you wish Message Sniffer to be installed in."
Pop $HowToFindMessage
${NSD_CreateDirRequest} 0 80% 75% 12u ""
Pop $SNF_SearchFor_LocationB
SendMessage $SNF_SearchFor_LocationB ${WM_SETTEXT} 0 "STR:$SNF_StartLookingHere" ; This is the look up for the SNIFFER Location....
${NSD_CreateBrowseButton} 340 80% 8% 12u "..."
Pop $SNF_SearchFor_Location_ButtonB
${NSD_OnClick} $SNF_SearchFor_Location_ButtonB LocateSNFInstallFolder
StrCmp $SNF_StartLookingHere "" +3 0
StrCpy $Compound_Enable1 "1" ; clear for double ok.
;EnableWindow $NextButton "1" ; enable button, cause if you have 1 you have SOMETHING for the other...
Call check_CompoundEnable ; this will enable or hold based on multiple flags....
nsDialogs::Show
return
; error handling
NoIceWarpFound:
${NSD_CreateLabel} 0 40 100% 80 "IceWarp was not reliably installed. Either the registry keys do not exist, or The Content.XML file does not exist in the Merak\config\ folder."
Pop $0
nsDialogs::Show
return
NoAlligateFound:
${NSD_CreateLabel} 0 40 100% 80 "Alligate was not reliably installed. Registry keys do not exist. Please go back and select another install option."
Pop $0
nsDialogs::Show
return
NoImailFound:
${NSD_CreateLabel} 0 40 100% 80 "IMail was not reliably installed. Registry keys do not exist. Please go back and select another install option."
Pop $0
nsDialogs::Show
return
NoSmarterMail:
${NSD_CreateLabel} 0 40 100% 80 "Smartermail was not reliably installed. Registry keys do not exist. Please go back and select another install option."
Pop $0
nsDialogs::Show
return
NoMDaemon:
${NSD_CreateLabel} 0 40 100% 80 "MDaemon was not reliably installed or registry keys do not exist. Please go back and select another install option."
Pop $0
nsDialogs::Show
return
FunctionEnd
## ADDINGPLATFORM ## Step 21 These are the specific ( and somewhat redundant ) subs for validating each specific location. You can alter them
## in order to satisfy the condition that all necessary files/folder exist. Otherwise, fail the compound enable variable, call check_CompoundEnable, and exit.
Function LocateIceWarpFolder
nsDialogs::SelectFolderDialog /NOUNLOAD $FindApplicationMessage $R0
Pop $R0
${If} $R0 != error
# NISIS 2.36
# ${NSD_SetText} $DIGI.DestinationLocations.DirRequest1 "$R0"
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:$R0" ; set the text box on the previous screen
${EndIf}
ifFileExists "$R0\config\content.xml" enableNext 0
MessageBox MB_OK "Unable to locate 'config\content.xml' in this selected folder. Please select the folder where [folder]\config\content.xml will resolve."
StrCpy $Compound_Enable2 "0" ; but maybe the declude dir?
call check_CompoundEnable ; unenable.....
return
enableNext:
StrCpy $IceWarpInstallFolder $R0
; but we can work with that either way.....
StrCpy $Compound_Enable2 "1"
call check_CompoundEnable ; unenable.....
return
FunctionEnd ;LocateIceWarpInstallFolder
Function LocateKerioFolder
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:Kerio Not Supported yet."
MessageBox MB_OK "Kerio is not yet supported."
FunctionEnd
Function LocateMailSiteFolder
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:MailSite Not Supported yet."
MessageBox MB_OK "MailSite is not yet supported."
FunctionEnd
Function LocateSNFInstallFolder
nsDialogs::SelectFolderDialog /NOUNLOAD $FindINSTDIRMessage $R0
Pop $R0
${If} $R0 != error
# NISIS 2.36
# ${NSD_SetText} $DIGI.DestinationLocations.DirRequest1 "$R0"
SendMessage $SNF_SearchFor_LocationB ${WM_SETTEXT} 0 "STR:$R0" ; set the text box on the previous screen
${EndIf}
StrCmp $R0 "" 0 testNext ; Refuse to enable if not completed.... ( will need to have complete code for all folders.... i.e. validation screen)
EnableWindow $NextButton "0"
StrCpy $Compound_Enable1 "0" ; the default is you must declare at least the Sniffer directory....
return
testNext:
; Here we have a challenge. The user can select the folder IN WHICH the SNF resides.../ will reside... or they can select the SNF folder itself.
ifFileExists "$R0\SNFClient.exe" 0 testForOldSniffer ; if true, this means it exists... and the user selected the Sniffer directory.
StrCpy $INSTDIR $R0 ; Store install folder.....
Goto enableNext
testForOldSniffer:
ifFileExists "$R0\snf2check.exe" 0 useThisFolder ; if true, this means it exists... and the user selected an older Sniffer directory.
StrCpy $INSTDIR $R0 ; Store install folder.....
Goto enableNext
useThisFolder:
; ok, but we need to determine if the SNF folder was already created here...
${GetParent} $R0 $R1 ; put the parent of the selected folder a the SNFServerInstallDir.... and leave the archiver to deal....
ifFileExists "$R1\SNF\*.*" 0 +3
StrCpy $INSTDIR $R0 ; User selected the SNF directory...
Goto EnableNext ; But for our install directory.....
ifFileExists "$R1\Sniffer\*.*" 0 +3
StrCpy $INSTDIR $R0 ; User selected the sniffer directory...
Goto EnableNext ; But for our install directory.....
; Ok well can't find any normal files, so we'll presume we mean make it here....
StrCpy $INSTDIR "$R0\SNF" ; Store install folder.....
CreateDirectory $INSTDIR ; If its not here, then we'll create it, and set it to SNF...
enableNext:
SendMessage $SNF_SearchFor_LocationB ${WM_SETTEXT} 0 "STR:$INSTDIR" ; This is the look up for the SNIFFER Location....
StrCpy $Compound_Enable1 "1" ; the default is you must declare at least the Sniffer directory....
Call check_CompoundEnable
; This gets called in checkCompoundEnable if all the components agree.....;EnableWindow $NextButton "1"
return
FunctionEnd ;LocateSNFInstallFolder
Function LocateSNF4AlligateFolder
nsDialogs::SelectFolderDialog /NOUNLOAD $FindApplicationMessage $R0
Pop $R0
${If} $R0 != error
# NISIS 2.36
# ${NSD_SetText} $DIGI.DestinationLocations.DirRequest1 "$R0"
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:$R0" ; set the text box on the previous screen
${EndIf}
ifFileExists "$R0\AGFiltSvc.exe" enableNext 0
MessageBox MB_OK "Unable to locate 'AGFiltSvc.exe' in the selected folder. Please select the folder where Alligate's AGFiltSvc.exe exists."
StrCpy $Compound_Enable2 "0" ; but maybe the declude dir?
call check_CompoundEnable ; unenable.....
return
enableNext:
StrCpy $SNF4AlligateInstallFolder $R0 ; Store declude folder.....
ifFileExists "$SNF4AlligateInstallFolder\SNF4Alligate.exe" 0 +2
StrCpy $IsMINIMIInstalled "1"
; but we can work with that either way.....
StrCpy $Compound_Enable2 "1" ; but maybe the declude dir?
call check_CompoundEnable ; unenable.....
return
FunctionEnd
Function LocateMINIMIFolder
nsDialogs::SelectFolderDialog /NOUNLOAD $FindApplicationMessage $R0
Pop $R0
${If} $R0 != error
# NISIS 2.36
# ${NSD_SetText} $DIGI.DestinationLocations.DirRequest1 "$R0"
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:$R0" ; set the text box on the previous screen
${EndIf}
ifFileExists "$R0\SMTP32.exe" enableNext 0
MessageBox MB_OK "Unable to locate 'SMTP32.exe' in the selected folder. Please select the folder where IMails SMTP32.exe exists."
StrCpy $Compound_Enable2 "0" ; but maybe the declude dir?
call check_CompoundEnable ; unenable.....
return
enableNext:
StrCpy $MINIMIInstallFolder $R0 ; Store declude folder.....
ifFileExists "$MINIMIInstallFolder\SNFIMailShim.exe" 0 +2
StrCpy $IsMINIMIInstalled "1"
; but we can work with that either way.....
StrCpy $Compound_Enable2 "1" ; but maybe the declude dir?
call check_CompoundEnable ; unenable.....
return
FunctionEnd
##
Function LocateMDaemonFolder
nsDialogs::SelectFolderDialog /NOUNLOAD $FindApplicationMessage $R0
Pop $R0
${If} $R0 != error
# NISIS 2.36
# ${NSD_SetText} $DIGI.DestinationLocations.DirRequest1 "$R0"
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:$R0" ; set the text box on the previous screen
${EndIf}
ifFileExists "$R0\SpamAssassin\rules\*.*" nextTest 0
MessageBox MB_OK "Unable to locate the Spam Assassin rules folder in the chosen MDaemon install location. Please select the root MDaemon Folder."
StrCpy $Compound_Enable2 "0" ; but maybe the declude dir?
call check_CompoundEnable ; unenable.....
return
nextTest:
ifFileExists "$R0\app\MDaemon.exe" enableNext 0
MessageBox MB_OK "Unable to locate the [Root]\App\MDaemon.exe folder in the chosen MDaemon install location. Please select the root MDaemon Folder."
StrCpy $Compound_Enable2 "0" ; but maybe the declude dir?
call check_CompoundEnable ; unenable.....
return
enableNext:
StrCpy $MXGuardInstallFolder $R0 ; Store declude folder.....
StrCpy $IsMXGuardInstalled "1"
StrCpy $Compound_Enable2 "1" ; but maybe the declude dir?
call check_CompoundEnable ; unenable.....
return
FunctionEnd
Function LocateMXGuardFolder
nsDialogs::SelectFolderDialog /NOUNLOAD $FindApplicationMessage $R0
Pop $R0
${If} $R0 != error
# NISIS 2.36
# ${NSD_SetText} $DIGI.DestinationLocations.DirRequest1 "$R0"
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:$R0" ; set the text box on the previous screen
${EndIf}
ifFileExists "$R0\mxguard.ini" enableNext 0
MessageBox MB_OK "Unable to locate 'mxguard.ini' in the selected folder. Please select the folder where MXGuards .ini file resides."
StrCpy $Compound_Enable2 "0" ; but maybe the declude dir?
call check_CompoundEnable ; unenable.....
return
enableNext:
StrCpy $MXGuardInstallFolder $R0 ; Store declude folder.....
StrCpy $IsMXGuardInstalled "1"
StrCpy $Compound_Enable2 "1" ; but maybe the declude dir?
call check_CompoundEnable ; unenable.....
return
FunctionEnd
Function LocateDecludeFolder
nsDialogs::SelectFolderDialog /NOUNLOAD $FindApplicationMessage $R0
Pop $R0
${If} $R0 != error
# NISIS 2.36
# ${NSD_SetText} $DIGI.DestinationLocations.DirRequest1 "$R0"
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:$R0" ; set the text box on the previous screen
${EndIf}
ifFileExists "$R0\global.cfg" enableNext 0
MessageBox MB_OK "Unable to locate 'global.cfg' in the selected folder. Please select the folder where Decludes global.cfg resides."
StrCpy $Compound_Enable2 "0" ; but maybe the declude dir?
call check_CompoundEnable ; unenable.....
return
enableNext:
StrCpy $DecludeInstallFolder $R0 ; Store declude folder.....
StrCpy $IsDecludeInstalled "1"
StrCpy $Compound_Enable2 "1" ; but maybe the declude dir?
call check_CompoundEnable ; unenable.....
return
FunctionEnd
Function LocateSmarterMailFolder
nsDialogs::SelectFolderDialog /NOUNLOAD $FindApplicationMessage $R0
Pop $R0
${If} $R0 != error
# NISIS 2.36
# ${NSD_SetText} $DIGI.DestinationLocations.DirRequest1 "$R0"
SendMessage $SNF_SearchFor_Location ${WM_SETTEXT} 0 "STR:$R0" ; set the text box on the previous screen
${EndIf}
ifFileExists "$R0\global.cfg" enableNext 0
MessageBox MB_OK "Unable to locate 'global.cfg' in the selected folder. Please select the folder where Decludes global.cfg resides."
StrCpy $Compound_Enable2 "0" ; but maybe the declude dir?
call check_CompoundEnable ; unenable.....
return
enableNext:
StrCpy $DecludeInstallFolder $R0 ; Store declude folder.....
StrCpy $IsDecludeInstalled "1"
StrCpy $Compound_Enable2 "1" ; but maybe the declude dir?
call check_CompoundEnable ; unenable.....
return
FunctionEnd
## ADDINGPLATFORM ## Step 22
## Open the Restorer executable, and add all the file adjustment code there. ( Don't forget to use the rollback features to preserve any files that you
## are touching, for the one time rollback. ( Continue the same keyword thread in that file, in order to complete this process. GL.
##