pages/Login.nsi
author Dan
Wed, 27 May 2009 01:15:21 -0400
changeset 1 ac5bcb4e5284
parent 0 67e1cc6cd929
child 2 0c0d5dadfca3
permissions -rw-r--r--
PostgreSQL: skip applications.html stage (not supported in upstream wappstack)
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
     1
Page custom CredentialsCreate CredentialsLeave " - Admin login"
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
     2
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
     3
Function CredentialsCreate
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
     4
  !insertmacro XPUI_HEADER_TEXT "Create administrator" "Enter your desired username and password for administering your site."
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
     5
  !insertmacro XPUI_INSTALLOPTIONS_EXTRACT_AS "pages\Login.ini" "Login.ini"
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
     6
  !insertmacro XPUI_INSTALLOPTIONS_DISPLAY "Login.ini"
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
     7
FunctionEnd
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
     8
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
     9
Function CredentialsLeave
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    10
  StrCmp $XPUI_ABORTED "1" 0 +2
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    11
    Return
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    12
  
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    13
  ReadIniStr $enano_user "$PLUGINSDIR\Login.ini" "Field 1" "State"
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    14
  StrCmp $enano_user "" 0 +3
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    15
    MessageBox MB_OK|MB_ICONEXCLAMATION "Please enter a username."
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    16
    Abort
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    17
  
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    18
  ReadIniStr $enano_password "$PLUGINSDIR\Login.ini" "Field 2" "State"
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    19
  Strlen $0 $enano_password
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    20
  IntCmp $0 6    +3  0  +3
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    21
    MessageBox MB_OK|MB_ICONEXCLAMATION "Please enter a password that is at least six characters long."
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    22
    Abort
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    23
    
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    24
  ReadIniStr $0 "$PLUGINSDIR\Login.ini" "Field 3" "State"
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    25
  StrCmp $0 $enano_password +3
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    26
    MessageBox MB_OK|MB_ICONEXCLAMATION "The passwords you entered do not match. Please enter them again."
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    27
    Abort
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    28
    
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    29
  ReadIniStr $admin_email "$PLUGINSDIR\Login.ini" "Field 4" "State"
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    30
  StrCmp $admin_email "" 0 +3
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    31
    MessageBox MB_OK|MB_ICONEXCLAMATION "Please enter your e-mail address."
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    32
    Abort
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    33
FunctionEnd
67e1cc6cd929 First commit. It's working!
Dan
parents:
diff changeset
    34