home *** CD-ROM | disk | FTP | other *** search
/ The Arcade BBS / arcadebbs.zip / arcadebbs / bbstools / WWIV Mods / WSFTPSRC.ZIP / WS_DEBUG.INC < prev    next >
Encoding:
Text File  |  1993-11-12  |  2.8 KB  |  96 lines
  1.         case CMD_CONNECT:
  2.           if(ctrl_socket==INVALID_SOCKET) {
  3.             FARPROC lpfnMsgProc;
  4.             int nRC;
  5.  
  6.             lpfnMsgProc=MakeProcInstance((FARPROC)WS_HostMsgProc,hInst);
  7.             nRC=DialogBox(hInst,(LPSTR)"DLG_HOST",hWnd,lpfnMsgProc);
  8.             FreeProcInstance(lpfnMsgProc);
  9.             if(nRC) {
  10.               SaveHostName(szRemoteHost,szUserID,szPassWord);
  11.               ctrl_socket=(SOCKET)DoConnect(szRemoteHost);
  12.             }
  13.           } else
  14.             SendMessage(hTxtStatus,WM_SETTEXT,0,(LPARAM)"Already connected");
  15.           break;
  16.  
  17.         case CMD_LIST:
  18.           if(DoDirList((SOCKET)ctrl_socket,"LIST")==FTP_COMPLETE)
  19.           {
  20.             wsprintf(szMsgBuf,"%s %s",szViewer,szTmpFile);
  21.             WinExec(szMsgBuf,SW_SHOW);
  22.           }
  23.           break;
  24.  
  25.         case CMD_NLST:
  26.           if(DoDirList((SOCKET)ctrl_socket,"NLST")==FTP_COMPLETE) 
  27.           {
  28.             wsprintf(szMsgBuf,"%s %s",szViewer,szTmpFile);
  29.             WinExec(szMsgBuf,SW_SHOW);
  30.           }
  31.           break;
  32.  
  33.         case CMD_HELP:
  34.           command((SOCKET)ctrl_socket,"HELP");
  35.           break;
  36.  
  37.         case CMD_STATUS:
  38.           { FARPROC lpfnMsgProc;
  39.             lpfnMsgProc = MakeProcInstance((FARPROC)WS_StatMsgProc, hInst);
  40.             DialogBox(hInst, (LPSTR)"DLG_STATUS", hWnd, lpfnMsgProc);
  41.             FreeProcInstance(lpfnMsgProc);
  42.           }
  43.           break;
  44.  
  45.         case CMD_PWD:
  46.           DoPWD((SOCKET)ctrl_socket);
  47.           break;
  48.  
  49.        case CMD_RMD:
  50.        case CMD_MKD:
  51.          if(StdInput(NULL,"Enter remote directory name:")) {
  52.            if(wParam==CMD_RMD)
  53.              DoRMD(ctrl_socket,szDlgEdit);
  54.            else if(wParam==CMD_MKD)
  55.              DoMKD(ctrl_socket,szDlgEdit);
  56.          }
  57.          break;
  58.  
  59.         case CMD_RETR:
  60.           if(StdInput(NULL,"Enter remote file name:")) {
  61.             wsprintf(szDlgPrompt,"RETR %s",szDlgEdit);
  62.             RetrieveFile(ctrl_socket,szDlgPrompt,szDlgEdit,fType);
  63.           }
  64.           break;
  65.  
  66.         case CMD_STOR:
  67.           if(StdInput(NULL,"Enter local file name:")) {
  68.             wsprintf(szDlgPrompt,"STOR %s",szDlgEdit);
  69.             SendFile(ctrl_socket,szDlgPrompt,szDlgEdit,fType);
  70.           }
  71.           break;
  72.  
  73.         case CMD_TYPE_I:
  74.           fType=TYPE_I;
  75.           break;
  76.  
  77.         case CMD_TYPE_A:
  78.           fType=TYPE_A;
  79.           break;
  80.  
  81.         case CMD_QUOTE:
  82.           if(StdInput(NULL,"Enter command for remote host:")) 
  83.             DoQUOTE((SOCKET)ctrl_socket,szDlgEdit);
  84.           break;
  85.  
  86.         case CMD_CWD:
  87.           if(StdInput(NULL,"Enter remote directory name:"))
  88.             DoCWD((SOCKET)ctrl_socket,szDlgEdit);
  89.           break;
  90.  
  91.         case OPT_SETVIEWER:
  92.           StdInput(szViewer,"Enter viewer executable name:");
  93.           break;
  94.  
  95.         case CMD_CLOSE:
  96.