author | Dan |
Thu, 17 Dec 2009 05:56:36 -0500 | |
changeset 7 | 37824b18ff73 |
parent 2 | 0c0d5dadfca3 |
child 10 | 014d58335b6d |
permissions | -rw-r--r-- |
0 | 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 |
|
2
0c0d5dadfca3
Added LockWindow calls to all custom page exit paths to smooth transitions
Dan
parents:
0
diff
changeset
|
33 |
|
0c0d5dadfca3
Added LockWindow calls to all custom page exit paths to smooth transitions
Dan
parents:
0
diff
changeset
|
34 |
LockWindow on |
0 | 35 |
FunctionEnd |
36 |