1 Page custom CredentialsCreate CredentialsLeave " - Admin login"

     2 

     3 Function CredentialsCreate

     4   !insertmacro XPUI_HEADER_TEXT "Create administrator" "Enter your desired username and password for administering your site."

     5   !insertmacro XPUI_INSTALLOPTIONS_EXTRACT_AS "pages\Login.ini" "Login.ini"

     6   !insertmacro XPUI_INSTALLOPTIONS_DISPLAY "Login.ini"

     7 FunctionEnd

     8 

     9 Function CredentialsLeave

    10   StrCmp $XPUI_ABORTED "1" 0 +2

    11     Return

    12   

    13   ReadIniStr $enano_user "$PLUGINSDIR\Login.ini" "Field 1" "State"

    14   StrCmp $enano_user "" 0 +3

    15     MessageBox MB_OK|MB_ICONEXCLAMATION "Please enter a username."

    16     Abort

    17   

    18   ReadIniStr $enano_password "$PLUGINSDIR\Login.ini" "Field 2" "State"

    19   Strlen $0 $enano_password

    20   IntCmp $0 6    +3  0  +3

    21     MessageBox MB_OK|MB_ICONEXCLAMATION "Please enter a password that is at least six characters long."

    22     Abort

    23     

    24   ReadIniStr $0 "$PLUGINSDIR\Login.ini" "Field 3" "State"

    25   StrCmp $0 $enano_password +3

    26     MessageBox MB_OK|MB_ICONEXCLAMATION "The passwords you entered do not match. Please enter them again."

    27     Abort

    28     

    29   ReadIniStr $admin_email "$PLUGINSDIR\Login.ini" "Field 4" "State"

    30   StrCmp $admin_email "" 0 +3

    31     MessageBox MB_OK|MB_ICONEXCLAMATION "Please enter your e-mail address."

    32     Abort

    33 FunctionEnd

    34