home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / wsftp2.zip / WS_MAIN.C < prev    next >
C/C++ Source or Header  |  1994-06-03  |  47KB  |  1,431 lines
  1. /***************************************************************************
  2.   Windows Sockets FTP Client Application
  3.  
  4.   Written by:
  5.       John A. Junod             Internet: <junodj@gordon-emh2.army.mil>
  6.       267 Hillwood Street                 <zj8549@trotter.usma.edu>
  7.       Martinez, GA 30907      Compuserve: 72321,366 
  8.  
  9.   This program executable and all source code is released into the public
  10.   domain.  It would be nice (but is not required) to give me a little 
  11.   credit for any use of this code.
  12.  
  13.   The user interface for this FTP client is designed with the novice FTP user
  14.   in mind.  Usage should (??) be obvious with the possible exception of the
  15.   the transfer mode; ascii, binary or l8.  All controls are standard Windows
  16.   controls.
  17.  
  18.   My development and testing was all completed at home on two 386 PC's using
  19.   the Trumpet Windows Sockets DLL Alpha 15 with NCSA Telnet and WinQVT/Net 2.6
  20.   and 3.9 as the remote host.  Source code may be compiled with Borland C++
  21.   in large mode.
  22.  
  23.   Some code concepts and names are based on code that is copyright by the
  24.   Regents of the University of California or code published in UNIX Network
  25.   Programming by W. Richard Stevens or code in WATTCP or other public sources.
  26.   The rest is based on my knowledge of Windows programming and my 
  27.   interpretation of RFC 969 and the Windows Sockets API version 1.1.
  28.  
  29.   THE INFORMATION AND CODE PROVIDED IS PROVIDED AS IS WITHOUT WARRANTY 
  30.   OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO 
  31.   THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 
  32.   PURPOSE. IN NO EVENT SHALL JOHN A. JUNOD BE LIABLE FOR ANY DAMAGES 
  33.   WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS 
  34.   OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF JOHN A. JUNOD HAS BEEN 
  35.   ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
  36.  
  37. *****************************************************************************/
  38. // modified extensively by l kahn for windows nt and multi threading
  39.  
  40. //----------------------
  41. #include "ws_glob.h"
  42. #include "WS_ftp.H"
  43. #include "version.h"
  44. //----------------------
  45. #include <stdarg.h>
  46. #include <ctype.h>
  47. #include <shellapi.h>
  48. #include <stdlib.h>
  49.  
  50.  // lgk new debugging variable
  51. BOOLEAN DEBUGGING_ON = FALSE;
  52.  
  53. int selects[256];
  54. extern char szInitDir[];
  55. HBRUSH hbrGray1,hbrGray2,hbrWhite;
  56. extern HWND hWndDbg;
  57. BOOLEAN connectpending = FALSE;
  58.  
  59. // lgk new stuff for multiple threads
  60. extern int check_command_line();
  61. CRITICAL_SECTION busy_variable;
  62. BOOLEAN busy = FALSE;
  63. HWND globalhWnd;
  64. WPARAM globalwParam;
  65. DWORD threadid;
  66. HANDLE threadhandle;
  67.  
  68. #ifndef USEASYNC
  69. SubProcessAsync(HWND hWnd,UINT Message,WPARAM wParam,LPARAM lParam)
  70. {
  71.   return(FALSE);
  72. }
  73. #endif
  74.  
  75. // lgk new routine to get the local search string
  76.  
  77. extern char *localsearchstring();
  78.  
  79. int VerifyDelete(LPSTR fname)
  80. {
  81.   wsprintf(szDlgPrompt,"Are you sure you want to delete \"%s\"?",fname);
  82.   return(MessageBox(hWndMain,szDlgPrompt,"Verify Deletion",MB_YESNO)==IDYES);
  83. }
  84.  
  85. void MakeLower(LPSTR str) {
  86.   while(*str) {
  87.     *str=tolower(*str);
  88.     str++;
  89.   }
  90. }
  91. // lgk function to set busy variable so that we don't get collisions
  92. void set_busy(invalue)
  93.  BOOLEAN invalue;
  94.    {
  95.      EnterCriticalSection(&busy_variable);
  96.      busy = invalue;
  97.      LeaveCriticalSection(&busy_variable);
  98.    }
  99.    
  100. BOOLEAN check_busy()
  101.    {
  102.      BOOLEAN rvalue;
  103.       
  104.      EnterCriticalSection(&busy_variable);
  105.      rvalue = busy;
  106.      LeaveCriticalSection(&busy_variable);
  107.      return rvalue;
  108.    }
  109.  
  110.   /* ------------------------------------------------------------------------------------------- */
  111.  
  112. // lgk new functions that will run in a thread
  113.  
  114. DWORD local_to_remote_fx()
  115. {
  116.     
  117.   int nIndex,nRC;
  118.  
  119.             u_char tmp[80];
  120.             char localname[220];
  121.             char remotename[80];
  122.             int count;
  123.  
  124.             count=SendMessage(hLbxLFiles,
  125.                       LB_GETSELITEMS,256,(LPARAM)(int far *)selects);
  126.             if(count>0 && count!=LB_ERR)
  127.               {
  128.                EnableWindow(hBtnAbort,TRUE);
  129.              for(nIndex=0;nIndex<count;nIndex++)
  130.                  {
  131.                 SendMessage(hLbxLFiles,LB_GETTEXT,selects[nIndex],
  132.                                  (LONG)localname);
  133.                 lstrcpy(remotename,localname);
  134.                 if(bInteractive) 
  135.                   StdInput(remotename,"Enter remote file name for %s:",localname);
  136.                 wsprintf(tmp,"sending %s as %s (%u of %u)",localname,remotename,nIndex+1,count);
  137.                 SendMessage(hTxtStatus,WM_SETTEXT,0,(LPARAM)tmp);
  138.                 wsprintf(tmp,"STOR %s",remotename);
  139.                 nRC=SendFile(ctrl_socket,tmp,localname,fType);
  140.                 if(nRC!=2) break;
  141.                  }  
  142.               GetRemoteDirForWnd(globalhWnd);
  143.           }
  144. set_busy(FALSE);
  145. EnableWindow(hBtnAbort,FALSE);
  146. return 0;
  147. }
  148.  
  149. /* -------------------------------------------------------------- */
  150. DWORD remote_mkdir_fx()
  151. {
  152.     
  153.   int nRC;
  154.  
  155.   if(StdInput(NULL,"Enter new remote directory name:"))
  156.   if((nRC=DoMKD(ctrl_socket,szDlgEdit))==FTP_COMPLETE)
  157.     {
  158.       GetRemoteDirForWnd(globalhWnd);
  159.     }
  160. set_busy(FALSE);
  161. EnableWindow(hBtnAbort,FALSE);
  162. return 0;
  163. }
  164.  
  165. /* ---------------------------------------- */
  166. DWORD remote_rmdir_fx()
  167. {
  168.     
  169.   int nIndex,nRC;
  170.  
  171.   if((nIndex=SendMessage(hLbxRDir,LB_GETCURSEL,0,0L))!=LB_ERR)
  172.     {
  173.        SendMessage(hLbxRDir,LB_GETTEXT,nIndex,(LONG)szMsgBuf2);
  174.        if(VerifyDelete(szMsgBuf2))
  175.          if((nRC=DoRMD(ctrl_socket,szMsgBuf2))==FTP_COMPLETE)
  176.                   GetRemoteDirForWnd(globalhWnd);
  177.     }
  178. set_busy(FALSE);
  179. EnableWindow(hBtnAbort,FALSE);
  180. return 0;
  181. } 
  182.  
  183. /* ------------------------------------------------- */
  184.  
  185. DWORD remote_list_fx()
  186.   {
  187.     
  188.    GetRemoteDirForWnd(globalhWnd);
  189. EnableWindow(hBtnAbort,TRUE);
  190. set_busy(FALSE);
  191. EnableWindow(hBtnAbort,FALSE);
  192. return 0;
  193. }
  194.  
  195. /* ----------------------------- */
  196. DWORD remote_delete_fx()
  197. {
  198.     
  199.   int nIndex,nRC;
  200.  
  201.   int count;
  202.   count=SendMessage(hLbxRFiles,LB_GETSELITEMS,
  203.                                  256,(LPARAM)(int far *)selects);
  204.   if(count>0 && count!=LB_ERR)
  205.       {
  206.        for(nIndex=0;nIndex<count;nIndex++)
  207.          {
  208.            SendMessage(hLbxRFiles,LB_GETTEXT,selects[nIndex],
  209.                                  (LONG)szDlgEdit);
  210.            if(VerifyDelete(szDlgEdit))
  211.              nRC=DoDELE(ctrl_socket,szDlgEdit);
  212.          } 
  213.               GetRemoteDirForWnd(globalhWnd);
  214.       }
  215. set_busy(FALSE);
  216. EnableWindow(hBtnAbort,FALSE);
  217. return 0;
  218. }
  219.  
  220. /* ----------------------------------------------------------- */
  221. DWORD remote_rename_fx()
  222. {
  223.     
  224.   int nIndex,nRC;
  225.  
  226.           if((nIndex=SendMessage(hLbxRFiles,LB_GETCURSEL,
  227.                 0,0L))!=LB_ERR)
  228.           {
  229.             SendMessage(hLbxRFiles,LB_GETTEXT,nIndex,
  230.                                (LONG)szMsgBuf2);
  231.                 if(StdInput(NULL,"Enter new name for \"%s\":",szMsgBuf2))
  232.                 if((nRC=command(ctrl_socket,"RNFR %s",szMsgBuf2))==FTP_CONTINUE)
  233.                 if((nRC=command(ctrl_socket,"RNTO %s",szDlgEdit))==FTP_COMPLETE)
  234.                     GetRemoteDirForWnd(globalhWnd);
  235.           }
  236. set_busy(FALSE);
  237. EnableWindow(hBtnAbort,FALSE);
  238. return 0;
  239. }
  240.  
  241. /* ----------------------------------------------------------- */
  242. DWORD remote_cwd_fx()
  243. {
  244.     
  245.   int nIndex,nRC;
  246.  
  247.    if((nIndex=SendMessage(hLbxRDir,LB_GETCURSEL,0,0L))!=LB_ERR)
  248.      {
  249.        EnableWindow(hBtnAbort,TRUE);
  250.        SendMessage(hLbxRDir,LB_GETTEXT,nIndex,
  251.                                  (LONG)szMsgBuf2);
  252.         nRC=DoCWD(ctrl_socket,szMsgBuf2);
  253.         if(nRC==FTP_COMPLETE)
  254.                    GetRemoteDirForWnd(globalhWnd);
  255.      }
  256.    else
  257.      {
  258.       if(StdInput(NULL,"Enter remote directory name:")) 
  259.       if((nRC=DoCWD((SOCKET)ctrl_socket,szDlgEdit))==FTP_COMPLETE)
  260.         GetRemoteDirForWnd(globalhWnd);
  261.      }
  262. set_busy(FALSE);
  263. EnableWindow(hBtnAbort,FALSE);
  264. return 0;
  265. }
  266.  
  267. /* ----------------------------------------------------------- */
  268. DWORD remote_to_local_fx()
  269. {
  270.   char tmp[80];
  271.   char remotename[256];
  272.   char localname[256];
  273.   char shortname[80];
  274.   int count;
  275.  
  276.   int nIndex,nRC;
  277.  
  278.             count=SendMessage(hLbxRFiles,LB_GETSELITEMS,
  279.                                  256,(LPARAM)(int far *)selects);
  280.             if(count>0 && count!=LB_ERR)
  281.               {
  282.                   EnableWindow(hBtnAbort,TRUE);
  283.                   for(nIndex=0;nIndex<count;nIndex++)
  284.                    {
  285.                      SendMessage(hLbxRFiles,LB_GETTEXT,selects[nIndex],
  286.                                  (LONG)remotename);
  287.                      MakeLocalName(localname,shortname,remotename);
  288.                      if(bInteractive)
  289.                       StdInput(localname,"Enter local file name for %s:",remotename);
  290.                       DoPrintf("receiving %s as %s (%u of %u)",
  291.                          remotename,localname,nIndex+1,count);
  292.                       wsprintf(tmp,"RETR %s",remotename);
  293.                       nRC=RetrieveFile((SOCKET)ctrl_socket,(LPSTR)tmp,
  294.                         (LPSTR)localname,(LPSTR)shortname,fType);
  295.                 if(nRC==2)
  296.                   SendMessage(hLbxLFiles,LB_ADDSTRING,0,(LONG)remotename);
  297.                 else
  298.                   break;
  299.                    } // end of loop
  300.                  GetLocalDirForWnd(globalhWnd);
  301.               } // end of count ok
  302.  
  303. set_busy(FALSE);
  304. EnableWindow(hBtnAbort,FALSE);
  305. return 0;
  306. }
  307.  
  308. /* --------------------------------------------------------- */
  309. DWORD remote_display_fx()
  310.  
  311. {
  312.     
  313.   int nIndex,nRC;
  314.  
  315.             char tmp[80];
  316.             char remotename[80];
  317.  
  318.             if((nIndex=SendMessage(hLbxRFiles,LB_GETCURSEL,
  319.                 0,0L))!=LB_ERR)
  320.             {
  321.                  SendMessage(hLbxRFiles,LB_GETTEXT,nIndex,
  322.                                  (LONG)remotename);
  323.                  wsprintf(tmp,"RETR %s",remotename);
  324.                  EnableWindow(hBtnAbort,TRUE);
  325.                  nRC=RetrieveFile((SOCKET)ctrl_socket,(LPSTR)tmp,
  326.                            (LPSTR)szTmp1File,(LPSTR)szTmp1File,TYPE_A);
  327.                  if(nRC==2)
  328.                    {
  329.                     wsprintf(szString,"%s %s",szViewer,szTmp1File);
  330.                     if(strchr(szTmp1File,'.')==NULL)
  331.                        strcat(szString,".");
  332.                     WinExec(szString,SW_SHOW);
  333.                    }
  334.                  GetLocalDirForWnd(globalhWnd);
  335.          }
  336. set_busy(FALSE);
  337. EnableWindow(hBtnAbort,FALSE);
  338. return 0;
  339. }
  340.  
  341.  
  342.  
  343. /* ----------------------------------------------------------- */
  344. DWORD connect_fx()
  345. {
  346.     
  347.   int nRC;
  348.   
  349.   connectpending = TRUE;
  350.  
  351.           if(ctrl_socket==INVALID_SOCKET)
  352.           {
  353.              EnableWindow(hBtnConnect,FALSE);
  354.              use_gateway=0;
  355.              nRC=DialogBox(hInst,(LPSTR)"DLG_HOST",globalhWnd,WS_HostMsgProc);
  356.              if(nRC)
  357.              {
  358.               EnableWindow(hBtnAbort,TRUE);
  359.               ctrl_socket=(SOCKET)DoConnect(szRemoteHost);
  360.               if(ctrl_socket!=INVALID_SOCKET)
  361.                 {
  362.                 if(szInitDir[0]!=0)
  363.                   DoCWD(ctrl_socket,szInitDir);
  364.                 }
  365.                else // didn't connect so renable button
  366.                  EnableWindow(hBtnConnect,TRUE);
  367.  
  368.                 if(LOWORD(globalwParam)==BTN_CONNECT)
  369.                   GetRemoteDirForWnd(globalhWnd);
  370.              } // ok nrc
  371.           }
  372.             else
  373.             SendMessage(hTxtStatus,WM_SETTEXT,0,(LPARAM)"Already connected");
  374. set_busy(FALSE);
  375. connectpending = FALSE;
  376. EnableWindow(hBtnAbort,FALSE);
  377. return 0;
  378. }
  379.           
  380. /* ---------------------------------------------------------- */
  381. DWORD drop_files_fx()
  382.  
  383. {
  384.     
  385.   int nRC;
  386.  
  387.          POINT pt;
  388.          WORD cFiles, a;
  389.          char szFile[256];
  390.          char szRemoteName[256];
  391.          u_char tmp[256];
  392.          LPSTR lpszBaseName;
  393.  
  394.          DragQueryPoint((HANDLE) globalwParam, &pt);
  395.  
  396.          cFiles = DragQueryFile((HANDLE) globalwParam, 0xFFFF, (LPSTR) NULL, 0);
  397.          if(!bConnected)
  398.            DoPrintf("NOT CONNECTED!! File(s) ignored.");
  399.          else if(bCmdInProgress)
  400.            DoPrintf("We are already busy!! File(s) ignored.");
  401.          else
  402.            {
  403.            for(a = 0; a < cFiles; pt.y += 20, a++)
  404.             {
  405.              DragQueryFile((HANDLE) globalwParam, a, szFile, sizeof(szFile));
  406.              MakeLower(szFile);
  407.              if((lpszBaseName=strrchr(szFile,'\\'))!=NULL)
  408.               {
  409.                lstrcpy(szRemoteName,++lpszBaseName);
  410.                if(bInteractive) 
  411.                   StdInput(szRemoteName,"Enter remote file name for %s:",lpszBaseName);
  412.                EnableWindow(hBtnAbort,TRUE);
  413.                wsprintf(tmp,"sending %s as %s (%u of %u)",szFile,szRemoteName,a,cFiles);
  414.                SendMessage(hTxtStatus,WM_SETTEXT,0,(LPARAM)tmp);
  415.                wsprintf(tmp,"STOR %s",szRemoteName);
  416.                nRC=SendFile(ctrl_socket,tmp,szFile,fType);
  417.                if(nRC!=2) break;
  418.               }
  419.             } // end of loop
  420.            GetRemoteDirForWnd(globalhWnd);
  421.            } // end ok case
  422.          DragFinish((HANDLE) globalwParam);
  423.  
  424. set_busy(FALSE);
  425. EnableWindow(hBtnAbort,FALSE);
  426. return 0;
  427. }
  428.  
  429. /* -------------------------------------------- */
  430.       
  431. int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance,
  432.                    LPSTR lpszCmdLine, int nCmdShow)
  433. {
  434.   MSG        msg;
  435.   int        nRc;
  436.   long       nWndunits;
  437.   int        nX;
  438.   int        nY;
  439.   int        nWidth;
  440.   int        nHeight;
  441.   int        err;
  442. //  HINSTANCE hWinSock;
  443.  
  444.   InitializeCriticalSection(&busy_variable);
  445.  
  446.   if (strstr(lpszCmdLine,"-d") != NULL)
  447.     {
  448.       // we want debugging
  449.       DEBUGGING_ON = TRUE;
  450.     }
  451.    
  452.   if ((err = WSAStartup((WORD)0x0101, &WSAData))!=0)  // register task with
  453.   {                                         // winsock tcp/ip API
  454.     MessageBox(NULL,ReturnWSError(err,NULL),"WS_FTP - WSAStartup",
  455.           MB_OK|MB_ICONEXCLAMATION);
  456.   } else {
  457.     strcpy(szAppName, "WS_FTP");
  458.     hInst = hInstance;
  459.  
  460.     if(!hPrevInstance)
  461.     {
  462.       // register window classes if first instance of application
  463.       if ((nRc = nCwRegisterClasses()) == -1)
  464.       {
  465.         // registering one of the windows failed
  466.         MessageBox((HWND)NULL, "Window creation failed",
  467.               NULL, MB_ICONEXCLAMATION);
  468.         return nRc;    
  469.       }
  470.     }
  471.  
  472.     // Create a device independant size and location
  473.     nWndunits = GetDialogBaseUnits();
  474.     nWndx = LOWORD(nWndunits);
  475.     nWndy = HIWORD(nWndunits);
  476.     nX = ((18 * nWndx) / 4);
  477.     nY = ((18 * nWndy) / 8);
  478.     nWidth = ((247 * nWndx) / 4);
  479.     nHeight = ((211 * nWndy) / 8);
  480.  
  481.     // create application's Main window
  482.     hWndMain = CreateWindow(
  483.       szAppName, "WinSock_FTP",
  484.       WS_CAPTION     | WS_SYSMENU    | WS_MINIMIZEBOX  |
  485.       WS_CLIPCHILDREN | WS_OVERLAPPED,
  486.       nX,nY, nWidth, nHeight,
  487.       (HWND)NULL, (HMENU)NULL, hInst,  NULL);
  488.  
  489.     if(hWndMain == (HWND)NULL)
  490.     {
  491.       MessageBox((HWND)NULL, "Error registering class",
  492.             NULL, MB_ICONEXCLAMATION);
  493.       return 2;
  494.     }
  495.  
  496.     ShowWindow(hWndMain, nCmdShow);         // display main window
  497.     GetLocalInfo();
  498.     if(bAutoStart)
  499.       PostMessage(hWndMain,WM_COMMAND,BTN_CONNECT,0L);
  500.  
  501.       // lgk now check if command line stuff
  502.       if (check_command_line() == 1)
  503.        { 
  504.        // use to exit here when not multi-threaded but now returns immediately
  505.        }
  506.         
  507.     while(GetMessage(&msg, (HWND)NULL, 0, 0))     // Until WM_QUIT message
  508.     {
  509.       TranslateMessage(&msg);
  510.       DispatchMessage(&msg);
  511.     }
  512.     WSACleanup();
  513.     ReleaseDisplayMem();
  514.  
  515.     // Do clean up before exiting from the application
  516.     CwUnRegisterClasses();
  517.   }
  518.   return msg.wParam;
  519. } //  End of WinMain
  520.  
  521.  
  522. int StdInput(LPSTR dest,LPSTR fmt,...)
  523. {
  524.   va_list args;
  525. //  FARPROC lpfnMsgProc;
  526.   int  iRetCode;
  527.  
  528.   va_start(args,fmt);
  529.   vsprintf(szDlgPrompt,fmt,args);
  530.   va_end(args);
  531.   if (dest != NULL) // lgk fix for nt caused access violation
  532.    lstrcpy(szDlgEdit,dest);
  533.   
  534.   else szDlgEdit[0] = 0;
  535.  
  536. //  lpfnMsgProc=MakeProcInstance((FARPROC)WS_InputMsgProc,hInst);
  537.     iRetCode=DialogBox(hInst,(LPSTR)"DLG_INPUT",hWndMain,WS_InputMsgProc);
  538. //  FreeProcInstance(lpfnMsgProc);
  539.   if(iRetCode && dest) 
  540.   
  541.   // lgk fix here since if dest was null we cannot copy to it
  542.    if (dest != NULL)
  543.     lstrcpy(dest,szDlgEdit);
  544.   
  545.   return(iRetCode);
  546. }
  547.  
  548. int StdInputPassword(LPSTR dest,LPSTR fmt,...)
  549. {
  550.   va_list args;
  551.   //FARPROC lpfnMsgProc;
  552.   int  iRetCode;
  553.  
  554.   va_start(args,fmt);
  555.   vsprintf(szDlgPrompt,fmt,args);
  556.   va_end(args);
  557.   lstrcpy(szDlgEdit,dest);
  558. //  lpfnMsgProc=MakeProcInstance((FARPROC)WS_InputMsgProc,hInst);
  559.   iRetCode=DialogBox(hInst,(LPSTR)"DLG_INPUT_PASSWORD",hWndMain,WS_InputMsgProc);
  560. //  FreeProcInstance(lpfnMsgProc);
  561.   if(iRetCode && dest) lstrcpy(dest,szDlgEdit);
  562.   return(iRetCode);
  563. }
  564.  
  565. /************************************************************************/
  566. /* Main Window Procedure                                                */
  567. /************************************************************************/
  568. LRESULT CALLBACK WndProc(HWND hWnd,UINT Message,WPARAM wParam,LPARAM lParam)
  569. {
  570.   int nIndex; //,nRC;
  571.   char tempdirectoryname[256];
  572.  
  573.  
  574.   switch (Message)
  575.   {
  576.  
  577.    /* case WM_KEYDOWN:
  578.  
  579.      // carriage return hit see which window is active
  580.      if (wParam == VK_RETURN)
  581.       {
  582.        HWND activewind = GetActiveWindow();
  583.        if (activewind == hLdirBox)
  584.          {
  585.            GetLocalDirForWnd(hWnd);
  586.          }
  587.        else
  588.         if (activewind == hRdirBox)
  589.            {
  590.            if (check_busy())
  591.                DoPrintf("Currently Busy with another remote operation ...\n");
  592.             else
  593.               {
  594.                 globalhWnd = hWnd;
  595.                 globalwParam = wParam;
  596.                 set_busy(TRUE);
  597.                // create thread and start remote list fx
  598.                 threadhandle = CreateThread(NULL,0,(LPTHREAD_START_ROUTINE)remote_list_fx,NULL,0,&threadid);
  599.               }               
  600.           }
  601.    
  602.       }
  603.      break;
  604.     */
  605.     case WM_COMMAND:
  606.       if(LOWORD(wParam)==BTN_CLOSE || LOWORD(wParam)==BTN_EXIT ||
  607.          LOWORD(wParam)==CMD_CLOSE || LOWORD(wParam)==IDM_EXIT)
  608.         {
  609.         bAborted=TRUE;
  610.  
  611.             // kill remote thread first 
  612.             if (check_busy())
  613.             {
  614.              DoAddLine("Aborting thread before closing/exiting\n");
  615.              TerminateThread(threadhandle,1);
  616.              set_busy(FALSE);
  617.             }
  618.        
  619.        if(data_socket!=INVALID_SOCKET)
  620.           data_socket=DoClose(data_socket);
  621.         if(listen_socket!=INVALID_SOCKET)
  622.           listen_socket=DoClose(listen_socket);
  623.         if(ctrl_socket!=INVALID_SOCKET)
  624.          {
  625.           command(ctrl_socket,"QUIT");
  626.           ctrl_socket=DoClose(ctrl_socket);
  627.           bConnected=FALSE;
  628.         }
  629.         SetWindowText(hWnd,"WS_FTP32");
  630.         if(LOWORD(wParam)==IDM_EXIT || LOWORD(wParam)==BTN_EXIT)
  631.           SendMessage(hWnd,WM_CLOSE,0,0L);
  632.         else
  633.           { // close not exit so enable windows correctly
  634.             EnableWindow(hBtnConnect,TRUE);
  635.             EnableWindow(hBtnAbort,FALSE);
  636.             EnableWindow(hBtnClose,FALSE);
  637.             GetRemoteDirForWnd(hWnd);
  638.           }
  639.         break;
  640.       } //else if ((bCmdInProgress)  return(FALSE);
  641.  
  642.       switch (LOWORD(wParam))
  643.       {
  644.  
  645. // child windows messages ************************************
  646. // local buttons and boxes
  647.  
  648. // lgk new case for abort
  649.            case BTN_ABORT:
  650.  
  651.           // kill remote thread first 
  652.           // problem here if we abort during a connect we also need to close the control socket
  653.           // check this via the connect flag
  654.   
  655.            // since we cant get this to work correctly disable it for now
  656.            DoPrintf("Abort is Not Yet Implemented Due to problems.\n");
  657.          /*
  658.           if (check_busy())
  659.             {
  660.              DoPrintf("Aborting Remote thread\n");
  661.              TerminateThread(threadhandle,1);
  662.              set_busy(FALSE);
  663.        
  664.              if(data_socket!=INVALID_SOCKET)
  665.                 {
  666.                 //  shutdown(data_socket,2);
  667.                   data_socket=DoClose(data_socket);
  668.                     }
  669.                  bAborted=TRUE;
  670.                  bCmdInProgress = 0;
  671.  
  672.              if(listen_socket!=INVALID_SOCKET)
  673.                listen_socket=DoClose(listen_socket);
  674.              
  675.              bCmdInProgress = 0;
  676.               
  677.               if (connectpending)
  678.               {
  679.                 int err = 0;
  680.                 if (ctrl_socket!=INVALID_SOCKET)
  681.                   {
  682.                     
  683.                     command(ctrl_socket,"QUIT");
  684.                     ctrl_socket = DoClose(ctrl_socket);
  685.                   }
  686.                     bConnected = FALSE;
  687.                     DoPrintf("Remote Connect Aborted\n");
  688.                     connectpending = FALSE;
  689.                     bCmdInProgress = 0;
  690.                     EnableWindow(hBtnConnect,TRUE);
  691.                     EnableWindow(hBtnAbort,FALSE);
  692.                     EnableWindow(hBtnClose,FALSE);
  693.                     SetWindowText(hWnd,"WS_FTP32");
  694.                     // bug in winsock after closing does not work correctly
  695.                 
  696.               } 
  697.               else DoPrintf("Remote Operation Aborted\n");
  698.             }    */
  699.         break;
  700.  
  701.  
  702.        // lgk new case for changing txt in directory search routine
  703.            case TXT_LDIRSEL:
  704.          {
  705.           // check if carriage return
  706.           char *temp = localsearchstring();
  707.           // if (HIWORD(wParam) == EN_CHANGE)
  708.            //  DoPrintf("temp is %s \n",temp);
  709.  
  710.            if ((HIWORD(wParam) == EN_KILLFOCUS) && SendMessage(hLdirBox,EM_GETMODIFY,0,0))
  711.            {
  712.              GetLocalDirForWnd(hWnd);
  713.            }
  714.            // bug in redraw so force it
  715.           if (HIWORD(wParam) == EN_UPDATE)
  716.              {
  717.               SendMessage(hLdirBox,WM_SETFONT,0,MAKELPARAM(TRUE,0));
  718.               }
  719.  
  720.           }    
  721.         break;
  722.  
  723.         case LST_LDIRS:
  724.           if (HIWORD(wParam) !=LBN_DBLCLK) return(FALSE);
  725.         case BTN_LCHANGE:
  726.             if((nIndex=SendMessage(hLbxLDir,LB_GETCURSEL,
  727.                 0,0L))!=LB_ERR)
  728.             {
  729.               SendMessage(hLbxLDir,LB_GETTEXT,nIndex,
  730.                                  (LONG)szMsgBuf2);
  731.               if(strncmp(szMsgBuf2,"[-",2)==0) {
  732. #ifdef _MSC_
  733.                 _chdrive(tolower(szMsgBuf2[2])-0x60);
  734. #else
  735.                 setdisk(szMsgBuf2[2]-'a');
  736. #endif
  737.                 GetLocalDirForWnd(hWnd);
  738.               } else if(chdir(szMsgBuf2)==0)
  739.                 GetLocalDirForWnd(hWnd);
  740.             } else
  741.  
  742.              {
  743.               if(StdInput(NULL,"Enter local directory name:")) {
  744.                 if(szDlgEdit[1]==':')
  745. #ifdef _MSC_
  746.                   _chdrive(tolower(szDlgEdit[0])-0x60);
  747. #else
  748.                   setdisk(tolower(szDlgEdit[0])-'a');
  749. #endif
  750.                 chdir(szDlgEdit);
  751.                 GetLocalDirForWnd(hWnd);
  752.               }
  753.             }
  754.           break;
  755.         case LST_LFILES:
  756.           if(HIWORD(wParam) !=LBN_DBLCLK) return(FALSE);
  757.         case BTN_LOCAL_TO_REMOTE:
  758.           {
  759.             globalhWnd = hWnd;
  760.             globalwParam = wParam;
  761.             // lgk new code first check if busy and if so print out a message
  762.             if (check_busy())
  763.                DoPrintf("Currently Busy with another remote operation ...\n");
  764.             else
  765.               {
  766.                globalhWnd = hWnd;
  767.                globalwParam = wParam;
  768.                 set_busy(TRUE);
  769.                // create and call button to remote thread here
  770.                threadhandle = CreateThread(NULL,0,(LPTHREAD_START_ROUTINE)local_to_remote_fx,NULL,0,&threadid);
  771.               } // end of not busy
  772.           } // end of btn local to remote
  773.           break;
  774.  
  775.           // lgk allow local commands while remote are running
  776.           
  777.         case BTN_LMKDIR:
  778.           if(StdInput(NULL,"Enter new local directory name:")) {
  779.             mkdir(szDlgEdit);
  780.             GetLocalDirForWnd(hWnd);
  781.           }
  782.           break;
  783.         case BTN_LRMDIR:
  784.             if((nIndex=SendMessage(hLbxLDir,LB_GETCURSEL,
  785.                 0,0L))!=LB_ERR)
  786.             {
  787.               SendMessage(hLbxLDir,LB_GETTEXT,nIndex,
  788.                                  (LONG)szMsgBuf2);
  789.               if(VerifyDelete(szMsgBuf2))
  790.                 if(rmdir(szMsgBuf2)==0)
  791.                   GetLocalDirForWnd(hWnd);
  792.             }
  793.           break;
  794.         case BTN_LDELETE:
  795.           {
  796.             int count;
  797.             count=SendMessage(hLbxLFiles,
  798.                       LB_GETSELITEMS,256,(LPARAM)(int far *)selects);
  799.             if(count>0 && count!=LB_ERR) {
  800.               for(nIndex=0;nIndex<count;nIndex++) {
  801.                 SendMessage(hLbxLFiles,LB_GETTEXT,selects[nIndex],
  802.                                  (LONG)szDlgEdit);
  803.                 if(VerifyDelete(szDlgEdit))
  804.                   unlink(szDlgEdit);
  805.               }  
  806.               GetLocalDirForWnd(hWnd);
  807.             }
  808.           }
  809.           break;
  810.         case BTN_LRENAME:
  811.           if((nIndex=SendMessage(hLbxLFiles,LB_GETCURSEL,
  812.                 0,0L))!=LB_ERR)
  813.           {
  814.             SendMessage(hLbxLFiles,LB_GETTEXT,nIndex,
  815.                                (LONG)szMsgBuf2);
  816.             if(StdInput(NULL,"Enter new name for \"%s\":",szMsgBuf2))
  817.               if(rename(szMsgBuf2,szDlgEdit)==0)
  818.                 GetLocalDirForWnd(hWnd);
  819.           }
  820.           break;
  821.         case BTN_LDISPLAY:
  822.           {
  823.             char remotename[80];
  824.             if((nIndex=SendMessage(hLbxLFiles,LB_GETCURSEL,
  825.                 0,0L))!=LB_ERR)
  826.             {
  827.               SendMessage(hLbxLFiles,LB_GETTEXT,nIndex,
  828.                                  (LONG)remotename);
  829.               wsprintf(szMsgBuf2,"%s %s",szViewer,remotename);
  830.               if(strchr(remotename,'.')==NULL)
  831.                 strcat(szMsgBuf2,".");
  832.               WinExec(szMsgBuf2,SW_SHOW);
  833.             }
  834.           }
  835.           break;
  836.  
  837.          // remote buttons and boxes
  838.         case BTN_RMKDIR:
  839.            // lgk new code first check if busy and if so print out a message
  840.             if (check_busy())
  841.                DoPrintf("Currently Busy with another remote operation ...\n");
  842.             else
  843.               {
  844.                globalhWnd = hWnd;
  845.                globalwParam = wParam;
  846.                set_busy(TRUE);
  847.                threadhandle = CreateThread(NULL,0,(LPTHREAD_START_ROUTINE)remote_mkdir_fx,NULL,0,&threadid);
  848.                // create thread and start remote makedir fx
  849.           }               
  850.           break;
  851.           
  852.         case BTN_RRMDIR:
  853.             // lgk new code first check if busy and if so print out a message
  854.             if (check_busy())
  855.                DoPrintf("Currently Busy with another remote operation ...\n");
  856.             else
  857.               {
  858.                 globalhWnd = hWnd;
  859.                 globalwParam = wParam;
  860.                 set_busy(TRUE);
  861.                // create thread and start remote remove dir fx
  862.                 threadhandle = CreateThread(NULL,0,(LPTHREAD_START_ROUTINE)remote_rmdir_fx,NULL,0,&threadid);
  863.           }               
  864.           break;
  865.  
  866.         case BTN_RDELETE:
  867.             // lgk new code first check if busy and if so print out a message
  868.             if (check_busy())
  869.                DoPrintf("Currently Busy with another remote operation ...\n");
  870.             else
  871.               {
  872.                globalhWnd = hWnd;
  873.                globalwParam = wParam;
  874.                set_busy(TRUE);
  875.                // create thread and start remote delete fx
  876.                threadhandle = CreateThread(NULL,0,(LPTHREAD_START_ROUTINE)remote_delete_fx,NULL,0,&threadid);
  877.           }               
  878.           break;
  879.  
  880.           
  881.         case BTN_RRENAME:
  882.           // lgk new code first check if busy and if so print out a message
  883.            if (check_busy())
  884.                DoPrintf("Currently Busy with another remote operation ...\n");
  885.             else
  886.               {
  887.                 globalhWnd = hWnd;
  888.                 globalwParam = wParam;
  889.                  set_busy(TRUE);
  890.                // create thread and start remote rename fx
  891.                threadhandle = CreateThread(NULL,0,(LPTHREAD_START_ROUTINE)remote_rename_fx,NULL,0,&threadid);
  892.           }               
  893.           break;
  894.  
  895.         // lgk new case for changing txt in directory search routine
  896.            case TXT_RDIRSEL:
  897.            // bug in redraw so force it
  898.           if (HIWORD(wParam) == EN_UPDATE)
  899.              {
  900.               SendMessage(hRdirBox,WM_SETFONT,0,MAKELPARAM(TRUE,0));
  901.               }
  902.           if ((HIWORD(wParam) == EN_KILLFOCUS) && SendMessage(hRdirBox,EM_GETMODIFY,0,0))
  903.             // lgk new code first check if busy and if so print out a message
  904.             if (check_busy())
  905.                DoPrintf("Currently Busy with another remote operation ...\n");
  906.             else
  907.               {
  908.                 globalhWnd = hWnd;
  909.                 globalwParam = wParam;
  910.                 set_busy(TRUE);
  911.                // create thread and start remote list fx
  912.                 threadhandle = CreateThread(NULL,0,(LPTHREAD_START_ROUTINE)remote_list_fx,NULL,0,&threadid);
  913.           }               
  914.           break;
  915.        
  916.    
  917.         case LST_RDIRS:
  918.           if(HIWORD(wParam)!=LBN_DBLCLK) return(FALSE);
  919.         case BTN_RCHANGE:
  920.             // lgk new code first check if busy and if so print out a message
  921.             if (check_busy())
  922.                DoPrintf("Currently Busy with another remote operation ...\n");
  923.             else
  924.               {
  925.                 globalhWnd = hWnd;
  926.                 globalwParam = wParam;
  927.                 set_busy(TRUE);
  928.                // create thread and start remote cwd fx
  929.                 threadhandle = CreateThread(NULL,0,(LPTHREAD_START_ROUTINE)remote_cwd_fx,NULL,0,&threadid);
  930.           }               
  931.           break;
  932.           
  933.         case LST_RFILES:
  934.           if(HIWORD(wParam)!=LBN_DBLCLK) return(FALSE);
  935.         case BTN_REMOTE_TO_LOCAL:
  936.             // lgk new code first check if busy and if so print out a message
  937.             if (check_busy())
  938.                DoPrintf("Currently Busy with another remote operation ...\n");
  939.             else
  940.               {
  941.                 globalhWnd = hWnd;
  942.                 globalwParam = wParam;
  943.                set_busy(TRUE);
  944.                // create thread and start remote to local fx
  945.                threadhandle = CreateThread(NULL,0,(LPTHREAD_START_ROUTINE)remote_to_local_fx,NULL,0,&threadid);
  946.           }               
  947.           break;
  948.           
  949.         case BTN_RDISPLAY:
  950.             // lgk new code first check if busy and if so print out a message
  951.             if (check_busy())
  952.                DoPrintf("Currently Busy with another remote operation ...\n");
  953.             else
  954.               {
  955.                globalhWnd = hWnd;
  956.                globalwParam = wParam;
  957.                 set_busy(TRUE);
  958.                // create thread and start remote display fx
  959.                   threadhandle = CreateThread(NULL,0,(LPTHREAD_START_ROUTINE)remote_display_fx,NULL,0,&threadid);
  960.           }               
  961.           break;
  962.  
  963.         case RB_ASCII:
  964.           fType=TYPE_A;
  965. ShowType:
  966.         case RB_SHOWCHECKS:
  967.           SendMessage(hRBascii, BM_SETCHECK,fType==TYPE_A,0L);
  968.           SendMessage(hRBbinary,BM_SETCHECK,fType==TYPE_I,0L);
  969.           SendMessage(hRBl8,    BM_SETCHECK,fType==TYPE_L,0L);
  970.           break;
  971.         case RB_BINARY:
  972.           fType=TYPE_I;
  973.           goto ShowType;
  974.         case RB_L8:
  975.           fType=TYPE_L;
  976.           goto ShowType;
  977.  
  978. // end of child window message processing *******************
  979.  
  980.         case BTN_CONNECT:
  981.         case CMD_CONNECT:
  982.             // lgk new code first check if busy and if so print out a message
  983.             if (check_busy())
  984.                DoPrintf("Currently Busy with another remote operation ...\n");
  985.             else
  986.               {
  987.                globalhWnd = hWnd;
  988.                globalwParam = wParam;
  989.                set_busy(TRUE);
  990.                // create thread and start connect fx
  991.                threadhandle = CreateThread(NULL,0,(LPTHREAD_START_ROUTINE)connect_fx,NULL,0,&threadid);
  992.           }               
  993.           break;
  994.  
  995.         case BTN_LONG:
  996.           if(bConnected) {
  997.             wsprintf(szMsgBuf2,"%s %s",szViewer,szTmpFile);
  998.             WinExec(szMsgBuf2,SW_SHOW);
  999.           }
  1000.           break;
  1001.  
  1002.         case BTN_OPTION:
  1003.           {
  1004.            //FARPROC lpfnMsgProc;
  1005.     //        lpfnMsgProc = MakeProcInstance((FARPROC)WS_StatMsgProc, hInst);
  1006.             DialogBox(hInst, (LPSTR)"DLG_STATUS", hWnd, WS_StatMsgProc);
  1007.        //     FreeProcInstance(lpfnMsgProc);
  1008.           }
  1009.           SendMessage(hWnd,WM_COMMAND,RB_SHOWCHECKS,0l);
  1010.           break;
  1011.  
  1012.         case BTN_ABOUT:
  1013.         case IDM_ABOUT:
  1014.           { 
  1015.             DialogBox(hInst, (LPSTR)"DLG_ABOUT", hWnd, WS_AboutMsgProc);
  1016.           }
  1017.           break;
  1018.  
  1019.         default:
  1020.           if(!SubProcessAsync(hWnd,Message,wParam,lParam))
  1021.             return DefWindowProc(hWnd, Message, wParam, lParam);
  1022.       }
  1023.       break;
  1024.  
  1025.     case WM_VSCROLL:
  1026.       switch(LOWORD(wParam)) {
  1027.         case SB_LINEUP:
  1028.           ScrollStatus(-1);
  1029.           break;
  1030.         case SB_LINEDOWN:
  1031.           ScrollStatus(1);
  1032.           break;
  1033.       }
  1034.       break;
  1035.  
  1036.     case WM_CREATE:
  1037.       hStdCursor=LoadCursor((HINSTANCE)NULL,IDC_ARROW);
  1038.       hWaitCursor=LoadCursor((HINSTANCE)NULL,IDC_WAIT);
  1039.       LoadUserInfo();
  1040.       hbrGray1= CreateSolidBrush(RGB(192,192,192));
  1041.       hbrGray2=CreateSolidBrush(RGB(128,128,128)); 
  1042.       hbrWhite=CreateSolidBrush(RGB(255,255,255));
  1043.     
  1044.       if (DEBUGGING_ON)
  1045.         CreateDebugWindow(hWnd,hInst);
  1046.       
  1047.       CreateSubWindows(hWnd,hInst);
  1048.       SendMessage(hLdirBox,EM_LIMITTEXT,(WPARAM)50,0);
  1049.       SendMessage(hRdirBox,EM_LIMITTEXT,(WPARAM)50,0);
  1050.       SendMessage(hLdirBox,WM_SETTEXT,0,(LPARAM)"");
  1051.       SendMessage(hRdirBox,WM_SETTEXT,0,(LPARAM)"");
  1052.       SendMessage(hLdirBox,EM_GETMODIFY,0,0);
  1053.       SendMessage(hRdirBox,EM_GETMODIFY,0,0);     
  1054.       GetLocalDirForWnd(hWnd);
  1055.       GetRemoteDirForWnd(hWnd);
  1056.       SendMessage(hWnd,WM_COMMAND,RB_SHOWCHECKS,0L);
  1057.       GetCurrentDirectory(140,tempdirectoryname);
  1058.       GetTempFileName(tempdirectoryname,"DIR",0,szTmpFile);
  1059.       GetTempFileName(tempdirectoryname,"DSP",0,szTmp1File);
  1060.       DragAcceptFiles(hWnd,TRUE);
  1061.       // lgk limit the text for both dir boxes and initialize them to blank
  1062.  
  1063.         break;
  1064.   // lgk timer messages do not work between threads so use a timer proc now
  1065.  
  1066.     case WM_TIMER:
  1067.       if(wParam==10)
  1068.         {
  1069.         KillTimer(hWndMain,10);
  1070.         if(WSAIsBlocking())
  1071.          {
  1072.             // lgk if we are blocking in another thread here we need to kill
  1073.             // it also
  1074.            if (check_busy())
  1075.             {
  1076.              DoAddLine("Timer cancelled blocking call");    
  1077.              bAborted=TRUE;
  1078.              WSACancelBlockingCall();
  1079.              TerminateThread(threadhandle,1);
  1080.              set_busy(FALSE);
  1081.             }
  1082.          else
  1083.          {
  1084.           DoAddLine("Timer cancelled blocking call");    
  1085.           bAborted=TRUE;
  1086.           WSACancelBlockingCall();
  1087.      }
  1088.      }         
  1089.         }
  1090.       break;
  1091.  
  1092.  
  1093.      case WM_CTLCOLORBTN:
  1094.            if(LOWORD(lParam)<10) return((LRESULT)NULL);
  1095.  // lgk add suport for background color change for our edit box
  1096.      case WM_CTLCOLORSTATIC:
  1097.                SelectObject((HDC)wParam, GetStockObject(ANSI_VAR_FONT));
  1098.                 SetBkColor((HDC) wParam, RGB(192,192,192));
  1099.                 return(LRESULT)hbrGray1;
  1100.                 break;
  1101.  
  1102.      case WM_CTLCOLOREDIT:
  1103.                SelectObject((HDC)wParam, GetStockObject(ANSI_VAR_FONT));
  1104.                 SetBkColor((HDC) wParam, RGB(255, 255, 255));
  1105.                 return(LRESULT)hbrWhite;
  1106.                 break;
  1107.         
  1108.  
  1109.     case WM_SETCURSOR:
  1110.       if(bCmdInProgress) {
  1111.         SetCursor(hWaitCursor);
  1112.         return(TRUE);
  1113.       } else
  1114.         return DefWindowProc(hWnd, Message, wParam, lParam);
  1115.  
  1116.     case WM_DROPFILES:
  1117.             // lgk new code first check if busy and if so print out a message
  1118.             if (check_busy())
  1119.                DoPrintf("Currently Busy with another remote operation ...\n");
  1120.             else
  1121.               {
  1122.                globalhWnd = hWnd;
  1123.                globalwParam = wParam;
  1124.                 set_busy(TRUE);
  1125.                // create thread and start dropfiles fx
  1126.                threadhandle = CreateThread(NULL,0,(LPTHREAD_START_ROUTINE)drop_files_fx,NULL,0,&threadid);
  1127.           }               
  1128.           break;
  1129.  
  1130.     case WM_PAINT:  // code for the window's client area
  1131.       DoMainPaint(hWnd);
  1132.       break;
  1133.  
  1134.     case WM_CLOSE:  // close the window 
  1135.       // Destroy child windows, modeless dialogs, then, this window
  1136.       if (hWnd == hWndMain) {
  1137.         if(data_socket!=INVALID_SOCKET)
  1138.           data_socket=DoClose(data_socket);
  1139.         if(listen_socket!=INVALID_SOCKET)
  1140.           listen_socket=DoClose(data_socket);
  1141.         if(ctrl_socket!=INVALID_SOCKET)
  1142.           ctrl_socket=DoClose(ctrl_socket);
  1143.         DestroyWindow(hWnd);
  1144.         SaveUserInfo();
  1145.         DeleteObject(hbrGray1);
  1146.         DeleteObject(hbrGray2);
  1147.         DeleteObject(hbrWhite);
  1148.         _unlink(szTmpFile);
  1149.         _unlink(szTmp1File);
  1150.         DragAcceptFiles(hWnd,FALSE);
  1151.    // lgk if we are busy here we must kill any active task
  1152.    if (check_busy())
  1153.      {
  1154.        DoPrintf("Killing active thread ... \n");
  1155.        TerminateThread(threadhandle,1);
  1156.        set_busy(FALSE);
  1157.      }
  1158.         PostQuitMessage(0);  // Quit the application
  1159.       } else
  1160.         DestroyWindow(hWnd);
  1161.         DeleteCriticalSection(&busy_variable);
  1162.       break;
  1163.  
  1164.     default:
  1165.       if(!SubProcessAsync(hWnd,Message,wParam,lParam))
  1166.         return DefWindowProc(hWnd, Message, wParam, lParam);
  1167.   }
  1168.   return 0L;
  1169. } // End of WndProc
  1170.  
  1171. /************************************************************************/
  1172. /* Misc Dialog Window Procedures                                        */
  1173. /************************************************************************/
  1174. BOOL CALLBACK WS_AboutMsgProc(HWND hWndDlg, UINT Message, 
  1175.                                 WPARAM wParam, LPARAM lParam)
  1176. {
  1177.  char buf[40];
  1178.   
  1179.  switch(Message)
  1180.  {
  1181.    case WM_INITDIALOG:
  1182.      cwCenter(hWndDlg, 0);
  1183.      wsprintf(buf,"Version %s",VERSION);
  1184.      SetDlgItemText(hWndDlg,DLG_EDIT,buf);
  1185.      break;
  1186.                     
  1187.       case WM_CTLCOLORBTN:
  1188.           if(LOWORD(lParam)<10) return((BOOL)NULL);
  1189.  
  1190.      case WM_CTLCOLORDLG:
  1191.      case WM_CTLCOLORSTATIC:
  1192.           SetBkColor((HDC) wParam, RGB(192,192,192));
  1193.         return (BOOL)hbrGray1;
  1194.         break;
  1195.  
  1196.  
  1197.    case WM_CLOSE:
  1198.      PostMessage(hWndDlg, WM_COMMAND, IDCANCEL, 0L);
  1199.      break;
  1200.  
  1201.    case WM_COMMAND:
  1202.      switch(LOWORD(wParam))
  1203.      {
  1204.        case IDOK:
  1205.          EndDialog(hWndDlg, TRUE);
  1206.          break;
  1207.        case IDCANCEL:
  1208.          EndDialog(hWndDlg, FALSE);
  1209.          break;
  1210.      }
  1211.      break;
  1212.     default:
  1213.         return FALSE;
  1214.   }
  1215.   return TRUE;
  1216. }
  1217.  
  1218. BOOL CALLBACK WS_InputMsgProc(HWND hWndDlg, UINT Message,
  1219.                                 WPARAM wParam, LPARAM lParam)
  1220. { 
  1221.   switch(Message)
  1222.   {
  1223.     case WM_INITDIALOG:
  1224.       SetDlgItemText(hWndDlg,DLG_PROMPT,szDlgPrompt);
  1225.       SetDlgItemText(hWndDlg,DLG_EDIT,szDlgEdit);
  1226.       cwCenter(hWndDlg, 0);                                            
  1227.       break;
  1228.  
  1229.  
  1230.         case WM_CTLCOLORBTN:
  1231.              if(LOWORD(lParam)<10) return((LRESULT)NULL);
  1232.  
  1233.         case WM_CTLCOLORDLG:
  1234.         case WM_CTLCOLORSTATIC:
  1235.         SetBkColor((HDC) wParam, RGB(192,192,192));
  1236.          return(LRESULT)hbrGray1;
  1237.           break;
  1238.   case WM_CLOSE:
  1239.       PostMessage(hWndDlg, WM_COMMAND, IDCANCEL, 0L);
  1240.       break;
  1241.  
  1242.     case WM_COMMAND:
  1243.       switch(LOWORD(wParam))
  1244.       {
  1245.         case IDOK:
  1246.           GetDlgItemText(hWndDlg,DLG_EDIT,szDlgEdit,70);
  1247.           EndDialog(hWndDlg, TRUE);
  1248.           break;
  1249.         case IDCANCEL:
  1250.           EndDialog(hWndDlg, FALSE);
  1251.           break;
  1252.       }
  1253.       break;
  1254.     default:
  1255.       return FALSE;
  1256.   }
  1257.   return TRUE;
  1258. }
  1259.  
  1260. BOOL CALLBACK WS_StatMsgProc(HWND hWndDlg, UINT Message,
  1261.                                WPARAM wParam, LPARAM lParam)
  1262. { 
  1263.   switch(Message)
  1264.   {
  1265.     case WM_INITDIALOG:
  1266.       SetDlgItemText(hWndDlg,DLG_EDIT,szViewer);
  1267.       SetDlgItemText(hWndDlg,DLG_MAILADDR,szMailAddress);
  1268.       if(fType==TYPE_A)
  1269.         CheckRadioButton(hWndDlg,RB_ASCII,RB_L8,RB_ASCII);
  1270.       else if(fType==TYPE_I)
  1271.         CheckRadioButton(hWndDlg,RB_ASCII,RB_L8,RB_BINARY);
  1272.       else
  1273.         CheckRadioButton(hWndDlg,RB_ASCII,RB_L8,RB_L8);
  1274.       CheckDlgButton(hWndDlg,CKB_VERBOSE,bVerbose);
  1275.       CheckDlgButton(hWndDlg,CKB_BELL,bBell);
  1276.       CheckDlgButton(hWndDlg,CKB_GLOBBING,bDoGlob);
  1277.       CheckDlgButton(hWndDlg,CKB_HASH,bHash);
  1278.       CheckDlgButton(hWndDlg,CKB_PROMPT,bInteractive);
  1279.       CheckDlgButton(hWndDlg,CKB_MCASE,bMCase);
  1280.       CheckDlgButton(hWndDlg,CKB_PORT_CMDS,bSendPort);
  1281.       CheckDlgButton(hWndDlg,CKB_RECV_UNIQUE,bRecvUniq);
  1282.       CheckDlgButton(hWndDlg,CKB_STOR_UNIQUE,bStorUniq);
  1283.       CheckDlgButton(hWndDlg,CKB_CRSTRIP,bCRstrip);
  1284.       CheckDlgButton(hWndDlg,CKB_AUTOSTART,bAutoStart);
  1285.       break;
  1286.  
  1287.     case WM_CLOSE:
  1288.       PostMessage(hWndDlg, WM_COMMAND, IDCANCEL, 0L);
  1289.       break;
  1290.  
  1291.     case WM_SETCURSOR:
  1292.       if(bCmdInProgress)
  1293.         SetCursor(hWaitCursor);
  1294.       else
  1295.         return FALSE;
  1296.       break;
  1297.  
  1298.         case WM_CTLCOLORBTN:
  1299.              if(LOWORD(lParam)<10) return((LRESULT)NULL);
  1300.        case WM_CTLCOLORDLG:
  1301.         case WM_CTLCOLORSTATIC:
  1302.          SetBkColor((HDC) wParam, RGB(192,192,192));
  1303.           return(LRESULT)hbrGray1;
  1304.           break;
  1305.  
  1306.     case WM_COMMAND:
  1307.       switch(LOWORD(wParam))
  1308.       {
  1309.         case IDOK:
  1310.           if(IsDlgButtonChecked(hWndDlg,RB_ASCII)) fType=TYPE_A;
  1311.           else if(IsDlgButtonChecked(hWndDlg,RB_BINARY)) fType=TYPE_I;
  1312.           else fType=TYPE_L;
  1313.  
  1314.           bVerbose=IsDlgButtonChecked(hWndDlg,CKB_VERBOSE);
  1315.           bBell=IsDlgButtonChecked(hWndDlg,CKB_BELL);
  1316.           bDoGlob=IsDlgButtonChecked(hWndDlg,CKB_GLOBBING);
  1317.           bHash=IsDlgButtonChecked(hWndDlg,CKB_HASH);
  1318.           bInteractive=IsDlgButtonChecked(hWndDlg,CKB_PROMPT);
  1319.           bMCase=IsDlgButtonChecked(hWndDlg,CKB_MCASE);
  1320.           bSendPort=IsDlgButtonChecked(hWndDlg,CKB_PORT_CMDS);
  1321.           bRecvUniq=IsDlgButtonChecked(hWndDlg,CKB_RECV_UNIQUE);
  1322.           bStorUniq=IsDlgButtonChecked(hWndDlg,CKB_STOR_UNIQUE);
  1323.           bCRstrip=IsDlgButtonChecked(hWndDlg,CKB_CRSTRIP);
  1324.           bAutoStart=IsDlgButtonChecked(hWndDlg,CKB_AUTOSTART);
  1325.  
  1326.           GetDlgItemText(hWndDlg,DLG_EDIT,szViewer,70);
  1327.           GetDlgItemText(hWndDlg,DLG_MAILADDR,szMailAddress,127);
  1328.           EndDialog(hWndDlg, TRUE);
  1329.           break;
  1330.         case IDCANCEL:
  1331.           EndDialog(hWndDlg, FALSE);
  1332.           break;
  1333.       }
  1334.       break;    // End of WM_COMMAND
  1335.     default:
  1336.       return FALSE;
  1337.   }
  1338.   return TRUE;
  1339. }
  1340.  
  1341. /************************************************************************/
  1342. /* nCwRegisterClasses Function                                          */
  1343. /* The following function registers all the classes of all the windows  */
  1344. /* associated with this application. The function returns an error code */
  1345. /* if unsuccessful, otherwise it returns 0.                             */
  1346. /************************************************************************/
  1347. int nCwRegisterClasses(void)
  1348. {
  1349.   WNDCLASS   wndclass;    // struct to define a window class
  1350.   memset(&wndclass, 0x00, sizeof(WNDCLASS));
  1351.  
  1352.   // load WNDCLASS with window's characteristics
  1353.   wndclass.style = CS_HREDRAW | CS_VREDRAW | CS_BYTEALIGNWINDOW;
  1354.   wndclass.lpfnWndProc = WndProc;
  1355.   // Extra storage for Class and Window objects
  1356.   wndclass.cbClsExtra = 0;
  1357.   wndclass.cbWndExtra = 0;
  1358.   wndclass.hInstance = hInst;
  1359.   wndclass.hIcon = LoadIcon(hInst, szAppName);
  1360.   wndclass.hCursor = LoadCursor(NULL, IDC_ARROW);
  1361.   // Create brush for erasing background
  1362.   wndclass.hbrBackground = (HBRUSH)CreateSolidBrush(RGB(192,192,192));
  1363.   wndclass.lpszMenuName = NULL; // szAppName;   /* Menu Name is App Name */
  1364.   wndclass.lpszClassName = szAppName; /* Class Name is App Name */
  1365.   if(!RegisterClass(&wndclass))
  1366.     return -1;
  1367.   return(0);
  1368. } // End of nCwRegisterClasses
  1369.  
  1370. /************************************************************************/
  1371. /*  cwCenter Function                                                   */
  1372. /*  centers a window based on the client area of its parent             */
  1373. /************************************************************************/
  1374. void cwCenter(hWnd, top)
  1375. HWND hWnd;
  1376. int top;
  1377. {
  1378.   POINT      pt;
  1379.   RECT       swp;
  1380.   RECT       rParent;
  1381.   int        iwidth;
  1382.   int        iheight;
  1383.  
  1384.   // get the rectangles for the parent and the child
  1385.   GetWindowRect(hWnd, &swp);
  1386.  
  1387.   // calculate the height and width for MoveWindow
  1388.   iwidth = swp.right - swp.left;
  1389.   iheight = swp.bottom - swp.top;
  1390.  
  1391.   if(IsIconic(hWndMain))
  1392.     MoveWindow(hWnd, 0, 0, iwidth, iheight, FALSE);
  1393.   else {
  1394.     GetClientRect(hWndMain, &rParent);
  1395.  
  1396.     // find the center point and convert to screen coordinates
  1397.     pt.x = (rParent.right - rParent.left) / 2;
  1398.     pt.y = (rParent.bottom - rParent.top) / 2;
  1399.     ClientToScreen(hWndMain, &pt);
  1400.  
  1401.     // calculate the new x, y starting point
  1402.     pt.x = pt.x - (iwidth / 2);
  1403.     pt.y = pt.y - (iheight / 2);
  1404.  
  1405.     // top will adjust the window position, up or down
  1406.     if(top)
  1407.       pt.y = pt.y + top;
  1408.  
  1409.     // move the window
  1410.     MoveWindow(hWnd,max(0,pt.x),max(0,pt.y), iwidth, iheight, FALSE);
  1411.   }
  1412. } // end of cwCenter
  1413.  
  1414. /************************************************************************/
  1415. /*  CwUnRegisterClasses Function                                        */
  1416. /*  Deletes any refrences to windows resources created for this         */
  1417. /*  application, frees memory, deletes instance, handles and does       */
  1418. /*  clean up prior to exiting the window                                */
  1419. /************************************************************************/
  1420. void CwUnRegisterClasses(void)
  1421. {
  1422.   WNDCLASS   wndclass;    // struct to define a window class
  1423.   memset(&wndclass, 0x00, sizeof(WNDCLASS));
  1424.  
  1425.   GetClassInfo(hInst, szAppName, &wndclass);
  1426.   DeleteObject(wndclass.hbrBackground);
  1427.   UnregisterClass(szAppName, hInst);
  1428.   UnregisterClass(DBUGWNDCLASS,hInst);
  1429. } // End of CwUnRegisterClasses
  1430.  
  1431.