WebSVN – Games.Chess Giants – Diff – //dialog/dialog_registration.cpp

 #include "../common.h"
 // dialog template
 #define THIS_DIALOG DIALOG_REGISTER
+// global variables used in this module only
+static bool was_donatebutton_clicked = false;
+static wchar_t candidate_email[128] = L"";
+static unsigned __int32 candidate_code = 0; // 32 bits
 // prototypes of local functions
 static int CALLBACK DialogProc_ThisDialog (HWND hWnd, unsigned int message, WPARAM wParam, LPARAM lParam);
+static unsigned __int32 RetrieveActivationCode (wchar_t *candidate_email, wchar_t **failure_reason);
 void DialogBox_Registration (void)
+{
    // helper function to fire up the modal dialog box
 static int CALLBACK DialogProc_ThisDialog (HWND hWnd, unsigned int message, WPARAM wParam, LPARAM lParam)
+{
    // message handler for the dialog box
-   static wchar_t error_message[1024];
+   static wchar_t temp_string[1024];
-   static wchar_t candidate_email[256];
-   unsigned long candidate_code;
    unsigned short wParam_hiword;
    unsigned short wParam_loword;
-   BOOL was_translated; // needs to be of type BOOL (int)
-   int read_index;
+   wchar_t *failure_reason;
    int write_index;
+   int read_index;
    int length;
    // filter out the commonly used message values
    wParam_hiword = HIWORD (wParam);
    wParam_loword = LOWORD (wParam);
       SetWindowText (GetDlgItem (hWnd, BUTTON_DONATE), LOCALIZE (L"Registration_Donate"));
       Static_SetText (GetDlgItem (hWnd, STATICTEXT_REGISTRATION_NOPAYPAL), LOCALIZE (L"Registration_NoPayPal"));
       Static_SetText (GetDlgItem (hWnd, STATICTEXT_REGISTRATION_INSTRUCTIONS), LOCALIZE (L"Registration_Instructions"));
       Static_SetText (GetDlgItem (hWnd, STATICTEXT_REGISTRATION_CODENOTRECEIVED), LOCALIZE (L"Registration_CodeNotReceived"));
       Static_SetText (GetDlgItem (hWnd, STATICTEXT_REGISTRATION_EMAILADDRESS), LOCALIZE (L"Registration_EmailAddress"));
+      if (options.registration.user_email[0] != 0)
-      SetDlgItemText (hWnd, EDITBOX_REGISTRATION_EMAILADDRESS, options.registration.user_email);
+         SetDlgItemText (hWnd, EDITBOX_REGISTRATION_EMAILADDRESS, options.registration.user_email);
+      else
+         SetDlgItemText (hWnd, EDITBOX_REGISTRATION_EMAILADDRESS, L"your@email.here");
       Static_SetText (GetDlgItem (hWnd, STATICTEXT_REGISTRATION_ACTIVATIONCODE), LOCALIZE (L"Registration_ActivationCode"));
       //SetDlgItemInt (hWnd, EDITBOX_REGISTRATION_ACTIVATIONCODE, options.registration.activation_code, false);
       SetWindowText (GetDlgItem (hWnd, BUTTON_VALIDATECODE), LOCALIZE (L"Registration_ValidateCode"));
       Static_SetText (GetDlgItem (hWnd, STATICTEXT_REGISTRATION_STATUSBAR), LOCALIZE (L"Registration_StatusBar"));
    // else did we take action on one of the controls ?
    else if (message == WM_COMMAND)
+   {
       // did we cancel the dialog box ? (IDCANCEL is a system-wide dialog box handler value, that catches the ESC key)
       if (wParam_loword == IDCANCEL)
+      {
+         // was the donate button clicked ?
+         if (was_donatebutton_clicked)
+         {
+            // did the user fill in his email address ?
+         }
          EndDialog (hWnd, 0); // close the dialog box
+      }
       // else did the user enter something in the edit boxes ?
       else if (wParam_hiword == EN_CHANGE)
+      {
-         // enable the validation button only if the two fields have data
+         // enable the validation button only if the PayPal email field has data
          GetDlgItemText (hWnd, EDITBOX_REGISTRATION_EMAILADDRESS, candidate_email, WCHAR_SIZEOF (candidate_email));
-         candidate_code = GetDlgItemInt (hWnd, EDITBOX_REGISTRATION_ACTIVATIONCODE, &was_translated, false);
-         EnableWindow (GetDlgItem (hWnd, BUTTON_VALIDATECODE), ((candidate_email[0] != 0) && (candidate_code != 0)));
-      }
-      // else was it the validation button ?
-      else if (wParam_loword == BUTTON_VALIDATECODE)
-      {
-         // retrieve form data
-         GetDlgItemText (hWnd, EDITBOX_REGISTRATION_EMAILADDRESS, candidate_email, WCHAR_SIZEOF (candidate_email));
-         candidate_code = GetDlgItemInt (hWnd, EDITBOX_REGISTRATION_ACTIVATIONCODE, &was_translated, false);
-         // strip spaces and unprintable characters from candidate email
+         // strip spaces and unprintable characters from candidate email, and bring it lowercase
          length = wcslen (candidate_email);
          write_index = 0;
          for (read_index = 0; read_index < length; read_index++)
             if (!iswspace (candidate_email[read_index]))
+            {
-               candidate_email[write_index] = candidate_email[read_index];
+               candidate_email[write_index] = tolower (candidate_email[read_index]); // force lowercase
-               write_index++;
+               write_index++; // keep only valid signs and discard spaces
+            }
          candidate_email[write_index] = 0; // ensure string is correctly terminated
+         EnableWindow (GetDlgItem (hWnd, BUTTON_VALIDATECODE), ((candidate_email[0] != 0) && (wcslen (candidate_email) > 5) && (wcsncmp (candidate_email, L"your@email.", 11) != 0)
+                                                                && (wcschr (candidate_email, L'@') != NULL) && (wcschr (candidate_email, L'.') != NULL)));
+      }
-         // save activation email
+      // else was it the validation button ?
+      else if (wParam_loword == BUTTON_VALIDATECODE)
+      {
+         // query the remote server for the code associated with this email. If it fails, ask why.
-         wcscpy_s (options.registration.user_email, WCHAR_SIZEOF (options.registration.user_email), candidate_email);
+         candidate_code = RetrieveActivationCode (candidate_email, &failure_reason);
-         // is the email or the activation code empty ?
+         // was there a problem retrieving the code ?
-         if ((candidate_email[0] == 0) || !was_translated)
+         if ((failure_reason != NULL) && (failure_reason[0] != 0))
-            EndDialog (hWnd, 0); // if so, just exit the dialog (assume user did not want to register)
+            MessageBox (hWnd, failure_reason, PROGRAM_NAME, MB_ICONERROR | MB_OK); // registration failed. Display an error and DON'T exit the program
-         // else is the supplied data correct ?
+         // else is the retrieved data correct ?
          else if (IsRegistrationCorrect (candidate_email, candidate_code))
+         {
-            // if so, save activation code
+            // if so, save activation email and activation code
+            wcscpy_s (options.registration.user_email, WCHAR_SIZEOF (options.registration.user_email), candidate_email);
             options.registration.activation_code = candidate_code;
             MessageBox (hWnd, LOCALIZE (L"Registration_ThankYou"), PROGRAM_NAME, MB_ICONINFORMATION | MB_OK);
             EndDialog (hWnd, 0); // then display a thank you dialog box and exit the program
+         }
          // else the supplied data is wrong
          else
+         {
-            swprintf_s (error_message, WCHAR_SIZEOF (error_message), LOCALIZE (L"Registration_Error"), AUTHOR_EMAIL);
+            swprintf_s (temp_string, WCHAR_SIZEOF (temp_string), LOCALIZE (L"Registration_Error"), AUTHOR_EMAIL);
-            MessageBox (hWnd, error_message, PROGRAM_NAME, MB_ICONINFORMATION | MB_OK); // wrong activation. Display an error and DON'T exit the program
+            MessageBox (hWnd, temp_string, PROGRAM_NAME, MB_ICONERROR | MB_OK); // wrong activation. Display an error and DON'T exit the program
+         }
+      }
       // else was it the PayPal button ?
       else if (wParam_loword == BUTTON_DONATE)
+      {
          ShellExecute (NULL, L"open", PAYPAL_URL, NULL, NULL, SW_MAXIMIZE); // open PayPal in the default browser, maximized
+         was_donatebutton_clicked = true; // remember the donate button was clicked
+      }
       // else was it the "no PayPal" hyperlink ?
       else if (wParam_loword == STATICTEXT_REGISTRATION_NOPAYPAL)
          ShellExecute (NULL, L"open", NOPAYPAL_URL, NULL, NULL, SW_MAXIMIZE); // open the bank account page in the default browser, maximized
-      // else was it the "code not received" hyperlink ?
-      else if (wParam_loword == STATICTEXT_REGISTRATION_CODENOTRECEIVED)
-         ShellExecute (NULL, L"open", PAYPAL_RETURNURL, NULL, NULL, SW_MAXIMIZE); // open the manual code retrieval page in the default browser, maximized
       // else was it the status bar hyperlink ?
       else if (wParam_loword == STATICTEXT_REGISTRATION_STATUSBAR)
          ShellExecute (NULL, L"open", PROGRAM_URL, NULL, NULL, SW_MAXIMIZE); // open the main page in the default browser, maximized
+   }
    // call the default dialog message processing function to keep things going
    return (false);
+}
+static unsigned __int32 RetrieveActivationCode (wchar_t *candidate_email, wchar_t **failure_reason)
+{
+   // this function queries the remote server for registration status. If OK, the received code is returned.
+   // On error, 0 is returned and error_string points to the cause of the error (as reported by the server)
+   // which is stored in a static buffer in this very function.
+   static char http_buffer[1024]; // used both for request and reply
+   static char ascii_email[128];
+   struct sockaddr_in service;
+   struct hostent *hostinfo;
+   char *data_start;
+   WSADATA wsa_data;
+   int write_index;
+   int read_index;
+   int length;
+   SOCKET s;
+   // initialize WinSock
+   if (WSAStartup (MAKEWORD (2, 2), &wsa_data) != 0)
+   {
+      *failure_reason = LOCALIZE (L"Registration_NetworkFailure");
+      return (0); // couldn't initialize WinSock, return an error condition
+   }
+   // get our distribution server's IP address from the host name
+   hostinfo = gethostbyname ("pmbaty.com");
+   if (hostinfo == NULL)
+   {
+      *failure_reason = LOCALIZE (L"Registration_NetworkFailure");
+      return (0); // couldn't resolve hostname, return an error condition
+   }
+   // fill in the sockaddr server structure with the server hostinfo data
+   service.sin_family = AF_INET;
+   service.sin_addr.s_addr = inet_addr (inet_ntoa (*(struct in_addr *) hostinfo->h_addr_list[0]));
+   service.sin_port = htons (80); // connect to webserver there (port 80)
+   // create our socket
+   if ((s = socket (AF_INET, SOCK_STREAM, IPPROTO_TCP)) == INVALID_SOCKET)
+   {
+      *failure_reason = LOCALIZE (L"Registration_NetworkFailure");
+      return (0); // couldn't create socket, return an error condition
+   }
+   // connect to the distributor's webserver using that socket
+   if (connect (s, (struct sockaddr *) &service, sizeof (service)) == -1)
+   {
+      *failure_reason = LOCALIZE (L"Registration_NetworkFailure");
+      return (0); // unable to connect to webserver, return an error condition
+   }
+   // build the HTTP query and send it
+   ConvertTo7BitASCII (ascii_email, sizeof (ascii_email), candidate_email);
+   sprintf_s (http_buffer, sizeof (http_buffer),
+      "GET /chess/whatsmycode.php?email=%s HTTP/1.1\r\n"
+      "Host: pmbaty.com\r\n"
+      "Connection: close\r\n"
+      "\r\n", ascii_email);
+   length = strlen (http_buffer);
+   write_index = send (s, http_buffer, length, 0); // send the HTTP query
+   if (write_index != length)
+   {
+      *failure_reason = LOCALIZE (L"Registration_NetworkFailure");
+      return (0); // unable to send HTTP query, return an error condition
+   }
+   // read the reply
+   read_index = recv (s, http_buffer, sizeof (http_buffer), 0);
+   if (read_index < 1)
+   {
+      *failure_reason = LOCALIZE (L"Registration_NetworkFailure");
+      return (0); // empty or erroneous HTTP reply, return an error condition
+   }
+   closesocket (s); // finished communicating, close TCP socket
+   WSACleanup (); // and clean up WinSock
+   // terminate recv buffer and see where the useful data starts
+   http_buffer[read_index] = 0;
+   //MessageBoxA (NULL, http_buffer, "HTTP response", MB_OK);
+   if ((data_start = strstr (http_buffer, "Success=")) != NULL)
+   {
+      *failure_reason = L""; // no error, set an empty string as the failure reason
+      return ((unsigned __int32) atoll (&data_start[strlen ("Success=")])); // and return the candidate code we got
+   }
+   else if ((data_start = strstr (http_buffer, "Error=")) != NULL)
+   {
+      data_start += strlen ("Error=");
+      if (strchr (data_start, '\r') != NULL) *strchr (data_start, '\r') = 0;
+      if (strchr (data_start, '\n') != NULL) *strchr (data_start, '\n') = 0;
+      if      (_stricmp (data_start, "WrongEmail") == 0)         *failure_reason = LOCALIZE (L"Registration_WrongEmail");
+      else if (_stricmp (data_start, "UnknownEmail") == 0)       *failure_reason = LOCALIZE (L"Registration_UnknownEmail");
+      else if (_stricmp (data_start, "TooManyActivations") == 0) *failure_reason = LOCALIZE (L"Registration_TooManyActivations");;
+      return (0); // and return the candidate code we got
+   }
+   *failure_reason = L"Unknown error"; // FIXME: this should never happen
+   return (0); // server returned an error, return an error condition
+}

Subversion Repositories Games.Chess Giants

Games.Chess Giants//dialog/dialog_registration.cpp – Rev 23 → 83