Subversion Repositories Games.Chess Giants

// dialog_registration.cpp

#include "../common.h"

// dialog template

#define THIS_DIALOG DIALOG_REGISTER

// global variables used in this module only

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

   // display the dialog box (set the parent to be the desktop)

   DialogBox (hAppInstance, MAKEINTRESOURCE (THIS_DIALOG), NULL, DialogProc_ThisDialog);

   return; // finished processing this dialog

}

static int CALLBACK DialogProc_ThisDialog (HWND hWnd, unsigned int message, WPARAM wParam, LPARAM lParam)

{

   // message handler for the dialog box

   static wchar_t temp_string[1024];

   unsigned short wParam_hiword;

   unsigned short wParam_loword;

   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);

   // have we just fired up this window ?

   if (message == WM_INITDIALOG)

   {

      // center the window

      CenterWindow (hWnd, hMainWnd);

      // set dialog icons (small one for title bar & big one for task manager)

      SendMessage (hWnd, WM_SETICON, ICON_SMALL, (LPARAM) LoadIcon (hAppInstance, MAKEINTRESOURCE (ICON_MAIN)));

      SendMessage (hWnd, WM_SETICON, ICON_BIG, (LPARAM) LoadIcon (hAppInstance, MAKEINTRESOURCE (ICON_MAIN)));

      // set window title and control texts

      SetWindowText (hWnd, LOCALIZE (L"Registration_Title"));

      // set the static texts

      Static_SetText (GetDlgItem (hWnd, STATICTEXT_REGISTRATION_QUESTION), LOCALIZE (L"Registration_Question"));

      Static_SetText (GetDlgItem (hWnd, STATICTEXT_REGISTRATION_INSTRUCTIONS), LOCALIZE (L"Registration_Instructions"));

      // set email address font

      SendMessage (GetDlgItem (hWnd, EDITBOX_REGISTRATION_EMAILADDRESS), WM_SETFONT, (WPARAM) GetStockObject (SYSTEM_FONT), 0);

      if (options.registration.user_email[0] != 0)

         SetDlgItemText (hWnd, EDITBOX_REGISTRATION_EMAILADDRESS, options.registration.user_email);

      else

         SetDlgItemText (hWnd, EDITBOX_REGISTRATION_EMAILADDRESS, LOCALIZE (L"Registration_YourEmailHere"));

      SetWindowText (GetDlgItem (hWnd, BUTTON_VALIDATECODE), LOCALIZE (L"Registration_ValidateCode"));

      Static_SetText (GetDlgItem (hWnd, STATICTEXT_REGISTRATION_STATUSBAR), LOCALIZE (L"Registration_StatusBar"));

      // set focus to the first settable item

      SendMessage (GetDlgItem (hWnd, EDITBOX_REGISTRATION_EMAILADDRESS), EM_SETSEL, 0, -1); // select all text

      SetFocus (GetDlgItem (hWnd, EDITBOX_REGISTRATION_EMAILADDRESS));

      // convert the Paypal bitmap and the status bar message to hyperlinks

      ConvertStaticToHyperlink (GetDlgItem (hWnd, BUTTON_DONATE));

      ConvertStaticToHyperlink (GetDlgItem (hWnd, STATICTEXT_REGISTRATION_STATUSBAR));

   }

   // else did we click the close button on the title bar ?

   else if (message == WM_CLOSE)

      EndDialog (hWnd, 0); // close the dialog box

   // 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)

         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 PayPal email field has data

         GetDlgItemText (hWnd, EDITBOX_REGISTRATION_EMAILADDRESS, candidate_email, WCHAR_SIZEOF (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] = tolower (candidate_email[read_index]); // force lowercase

               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) && (wcscmp (candidate_email, LOCALIZE (L"Registration_YourEmailHere")) != 0)

                                                                && (wcschr (candidate_email, L'@') != NULL) && (wcschr (candidate_email, L'.') != NULL)));

      }

      // 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.

         candidate_code = RetrieveActivationCode (candidate_email, &failure_reason);

         // was there a problem retrieving the code ?

         if ((failure_reason != NULL) && (failure_reason[0] != 0))

            MessageBox (hWnd, failure_reason, PROGRAM_NAME, MB_ICONERROR | MB_OK); // registration failed. Display an error and DON'T make the dialog box disappear

         // else is the retrieved data correct ?

         else if (IsRegistrationCorrect (candidate_email, candidate_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 make the dialog box disappear

         }

         // else the supplied data is wrong

         else

         {

            swprintf_s (temp_string, WCHAR_SIZEOF (temp_string), LOCALIZE (L"Registration_Error"), AUTHOR_EMAIL);

            MessageBox (hWnd, temp_string, PROGRAM_NAME, MB_ICONERROR | MB_OK); // wrong activation. Display an error and DON'T make the dialog box disappear

         }

      }

      // else was it the PayPal button ?

      else if (wParam_loword == BUTTON_DONATE)

      {

         MessageBox (hWnd, LOCALIZE (L"Registration_DontForget"), PROGRAM_NAME, MB_ICONWARNING | MB_OK); // users need to be reminded that they MUST write their email in the activation form

         if (wcscmp (languages[language_id].name, L"French") == 0)

            ShellExecute (NULL, L"open", PAYPAL_URL_FR, NULL, NULL, SW_MAXIMIZE); // open PayPal in French in the default browser, maximized

         else

            ShellExecute (NULL, L"open", PAYPAL_URL_XX, NULL, NULL, SW_MAXIMIZE); // open PayPal in English (default) 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;

   int write_index;

   int read_index;

   int length;

   SOCKET s;

   // initialize the network subsystem if required

   if (!Network_Init ())

   {

      *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 (10 seconds timeout)

   http_buffer[0] = 0;

   read_index = RecvWithTimeout (s, 10.0f, 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

   // 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); // server returned an error, return an error condition

   }

   *failure_reason = LOCALIZE (L"Registration_NetworkFailure"); // this should never happen

   return (0); // server returned an error, return an error condition

}