diff -r 000000000000 -r 67e1cc6cd929 pages/DatabaseConfig.nsi
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/pages/DatabaseConfig.nsi	Wed May 27 01:05:23 2009 -0400
@@ -0,0 +1,163 @@
+!macro ShowRange hwnd low high value
+  !define tmp_id ${__LINE__}
+  StrCpy $R0 ${low}
+  loop.${tmp_id}:
+    GetDlgItem $R1 ${hwnd} $R0
+    ShowWindow $R1 ${value}
+    IntOp $R0 $R0 + 1
+    IntCmp $R0 ${high} loop.${tmp_id} loop.${tmp_id}
+    
+  !undef tmp_id
+!macroend
+!define ShowRange "!insertmacro ShowRange"
+
+Page custom DatabaseConfigCreate DatabaseConfigLeave " - Database configuration"
+
+Function DatabaseConfigCreate
+  StrCmp $XPUI_ABORTED 1 0 +2
+    Return
+  !insertmacro XPUI_INSTALLOPTIONS_EXTRACT_AS "pages\DatabaseConfig.ini" "DatabaseConfig.ini"
+  !insertmacro XPUI_HEADER_TEXT "Database configuration" "Configure how $(^Name) will access your database."
+  WriteINIStr "$PLUGINSDIR\DatabaseConfig.ini" "Field 9" "Text" \
+    "$(^Name) needs database access to work properly. Setup can create a database for you if you provide \
+     $db_dbmsname's administration password, or you can choose to enter credentials for a database that already exists."
+
+  !insertmacro XPUI_INSTALLOPTIONS_INITDIALOG "DatabaseConfig.ini"
+  Pop $XPUI_HWND
+
+  ${ShowRange} $XPUI_HWND 1204 1207 ${SW_HIDE}
+  ${ShowRange} $XPUI_HWND 1210 1213 ${SW_HIDE}
+
+  !insertmacro XPUI_INSTALLOPTIONS_SHOW
+FunctionEnd
+
+Function DatabaseConfigLeave
+  StrCmp $XPUI_ABORTED 1 0 +2
+    Return
+    
+  ReadINIStr $0 "$PLUGINSDIR\DatabaseConfig.ini" "Settings" "State"
+  StrCmp $0 1 RadioButtonClicked
+  StrCmp $0 2 RadioButtonClicked
+  StrCmp $0 3 UseManualClicked
+  Goto NextClicked
+  
+  RadioButtonClicked:
+    LockWindow on
+    ReadINIStr $0 "$PLUGINSDIR\DatabaseConfig.ini" "Field 1" "State"
+    IntCmp $0 0 SetUseExisting
+    
+      ; Show root password
+      GetDlgItem $0 $XPUI_HWND 1203
+      ShowWindow $0 ${SW_SHOW}
+      GetDlgItem $0 $XPUI_HWND 1209
+      ShowWindow $0 ${SW_SHOW}
+    
+      GetDlgItem $0 $XPUI_HWND 1202 ; Checkbox
+      SendMessage $0 ${BM_SETCHECK} ${BST_UNCHECKED} 0
+      EnableWindow $0 1
+      ${ShowRange} $XPUI_HWND 1204 1207 ${SW_HIDE}
+      ${ShowRange} $XPUI_HWND 1210 1213 ${SW_HIDE}
+      LockWindow off
+      Abort
+    
+    SetUseExisting:
+    
+      ; Hide root password
+      GetDlgItem $0 $XPUI_HWND 1203
+      ShowWindow $0 ${SW_HIDE}
+      GetDlgItem $0 $XPUI_HWND 1209
+      ShowWindow $0 ${SW_HIDE}
+      
+      GetDlgItem $0 $XPUI_HWND 1202 ; Checkbox
+      SendMessage $0 ${BM_SETCHECK} ${BST_CHECKED} 0
+      EnableWindow $0 0
+      ${ShowRange} $XPUI_HWND 1204 1207 ${SW_SHOW}
+      ${ShowRange} $XPUI_HWND 1210 1213 ${SW_SHOW}
+      LockWindow off
+      Abort
+    
+  UseManualClicked:
+    ReadINIStr $0 "$PLUGINSDIR\DatabaseConfig.ini" "Field 3" "State"
+    IntOp $0 $0 * ${SW_SHOW}
+    ${ShowRange} $XPUI_HWND 1204 1207 $0
+    ${ShowRange} $XPUI_HWND 1210 1213 $0
+    Abort
+  
+  NextClicked:
+
+    ; Figure out how we want to go about this.
+    StrCpy $db_needroot 0
+    ReadINIStr $0 "$PLUGINSDIR\DatabaseConfig.ini" "Field 1" "State"
+    IntCmp $0 0 UseCustomLogin
+    
+      ; Validate based on root password.
+      StrCpy $db_needroot 1
+      ReadINIStr $db_rootpass "$PLUGINSDIR\DatabaseConfig.ini" "Field 4" "State"
+      ${db_connect} $1 "$db_rootuser" "$db_rootpass"
+      IntCmp $1 0 +3
+        MessageBox MB_OK|MB_ICONEXCLAMATION "The $db_dbmsname root password you entered is incorrect. Please re-enter it."
+        Abort
+        
+      ; Does the user have their own credentials?
+      ReadINIStr $0 "$PLUGINSDIR\DatabaseConfig.ini" "Field 3" "State"
+      IntCmp $0 0 GenerateRandomLogin
+    
+    UseCustomLogin:
+    
+      ; Pull database settings from dialog
+      ReadINIStr $db_name "$PLUGINSDIR\DatabaseConfig.ini" "Field 5" "State"
+      ReadINIStr $db_user "$PLUGINSDIR\DatabaseConfig.ini" "Field 6" "State"
+      ReadINIStr $db_password "$PLUGINSDIR\DatabaseConfig.ini" "Field 7" "State"
+      ReadINIStr $R0 "$PLUGINSDIR\DatabaseConfig.ini" "Field 8" "State"
+      
+      ; Check password length
+      ; but don't if the user entered credentials that already exist
+      IntCmp $db_needroot 0 SkipLengthCheck
+        StrLen $R1 $R0
+        IntCmp $R1 6 +3 0 +3
+          MessageBox MB_OK|MB_ICONEXCLAMATION "Please choose a database password that is at least 6 characters in length."
+          Abort
+          
+      SkipLengthCheck:
+      ; Check password/confirm fields
+      StrCmp $db_password $R0 +3
+        MessageBox MB_OK|MB_ICONEXCLAMATION "The passwords you entered do not match. Please enter them again."
+        Abort
+        
+      ; If we're root, we can assume the login doesn't exist yet, so skip the validation
+      IntCmp $db_needroot 0 +2
+        Return
+        
+      ${db_connect} $R0 $db_user $db_password
+      IntCmp $R0 0 +3
+        ; Database auth failed
+        MessageBox MB_OK|MB_ICONEXCLAMATION "The username and password you entered are invalid. Please enter them again."
+        Abort
+        
+      ; This can be an error-prone process because entering credentials manually will keep
+      ; the installer from touching the database. If tables already exist, Enano's installer
+      ; will throw an error. Confirm this with the user.
+      MessageBox MB_YESNO|MB_ICONQUESTION "Do you really want to use manual database settings?$\r$\n\
+                                           $\r$\n\
+                                           Setup will not attempt to modify your existing database. If there is \
+                                           already an installation of $(^Name) in the database, the installer will \
+                                           fail. This option is recommended only for advanced users." IDYES +2
+        Abort ; on No
+      
+      Return
+      
+    GenerateRandomLogin:
+      StrCpy $db_name "bn_enanocms"
+      StrCpy $db_user "bn_enanocms"
+      Call GenerateRandomPassword
+      Pop $db_password
+      Return
+  
+FunctionEnd
+
+Function GenerateRandomPassword
+  SetOutPath $PLUGINSDIR
+  File "inst-resources\randompass.php"
+  nsExec::ExecToStack '"$stack_instdir\php\php.exe" "$PLUGINSDIR\randompass.php"'
+  Pop $R0
+FunctionEnd