1 Function EnterConfigPage2
\r
2 IntOp $R0 $NewComponents & ${ComponentsRequiringUserConfig}
\r
8 FileOpen $R5 "$PLUGINSDIR\ConfigPage2.ini" w
\r
10 StrCpy $R6 1 ; Field Number
\r
13 IntOp $R0 $NewComponents & ${ComponentDirector}
\r
15 ${If} $AutomaticInstall = 1
\r
20 FileWrite $R5 '[Field $R6]$\r$\nType="GroupBox"$\r$\nText="Director"$\r$\nLeft=0$\r$\nTop=$R7$\r$\nRight=300$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
22 IntOp $R0 $NewComponents & ${ComponentsTextAndGuiConsoles}
\r
28 FileWrite $R5 '[Field $R6]$\r$\nType="GroupBox"$\r$\nText="Remote Director"$\r$\nLeft=0$\r$\nTop=$R7$\r$\nRight=300$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
34 IntOp $R0 $NewComponents & ${ComponentDirector}
\r
36 ${If} "$ConfigDirectorName" == ""
\r
37 StrCpy $ConfigDirectorName "$HostName-dir"
\r
39 ${If} "$ConfigDirectorPassword" == ""
\r
40 StrCpy $ConfigDirectorPassword "$LocalDirectorPassword"
\r
43 ${If} "$ConfigDirectorName" == "$HostName-dir"
\r
44 StrCpy $ConfigDirectorName ""
\r
46 ${If} "$ConfigDirectorPassword" == "$LocalDirectorPassword"
\r
47 StrCpy $ConfigDirectorPassword ""
\r
51 IntOp $R0 $NewComponents & ${ComponentDirector}
\r
53 ${OrIf} $AutomaticInstall = 0
\r
55 FileWrite $R5 '[Field $R6]$\r$\nType="Label"$\r$\nText="Name"$\r$\nLeft=6$\r$\nTop=$R7$\r$\nRight=26$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
60 FileWrite $R5 '[Field $R6]$\r$\nType="Text"$\r$\nState=$ConfigDirectorName$\r$\nLeft=50$\r$\nTop=$R7$\r$\nRight=158$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
63 ${If} $AutomaticInstall = 0
\r
64 IntOp $R0 $NewComponents & ${ComponentsDirectorAndTextGuiConsoles}
\r
68 FileWrite $R5 '[Field $R6]$\r$\nType="Label"$\r$\nText="Port"$\r$\nLeft=172$\r$\nTop=$R7$\r$\nRight=188$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
73 FileWrite $R5 '[Field $R6]$\r$\nType="Text"$\r$\nFlags="ONLY_NUMBERS"$\r$\nState=$ConfigDirectorPort$\r$\nLeft=190$\r$\nTop=$R7$\r$\nRight=218$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
77 IntOp $R0 $NewComponents & ${ComponentDirector}
\r
81 FileWrite $R5 '[Field $R6]$\r$\nType="Label"$\r$\nText="Max Jobs"$\r$\nLeft=238$\r$\nTop=$R7$\r$\nRight=270$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
86 FileWrite $R5 '[Field $R6]$\r$\nType="Text"$\r$\nFlags="ONLY_NUMBERS"$\r$\nState=$ConfigDirectorMaxJobs$\r$\nLeft=274$\r$\nTop=$R7$\r$\nRight=294$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
94 IntOp $R0 $NewComponents & ${ComponentsTextAndGuiConsoles}
\r
96 ${OrIf} $AutomaticInstall = 0
\r
97 IntOp $R0 $NewComponents & ${ComponentsDirectorAndTextGuiConsoles}
\r
102 FileWrite $R5 '[Field $R6]$\r$\nType="Label"$\r$\nText="Password"$\r$\nLeft=6$\r$\nTop=$R7$\r$\nRight=38$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
108 FileWrite $R5 '[Field $R6]$\r$\nType="Text"$\r$\nState=$ConfigDirectorPassword$\r$\nLeft=50$\r$\nTop=$R7$\r$\nRight=294$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
115 IntOp $R0 $NewComponents & ${ComponentDirector}
\r
120 FileWrite $R5 '[Field $R6]$\r$\nType="Label"$\r$\nText="Mail Server"$\r$\nLeft=6$\r$\nTop=$R7$\r$\nRight=48$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
126 FileWrite $R5 '[Field $R6]$\r$\nType="Text"$\r$\nState=$ConfigDirectorMailServer$\r$\nLeft=50$\r$\nTop=$R7$\r$\nRight=294$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
131 FileWrite $R5 '[Field $R6]$\r$\nType="Label"$\r$\nText="Mail Address"$\r$\nLeft=6$\r$\nTop=$R7$\r$\nRight=48$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
137 FileWrite $R5 '[Field $R6]$\r$\nType="Text"$\r$\nState=$ConfigDirectorMailAddress$\r$\nLeft=50$\r$\nTop=$R7$\r$\nRight=294$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
142 FileWrite $R5 '[Field $R6]$\r$\nType="Label"$\r$\nText="Database"$\r$\nLeft=6$\r$\nTop=$R7$\r$\nRight=38$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
148 ${If} $ConfigDirectorDB = 0
\r
149 ${If} $MySQLPath != ""
\r
150 StrCpy $ConfigDirectorDB 1
\r
151 ${ElseIf} $PostgreSQLPath != ""
\r
152 StrCpy $ConfigDirectorDB 2
\r
154 StrCpy $ConfigDirectorDB 3
\r
158 ${If} $ConfigDirectorDB = 1
\r
164 FileWrite $R5 '[Field $R6]$\r$\nType="RadioButton"$\r$\nState=$R9$\r$\nText="MySQL"$\r$\nFlags="GROUP"$\r$\nLeft=50$\r$\nTop=$R7$\r$\nRight=90$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
168 ${If} $ConfigDirectorDB = 2
\r
174 FileWrite $R5 '[Field $R6]$\r$\nType="RadioButton"$\r$\nState=$R9$\r$\nText="PostgreSQL"$\r$\nFlags="NOTABSTOP"$\r$\nLeft=94$\r$\nTop=$R7$\r$\nRight=146$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
178 ${If} $ConfigDirectorDB = 3
\r
184 FileWrite $R5 '[Field $R6]$\r$\nType="RadioButton"$\r$\nState=$R9$\r$\nText="Sqlite"$\r$\nFlags="NOTABSTOP"$\r$\nLeft=150$\r$\nTop=$R7$\r$\nRight=182$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
189 ${If} $AutomaticInstall = 0
\r
191 FileWrite $R5 '[Field $R6]$\r$\nType="Checkbox"$\r$\nState=$ConfigDirectorInstallService$\r$\nText="Install as service"$\r$\nLeft=50$\r$\nTop=$R7$\r$\nRight=118$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
194 FileWrite $R5 '[Field $R6]$\r$\nType="Checkbox"$\r$\nState=$ConfigDirectorStartService$\r$\nText="Start after install"$\r$\nLeft=190$\r$\nTop=$R7$\r$\nRight=260$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
200 IntOp $R0 $NewComponents & ${ComponentsTextAndGuiConsoles}
\r
205 FileWrite $R5 '[Field $R6]$\r$\nType="Label"$\r$\nText="Address"$\r$\nLeft=6$\r$\nTop=$R7$\r$\nRight=48$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
211 FileWrite $R5 '[Field $R6]$\r$\nType="Text"$\r$\nState=$ConfigDirectorAddress$\r$\nLeft=50$\r$\nTop=$R7$\r$\nRight=294$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
220 ${If} $AutomaticInstall = 0
\r
221 IntOp $R0 $NewComponents & ${ComponentsFileAndStorageAndDirector}
\r
225 FileWrite $R5 '[Field $R6]$\r$\nType="GroupBox"$\r$\nText="Monitor"$\r$\nLeft=0$\r$\nTop=$R7$\r$\nRight=300$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
230 FileWrite $R5 '[Field $R6]$\r$\nType="Label"$\r$\nText="Name"$\r$\nLeft=6$\r$\nTop=$R7$\r$\nRight=26$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
235 FileWrite $R5 '[Field $R6]$\r$\nType="Text"$\r$\nState=$ConfigMonitorName$\r$\nLeft=50$\r$\nTop=$R7$\r$\nRight=150$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
240 FileWrite $R5 '[Field $R6]$\r$\nType="Label"$\r$\nText="Password"$\r$\nLeft=6$\r$\nTop=$R7$\r$\nRight=38$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
246 FileWrite $R5 '[Field $R6]$\r$\nType="Text"$\r$\nState=$ConfigMonitorPassword$\r$\nLeft=50$\r$\nTop=$R7$\r$\nRight=294$\r$\nBottom=$R8$\r$\n$\r$\n'
\r
254 FileWrite $R5 "[Settings]$\r$\nNumFields=$R6$\r$\n"
\r
258 IntOp $R0 $NewComponents & ${ComponentsFileAndStorage}
\r
260 ${OrIf} $AutomaticInstall = 1
\r
261 !insertmacro MUI_HEADER_TEXT "$(TITLE_ConfigPage1)" "$(SUBTITLE_ConfigPage1)"
\r
263 !insertmacro MUI_HEADER_TEXT "$(TITLE_ConfigPage2)" "$(SUBTITLE_ConfigPage2)"
\r
266 !insertmacro MUI_INSTALLOPTIONS_INITDIALOG "ConfigPage2.ini"
\r
267 Pop $HDLG ;HWND of dialog
\r
269 ; Initialize Controls
\r
270 StrCpy $R6 2 ; Field Number
\r
272 IntOp $R0 $NewComponents & ${ComponentDirector}
\r
274 ${OrIf} $AutomaticInstall = 0
\r
277 !insertmacro MUI_INSTALLOPTIONS_READ $HCTL "ConfigPage2.ini" "Field $R6" "HWND"
\r
278 SendMessage $HCTL ${EM_LIMITTEXT} 30 0
\r
281 ${If} $AutomaticInstall = 0
\r
282 IntOp $R0 $NewComponents & ${ComponentsDirectorAndTextGuiConsoles}
\r
286 !insertmacro MUI_INSTALLOPTIONS_READ $HCTL "ConfigPage2.ini" "Field $R6" "HWND"
\r
287 SendMessage $HCTL ${EM_LIMITTEXT} 5 0
\r
291 IntOp $R0 $NewComponents & ${ComponentDirector}
\r
295 !insertmacro MUI_INSTALLOPTIONS_READ $HCTL "ConfigPage2.ini" "Field $R6" "HWND"
\r
296 SendMessage $HCTL ${EM_LIMITTEXT} 3 0
\r
303 IntOp $R0 $NewComponents & ${ComponentsTextAndGuiConsoles}
\r
305 ${OrIf} $AutomaticInstall = 0
\r
306 IntOp $R0 $NewComponents & ${ComponentsDirectorAndTextGuiConsoles}
\r
312 IntOp $R0 $NewComponents & ${ComponentDirector}
\r
316 ${If} $AutomaticInstall = 0
\r
320 IntOp $R0 $NewComponents & ${ComponentsTextAndGuiConsoles}
\r
326 ${If} $AutomaticInstall = 0
\r
327 IntOp $R0 $NewComponents & ${ComponentsFileAndStorageAndDirector}
\r
330 !insertmacro MUI_INSTALLOPTIONS_READ $HCTL "ConfigPage2.ini" "Field $R6" "HWND"
\r
331 SendMessage $HCTL ${EM_LIMITTEXT} 30 0
\r
336 !insertmacro MUI_INSTALLOPTIONS_SHOW
\r
342 IntOp $R0 $NewComponents & ${ComponentDirector}
\r
344 ${OrIf} $AutomaticInstall = 0
\r
346 !insertmacro MUI_INSTALLOPTIONS_READ $ConfigDirectorName "ConfigPage2.ini" "Field $R6" "State"
\r
349 ${If} $AutomaticInstall = 0
\r
350 IntOp $R0 $NewComponents & ${ComponentsDirectorAndTextGuiConsoles}
\r
353 !insertmacro MUI_INSTALLOPTIONS_READ $ConfigDirectorPort "ConfigPage2.ini" "Field $R6" "State"
\r
357 IntOp $R0 $NewComponents & ${ComponentDirector}
\r
360 !insertmacro MUI_INSTALLOPTIONS_READ $ConfigDirectorMaxJobs "ConfigPage2.ini" "Field $R6" "State"
\r
366 IntOp $R0 $NewComponents & ${ComponentsTextAndGuiConsoles}
\r
368 ${OrIf} $AutomaticInstall = 0
\r
369 IntOp $R0 $NewComponents & ${ComponentsDirectorAndTextGuiConsoles}
\r
372 !insertmacro MUI_INSTALLOPTIONS_READ $ConfigDirectorPassword "ConfigPage2.ini" "Field $R6" "State"
\r
377 IntOp $R0 $NewComponents & ${ComponentDirector}
\r
380 !insertmacro MUI_INSTALLOPTIONS_READ $ConfigDirectorMailServer "ConfigPage2.ini" "Field $R6" "State"
\r
382 !insertmacro MUI_INSTALLOPTIONS_READ $ConfigDirectorMailAddress "ConfigPage2.ini" "Field $R6" "State"
\r
384 !insertmacro MUI_INSTALLOPTIONS_READ $R5 "ConfigPage2.ini" "Field $R6" "State"
\r
386 StrCpy $ConfigDirectorDB 1
\r
389 !insertmacro MUI_INSTALLOPTIONS_READ $R5 "ConfigPage2.ini" "Field $R6" "State"
\r
391 StrCpy $ConfigDirectorDB 2
\r
394 !insertmacro MUI_INSTALLOPTIONS_READ $R5 "ConfigPage2.ini" "Field $R6" "State"
\r
396 StrCpy $ConfigDirectorDB 3
\r
400 ${If} $AutomaticInstall = 0
\r
401 !insertmacro MUI_INSTALLOPTIONS_READ $ConfigDirectorInstallService "ConfigPage2.ini" "Field $R6" "State"
\r
403 !insertmacro MUI_INSTALLOPTIONS_READ $ConfigDirectorStartService "ConfigPage2.ini" "Field $R6" "State"
\r
407 IntOp $R0 $NewComponents & ${ComponentsTextAndGuiConsoles}
\r
410 !insertmacro MUI_INSTALLOPTIONS_READ $ConfigDirectorAddress "ConfigPage2.ini" "Field $R6" "State"
\r
415 ${If} $AutomaticInstall = 0
\r
416 IntOp $R0 $NewComponents & ${ComponentsFileAndStorageAndDirector}
\r
419 !insertmacro MUI_INSTALLOPTIONS_READ $ConfigMonitorName "ConfigPage2.ini" "Field $R6" "State"
\r
421 !insertmacro MUI_INSTALLOPTIONS_READ $ConfigMonitorPassword "ConfigPage2.ini" "Field $R6" "State"
\r
426 Function LeaveConfigPage2
\r
427 ${If} $AutomaticInstall = 0
\r
430 IntOp $R0 $NewComponents & ${ComponentsDirectorAndTextGuiConsoles}
\r
433 !insertmacro MUI_INSTALLOPTIONS_READ $R0 "ConfigPage2.ini" "Field $R6" "State"
\r
435 ${OrIf} $R0 > 65535
\r
436 MessageBox MB_OK "Port must be between 1024 and 65535 inclusive."
\r
442 IntOp $R0 $NewComponents & ${ComponentDirector}
\r
445 !insertmacro MUI_INSTALLOPTIONS_READ $R0 "ConfigPage2.ini" "Field $R6" "State"
\r
448 MessageBox MB_OK "Max Jobs must be between 1 and 99 inclusive."
\r