getput.c

   1 /*=============================================================================\r
   2 *\r
   3 *                                                       \83_\83E\83\93\83\8d\81[\83h\81^\83A\83b\83v\83\8d\81[\83h\r
   4 *\r
   5 ===============================================================================\r
   6 / Copyright (C) 1997-2007 Sota. All rights reserved.\r
   7 /\r
   8 / Redistribution and use in source and binary forms, with or without \r
   9 / modification, are permitted provided that the following conditions \r
  10 / are met:\r
  11 /\r
  12 /  1. Redistributions of source code must retain the above copyright \r
  13 /     notice, this list of conditions and the following disclaimer.\r
  14 /  2. Redistributions in binary form must reproduce the above copyright \r
  15 /     notice, this list of conditions and the following disclaimer in the \r
  16 /     documentation and/or other materials provided with the distribution.\r
  17 /\r
  18 / THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR \r
  19 / IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES \r
  20 / OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. \r
  21 / IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, \r
  22 / INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, \r
  23 / BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF \r
  24 / USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON \r
  25 / ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT \r
  26 / (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF \r
  27 / THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.\r
  28 /============================================================================*/\r
  29 \r
  30 /* \82±\82Ì\83\\81[\83X\82Í\88ê\95\94\81AWS_FTP Version 93.12.05 \82Ì\83\\81[\83X\82ð\8eQ\8dl\82É\82µ\82Ü\82µ\82½\81B */\r
  31 /* \83X\83\8c\83b\83h\82Ì\8dì\90¬\81^\8fI\97¹\82É\8aÖ\82µ\82Ä\81A\94ó\8cû\93a\8dì\90¬\82Ì\83p\83b\83`\82ð\91g\82Ý\8d\9e\82Ý\82Ü\82µ\82½\81B */\r
  32 \r
  33 /*\r
  34         \88ê\95\94\81A\8d\82\91¬\89»\82Ì\82½\82ß\82Ì\83R\81[\83h\92Ç\89Á by H.Shirouzu at 2002/10/02\r
  35 */\r
  36 \r
  37 #define STRICT\r
  38 #include <stdio.h>\r
  39 #include <stdlib.h>\r
  40 #include <stdarg.h>\r
  41 #include <string.h>\r
  42 #include <mbstring.h>\r
  43 #include <time.h>\r
  44 #include <winsock.h>\r
  45 #include <windowsx.h>\r
  46 #include <commctrl.h>\r
  47 #include <process.h>\r
  48 \r
  49 #include "common.h"\r
  50 #include "resource.h"\r
  51 \r
  52 #define SET_BUFFER_SIZE\r
  53 \r
  54 /* Add by H.Shirouzu at 2002/10/02 */\r
  55 #undef BUFSIZE\r
  56 #define BUFSIZE                 (32 * 1024)\r
  57 #define SOCKBUF_SIZE    (256 * 1024)\r
  58 /* End */\r
  59 \r
  60 #define TIMER_DISPLAY           1               /* \95\\8e¦\8dX\90V\97p\83^\83C\83}\82ÌID */\r
  61 #define DISPLAY_TIMING          500             /* \95\\8e¦\8dX\90V\8e\9e\8aÔ 0.5\95b */\r
  62 \r
  63 #define ERR_MSG_LEN                     1024\r
  64 \r
  65 \r
  66 /* \8dí\8f\9c\8am\94F\83_\83C\83A\83\8d\83O\82Ì\8fî\95ñ */\r
  67 typedef struct {\r
  68         int Cur;\r
  69         TRANSPACKET *Pkt;\r
  70 } MIRRORDELETEINFO;\r
  71 \r
  72 \r
  73 /*===== \83v\83\8d\83g\83^\83C\83v =====*/\r
  74 \r
  75 static void DispTransPacket(TRANSPACKET *Pkt);\r
  76 static void EraseTransFileList(void);\r
  77 static ULONG WINAPI TransferThread(void *Dummy);\r
  78 static int MakeNonFullPath(TRANSPACKET *Pkt, char *CurDir, char *Tmp);\r
  79 static int DownLoadNonPassive(TRANSPACKET *Pkt, int *CancelCheckWork);\r
  80 static int DownLoadPassive(TRANSPACKET *Pkt, int *CancelCheckWork);\r
  81 static int DownLoadFile(TRANSPACKET *Pkt, SOCKET dSkt, int CreateMode, int *CancelCheckWork);\r
  82 static void DispDownloadFinishMsg(TRANSPACKET *Pkt, int iRetCode);\r
  83 static int DispUpDownErrDialog(int ResID, HWND hWnd, char *Fname);\r
  84 static BOOL CALLBACK UpDownErrorDialogProc(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam);\r
  85 static int SetDownloadResume(TRANSPACKET *Pkt, int ProcMode, LONGLONG Size, int *Mode, int *CancelCheckWork);\r
  86 static BOOL CALLBACK NoResumeWndProc(HWND hDlg, UINT iMessage, WPARAM wParam, LPARAM lParam);\r
  87 static int DoUpLoad(SOCKET cSkt, TRANSPACKET *Pkt);\r
  88 static int UpLoadNonPassive(TRANSPACKET *Pkt);\r
  89 static int UpLoadPassive(TRANSPACKET *Pkt);\r
  90 static int UpLoadFile(TRANSPACKET *Pkt, SOCKET dSkt);\r
  91 static int TermCodeConvAndSend(TERMCODECONVINFO *tInfo, SOCKET Skt, char *Data, int Size, int Ascii);\r
  92 static void DispUploadFinishMsg(TRANSPACKET *Pkt, int iRetCode);\r
  93 static int SetUploadResume(TRANSPACKET *Pkt, int ProcMode, LONGLONG Size, int *Mode);\r
  94 static LRESULT CALLBACK TransDlgProc(HWND hDlg, UINT Msg, WPARAM wParam, LPARAM lParam);\r
  95 static void DispTransferStatus(HWND hWnd, int End, TRANSPACKET *Pkt);\r
  96 static void DispTransFileInfo(TRANSPACKET *Pkt, char *Title, int SkipButton, int Info);\r
  97 static int GetAdrsAndPort(char *Str, char *Adrs, int *Port, int Max);\r
  98 static int IsSpecialDevice(char *Fname);\r
  99 static int MirrorDelNotify(int Cur, int Notify, TRANSPACKET *Pkt);\r
 100 static BOOL CALLBACK MirrorDeleteDialogCallBack(HWND hDlg, UINT iMessage, WPARAM wParam, LPARAM lParam);\r
 101 static void SetErrorMsg(char *fmt, ...);\r
 102 \r
 103 /*===== \83\8d\81[\83J\83\8b\82È\83\8f\81[\83N =====*/\r
 104 \r
 105 static HANDLE hTransferThread;\r
 106 static int fTransferThreadExit = FALSE;\r
 107 \r
 108 static HANDLE hRunMutex;                                /* \93]\91\97\83X\83\8c\83b\83h\8eÀ\8ds\83~\83\85\81[\83e\83b\83N\83X */\r
 109 static HANDLE hListAccMutex;                    /* \93]\91\97\83t\83@\83C\83\8b\83A\83N\83Z\83X\97p\83~\83\85\81[\83e\83b\83N\83X */\r
 110 \r
 111 static int TransFiles = 0;                              /* \93]\91\97\91Ò\82¿\83t\83@\83C\83\8b\90\94 */\r
 112 static TRANSPACKET *TransPacketBase = NULL;     /* \93]\91\97\83t\83@\83C\83\8b\83\8a\83X\83g */\r
 113 \r
 114 static int Canceled;            /* \92\86\8e~\83t\83\89\83O YES/NO */\r
 115 static int ClearAll;            /* \91S\82Ä\92\86\8e~\83t\83\89\83O YES/NO */\r
 116 \r
 117 static int ForceAbort;          /* \93]\91\97\92\86\8e~\83t\83\89\83O */\r
 118                                                         /* \82±\82Ì\83t\83\89\83O\82Í\83X\83\8c\83b\83h\82ð\8fI\97¹\82³\82¹\82é\82Æ\82«\82É\8eg\82¤ */\r
 119 \r
 120 static LONGLONG AllTransSizeNow;        /* \8d¡\89ñ\82Ì\93]\91\97\82Å\93]\91\97\82µ\82½\83T\83C\83Y */\r
 121 static time_t TimeStart;        /* \93]\91\97\8aJ\8en\8e\9e\8aÔ */\r
 122 \r
 123 static int KeepDlg = NO;        /* \93]\91\97\92\86\83_\83C\83A\83\8d\83O\82ð\8fÁ\82³\82È\82¢\82©\82Ç\82¤\82© (YES/NO) */\r
 124 static int MoveToForeground = NO;               /* \83E\83C\83\93\83h\83E\82ð\91O\96Ê\82É\88Ú\93®\82·\82é\82©\82Ç\82¤\82© (YES/NO) */\r
 125 \r
 126 static char CurDir[FMAX_PATH+1] = { "" };\r
 127 static char ErrMsg[ERR_MSG_LEN+7];\r
 128 \r
 129 /*===== \8aO\95\94\8eQ\8fÆ =====*/\r
 130 \r
 131 /* \90Ý\92è\92l */\r
 132 extern int SaveTimeStamp;\r
 133 extern int RmEOF;\r
 134 // extern int TimeOut;\r
 135 extern int FwallType;\r
 136 extern int MirUpDelNotify;\r
 137 extern int MirDownDelNotify;\r
 138 extern int FolderAttr;\r
 139 extern int FolderAttrNum;\r
 140 \r
 141 \r
 142 /*----- \83t\83@\83C\83\8b\93]\91\97\83X\83\8c\83b\83h\82ð\8bN\93®\82·\82é ----------------------------------------\r
 143 *\r
 144 *       Parameter\r
 145 *               \82È\82µ\r
 146 *\r
 147 *       Return Value\r
 148 *               \82È\82µ\r
 149 *----------------------------------------------------------------------------*/\r
 150 \r
 151 int MakeTransferThread(void)\r
 152 {\r
 153         DWORD dwID;\r
 154 \r
 155         hListAccMutex = CreateMutex( NULL, FALSE, NULL );\r
 156         hRunMutex = CreateMutex( NULL, TRUE, NULL );\r
 157 \r
 158         ClearAll = NO;\r
 159         ForceAbort = NO;\r
 160 \r
 161         fTransferThreadExit = FALSE;\r
 162         hTransferThread = (HANDLE)_beginthreadex(NULL, 0, TransferThread, 0, 0, &dwID);\r
 163         if (hTransferThread == NULL)\r
 164                 return(FAIL); /* XXX */\r
 165 \r
 166         return(SUCCESS);\r
 167 }\r
 168 \r
 169 \r
 170 /*----- \83t\83@\83C\83\8b\93]\91\97\83X\83\8c\83b\83h\82ð\8fI\97¹\82·\82é ----------------------------------------\r
 171 *\r
 172 *       Parameter\r
 173 *               \82È\82µ\r
 174 *\r
 175 *       Return Value\r
 176 *               \82È\82µ\r
 177 *----------------------------------------------------------------------------*/\r
 178 \r
 179 void CloseTransferThread(void)\r
 180 {\r
 181         Canceled = YES;\r
 182         ClearAll = YES;\r
 183         ForceAbort = YES;\r
 184 \r
 185         fTransferThreadExit = TRUE;\r
 186         while(WaitForSingleObject(hTransferThread, 10) == WAIT_TIMEOUT)\r
 187         {\r
 188                 BackgrndMessageProc();\r
 189                 Canceled = YES;\r
 190         }\r
 191         CloseHandle(hTransferThread);\r
 192 \r
 193         ReleaseMutex( hRunMutex );\r
 194 \r
 195         CloseHandle( hListAccMutex );\r
 196         CloseHandle( hRunMutex );\r
 197         return;\r
 198 }\r
 199 \r
 200 \r
 201 /*----- \93]\91\97\82·\82é\83t\83@\83C\83\8b\8fî\95ñ\82ð\83\8a\83X\83g\82É\92Ç\89Á\82·\82é --------------------------------\r
 202 *\r
 203 *       Parameter\r
 204 *               TRANSPACKET *Pkt : \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\r
 205 *               TRANSPACKET **Base : \83\8a\83X\83g\82Ì\90æ\93ª\r
 206 *\r
 207 *       Return Value\r
 208 *               int \83X\83e\81[\83^\83X\r
 209 *                       SUCCESS/FAIL\r
 210 *----------------------------------------------------------------------------*/\r
 211 \r
 212 int AddTmpTransFileList(TRANSPACKET *Pkt, TRANSPACKET **Base)\r
 213 {\r
 214         TRANSPACKET *Pos;\r
 215         TRANSPACKET *Prev;\r
 216         int Sts;\r
 217 \r
 218         Sts = FAIL;\r
 219         if((Pos = malloc(sizeof(TRANSPACKET))) != NULL)\r
 220         {\r
 221                 memcpy(Pos, Pkt, sizeof(TRANSPACKET));\r
 222                 Pos->Next = NULL;\r
 223 \r
 224                 if(*Base == NULL)\r
 225                         *Base = Pos;\r
 226                 else\r
 227                 {\r
 228                         Prev = *Base;\r
 229                         while(Prev->Next != NULL)\r
 230                                 Prev = Prev->Next;\r
 231                         Prev->Next = Pos;\r
 232                 }\r
 233                 Sts = SUCCESS;\r
 234         }\r
 235         return(Sts);\r
 236 }\r
 237 \r
 238 \r
 239 /*----- \93]\91\97\82·\82é\83t\83@\83C\83\8b\8fî\95ñ\83\8a\83X\83g\82ð\83N\83\8a\83A\82·\82é --------------------------------\r
 240 *\r
 241 *       Parameter\r
 242 *               TRANSPACKET **Base : \83\8a\83X\83g\82Ì\90æ\93ª\r
 243 *\r
 244 *       Return Value\r
 245 *               \82È\82µ\r
 246 *----------------------------------------------------------------------------*/\r
 247 \r
 248 void EraseTmpTransFileList(TRANSPACKET **Base)\r
 249 {\r
 250         TRANSPACKET *Pos;\r
 251         TRANSPACKET *Next;\r
 252 \r
 253         Pos = *Base;\r
 254         while(Pos != NULL)\r
 255         {\r
 256                 Next = Pos->Next;\r
 257                 free(Pos);\r
 258                 Pos = Next;\r
 259         }\r
 260         *Base = NULL;\r
 261         return;\r
 262 }\r
 263 \r
 264 \r
 265 /*----- \93]\91\97\82·\82é\83t\83@\83C\83\8b\8fî\95ñ\83\8a\83X\83g\82©\82ç\82P\82Â\82Ì\8fî\95ñ\82ð\8eæ\82è\8f\9c\82 --------------------\r
 266 *\r
 267 *       Parameter\r
 268 *               TRANSPACKET *Pkt : \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\r
 269 *               TRANSPACKET **Base : \83\8a\83X\83g\82Ì\90æ\93ª\r
 270 *\r
 271 *       Return Value\r
 272 *               int \83X\83e\81[\83^\83X\r
 273 *                       SUCCESS/FAIL\r
 274 *----------------------------------------------------------------------------*/\r
 275 \r
 276 int RemoveTmpTransFileListItem(TRANSPACKET **Base, int Num)\r
 277 {\r
 278         TRANSPACKET *Pos;\r
 279         TRANSPACKET *Prev;\r
 280         int Sts;\r
 281 \r
 282         Sts = FAIL;\r
 283         Pos = *Base;\r
 284         if(Num == 0)\r
 285         {\r
 286                 *Base = Pos->Next;\r
 287                 free(Pos);\r
 288                 Sts = SUCCESS;\r
 289         }\r
 290         else\r
 291         {\r
 292                 while(Pos != NULL)\r
 293                 {\r
 294                         Prev = Pos;\r
 295                         Pos = Pos->Next;\r
 296                         if(--Num == 0)\r
 297                         {\r
 298                                 Prev->Next = Pos->Next;\r
 299                                 free(Pos);\r
 300                                 Sts = SUCCESS;\r
 301                                 break;\r
 302                         }\r
 303                 }\r
 304         }\r
 305         return(Sts);\r
 306 }\r
 307 \r
 308 \r
 309 /*----- \93]\91\97\82·\82é\83t\83@\83C\83\8b\8fî\95ñ\82ð\93]\91\97\83t\83@\83C\83\8b\83\8a\83X\83g\82É\93o\98^\82·\82é --------------------\r
 310 *\r
 311 *       Parameter\r
 312 *               TRANSPACKET *Pkt : \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\r
 313 *\r
 314 *       Return Value\r
 315 *               \82È\82µ\r
 316 *----------------------------------------------------------------------------*/\r
 317 \r
 318 void AddTransFileList(TRANSPACKET *Pkt)\r
 319 {\r
 320         DispTransPacket(Pkt);\r
 321 \r
 322         WaitForSingleObject(hListAccMutex, INFINITE);\r
 323 \r
 324         if(AddTmpTransFileList(Pkt, &TransPacketBase) == SUCCESS)\r
 325         {\r
 326                 if((strncmp(Pkt->Cmd, "RETR", 4) == 0) ||\r
 327                    (strncmp(Pkt->Cmd, "STOR", 4) == 0))\r
 328                 {\r
 329                         TransFiles++;\r
 330                         PostMessage(GetMainHwnd(), WM_CHANGE_COND, 0, 0);\r
 331                 }\r
 332         }\r
 333         ReleaseMutex(hListAccMutex);\r
 334 \r
 335         return;\r
 336 }\r
 337 \r
 338 \r
 339 /*----- \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\82ð\93]\91\97\83t\83@\83C\83\8b\83\8a\83X\83g\82É\92Ç\89Á\82·\82é ------------------------\r
 340 *\r
 341 *       Parameter\r
 342 *               TRANSPACKET *Pkt : \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\r
 343 *               TRANSPACKET **Base : \83\8a\83X\83g\82Ì\90æ\93ª\r
 344 *\r
 345 *       Return Value\r
 346 *               \82È\82µ\r
 347 *\r
 348 *       Note\r
 349 *               Pkt\8e©\91Ì\82ð\83\8a\83X\83g\82É\98A\8c\8b\82·\82é\r
 350 *----------------------------------------------------------------------------*/\r
 351 \r
 352 void AppendTransFileList(TRANSPACKET *Pkt)\r
 353 {\r
 354         TRANSPACKET *Pos;\r
 355 \r
 356         WaitForSingleObject(hListAccMutex, INFINITE);\r
 357 \r
 358         if(TransPacketBase == NULL)\r
 359                 TransPacketBase = Pkt;\r
 360         else\r
 361         {\r
 362                 Pos = TransPacketBase;\r
 363                 while(Pos->Next != NULL)\r
 364                         Pos = Pos->Next;\r
 365                 Pos->Next = Pkt;\r
 366         }\r
 367 \r
 368         while(Pkt != NULL)\r
 369         {\r
 370                 DispTransPacket(Pkt);\r
 371 \r
 372                 if((strncmp(Pkt->Cmd, "RETR", 4) == 0) ||\r
 373                    (strncmp(Pkt->Cmd, "STOR", 4) == 0))\r
 374                 {\r
 375                         TransFiles++;\r
 376                         PostMessage(GetMainHwnd(), WM_CHANGE_COND, 0, 0);\r
 377                 }\r
 378                 Pkt = Pkt->Next;\r
 379         }\r
 380 \r
 381         ReleaseMutex(hListAccMutex);\r
 382         return;\r
 383 }\r
 384 \r
 385 \r
 386 /*----- \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\82ð\95\\8e¦\82·\82é --------------------------------------------\r
 387 *\r
 388 *       Parameter\r
 389 *               TRANSPACKET *Pkt : \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\r
 390 *\r
 391 *       Return Value\r
 392 *               \82È\82µ\r
 393 *----------------------------------------------------------------------------*/\r
 394 \r
 395 static void DispTransPacket(TRANSPACKET *Pkt)\r
 396 {\r
 397         if((strncmp(Pkt->Cmd, "RETR", 4) == 0) || (strncmp(Pkt->Cmd, "STOR", 4) == 0))\r
 398                 DoPrintf("TransList Cmd=%s : %s : %s", Pkt->Cmd, Pkt->RemoteFile, Pkt->LocalFile);\r
 399         else if(strncmp(Pkt->Cmd, "R-", 2) == 0)\r
 400                 DoPrintf("TransList Cmd=%s : %s", Pkt->Cmd, Pkt->RemoteFile);\r
 401         else if(strncmp(Pkt->Cmd, "L-", 2) == 0)\r
 402                 DoPrintf("TransList Cmd=%s : %s", Pkt->Cmd, Pkt->LocalFile);\r
 403         else if(strncmp(Pkt->Cmd, "MKD", 3) == 0)\r
 404         {\r
 405                 if(strlen(Pkt->LocalFile) > 0)\r
 406                         DoPrintf("TransList Cmd=%s : %s", Pkt->Cmd, Pkt->LocalFile);\r
 407                 else\r
 408                         DoPrintf("TransList Cmd=%s : %s", Pkt->Cmd, Pkt->RemoteFile);\r
 409         }\r
 410         else\r
 411                 DoPrintf("TransList Cmd=%s", Pkt->Cmd);\r
 412         return;\r
 413 }\r
 414 \r
 415 \r
 416 /*----- \93]\91\97\83t\83@\83C\83\8b\83\8a\83X\83g\82ð\83N\83\8a\83A\82·\82é ----------------------------------------\r
 417 *\r
 418 *       Parameter\r
 419 *               \82È\82µ\r
 420 *\r
 421 *       Return Value\r
 422 *               \82È\82µ\r
 423 *----------------------------------------------------------------------------*/\r
 424 \r
 425 static void EraseTransFileList(void)\r
 426 {\r
 427         TRANSPACKET *New;\r
 428         TRANSPACKET *Next;\r
 429         TRANSPACKET *NotDel;\r
 430         TRANSPACKET Pkt;\r
 431 \r
 432         NotDel = NULL;\r
 433 \r
 434         WaitForSingleObject(hListAccMutex, INFINITE);\r
 435         New = TransPacketBase;\r
 436         while(New != NULL)\r
 437         {\r
 438                 /* \8dÅ\8cã\82Ì"BACKCUR"\82Í\95K\97v\82È\82Ì\82Å\8fÁ\82³\82È\82¢ */\r
 439                 if(strcmp(New->Cmd, "BACKCUR") == 0)\r
 440                 {\r
 441                         if(NotDel != NULL)\r
 442                                 free(NotDel);\r
 443                         NotDel = New;\r
 444                         New = New->Next;\r
 445                         NotDel->Next = NULL;\r
 446                 }\r
 447                 else\r
 448                 {\r
 449                         Next = New->Next;\r
 450                         free(New);\r
 451                         New = Next;\r
 452                 }\r
 453         }\r
 454         TransPacketBase = NotDel;\r
 455         TransFiles = 0;\r
 456         PostMessage(GetMainHwnd(), WM_CHANGE_COND, 0, 0);\r
 457         ReleaseMutex(hListAccMutex);\r
 458 \r
 459         strcpy(Pkt.Cmd, "GOQUIT");\r
 460         AddTransFileList(&Pkt);\r
 461         return;\r
 462 }\r
 463 \r
 464 \r
 465 /*----- \93]\91\97\92\86\83_\83C\83A\83\8d\83O\82ð\8fÁ\82³\82È\82¢\82æ\82¤\82É\82·\82é\82©\82Ç\82¤\82©\82ð\90Ý\92è --------------------\r
 466 *\r
 467 *       Parameter\r
 468 *               int Sw : \93]\91\97\92\86\83_\83C\83A\83\8d\83O\82ð\8fÁ\82³\82È\82¢\82©\82Ç\82¤\82© (YES/NO)\r
 469 *\r
 470 *       Return Value\r
 471 *               \82È\82µ\r
 472 *----------------------------------------------------------------------------*/\r
 473 \r
 474 void KeepTransferDialog(int Sw)\r
 475 {\r
 476         KeepDlg = Sw;\r
 477         return;\r
 478 }\r
 479 \r
 480 \r
 481 /*----- \8c»\8dÝ\93]\91\97\92\86\82©\82Ç\82¤\82©\82ð\95Ô\82· ----------------------------------------------\r
 482 *\r
 483 *       Parameter\r
 484 *               \82È\82µ\r
 485 *\r
 486 *       Return Value\r
 487 *               int \83X\83e\81[\83^\83X (YES/NO=\93]\91\97\92\86\82Å\82Í\82È\82¢)\r
 488 *----------------------------------------------------------------------------*/\r
 489 \r
 490 int AskTransferNow(void)\r
 491 {\r
 492         return(TransPacketBase != NULL ? YES : NO);\r
 493 }\r
 494 \r
 495 \r
 496 /*----- \93]\91\97\82·\82é\83t\83@\83C\83\8b\82Ì\90\94\82ð\95Ô\82· --------------------------------------------\r
 497 *\r
 498 *       Parameter\r
 499 *               \82È\82µ\r
 500 *\r
 501 *       Return Value\r
 502 *               int \93]\91\97\82·\82é\83t\83@\83C\83\8b\82Ì\90\94\r
 503 *----------------------------------------------------------------------------*/\r
 504 \r
 505 int AskTransferFileNum(void)\r
 506 {\r
 507         return(TransFiles);\r
 508 }\r
 509 \r
 510 \r
 511 /*----- \93]\91\97\92\86\83E\83C\83\93\83h\83E\82ð\91O\96Ê\82É\8fo\82· ------------------------------------------\r
 512 *\r
 513 *       Parameter\r
 514 *               \82È\82µ\r
 515 *\r
 516 *       Return Value\r
 517 *               \82È\82µ\r
 518 *----------------------------------------------------------------------------*/\r
 519 \r
 520 void GoForwardTransWindow(void)\r
 521 {\r
 522         MoveToForeground = YES;\r
 523         return;\r
 524 }\r
 525 \r
 526 \r
 527 /*----- \93]\91\97\83\\83P\83b\83g\82Ì\83J\83\8c\83\93\83g\83f\83B\83\8c\83N\83g\83\8a\8fî\95ñ\82ð\8f\89\8aú\89» ------------------------\r
 528 *\r
 529 *       Parameter\r
 530 *               \82È\82µ\r
 531 *\r
 532 *       Return Value\r
 533 *               \82È\82µ\r
 534 *----------------------------------------------------------------------------*/\r
 535 \r
 536 void InitTransCurDir(void)\r
 537 {\r
 538         strcpy(CurDir, "");\r
 539         return;\r
 540 }\r
 541 \r
 542 \r
 543 /*----- \83t\83@\83C\83\8b\93]\91\97\83X\83\8c\83b\83h\82Ì\83\81\83C\83\93\83\8b\81[\83v ------------------------------------\r
 544 *\r
 545 *       Parameter\r
 546 *               void *Dummy : \8eg\82í\82È\82¢\r
 547 *\r
 548 *       Return Value\r
 549 *               \82È\82µ\r
 550 *----------------------------------------------------------------------------*/\r
 551 \r
 552 static ULONG WINAPI TransferThread(void *Dummy)\r
 553 {\r
 554         TRANSPACKET *Pos;\r
 555         HWND hWndTrans;\r
 556         char Tmp[FMAX_PATH+1];\r
 557         int CwdSts;\r
 558         int GoExit;\r
 559         int Down;\r
 560         int Up;\r
 561         int DelNotify;\r
 562 \r
 563         hWndTrans = NULL;\r
 564         Down = NO;\r
 565         Up = NO;\r
 566         GoExit = NO;\r
 567         DelNotify = NO;\r
 568 \r
 569         while((TransPacketBase != NULL) ||\r
 570                   (WaitForSingleObject(hRunMutex, 200) == WAIT_TIMEOUT))\r
 571         {\r
 572                 if(fTransferThreadExit == TRUE)\r
 573                         break;\r
 574 \r
 575                 WaitForSingleObject(hListAccMutex, INFINITE);\r
 576                 memset(ErrMsg, NUL, ERR_MSG_LEN+7);\r
 577 \r
 578                 Canceled = NO;\r
 579 \r
 580                 if(TransPacketBase != NULL)\r
 581                 {\r
 582                         ReleaseMutex(hListAccMutex);\r
 583                         if(hWndTrans == NULL)\r
 584                         {\r
 585                                 if((strncmp(TransPacketBase->Cmd, "RETR", 4) == 0) ||\r
 586                                    (strncmp(TransPacketBase->Cmd, "STOR", 4) == 0) ||\r
 587                                    (strncmp(TransPacketBase->Cmd, "MKD", 3) == 0) ||\r
 588                                    (strncmp(TransPacketBase->Cmd, "L-", 2) == 0) ||\r
 589                                    (strncmp(TransPacketBase->Cmd, "R-", 2) == 0))\r
 590                                 {\r
 591                                         hWndTrans = CreateDialog(GetFtpInst(), MAKEINTRESOURCE(transfer_dlg), HWND_DESKTOP, (DLGPROC)TransDlgProc);\r
 592                                         if(MoveToForeground == YES)\r
 593                                                 SetForegroundWindow(hWndTrans);\r
 594                                         ShowWindow(hWndTrans, SW_SHOWNOACTIVATE);\r
 595                                 }\r
 596                         }\r
 597                         TransPacketBase->hWndTrans = hWndTrans;\r
 598 \r
 599                         if(hWndTrans != NULL)\r
 600                         {\r
 601                                 if(MoveToForeground == YES)\r
 602                                 {\r
 603                                         SetForegroundWindow(hWndTrans);\r
 604                                         MoveToForeground = NO;\r
 605                                 }\r
 606                         }\r
 607 \r
 608                         if(hWndTrans != NULL)\r
 609                                 SendMessage(hWndTrans, WM_SET_PACKET, 0, (LPARAM)TransPacketBase);\r
 610 \r
 611                         /* \83_\83E\83\93\83\8d\81[\83h */\r
 612                         if(strncmp(TransPacketBase->Cmd, "RETR", 4) == 0)\r
 613                         {\r
 614                                 /* \95s\90³\82È\83p\83X\82ð\8c\9f\8fo */\r
 615                                 if(CheckPathViolation(TransPacketBase) == NO)\r
 616                                 {\r
 617                                         /* \83t\83\8b\83p\83X\82ð\8eg\82í\82È\82¢\82½\82ß\82Ì\8f\88\97\9d */\r
 618                                         if(MakeNonFullPath(TransPacketBase, CurDir, Tmp) == SUCCESS)\r
 619                                         {\r
 620                                                 if(strncmp(TransPacketBase->Cmd, "RETR-S", 6) == 0)\r
 621                                                 {\r
 622                                                         /* \83T\83C\83Y\82Æ\93ú\95t\82ð\8eæ\93¾ */\r
 623                                                         DoSIZE(TransPacketBase->RemoteFile, &TransPacketBase->Size);\r
 624                                                         DoMDTM(TransPacketBase->RemoteFile, &TransPacketBase->Time);\r
 625                                                         strcpy(TransPacketBase->Cmd, "RETR ");\r
 626                                                 }\r
 627 \r
 628                                                 Down = YES;\r
 629 //                                              if(DoDownLoad(AskTrnCtrlSkt(), TransPacketBase, NO) == 429)\r
 630 //                                              {\r
 631 //                                                      if(ReConnectTrnSkt() == SUCCESS)\r
 632                                                                 DoDownLoad(AskTrnCtrlSkt(), TransPacketBase, NO, &Canceled);\r
 633 //                                              }\r
 634                                         }\r
 635                                 }\r
 636                         }\r
 637                         /* \83A\83b\83v\83\8d\81[\83h */\r
 638                         else if(strncmp(TransPacketBase->Cmd, "STOR", 4) == 0)\r
 639                         {\r
 640                                 /* \83t\83\8b\83p\83X\82ð\8eg\82í\82È\82¢\82½\82ß\82Ì\8f\88\97\9d */\r
 641                                 if(MakeNonFullPath(TransPacketBase, CurDir, Tmp) == SUCCESS)\r
 642                                 {\r
 643                                         Up = YES;\r
 644 //                                      if(DoUpLoad(AskTrnCtrlSkt(), TransPacketBase) == 429)\r
 645 //                                      {\r
 646 //                                              if(ReConnectTrnSkt() == SUCCESS)\r
 647                                                         DoUpLoad(AskTrnCtrlSkt(), TransPacketBase);\r
 648 //                                      }\r
 649                                 }\r
 650                         }\r
 651                         /* \83t\83H\83\8b\83_\8dì\90¬\81i\83\8d\81[\83J\83\8b\82Ü\82½\82Í\83z\83X\83g\81j */\r
 652                         else if(strncmp(TransPacketBase->Cmd, "MKD", 3) == 0)\r
 653                         {\r
 654                                 DispTransFileInfo(TransPacketBase, MSGJPN078, FALSE, YES);\r
 655 \r
 656                                 if(strlen(TransPacketBase->RemoteFile) > 0)\r
 657                                 {\r
 658                                         /* \83t\83\8b\83p\83X\82ð\8eg\82í\82È\82¢\82½\82ß\82Ì\8f\88\97\9d */\r
 659                                         CwdSts = FTP_COMPLETE;\r
 660 \r
 661                                         strcpy(Tmp, TransPacketBase->RemoteFile);\r
 662                                         if(ProcForNonFullpath(Tmp, CurDir, hWndTrans, 1) == FAIL)\r
 663                                         {\r
 664                                                 ClearAll = YES;\r
 665                                                 CwdSts = FTP_ERROR;\r
 666                                         }\r
 667 \r
 668                                         if(CwdSts == FTP_COMPLETE)\r
 669                                         {\r
 670                                                 Up = YES;\r
 671                                                 CommandProcTrn(NULL, "MKD %s", Tmp);\r
 672                                                 /* \82·\82Å\82É\83t\83H\83\8b\83_\82ª\82 \82é\8fê\8d\87\82à\82 \82é\82Ì\82Å\81A */\r
 673                                                 /* \82±\82±\82Å\82Í\83G\83\89\81[\83`\83F\83b\83N\82Í\82µ\82È\82¢ */\r
 674 \r
 675                                         if(FolderAttr)\r
 676                                                 CommandProcTrn(NULL, "%s %03d %s", AskHostChmodCmd(), FolderAttrNum, Tmp);\r
 677                                         }\r
 678                                 }\r
 679                                 else if(strlen(TransPacketBase->LocalFile) > 0)\r
 680                                 {\r
 681                                         Down = YES;\r
 682                                         DoLocalMKD(TransPacketBase->LocalFile);\r
 683                                 }\r
 684                         }\r
 685                         /* \83f\83B\83\8c\83N\83g\83\8a\8dì\90¬\81i\8fí\82É\83z\83X\83g\91¤\81j */\r
 686                         else if(strncmp(TransPacketBase->Cmd, "R-MKD", 5) == 0)\r
 687                         {\r
 688                                 DispTransFileInfo(TransPacketBase, MSGJPN079, FALSE, YES);\r
 689 \r
 690                                 /* \83t\83\8b\83p\83X\82ð\8eg\82í\82È\82¢\82½\82ß\82Ì\8f\88\97\9d */\r
 691                                 if(MakeNonFullPath(TransPacketBase, CurDir, Tmp) == SUCCESS)\r
 692                                 {\r
 693                                         Up = YES;\r
 694                                         CommandProcTrn(NULL, "%s%s", TransPacketBase->Cmd+2, TransPacketBase->RemoteFile);\r
 695 \r
 696                                         if(FolderAttr)\r
 697                                                 CommandProcTrn(NULL, "%s %03d %s", AskHostChmodCmd(), FolderAttrNum, TransPacketBase->RemoteFile);\r
 698                                 }\r
 699                         }\r
 700                         /* \83f\83B\83\8c\83N\83g\83\8a\8dí\8f\9c\81i\8fí\82É\83z\83X\83g\91¤\81j */\r
 701                         else if(strncmp(TransPacketBase->Cmd, "R-RMD", 5) == 0)\r
 702                         {\r
 703                                 DispTransFileInfo(TransPacketBase, MSGJPN080, FALSE, YES);\r
 704 \r
 705                                 DelNotify = MirrorDelNotify(WIN_REMOTE, DelNotify, TransPacketBase);\r
 706                                 if((DelNotify == YES) || (DelNotify == YES_ALL))\r
 707                                 {\r
 708                                         /* \83t\83\8b\83p\83X\82ð\8eg\82í\82È\82¢\82½\82ß\82Ì\8f\88\97\9d */\r
 709                                         if(MakeNonFullPath(TransPacketBase, CurDir, Tmp) == SUCCESS)\r
 710                                         {\r
 711                                                 Up = YES;\r
 712                                                 CommandProcTrn(NULL, "%s%s", TransPacketBase->Cmd+2, TransPacketBase->RemoteFile);\r
 713                                         }\r
 714                                 }\r
 715                         }\r
 716                         /* \83t\83@\83C\83\8b\8dí\8f\9c\81i\8fí\82É\83z\83X\83g\91¤\81j */\r
 717                         else if(strncmp(TransPacketBase->Cmd, "R-DELE", 6) == 0)\r
 718                         {\r
 719                                 DispTransFileInfo(TransPacketBase, MSGJPN081, FALSE, YES);\r
 720 \r
 721                                 DelNotify = MirrorDelNotify(WIN_REMOTE, DelNotify, TransPacketBase);\r
 722                                 if((DelNotify == YES) || (DelNotify == YES_ALL))\r
 723                                 {\r
 724                                         /* \83t\83\8b\83p\83X\82ð\8eg\82í\82È\82¢\82½\82ß\82Ì\8f\88\97\9d */\r
 725                                         if(MakeNonFullPath(TransPacketBase, CurDir, Tmp) == SUCCESS)\r
 726                                         {\r
 727                                                 Up = YES;\r
 728                                                 CommandProcTrn(NULL, "%s%s", TransPacketBase->Cmd+2, TransPacketBase->RemoteFile);\r
 729                                         }\r
 730                                 }\r
 731                         }\r
 732                         /* \83f\83B\83\8c\83N\83g\83\8a\8dì\90¬\81i\8fí\82É\83\8d\81[\83J\83\8b\91¤\81j */\r
 733                         else if(strncmp(TransPacketBase->Cmd, "L-MKD", 5) == 0)\r
 734                         {\r
 735                                 DispTransFileInfo(TransPacketBase, MSGJPN082, FALSE, YES);\r
 736 \r
 737                                 Down = YES;\r
 738                                 DoLocalMKD(TransPacketBase->LocalFile);\r
 739                         }\r
 740                         /* \83f\83B\83\8c\83N\83g\83\8a\8dí\8f\9c\81i\8fí\82É\83\8d\81[\83J\83\8b\91¤\81j */\r
 741                         else if(strncmp(TransPacketBase->Cmd, "L-RMD", 5) == 0)\r
 742                         {\r
 743                                 DispTransFileInfo(TransPacketBase, MSGJPN083, FALSE, YES);\r
 744 \r
 745                                 DelNotify = MirrorDelNotify(WIN_LOCAL, DelNotify, TransPacketBase);\r
 746                                 if((DelNotify == YES) || (DelNotify == YES_ALL))\r
 747                                 {\r
 748                                         Down = YES;\r
 749                                         DoLocalRMD(TransPacketBase->LocalFile);\r
 750                                 }\r
 751                         }\r
 752                         /* \83t\83@\83C\83\8b\8dí\8f\9c\81i\8fí\82É\83\8d\81[\83J\83\8b\91¤\81j */\r
 753                         else if(strncmp(TransPacketBase->Cmd, "L-DELE", 6) == 0)\r
 754                         {\r
 755                                 DispTransFileInfo(TransPacketBase, MSGJPN084, FALSE, YES);\r
 756 \r
 757                                 DelNotify = MirrorDelNotify(WIN_LOCAL, DelNotify, TransPacketBase);\r
 758                                 if((DelNotify == YES) || (DelNotify == YES_ALL))\r
 759                                 {\r
 760                                         Down = YES;\r
 761                                         DoLocalDELE(TransPacketBase->LocalFile);\r
 762                                 }\r
 763                         }\r
 764                         /* \83J\83\8c\83\93\83g\83f\83B\83\8c\83N\83g\83\8a\82ð\90Ý\92è */\r
 765                         else if(strcmp(TransPacketBase->Cmd, "SETCUR") == 0)\r
 766                         {\r
 767                                 if(AskShareProh() == YES)\r
 768                                 {\r
 769                                         if(strcmp(CurDir, TransPacketBase->RemoteFile) != 0)\r
 770                                         {\r
 771                                                 if(CommandProcTrn(NULL, "CWD %s", TransPacketBase->RemoteFile)/100 != FTP_COMPLETE)\r
 772                                                 {\r
 773                                                         DispCWDerror(hWndTrans);\r
 774                                                         ClearAll = YES;\r
 775                                                 }\r
 776                                         }\r
 777                                 }\r
 778                                 strcpy(CurDir, TransPacketBase->RemoteFile);\r
 779                         }\r
 780                         /* \83J\83\8c\83\93\83g\83f\83B\83\8c\83N\83g\83\8a\82ð\96ß\82· */\r
 781                         else if(strcmp(TransPacketBase->Cmd, "BACKCUR") == 0)\r
 782                         {\r
 783                                 if(AskShareProh() == NO)\r
 784                                 {\r
 785                                         if(strcmp(CurDir, TransPacketBase->RemoteFile) != 0)\r
 786                                                 CommandProcTrn(NULL, "CWD %s", TransPacketBase->RemoteFile);\r
 787                                         strcpy(CurDir, TransPacketBase->RemoteFile);\r
 788                                 }\r
 789                         }\r
 790                         /* \8e©\93®\8fI\97¹\82Ì\82½\82ß\82Ì\92Ê\92m */\r
 791                         else if(strcmp(TransPacketBase->Cmd, "GOQUIT") == 0)\r
 792                         {\r
 793                                 GoExit = YES;\r
 794                         }\r
 795 \r
 796                         /*===== \82P\82Â\82Ì\8f\88\97\9d\8fI\82í\82è =====*/\r
 797 \r
 798                         if(ForceAbort == NO)\r
 799                         {\r
 800                                 WaitForSingleObject(hListAccMutex, INFINITE);\r
 801                                 if(ClearAll == YES)\r
 802                                         EraseTransFileList();\r
 803                                 else\r
 804                                 {\r
 805                                         if((strncmp(TransPacketBase->Cmd, "RETR", 4) == 0) ||\r
 806                                            (strncmp(TransPacketBase->Cmd, "STOR", 4) == 0))\r
 807                                         {\r
 808                                                 TransFiles--;\r
 809                                                 PostMessage(GetMainHwnd(), WM_CHANGE_COND, 0, 0);\r
 810                                         }\r
 811                                         Pos = TransPacketBase;\r
 812                                         TransPacketBase = TransPacketBase->Next;\r
 813                                         free(Pos);\r
 814                                 }\r
 815                                 ClearAll = NO;\r
 816                                 ReleaseMutex(hListAccMutex);\r
 817 \r
 818                                 if(BackgrndMessageProc() == YES)\r
 819                                 {\r
 820                                         WaitForSingleObject(hListAccMutex, INFINITE);\r
 821                                         EraseTransFileList();\r
 822                                         ReleaseMutex(hListAccMutex);\r
 823                                 }\r
 824                         }\r
 825                 }\r
 826                 else\r
 827                 {\r
 828                         DelNotify = NO;\r
 829 \r
 830                         ReleaseMutex(hListAccMutex);\r
 831                         if(KeepDlg == NO)\r
 832                         {\r
 833                                 if(hWndTrans != NULL)\r
 834                                 {\r
 835                                         DestroyWindow(hWndTrans);\r
 836                                         hWndTrans = NULL;\r
 837 \r
 838                                         if(GoExit == YES)\r
 839                                         {\r
 840                                                 SoundPlay(SND_TRANS);\r
 841 \r
 842                                                 if(AskAutoExit() == NO)\r
 843                                                 {\r
 844                                                         if(Down == YES)\r
 845                                                                 PostMessage(GetMainHwnd(), WM_REFRESH_LOCAL_FLG, 0, 0);\r
 846                                                         if(Up == YES)\r
 847                                                                 PostMessage(GetMainHwnd(), WM_REFRESH_REMOTE_FLG, 0, 0);\r
 848                                                 }\r
 849                                                 Down = NO;\r
 850                                                 Up = NO;\r
 851                                         }\r
 852                                 }\r
 853                         }\r
 854                         BackgrndMessageProc();\r
 855 \r
 856                         if(GoExit == YES)\r
 857                         {\r
 858                                 PostMessage(GetMainHwnd(), WM_COMMAND, MAKEWPARAM(MENU_AUTO_EXIT, 0), 0);\r
 859                                 GoExit = NO;\r
 860                         }\r
 861                 }\r
 862         }\r
 863         return 0;\r
 864 }\r
 865 \r
 866 \r
 867 /*----- \83t\83\8b\83p\83X\82ð\8eg\82í\82È\82¢\83t\83@\83C\83\8b\83A\83N\83Z\83X\82Ì\8f\80\94õ ------------------------------\r
 868 *\r
 869 *       Parameter\r
 870 *               TRANSPACKET *Pkt : \93]\91\97\83p\83P\83b\83g\r
 871 *               char *Cur : \83J\83\8c\83\93\83g\83f\83B\83\8c\83N\83g\83\8a\r
 872 *               char *Tmp : \8dì\8bÆ\97p\83G\83\8a\83A\r
 873 *\r
 874 *       Return Value\r
 875 *               int \83X\83e\81[\83^\83X(SUCCESS/FAIL)\r
 876 *\r
 877 *       Note\r
 878 *               \83t\83\8b\83p\83X\82ð\8eg\82í\82È\82¢\8e\9e\82Í\81A\r
 879 *                       \82±\82Ì\83\82\83W\83\85\81[\83\8b\93à\82Å CWD \82ð\8ds\82È\82¢\81A\r
 880 *                       Pkt->RemoteFile \82É\83t\83@\83C\83\8b\96¼\82Ì\82Ý\8ec\82·\81B\81i\83p\83X\96¼\82Í\8fÁ\82·\81j\r
 881 *----------------------------------------------------------------------------*/\r
 882 \r
 883 static int MakeNonFullPath(TRANSPACKET *Pkt, char *Cur, char *Tmp)\r
 884 {\r
 885         int Sts;\r
 886 \r
 887         Sts = ProcForNonFullpath(Pkt->RemoteFile, Cur, Pkt->hWndTrans, 1);\r
 888         if(Sts == FAIL)\r
 889                 ClearAll = YES;\r
 890 \r
 891         return(Sts);\r
 892 }\r
 893 \r
 894 \r
 895 \r
 896 \r
 897 /*----- \83_\83E\83\93\83\8d\81[\83h\82ð\8ds\82È\82¤ --------------------------------------------------\r
 898 *\r
 899 *       Parameter\r
 900 *               SOCKET cSkt : \83R\83\93\83g\83\8d\81[\83\8b\83\\83P\83b\83g\r
 901 *               TRANSPACKET *Pkt : \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\r
 902 *               int DirList : \83f\83B\83\8c\83N\83g\83\8a\83\8a\83X\83g\82Ì\83_\83E\83\93\83\8d\81[\83h(YES/NO)\r
 903 *\r
 904 *       Return Value\r
 905 *               int \89\9e\93\9a\83R\81[\83h\r
 906 *\r
 907 *       Note\r
 908 *               \82±\82Ì\83\82\83W\83\85\81[\83\8b\82Í\81A\83t\83@\83C\83\8b\88ê\97\97\82Ì\8eæ\93¾\82È\82Ç\82ð\8ds\82È\82¤\8dÛ\82É\83\81\83C\83\93\82Ì\83X\83\8c\83b\83h\r
 909 *               \82©\82ç\82à\8cÄ\82Î\82ê\82é\81B\83\81\83C\83\93\82Ì\83X\83\8c\83b\83h\82©\82ç\8cÄ\82Î\82ê\82é\8e\9e\82Í Pkt->hWndTrans == NULL\81B\r
 910 *----------------------------------------------------------------------------*/\r
 911 \r
 912 int DoDownLoad(SOCKET cSkt, TRANSPACKET *Pkt, int DirList, int *CancelCheckWork)\r
 913 {\r
 914         int iRetCode;\r
 915         char Reply[ERR_MSG_LEN+7];\r
 916 \r
 917         Pkt->ctrl_skt = cSkt;\r
 918         if(IsSpecialDevice(GetFileName(Pkt->LocalFile)) == YES)\r
 919         {\r
 920                 iRetCode = 500;\r
 921                 SetTaskMsg(MSGJPN085, GetFileName(Pkt->LocalFile));\r
 922                 DispDownloadFinishMsg(Pkt, iRetCode);\r
 923         }\r
 924         else if(Pkt->Mode != EXIST_IGNORE)\r
 925         {\r
 926                 if(Pkt->Type == TYPE_I)\r
 927                         Pkt->KanjiCode = KANJI_NOCNV;\r
 928 \r
 929                 iRetCode = command(Pkt->ctrl_skt, Reply, CancelCheckWork, "TYPE %c", Pkt->Type);\r
 930                 if(iRetCode/100 < FTP_RETRY)\r
 931                 {\r
 932                         if(Pkt->hWndTrans != NULL)\r
 933                         {\r
 934                                 AllTransSizeNow = 0;\r
 935 \r
 936                                 if(DirList == NO)\r
 937                                         DispTransFileInfo(Pkt, MSGJPN086, TRUE, YES);\r
 938                                 else\r
 939                                         DispTransFileInfo(Pkt, MSGJPN087, FALSE, NO);\r
 940                         }\r
 941 \r
 942                         if(BackgrndMessageProc() == NO)\r
 943                         {\r
 944                                 if(AskPasvMode() != YES)\r
 945                                         iRetCode = DownLoadNonPassive(Pkt, CancelCheckWork);\r
 946                                 else\r
 947                                         iRetCode = DownLoadPassive(Pkt, CancelCheckWork);\r
 948                         }\r
 949                         else\r
 950                                 iRetCode = 500;\r
 951                 }\r
 952                 else\r
 953                         SetErrorMsg(Reply);\r
 954         }\r
 955         else\r
 956         {\r
 957                 DispTransFileInfo(Pkt, MSGJPN088, TRUE, YES);\r
 958                 SetTaskMsg(MSGJPN089, Pkt->RemoteFile);\r
 959                 iRetCode = 200;\r
 960         }\r
 961         return(iRetCode);\r
 962 }\r
 963 \r
 964 \r
 965 /*----- \92Ê\8fí\83\82\81[\83h\82Å\83t\83@\83C\83\8b\82ð\83_\83E\83\93\83\8d\81[\83h ------------------------------------\r
 966 *\r
 967 *       Parameter\r
 968 *               TRANSPACKET *Pkt : \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\r
 969 *\r
 970 *       Return Value\r
 971 *               int \89\9e\93\9a\83R\81[\83h\r
 972 *----------------------------------------------------------------------------*/\r
 973 \r
 974 static int DownLoadNonPassive(TRANSPACKET *Pkt, int *CancelCheckWork)\r
 975 {\r
 976         int iRetCode;\r
 977         int iLength;\r
 978         SOCKET data_socket = INVALID_SOCKET;   // data channel socket\r
 979         SOCKET listen_socket = INVALID_SOCKET; // data listen socket\r
 980         char Buf[1024];\r
 981         int CreateMode;\r
 982         struct sockaddr_in saSockAddr1;\r
 983         char Reply[ERR_MSG_LEN+7];\r
 984 \r
 985         if((listen_socket = GetFTPListenSocket(Pkt->ctrl_skt, CancelCheckWork)) != INVALID_SOCKET)\r
 986         {\r
 987                 if(SetDownloadResume(Pkt, Pkt->Mode, Pkt->ExistSize, &CreateMode, CancelCheckWork) == YES)\r
 988                 {\r
 989                         sprintf(Buf, "%s%s", Pkt->Cmd, Pkt->RemoteFile);\r
 990                         iRetCode = command(Pkt->ctrl_skt, Reply, CancelCheckWork, "%s", Buf);\r
 991                         if(iRetCode/100 == FTP_PRELIM)\r
 992                         {\r
 993                                 if(SocksGet2ndBindReply(listen_socket, &data_socket) == FAIL)\r
 994                                 {\r
 995                                         iLength = sizeof(saSockAddr1);\r
 996                                         data_socket = do_accept(listen_socket, (struct sockaddr *)&saSockAddr1, (int *)&iLength);\r
 997 \r
 998                                         if(shutdown(listen_socket, 1) != 0)\r
 999                                                 ReportWSError("shutdown listen", WSAGetLastError());\r
1000                                         listen_socket = DoClose(listen_socket);\r
1001 \r
1002                                         if(data_socket == INVALID_SOCKET)\r
1003                                         {\r
1004                                                 SetErrorMsg(MSGJPN280);\r
1005                                                 ReportWSError("accept", WSAGetLastError());\r
1006                                                 iRetCode = 500;\r
1007                                         }\r
1008                                         else\r
1009                                                 DoPrintf("Skt=%u : accept from %s port %u", data_socket, inet_ntoa(saSockAddr1.sin_addr), ntohs(saSockAddr1.sin_port));\r
1010                                 }\r
1011 \r
1012                                 if(data_socket != INVALID_SOCKET)\r
1013                                 {\r
1014                                         iRetCode = DownLoadFile(Pkt, data_socket, CreateMode, CancelCheckWork);\r
1015 //                                      data_socket = DoClose(data_socket);\r
1016                                 }\r
1017                         }\r
1018                         else\r
1019                         {\r
1020                                 SetErrorMsg(Reply);\r
1021                                 SetTaskMsg(MSGJPN090);\r
1022                                 listen_socket = DoClose(listen_socket);\r
1023                                 iRetCode = 500;\r
1024                         }\r
1025                 }\r
1026                 else\r
1027                         iRetCode = 500;\r
1028         }\r
1029         else\r
1030         {\r
1031                 iRetCode = 500;\r
1032                 SetErrorMsg(MSGJPN279);\r
1033         }\r
1034         DispDownloadFinishMsg(Pkt, iRetCode);\r
1035 \r
1036         return(iRetCode);\r
1037 }\r
1038 \r
1039 \r
1040 /*----- Passive\83\82\81[\83h\82Å\83t\83@\83C\83\8b\82ð\83_\83E\83\93\83\8d\81[\83h ---------------------------------\r
1041 *\r
1042 *       Parameter\r
1043 *               TRANSPACKET *Pkt : \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\r
1044 *\r
1045 *       Return Value\r
1046 *               int \89\9e\93\9a\83R\81[\83h\r
1047 *----------------------------------------------------------------------------*/\r
1048 \r
1049 static int DownLoadPassive(TRANSPACKET *Pkt, int *CancelCheckWork)\r
1050 {\r
1051         int iRetCode;\r
1052         SOCKET data_socket = INVALID_SOCKET;   // data channel socket\r
1053         char Buf[1024];\r
1054         int CreateMode;\r
1055         char Adrs[20];\r
1056         int Port;\r
1057         int Flg;\r
1058         char Reply[ERR_MSG_LEN+7];\r
1059 \r
1060         iRetCode = command(Pkt->ctrl_skt, Buf, CancelCheckWork, "PASV");\r
1061         if(iRetCode/100 == FTP_COMPLETE)\r
1062         {\r
1063                 if(GetAdrsAndPort(Buf, Adrs, &Port, 19) == SUCCESS)\r
1064                 {\r
1065                         if((data_socket = connectsock(Adrs, Port, MSGJPN091, CancelCheckWork)) != INVALID_SOCKET)\r
1066                         {\r
1067                                 if(setsockopt(data_socket, IPPROTO_TCP, TCP_NODELAY, (LPSTR)&Flg, sizeof(Flg)) == SOCKET_ERROR)\r
1068                                         ReportWSError("setsockopt", WSAGetLastError());\r
1069 \r
1070                                 if(SetDownloadResume(Pkt, Pkt->Mode, Pkt->ExistSize, &CreateMode, CancelCheckWork) == YES)\r
1071                                 {\r
1072                                         sprintf(Buf, "%s%s", Pkt->Cmd, Pkt->RemoteFile);\r
1073                                         iRetCode = command(Pkt->ctrl_skt, Reply, CancelCheckWork, "%s", Buf);\r
1074                                         if(iRetCode/100 == FTP_PRELIM)\r
1075                                         {\r
1076                                                 iRetCode = DownLoadFile(Pkt, data_socket, CreateMode, CancelCheckWork);\r
1077 //                                              data_socket = DoClose(data_socket);\r
1078                                         }\r
1079                                         else\r
1080                                         {\r
1081                                                 SetErrorMsg(Reply);\r
1082                                                 SetTaskMsg(MSGJPN092);\r
1083                                                 data_socket = DoClose(data_socket);\r
1084                                                 iRetCode = 500;\r
1085                                         }\r
1086                                 }\r
1087                                 else\r
1088                                         iRetCode = 500;\r
1089                         }\r
1090                         else\r
1091                                 iRetCode = 500;\r
1092                 }\r
1093                 else\r
1094                 {\r
1095                         SetErrorMsg(MSGJPN093);\r
1096                         SetTaskMsg(MSGJPN093);\r
1097                         iRetCode = 500;\r
1098                 }\r
1099         }\r
1100         else\r
1101                 SetErrorMsg(Buf);\r
1102 \r
1103         DispDownloadFinishMsg(Pkt, iRetCode);\r
1104 \r
1105         return(iRetCode);\r
1106 }\r
1107 \r
1108 \r
1109 /*----- \83_\83E\83\93\83\8d\81[\83h\82Ì\8eÀ\8ds ----------------------------------------------------\r
1110 *\r
1111 *       Parameter\r
1112 *               TRANSPACKET *Pkt : \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\r
1113 *               SOCKET dSkt : \83f\81[\83^\83\\83P\83b\83g\r
1114 *               int CreateMode : \83t\83@\83C\83\8b\8dì\90¬\83\82\81[\83h (CREATE_ALWAYS/OPEN_ALWAYS)\r
1115 *\r
1116 *       Return Value\r
1117 *               int \89\9e\93\9a\83R\81[\83h\r
1118 *\r
1119 *       Note\r
1120 *               \93]\91\97\82Ì\8co\89ß\95\\8e¦\82Í\r
1121 *                       \83_\83C\83A\83\8d\83O\82ð\8fo\82·(Pkt->hWndTrans!=NULL)\8fê\8d\87\81A\83C\83\93\83^\81[\83o\83\8b\83^\83C\83}\82Å\8co\89ß\82ð\95\\8e¦\82·\82é\r
1122 *                       \83_\83C\83A\83\8d\83O\82ð\8fo\82³\82È\82¢\8fê\8d\87\81A\82±\82Ì\83\8b\81[\83`\83\93\82©\82çDispDownloadSize()\82ð\8cÄ\82Ô\r
1123 *----------------------------------------------------------------------------*/\r
1124 \r
1125 static int DownLoadFile(TRANSPACKET *Pkt, SOCKET dSkt, int CreateMode, int *CancelCheckWork)\r
1126 {\r
1127         int iNumBytes;\r
1128         char Buf[BUFSIZE];\r
1129         char Buf2[BUFSIZE+3];\r
1130         HANDLE iFileHandle;\r
1131         SECURITY_ATTRIBUTES Sec;\r
1132         DWORD Writed;\r
1133         CODECONVINFO cInfo;\r
1134         int Continue;\r
1135 //      fd_set ReadFds;\r
1136 //      struct timeval Tout;\r
1137 //      struct timeval *ToutPtr;\r
1138         int iRetCode;\r
1139         int TimeOutErr;\r
1140         char TmpBuf[ONELINE_BUF_SIZE];\r
1141         DWORD dwFileAttributes;\r
1142 \r
1143 #ifdef SET_BUFFER_SIZE\r
1144 /* Add by H.Shirouzu at 2002/10/02 */\r
1145         int buf_size = SOCKBUF_SIZE;\r
1146         for ( ; buf_size > 0; buf_size /= 2)\r
1147                 if (setsockopt(dSkt, SOL_SOCKET, SO_RCVBUF, (char *)&buf_size, sizeof(buf_size)) == 0)\r
1148                         break;\r
1149 /* End */\r
1150 #endif\r
1151 \r
1152         Pkt->Abort = ABORT_NONE;\r
1153 \r
1154         Sec.nLength = sizeof(SECURITY_ATTRIBUTES);\r
1155         Sec.lpSecurityDescriptor = NULL;\r
1156         Sec.bInheritHandle = FALSE;\r
1157 \r
1158         dwFileAttributes = GetFileAttributes(Pkt->LocalFile);\r
1159         if (dwFileAttributes != INVALID_FILE_ATTRIBUTES && (dwFileAttributes & FILE_ATTRIBUTE_READONLY)) {\r
1160                 // \93Ç\82Ý\8eæ\82è\90ê\97p\r
1161                 if (MessageBox(GetMainHwnd(), MSGJPN296, MSGJPN086, MB_YESNO) == IDYES) {\r
1162                         // \91®\90«\82ð\89ð\8f\9c\r
1163                         SetFileAttributes(Pkt->LocalFile, dwFileAttributes ^ FILE_ATTRIBUTE_READONLY);\r
1164                 }\r
1165         }\r
1166 \r
1167         if((iFileHandle = CreateFile(Pkt->LocalFile, GENERIC_READ | GENERIC_WRITE, FILE_SHARE_READ | FILE_SHARE_WRITE, &Sec, CreateMode, FILE_ATTRIBUTE_NORMAL, NULL)) != INVALID_HANDLE_VALUE)\r
1168         {\r
1169                 if(CreateMode == OPEN_ALWAYS)\r
1170                         SetFilePointer(iFileHandle, 0, 0, FILE_END);\r
1171 \r
1172                 if(Pkt->hWndTrans != NULL)\r
1173                 {\r
1174                         TimeStart = time(NULL);\r
1175                         SetTimer(Pkt->hWndTrans, TIMER_DISPLAY, DISPLAY_TIMING, NULL);\r
1176                 }\r
1177 \r
1178                 InitCodeConvInfo(&cInfo);\r
1179                 cInfo.KanaCnv = Pkt->KanaCnv;\r
1180 \r
1181                 /*===== \83t\83@\83C\83\8b\82ð\8eó\90M\82·\82é\83\8b\81[\83v =====*/\r
1182                 while((Pkt->Abort == ABORT_NONE) && (ForceAbort == NO))\r
1183                 {\r
1184 //                      FD_ZERO(&ReadFds);\r
1185 //                      FD_SET(dSkt, &ReadFds);\r
1186 //                      ToutPtr = NULL;\r
1187 //                      if(TimeOut != 0)\r
1188 //                      {\r
1189 //                              Tout.tv_sec = TimeOut;\r
1190 //                              Tout.tv_usec = 0;\r
1191 //                              ToutPtr = &Tout;\r
1192 //                      }\r
1193 //                      iNumBytes = select(0, &ReadFds, NULL, NULL, ToutPtr);\r
1194 //                      if(iNumBytes == SOCKET_ERROR)\r
1195 //                      {\r
1196 //                              ReportWSError("select", WSAGetLastError());\r
1197 //                              if(Pkt->Abort == ABORT_NONE)\r
1198 //                                      Pkt->Abort = ABORT_ERROR;\r
1199 //                              break;\r
1200 //                      }\r
1201 //                      else if(iNumBytes == 0)\r
1202 //                      {\r
1203 //                              SetErrorMsg(MSGJPN094);\r
1204 //                              SetTaskMsg(MSGJPN094);\r
1205 //                              Pkt->Abort = ABORT_ERROR;\r
1206 //                              break;\r
1207 //                      }\r
1208 \r
1209                         if((iNumBytes = do_recv(dSkt, Buf, BUFSIZE, 0, &TimeOutErr, CancelCheckWork)) <= 0)\r
1210                         {\r
1211                                 if(TimeOutErr == YES)\r
1212                                 {\r
1213                                         SetErrorMsg(MSGJPN094);\r
1214                                         SetTaskMsg(MSGJPN094);\r
1215                                         if(Pkt->hWndTrans != NULL)\r
1216                                                 ClearAll = YES;\r
1217                                         if(Pkt->Abort == ABORT_NONE)\r
1218                                                 Pkt->Abort = ABORT_ERROR;\r
1219                                 }\r
1220                                 else if(iNumBytes == SOCKET_ERROR)\r
1221                                 {\r
1222                                         if(Pkt->Abort == ABORT_NONE)\r
1223                                                 Pkt->Abort = ABORT_ERROR;\r
1224                                 }\r
1225                                 break;\r
1226                         }\r
1227 \r
1228                         /* \8a¿\8e\9a\83R\81[\83h\95Ï\8a· */\r
1229                         if(Pkt->KanjiCode != KANJI_NOCNV)\r
1230                         {\r
1231                                 cInfo.Str = Buf;\r
1232                                 cInfo.StrLen = iNumBytes;\r
1233                                 cInfo.Buf = Buf2;\r
1234                                 cInfo.BufSize = BUFSIZE+3;\r
1235                                 do\r
1236                                 {\r
1237                                         if(Pkt->KanjiCode == KANJI_JIS)\r
1238                                                 Continue = ConvJIStoSJIS(&cInfo);\r
1239                                         else\r
1240                                                 Continue = ConvEUCtoSJIS(&cInfo);\r
1241                                         if(WriteFile(iFileHandle, Buf2, cInfo.OutLen, &Writed, NULL) == FALSE)\r
1242                                                 Pkt->Abort = ABORT_DISKFULL;\r
1243                                 }\r
1244                                 while((Continue == YES) && (Pkt->Abort == ABORT_NONE));\r
1245                         }\r
1246                         else\r
1247                         {\r
1248                                 if(WriteFile(iFileHandle, Buf, iNumBytes, &Writed, NULL) == FALSE)\r
1249                                         Pkt->Abort = ABORT_DISKFULL;\r
1250                         }\r
1251 \r
1252                         Pkt->ExistSize += iNumBytes;\r
1253                         if(Pkt->hWndTrans != NULL)\r
1254                                 AllTransSizeNow += iNumBytes;\r
1255                         else\r
1256                         {\r
1257                                 /* \93]\91\97\83_\83C\83A\83\8d\83O\82ð\8fo\82³\82È\82¢\8e\9e\82Ì\8co\89ß\95\\8e¦ */\r
1258                                 DispDownloadSize(Pkt->ExistSize);\r
1259                         }\r
1260 \r
1261                         if(BackgrndMessageProc() == YES)\r
1262                                 ForceAbort = YES;\r
1263                 }\r
1264 \r
1265                 /* \8f\91\82«\8ec\82µ\82½\83f\81[\83^\82ð\8f\91\82«\8d\9e\82Þ */\r
1266                 if(Pkt->KanjiCode != KANJI_NOCNV)\r
1267                 {\r
1268                         cInfo.Buf = Buf2;\r
1269                         cInfo.BufSize = BUFSIZE+3;\r
1270                         FlushRestData(&cInfo);\r
1271                         if(WriteFile(iFileHandle, Buf2, cInfo.OutLen, &Writed, NULL) == FALSE)\r
1272                                 Pkt->Abort = ABORT_DISKFULL;\r
1273                 }\r
1274 \r
1275                 /* \83O\83\89\83t\95\\8e¦\82ð\8dX\90V */\r
1276                 if(Pkt->hWndTrans != NULL)\r
1277                 {\r
1278                         KillTimer(Pkt->hWndTrans, TIMER_DISPLAY);\r
1279                         DispTransferStatus(Pkt->hWndTrans, YES, Pkt);\r
1280                         TimeStart = time(NULL) - TimeStart + 1;\r
1281                 }\r
1282                 else\r
1283                 {\r
1284                         /* \93]\91\97\83_\83C\83A\83\8d\83O\82ð\8fo\82³\82È\82¢\8e\9e\82Ì\8co\89ß\95\\8e¦\82ð\8fÁ\82· */\r
1285                         DispDownloadSize(-1);\r
1286                 }\r
1287 \r
1288                 /* \83t\83@\83C\83\8b\82Ì\83^\83C\83\80\83X\83^\83\93\83v\82ð\8d\87\82í\82¹\82é */\r
1289                 if((SaveTimeStamp == YES) &&\r
1290                    ((Pkt->Time.dwLowDateTime != 0) || (Pkt->Time.dwHighDateTime != 0)))\r
1291                 {\r
1292                         SetFileTime(iFileHandle, &Pkt->Time, &Pkt->Time, &Pkt->Time);\r
1293                 }\r
1294 \r
1295                 CloseHandle(iFileHandle);\r
1296 \r
1297                 if(iNumBytes == SOCKET_ERROR)\r
1298                         ReportWSError("recv",WSAGetLastError());\r
1299         }\r
1300         else\r
1301         {\r
1302                 SetErrorMsg(MSGJPN095, Pkt->LocalFile);\r
1303                 SetTaskMsg(MSGJPN095, Pkt->LocalFile);\r
1304                 Pkt->Abort = ABORT_ERROR;\r
1305         }\r
1306 \r
1307 \r
1308         if(shutdown(dSkt, 1) != 0)\r
1309                 ReportWSError("shutdown", WSAGetLastError());\r
1310 \r
1311         DoClose(dSkt);\r
1312 \r
1313         if(ForceAbort == NO)\r
1314         {\r
1315                 /* Abort\82ð\83z\83X\83g\82É\93`\82¦\82é */\r
1316                 if(Pkt->Abort != ABORT_NONE && iFileHandle != INVALID_HANDLE_VALUE)\r
1317                 {\r
1318                         SendData(Pkt->ctrl_skt, "\xFF\xF4\xFF", 3, MSG_OOB, CancelCheckWork);   /* MSG_OOB\82É\92\8d\88Ó */\r
1319                         SendData(Pkt->ctrl_skt, "\xF2", 1, 0, CancelCheckWork);\r
1320                         command(Pkt->ctrl_skt, NULL, CancelCheckWork, "ABOR");\r
1321                 }\r
1322         }\r
1323 \r
1324         iRetCode = ReadReplyMessage(Pkt->ctrl_skt, Buf, 1024, CancelCheckWork, TmpBuf);\r
1325 \r
1326 //#pragma aaa\r
1327 //DoPrintf("##DOWN REPLY : %s", Buf);\r
1328 \r
1329         if(Pkt->Abort == ABORT_DISKFULL)\r
1330         {\r
1331                 SetErrorMsg(MSGJPN096);\r
1332                 SetTaskMsg(MSGJPN096);\r
1333         }\r
1334         if(iRetCode >= FTP_RETRY)\r
1335                 SetErrorMsg(Buf);\r
1336         if(Pkt->Abort != ABORT_NONE)\r
1337                 iRetCode = 500;\r
1338 \r
1339         return(iRetCode);\r
1340 }\r
1341 \r
1342 \r
1343 /*----- \83_\83E\83\93\83\8d\81[\83h\8fI\97¹\81^\92\86\8e~\8e\9e\82Ì\83\81\83b\83Z\81[\83W\82ð\95\\8e¦ ----------------------------\r
1344 *\r
1345 *       Parameter\r
1346 *               TRANSPACKET *Pkt : \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\r
1347 *               int iRetCode : \89\9e\93\9a\83R\81[\83h\r
1348 *\r
1349 *       Return Value\r
1350 *               \82È\82µ\r
1351 *----------------------------------------------------------------------------*/\r
1352 \r
1353 static void DispDownloadFinishMsg(TRANSPACKET *Pkt, int iRetCode)\r
1354 {\r
1355         char Fname[FMAX_PATH+1];\r
1356 \r
1357         if(ForceAbort == NO)\r
1358         {\r
1359                 if((iRetCode/100) >= FTP_CONTINUE)\r
1360                 {\r
1361                         strcpy(Fname, Pkt->RemoteFile);\r
1362 \r
1363 #if defined(HAVE_OPENVMS)\r
1364                         /* OpenVMS\82Ì\8fê\8d\87\81A\8bó\83f\83B\83\8c\83N\83g\83\8a\82Ö\88Ú\93®\82·\82é\82Æ550 File not found\82É\82È\82Á\82Ä\r
1365                          * \83G\83\89\81[\83_\83C\83A\83\8d\83O\82â\83G\83\89\81[\83\81\83b\83Z\81[\83W\82ª\8fo\82é\82Ì\82Å\89½\82à\82µ\82È\82¢ */\r
1366                         if (AskHostType() == HTYPE_VMS)\r
1367                                 return;\r
1368 #endif\r
1369 \r
1370                         if((strncmp(Pkt->Cmd, "NLST", 4) == 0) || (strncmp(Pkt->Cmd, "LIST", 4) == 0))\r
1371                         {\r
1372                                 SetTaskMsg(MSGJPN097);\r
1373                                 strcpy(Fname, MSGJPN098);\r
1374                         }\r
1375                         else if((Pkt->hWndTrans != NULL) && (TimeStart != 0))\r
1376                                 SetTaskMsg(MSGJPN099, TimeStart, Pkt->ExistSize/TimeStart);\r
1377                         else\r
1378                                 SetTaskMsg(MSGJPN100);\r
1379 \r
1380                         if(Pkt->Abort != ABORT_USER)\r
1381                         {\r
1382                                 if(DispUpDownErrDialog(downerr_dlg, Pkt->hWndTrans, Fname) == NO)\r
1383                                         ClearAll = YES;\r
1384                         }\r
1385                 }\r
1386                 else\r
1387                 {\r
1388                         if((strncmp(Pkt->Cmd, "NLST", 4) == 0) || (strncmp(Pkt->Cmd, "LIST", 4) == 0))\r
1389                                 SetTaskMsg(MSGJPN101, Pkt->ExistSize);\r
1390                         else if((Pkt->hWndTrans != NULL) && (TimeStart != 0))\r
1391                                 SetTaskMsg(MSGJPN102, TimeStart, Pkt->ExistSize/TimeStart);\r
1392                         else\r
1393                                 SetTaskMsg(MSGJPN103, Pkt->ExistSize);\r
1394                 }\r
1395         }\r
1396         return;\r
1397 }\r
1398 \r
1399 \r
1400 /*----- \83_\83E\83\93\83\8d\81[\83h\81^\83A\83b\83v\83\8d\81[\83h\83G\83\89\81[\82Ì\83_\83C\83A\83\8d\83O\82ð\95\\8e¦ --------------------\r
1401 *\r
1402 *       Parameter\r
1403 *               int RedID : \83_\83C\83A\83\8d\83O\83{\83b\83N\83X\82Ì\83\8a\83\\81[\83XID\r
1404 *               HWND hWnd : \8f\91\82«\8d\9e\82Ý\92\86\83_\83C\83A\83\8d\83O\82Ì\83E\83C\83\93\83h\83E\r
1405 *               char *Fname : \83t\83@\83C\83\8b\96¼\r
1406 *\r
1407 *       Return Value\r
1408 *               int \83X\83e\81[\83^\83X (YES=\92\86\8e~/NO=\91S\82Ä\92\86\8e~)\r
1409 *----------------------------------------------------------------------------*/\r
1410 \r
1411 static int DispUpDownErrDialog(int ResID, HWND hWnd, char *Fname)\r
1412 {\r
1413         if(hWnd == NULL)\r
1414                 hWnd = GetMainHwnd();\r
1415 \r
1416         SoundPlay(SND_ERROR);\r
1417         return(DialogBoxParam(GetFtpInst(), MAKEINTRESOURCE(ResID), hWnd, UpDownErrorDialogProc, (LPARAM)Fname));\r
1418 }\r
1419 \r
1420 \r
1421 /*----- \83_\83E\83\93\83\8d\81[\83h\83G\83\89\81[\81^\83A\83b\83v\83\8d\81[\83h\83G\83\89\81[\83_\83C\83A\83\8d\83O\82Ì\83R\81[\83\8b\83o\83b\83N --------\r
1422 *\r
1423 *       Parameter\r
1424 *               HWND hDlg : \83E\83C\83\93\83h\83E\83n\83\93\83h\83\8b\r
1425 *               UINT message : \83\81\83b\83Z\81[\83W\94Ô\8d\86\r
1426 *               WPARAM wParam : \83\81\83b\83Z\81[\83W\82Ì WPARAM \88ø\90\94\r
1427 *               LPARAM lParam : \83\81\83b\83Z\81[\83W\82Ì LPARAM \88ø\90\94\r
1428 *\r
1429 *       Return Value\r
1430 *               BOOL TRUE/FALSE\r
1431 *----------------------------------------------------------------------------*/\r
1432 \r
1433 static BOOL CALLBACK UpDownErrorDialogProc(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)\r
1434 {\r
1435         switch (message)\r
1436         {\r
1437                 case WM_INITDIALOG :\r
1438                         SendDlgItemMessage(hDlg, UPDOWN_ERR_FNAME, WM_SETTEXT, 0, (LPARAM)lParam);\r
1439                         SendDlgItemMessage(hDlg, UPDOWN_ERR_MSG, WM_SETTEXT, 0, (LPARAM)ErrMsg);\r
1440                         return(TRUE);\r
1441 \r
1442                 case WM_COMMAND :\r
1443                         switch(GET_WM_COMMAND_ID(wParam, lParam))\r
1444                         {\r
1445                                 case IDOK :\r
1446                                         EndDialog(hDlg, YES);\r
1447                                         break;\r
1448 \r
1449                                 case IDCANCEL :\r
1450                                         EndDialog(hDlg, NO);\r
1451                                         break;\r
1452                         }\r
1453                         return(TRUE);\r
1454         }\r
1455     return(FALSE);\r
1456 }\r
1457 \r
1458 \r
1459 /*----- \83_\83E\83\93\83\8d\81[\83h\82Ì\83\8a\83W\83\85\81[\83\80\82Ì\8f\80\94õ\82ð\8ds\82¤ ----------------------------------\r
1460 *\r
1461 *       Parameter\r
1462 *               TRANSPACKET *Pkt : \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\r
1463 *               iont ProcMode : \8f\88\97\9d\83\82\81[\83h(EXIST_xxx)\r
1464 *               LONGLONG Size : \83\8d\81[\83h\8dÏ\82Ý\82Ì\83t\83@\83C\83\8b\82Ì\83T\83C\83Y\r
1465 *               int *Mode : \83t\83@\83C\83\8b\8dì\90¬\83\82\81[\83h (CREATE_xxxx)\r
1466 *\r
1467 *       Return Value\r
1468 *               int \93]\91\97\82ð\8ds\82¤\82©\82Ç\82¤\82©(YES/NO=\82±\82Ì\83t\83@\83C\83\8b\82ð\92\86\8e~/NO_ALL=\91S\82Ä\92\86\8e~)\r
1469 *\r
1470 *       Note\r
1471 *               Pkt->ExistSize\82Ì\83Z\83b\83g\82ð\8ds\82È\82¤\r
1472 *----------------------------------------------------------------------------*/\r
1473 \r
1474 static int SetDownloadResume(TRANSPACKET *Pkt, int ProcMode, LONGLONG Size, int *Mode, int *CancelCheckWork)\r
1475 {\r
1476         int iRetCode;\r
1477         int Com;\r
1478         char Reply[ERR_MSG_LEN+7];\r
1479         char Tmp[40];\r
1480 \r
1481         Com = YES;\r
1482 \r
1483         Pkt->ExistSize = 0;\r
1484         *Mode = CREATE_ALWAYS;\r
1485 \r
1486         if(ProcMode == EXIST_RESUME)\r
1487         {\r
1488                 iRetCode = command(Pkt->ctrl_skt, Reply, CancelCheckWork, "REST %s", MakeNumString(Size, Tmp, FALSE));\r
1489                 if(iRetCode/100 < FTP_RETRY)\r
1490                 {\r
1491                         /* \83\8a\83W\83\85\81[\83\80 */\r
1492                         if(Pkt->hWndTrans != NULL)\r
1493                                 Pkt->ExistSize = Size;\r
1494                         *Mode = OPEN_ALWAYS;\r
1495                 }\r
1496                 else\r
1497                 {\r
1498                         Com = DialogBox(GetFtpInst(), MAKEINTRESOURCE(noresume_dlg), Pkt->hWndTrans, NoResumeWndProc);\r
1499                         if(Com != YES)\r
1500                         {\r
1501                                 if(Com == NO_ALL)               /* \91S\82Ä\92\86\8e~ */\r
1502                                         ClearAll = YES;\r
1503                                 Pkt->Abort = ABORT_USER;\r
1504                         }\r
1505                 }\r
1506         }\r
1507         return(Com);\r
1508 }\r
1509 \r
1510 \r
1511 /*----- resume\83G\83\89\81[\83_\83C\83A\83\8d\83O\82Ì\83R\81[\83\8b\83o\83b\83N ----------------------------------\r
1512 *\r
1513 *       Parameter\r
1514 *               HWND hDlg : \83E\83C\83\93\83h\83E\83n\83\93\83h\83\8b\r
1515 *               UINT message : \83\81\83b\83Z\81[\83W\94Ô\8d\86\r
1516 *               WPARAM wParam : \83\81\83b\83Z\81[\83W\82Ì WPARAM \88ø\90\94\r
1517 *               LPARAM lParam : \83\81\83b\83Z\81[\83W\82Ì LPARAM \88ø\90\94\r
1518 *\r
1519 *       Return Value\r
1520 *               BOOL TRUE/FALSE\r
1521 *----------------------------------------------------------------------------*/\r
1522 \r
1523 static BOOL CALLBACK NoResumeWndProc(HWND hDlg, UINT iMessage, WPARAM wParam, LPARAM lParam)\r
1524 {\r
1525         switch (iMessage)\r
1526         {\r
1527                 case WM_INITDIALOG :\r
1528                         return(TRUE);\r
1529 \r
1530                 case WM_COMMAND :\r
1531                         switch(GET_WM_COMMAND_ID(wParam, lParam))\r
1532                         {\r
1533                                 case IDOK :\r
1534                                         EndDialog(hDlg, YES);\r
1535                                         break;\r
1536 \r
1537                                 case IDCANCEL :\r
1538                                         EndDialog(hDlg, NO);\r
1539                                         break;\r
1540 \r
1541                                 case RESUME_CANCEL_ALL :\r
1542                                         EndDialog(hDlg, NO_ALL);\r
1543                                         break;\r
1544                         }\r
1545             return(TRUE);\r
1546         }\r
1547         return(FALSE);\r
1548 }\r
1549 \r
1550 \r
1551 \r
1552 /*----- \83A\83b\83v\83\8d\81[\83h\82ð\8ds\82È\82¤ --------------------------------------------------\r
1553 *\r
1554 *       Parameter\r
1555 *               SOCKET cSkt : \83R\83\93\83g\83\8d\81[\83\8b\83\\83P\83b\83g\r
1556 *               TRANSPACKET *Pkt : \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\r
1557 *\r
1558 *       Return Value\r
1559 *               int \89\9e\93\9a\83R\81[\83h\r
1560 *----------------------------------------------------------------------------*/\r
1561 \r
1562 static int DoUpLoad(SOCKET cSkt, TRANSPACKET *Pkt)\r
1563 {\r
1564         int iRetCode;\r
1565         char Reply[ERR_MSG_LEN+7];\r
1566 \r
1567         Pkt->ctrl_skt = cSkt;\r
1568 \r
1569         if(Pkt->Mode != EXIST_IGNORE)\r
1570         {\r
1571                 if(CheckFileReadable(Pkt->LocalFile) == SUCCESS)\r
1572                 {\r
1573                         if(Pkt->Type == TYPE_I)\r
1574                                 Pkt->KanjiCode = KANJI_NOCNV;\r
1575 \r
1576                         iRetCode = command(Pkt->ctrl_skt, Reply, &Canceled, "TYPE %c", Pkt->Type);\r
1577                         if(iRetCode/100 < FTP_RETRY)\r
1578                         {\r
1579                                 if(Pkt->Mode == EXIST_UNIQUE)\r
1580                                         strcpy(Pkt->Cmd, "STOU ");\r
1581 \r
1582                                 if(Pkt->hWndTrans != NULL)\r
1583                                         DispTransFileInfo(Pkt, MSGJPN104, TRUE, YES);\r
1584 \r
1585                                 if(BackgrndMessageProc() == NO)\r
1586                                 {\r
1587                                         if(AskPasvMode() != YES)\r
1588                                                 iRetCode = UpLoadNonPassive(Pkt);\r
1589                                         else\r
1590                                                 iRetCode = UpLoadPassive(Pkt);\r
1591                                 }\r
1592                                 else\r
1593                                         iRetCode = 500;\r
1594                         }\r
1595                         else\r
1596                                 SetErrorMsg(Reply);\r
1597 \r
1598                         /* \91®\90«\95Ï\8dX */\r
1599                         if((Pkt->Attr != -1) && ((iRetCode/100) == FTP_COMPLETE))\r
1600                                 command(Pkt->ctrl_skt, Reply, &Canceled, "%s %03X %s", AskHostChmodCmd(), Pkt->Attr, Pkt->RemoteFile);\r
1601                 }\r
1602                 else\r
1603                 {\r
1604                         SetErrorMsg(MSGJPN105, Pkt->LocalFile);\r
1605                         SetTaskMsg(MSGJPN105, Pkt->LocalFile);\r
1606                         iRetCode = 500;\r
1607                         Pkt->Abort = ABORT_ERROR;\r
1608                         DispUploadFinishMsg(Pkt, iRetCode);\r
1609                 }\r
1610         }\r
1611         else\r
1612         {\r
1613                 DispTransFileInfo(Pkt, MSGJPN106, TRUE, YES);\r
1614                 SetTaskMsg(MSGJPN107, Pkt->LocalFile);\r
1615                 iRetCode = 200;\r
1616         }\r
1617         return(iRetCode);\r
1618 }\r
1619 \r
1620 \r
1621 /*----- \92Ê\8fí\83\82\81[\83h\82Å\83t\83@\83C\83\8b\82ð\83A\83b\83v\83\8d\81[\83h ------------------------------------\r
1622 *\r
1623 *       Parameter\r
1624 *               TRANSPACKET *Pkt : \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\r
1625 *\r
1626 *       Return Value\r
1627 *               int \89\9e\93\9a\83R\81[\83h\r
1628 *----------------------------------------------------------------------------*/\r
1629 \r
1630 static int UpLoadNonPassive(TRANSPACKET *Pkt)\r
1631 {\r
1632         int iRetCode;\r
1633         int iLength;\r
1634         SOCKET data_socket = INVALID_SOCKET;   // data channel socket\r
1635         SOCKET listen_socket = INVALID_SOCKET; // data listen socket\r
1636         char Buf[1024];\r
1637         struct sockaddr_in saSockAddr1;\r
1638         int Resume;\r
1639         char Reply[ERR_MSG_LEN+7];\r
1640 \r
1641         if((listen_socket = GetFTPListenSocket(Pkt->ctrl_skt, &Canceled)) != INVALID_SOCKET)\r
1642         {\r
1643                 SetUploadResume(Pkt, Pkt->Mode, Pkt->ExistSize, &Resume);\r
1644                 if(Resume == NO)\r
1645                         sprintf(Buf, "%s%s", Pkt->Cmd, Pkt->RemoteFile);\r
1646                 else\r
1647                         sprintf(Buf, "%s%s", "APPE ", Pkt->RemoteFile);\r
1648 \r
1649                 iRetCode = command(Pkt->ctrl_skt, Reply, &Canceled, "%s", Buf);\r
1650                 if((iRetCode/100) == FTP_PRELIM)\r
1651                 {\r
1652                         if(SocksGet2ndBindReply(listen_socket, &data_socket) == FAIL)\r
1653                         {\r
1654                                 iLength=sizeof(saSockAddr1);\r
1655                                 data_socket = do_accept(listen_socket,(struct sockaddr *)&saSockAddr1, (int *)&iLength);\r
1656 \r
1657                                 if(shutdown(listen_socket, 1) != 0)\r
1658                                         ReportWSError("shutdown listen", WSAGetLastError());\r
1659                                 listen_socket = DoClose(listen_socket);\r
1660 \r
1661                                 if(data_socket == INVALID_SOCKET)\r
1662                                 {\r
1663                                         SetErrorMsg(MSGJPN280);\r
1664                                         ReportWSError("accept", WSAGetLastError());\r
1665                                         iRetCode = 500;\r
1666                                 }\r
1667                                 else\r
1668                                         DoPrintf("Skt=%u : accept from %s port %u", data_socket, inet_ntoa(saSockAddr1.sin_addr), ntohs(saSockAddr1.sin_port));\r
1669                         }\r
1670 \r
1671                         if(data_socket != INVALID_SOCKET)\r
1672                         {\r
1673                                 iRetCode = UpLoadFile(Pkt, data_socket);\r
1674                                 data_socket = DoClose(data_socket);\r
1675                         }\r
1676                 }\r
1677                 else\r
1678                 {\r
1679                         SetErrorMsg(Reply);\r
1680                         SetTaskMsg(MSGJPN108);\r
1681                         listen_socket = DoClose(listen_socket);\r
1682                         iRetCode = 500;\r
1683                 }\r
1684         }\r
1685         else\r
1686         {\r
1687                 SetErrorMsg(MSGJPN279);\r
1688                 iRetCode = 500;\r
1689         }\r
1690         DispUploadFinishMsg(Pkt, iRetCode);\r
1691 \r
1692         return(iRetCode);\r
1693 }\r
1694 \r
1695 \r
1696 /*----- Passive\83\82\81[\83h\82Å\83t\83@\83C\83\8b\82ð\83A\83b\83v\83\8d\81[\83h ---------------------------------\r
1697 *\r
1698 *       Parameter\r
1699 *               TRANSPACKET *Pkt : \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\r
1700 *\r
1701 *       Return Value\r
1702 *               int \89\9e\93\9a\83R\81[\83h\r
1703 *----------------------------------------------------------------------------*/\r
1704 \r
1705 static int UpLoadPassive(TRANSPACKET *Pkt)\r
1706 {\r
1707         int iRetCode;\r
1708         SOCKET data_socket = INVALID_SOCKET;   // data channel socket\r
1709         char Buf[1024];\r
1710         char Adrs[20];\r
1711         int Port;\r
1712         int Flg;\r
1713         int Resume;\r
1714         char Reply[ERR_MSG_LEN+7];\r
1715 \r
1716         iRetCode = command(Pkt->ctrl_skt, Buf, &Canceled, "PASV");\r
1717         if(iRetCode/100 == FTP_COMPLETE)\r
1718         {\r
1719                 if(GetAdrsAndPort(Buf, Adrs, &Port, 19) == SUCCESS)\r
1720                 {\r
1721                         if((data_socket = connectsock(Adrs, Port, MSGJPN109, &Canceled)) != INVALID_SOCKET)\r
1722                         {\r
1723                                 if(setsockopt(data_socket, IPPROTO_TCP, TCP_NODELAY, (LPSTR)&Flg, sizeof(Flg)) == SOCKET_ERROR)\r
1724                                         ReportWSError("setsockopt", WSAGetLastError());\r
1725 \r
1726                                 SetUploadResume(Pkt, Pkt->Mode, Pkt->ExistSize, &Resume);\r
1727                                 if(Resume == NO)\r
1728                                         sprintf(Buf, "%s%s", Pkt->Cmd, Pkt->RemoteFile);\r
1729                                 else\r
1730                                         sprintf(Buf, "%s%s", "APPE ", Pkt->RemoteFile);\r
1731 \r
1732                                 iRetCode = command(Pkt->ctrl_skt, Reply, &Canceled, "%s", Buf);\r
1733                                 if(iRetCode/100 == FTP_PRELIM)\r
1734                                 {\r
1735                                         iRetCode = UpLoadFile(Pkt, data_socket);\r
1736 \r
1737                                         data_socket = DoClose(data_socket);\r
1738                                 }\r
1739                                 else\r
1740                                 {\r
1741                                         SetErrorMsg(Reply);\r
1742                                         SetTaskMsg(MSGJPN110);\r
1743                                         data_socket = DoClose(data_socket);\r
1744                                         iRetCode = 500;\r
1745                                 }\r
1746                         }\r
1747                         else\r
1748                         {\r
1749                                 SetErrorMsg(MSGJPN281);\r
1750                                 iRetCode = 500;\r
1751                         }\r
1752                 }\r
1753                 else\r
1754                 {\r
1755                         SetErrorMsg(Buf);\r
1756                         SetTaskMsg(MSGJPN111);\r
1757                         iRetCode = 500;\r
1758                 }\r
1759         }\r
1760         else\r
1761                 SetErrorMsg(Buf);\r
1762 \r
1763         DispUploadFinishMsg(Pkt, iRetCode);\r
1764 \r
1765         return(iRetCode);\r
1766 }\r
1767 \r
1768 \r
1769 /*----- \83A\83b\83v\83\8d\81[\83h\82Ì\8eÀ\8ds ----------------------------------------------------\r
1770 *\r
1771 *       Parameter\r
1772 *               TRANSPACKET *Pkt : \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\r
1773 *               SOCKET dSkt : \83f\81[\83^\83\\83P\83b\83g\r
1774 *\r
1775 *       Return Value\r
1776 *               int \89\9e\93\9a\83R\81[\83h\r
1777 *\r
1778 *       Note\r
1779 *               \93]\91\97\82Ì\8co\89ß\95\\8e¦\82Í\81A\83C\83\93\83^\81[\83o\83\8b\83^\83C\83}\82Å\8co\89ß\82ð\95\\8e¦\82·\82é\r
1780 *               \93]\91\97\83_\83C\83A\83\8d\83O\82ð\8fo\82³\82È\82¢\82Å\83A\83b\83v\83\8d\81[\83h\82·\82é\82±\82Æ\82Í\82È\82¢\r
1781 *----------------------------------------------------------------------------*/\r
1782 \r
1783 static int UpLoadFile(TRANSPACKET *Pkt, SOCKET dSkt)\r
1784 {\r
1785         DWORD iNumBytes;\r
1786         HANDLE iFileHandle;\r
1787         SECURITY_ATTRIBUTES Sec;\r
1788         char Buf[BUFSIZE];\r
1789         char Buf2[BUFSIZE+3];\r
1790         CODECONVINFO cInfo;\r
1791         TERMCODECONVINFO tInfo;\r
1792         int Continue;\r
1793         char *EofPos;\r
1794         int iRetCode;\r
1795 #if 0\r
1796         int TimeOutErr;\r
1797 #endif\r
1798         char TmpBuf[ONELINE_BUF_SIZE];\r
1799         DWORD Low;\r
1800         DWORD High;\r
1801 \r
1802 #ifdef SET_BUFFER_SIZE\r
1803 /* Add by H.Shirouzu at 2002/10/02 */\r
1804         int buf_size = SOCKBUF_SIZE;\r
1805         for ( ; buf_size > 0; buf_size /= 2)\r
1806                 if (setsockopt(dSkt, SOL_SOCKET, SO_SNDBUF, (char *)&buf_size, sizeof(buf_size)) == 0)\r
1807                         break;\r
1808 /* End */\r
1809 #endif\r
1810 \r
1811         Pkt->Abort = ABORT_NONE;\r
1812 \r
1813         Sec.nLength = sizeof(SECURITY_ATTRIBUTES);\r
1814         Sec.lpSecurityDescriptor = NULL;\r
1815         Sec.bInheritHandle = FALSE;\r
1816 \r
1817         if((iFileHandle = CreateFile(Pkt->LocalFile, GENERIC_READ,\r
1818                 FILE_SHARE_READ|FILE_SHARE_WRITE, &Sec, OPEN_EXISTING, 0, NULL)) != INVALID_HANDLE_VALUE)\r
1819         {\r
1820                 if(Pkt->hWndTrans != NULL)\r
1821                 {\r
1822                         Low = GetFileSize(iFileHandle, &High);\r
1823                         Pkt->Size = MakeLongLong(High, Low);\r
1824 \r
1825                         High = (DWORD)HIGH32(Pkt->ExistSize);\r
1826                         Low = (DWORD)LOW32(Pkt->ExistSize);\r
1827                         SetFilePointer(iFileHandle, Low, &High, FILE_BEGIN);\r
1828 \r
1829                         AllTransSizeNow = 0;\r
1830                         TimeStart = time(NULL);\r
1831                         SetTimer(Pkt->hWndTrans, TIMER_DISPLAY, DISPLAY_TIMING, NULL);\r
1832                 }\r
1833 \r
1834                 InitCodeConvInfo(&cInfo);\r
1835                 cInfo.KanaCnv = Pkt->KanaCnv;\r
1836                 InitTermCodeConvInfo(&tInfo);\r
1837 \r
1838                 /*===== \83t\83@\83C\83\8b\82ð\91\97\90M\82·\82é\83\8b\81[\83v =====*/\r
1839                 while((Pkt->Abort == ABORT_NONE) &&\r
1840                           (ForceAbort == NO) &&\r
1841                           (ReadFile(iFileHandle, Buf, BUFSIZE, &iNumBytes, NULL) == TRUE))\r
1842                 {\r
1843                         if(iNumBytes == 0)\r
1844                                 break;\r
1845 \r
1846                         /* EOF\8f\9c\8b\8e */\r
1847                         EofPos = NULL;\r
1848                         if((RmEOF == YES) && (Pkt->Type == TYPE_A))\r
1849                         {\r
1850                                 if((EofPos = memchr(Buf, 0x1A, iNumBytes)) != NULL)\r
1851                                         iNumBytes = EofPos - Buf;\r
1852                         }\r
1853 \r
1854                         /* \8a¿\8e\9a\83R\81[\83h\95Ï\8a· */\r
1855                         if(Pkt->KanjiCode != KANJI_NOCNV)\r
1856                         {\r
1857                                 cInfo.Str = Buf;\r
1858                                 cInfo.StrLen = iNumBytes;\r
1859                                 cInfo.Buf = Buf2;\r
1860                                 cInfo.BufSize = BUFSIZE+3;\r
1861                                 do\r
1862                                 {\r
1863                                         if(Pkt->KanjiCode == KANJI_JIS)\r
1864                                                 Continue = ConvSJIStoJIS(&cInfo);\r
1865                                         else\r
1866                                                 Continue = ConvSJIStoEUC(&cInfo);\r
1867 \r
1868                                         if(TermCodeConvAndSend(&tInfo, dSkt, Buf2, cInfo.OutLen, Pkt->Type) == FAIL)\r
1869                                         {\r
1870                                                 Pkt->Abort = ABORT_ERROR;\r
1871                                                         break;\r
1872                                         }\r
1873                                 }\r
1874                                 while(Continue == YES);\r
1875                         }\r
1876                         else\r
1877                         {\r
1878                                 if(TermCodeConvAndSend(&tInfo, dSkt, Buf, iNumBytes, Pkt->Type) == FAIL)\r
1879                                         Pkt->Abort = ABORT_ERROR;\r
1880                         }\r
1881 \r
1882                         Pkt->ExistSize += iNumBytes;\r
1883                         if(Pkt->hWndTrans != NULL)\r
1884                                 AllTransSizeNow += iNumBytes;\r
1885 \r
1886                         if(BackgrndMessageProc() == YES)\r
1887                                 ForceAbort = YES;\r
1888 \r
1889                         if(EofPos != NULL)\r
1890                                 break;\r
1891                 }\r
1892 \r
1893                 if((ForceAbort == NO) && (Pkt->Abort == ABORT_NONE))\r
1894                 {\r
1895                         /* \91\97\82è\8ec\82µ\82½\83f\81[\83^\82ð\91\97\90M */\r
1896                         if(Pkt->KanjiCode != KANJI_NOCNV)\r
1897                         {\r
1898                                 cInfo.Buf = Buf2;\r
1899                                 cInfo.BufSize = BUFSIZE+3;\r
1900                                 FlushRestData(&cInfo);\r
1901 \r
1902                                 if(TermCodeConvAndSend(&tInfo, dSkt, Buf2, cInfo.OutLen, Pkt->Type) == FAIL)\r
1903                                         Pkt->Abort = ABORT_ERROR;\r
1904                         }\r
1905 \r
1906                         tInfo.Buf = Buf2;\r
1907                         tInfo.BufSize = BUFSIZE+3;\r
1908                         FlushRestTermCodeConvData(&tInfo);\r
1909                         if(SendData(dSkt, Buf2, tInfo.OutLen, 0, &Canceled) == FAIL)\r
1910                                 Pkt->Abort = ABORT_ERROR;\r
1911                 }\r
1912 \r
1913                 /* \83O\83\89\83t\95\\8e¦\82ð\8dX\90V */\r
1914                 if(Pkt->hWndTrans != NULL)\r
1915                 {\r
1916                         KillTimer(Pkt->hWndTrans, TIMER_DISPLAY);\r
1917                         DispTransferStatus(Pkt->hWndTrans, YES, Pkt);\r
1918                         TimeStart = time(NULL) - TimeStart + 1;\r
1919                 }\r
1920                 CloseHandle(iFileHandle);\r
1921         }\r
1922         else\r
1923         {\r
1924                 SetErrorMsg(MSGJPN112, Pkt->LocalFile);\r
1925                 SetTaskMsg(MSGJPN112, Pkt->LocalFile);\r
1926                 Pkt->Abort = ABORT_ERROR;\r
1927         }\r
1928 \r
1929         if(shutdown(dSkt, 1) != 0)\r
1930                 ReportWSError("shutdown", WSAGetLastError());\r
1931 \r
1932 #if 0\r
1933         /* clean up */\r
1934         while(do_recv(dSkt, Buf, BUFSIZE, 0, &TimeOutErr, &Canceled) > 0)\r
1935                 ;\r
1936 #endif\r
1937 \r
1938         iRetCode = ReadReplyMessage(Pkt->ctrl_skt, Buf, 1024, &Canceled, TmpBuf);\r
1939 \r
1940 //#pragma aaa\r
1941 //DoPrintf("##UP REPLY : %s", Buf);\r
1942 \r
1943         if(iRetCode >= FTP_RETRY)\r
1944                 SetErrorMsg(Buf);\r
1945 \r
1946         if(Pkt->Abort != ABORT_NONE)\r
1947                 iRetCode = 500;\r
1948 \r
1949         return(iRetCode);\r
1950 }\r
1951 \r
1952 \r
1953 /*----- \83o\83b\83t\83@\82Ì\93à\97e\82ð\89ü\8ds\83R\81[\83h\95Ï\8a·\82µ\82Ä\91\97\90M --------------------------------\r
1954 *\r
1955 *       Parameter\r
1956 *               TERMCODECONVINFO *tInfo : \89ü\8ds\83R\81[\83h\95Ï\8a·\83p\83P\83b\83g\r
1957 *               SOCKET Skt : \83\\83P\83b\83g\r
1958 *               char *Data : \83f\81[\83^\r
1959 *               int Size : \83f\81[\83^\82Ì\83T\83C\83Y\r
1960 *               int Ascii : \83\82\81[\83h\81@\81@(TYPE_xx)\r
1961 *\r
1962 *       Return Value\r
1963 *               int \89\9e\93\9a\83R\81[\83h\r
1964 *----------------------------------------------------------------------------*/\r
1965 \r
1966 static int TermCodeConvAndSend(TERMCODECONVINFO *tInfo, SOCKET Skt, char *Data, int Size, int Ascii)\r
1967 {\r
1968         char Buf3[BUFSIZE*2];\r
1969         int Continue;\r
1970         int Ret;\r
1971 \r
1972         Ret = SUCCESS;\r
1973 \r
1974 // CR-LF\88È\8aO\82Ì\89ü\8ds\83R\81[\83h\82ð\95Ï\8a·\82µ\82È\82¢\83\82\81[\83h\82Í\82±\82±\82Ö\92Ç\89Á\r
1975         if(Ascii == TYPE_A)\r
1976         {\r
1977                 tInfo->Str = Data;\r
1978                 tInfo->StrLen = Size;\r
1979                 tInfo->Buf = Buf3;\r
1980                 tInfo->BufSize = BUFSIZE*2;\r
1981                 do\r
1982                 {\r
1983                         Continue = ConvTermCodeToCRLF(tInfo);\r
1984                         if((Ret = SendData(Skt, Buf3, tInfo->OutLen, 0, &Canceled)) == FAIL)\r
1985                                 break;\r
1986                 }\r
1987                 while(Continue == YES);\r
1988         }\r
1989         else\r
1990                 Ret = SendData(Skt, Data, Size, 0, &Canceled);\r
1991 \r
1992         return(Ret);\r
1993 }\r
1994 \r
1995 \r
1996 /*----- \83A\83b\83v\83\8d\81[\83h\8fI\97¹\81^\92\86\8e~\8e\9e\82Ì\83\81\83b\83Z\81[\83W\82ð\95\\8e¦ ----------------------------\r
1997 *\r
1998 *       Parameter\r
1999 *               TRANSPACKET *Pkt : \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\r
2000 *               int iRetCode : \89\9e\93\9a\83R\81[\83h\r
2001 *\r
2002 *       Return Value\r
2003 *               \82È\82µ\r
2004 *----------------------------------------------------------------------------*/\r
2005 \r
2006 static void DispUploadFinishMsg(TRANSPACKET *Pkt, int iRetCode)\r
2007 {\r
2008         if(ForceAbort == NO)\r
2009         {\r
2010                 if((iRetCode/100) >= FTP_CONTINUE)\r
2011                 {\r
2012                         if((Pkt->hWndTrans != NULL) && (TimeStart != 0))\r
2013                                 SetTaskMsg(MSGJPN113, TimeStart, Pkt->ExistSize/TimeStart);\r
2014                         else\r
2015                                 SetTaskMsg(MSGJPN114);\r
2016 \r
2017                         if(Pkt->Abort != ABORT_USER)\r
2018                         {\r
2019                                 if(DispUpDownErrDialog(uperr_dlg, Pkt->hWndTrans, Pkt->LocalFile) == NO)\r
2020                                         ClearAll = YES;\r
2021                         }\r
2022                 }\r
2023                 else\r
2024                 {\r
2025                         if((Pkt->hWndTrans != NULL) && (TimeStart != 0))\r
2026                                 SetTaskMsg(MSGJPN115, TimeStart, Pkt->ExistSize/TimeStart);\r
2027                         else\r
2028                                 SetTaskMsg(MSGJPN116);\r
2029                 }\r
2030         }\r
2031         return;\r
2032 }\r
2033 \r
2034 \r
2035 /*----- \83A\83b\83v\83\8d\81[\83h\82Ì\83\8a\83W\83\85\81[\83\80\82Ì\8f\80\94õ\82ð\8ds\82¤ ----------------------------------\r
2036 *\r
2037 *       Parameter\r
2038 *               TRANSPACKET *Pkt : \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\r
2039 *               iont ProcMode : \8f\88\97\9d\83\82\81[\83h(EXIST_xxx)\r
2040 *               LONGLONG Size : \83z\83X\83g\82É\82 \82é\83t\83@\83C\83\8b\82Ì\83T\83C\83Y\r
2041 *               int *Mode : \83\8a\83W\83\85\81[\83\80\82ð\8ds\82¤\82©\82Ç\82¤\82© (YES/NO)\r
2042 *\r
2043 *       Return Value\r
2044 *               int \83X\83e\81[\83^\83X = YES\r
2045 *\r
2046 *       Note\r
2047 *               Pkt->ExistSize\82Ì\83Z\83b\83g\82ð\8ds\82È\82¤\r
2048 *----------------------------------------------------------------------------*/\r
2049 \r
2050 static int SetUploadResume(TRANSPACKET *Pkt, int ProcMode, LONGLONG Size, int *Mode)\r
2051 {\r
2052         Pkt->ExistSize = 0;\r
2053         *Mode = NO;\r
2054         if(ProcMode == EXIST_RESUME)\r
2055         {\r
2056                 if(Pkt->hWndTrans != NULL)\r
2057                 {\r
2058                         Pkt->ExistSize = Size;\r
2059                         *Mode = YES;\r
2060                 }\r
2061         }\r
2062         return(YES);\r
2063 }\r
2064 \r
2065 \r
2066 /*----- \93]\91\97\92\86\83_\83C\83A\83\8d\83O\83{\83b\83N\83X\82Ì\83R\81[\83\8b\83o\83b\83N --------------------------------\r
2067 *\r
2068 *       Parameter\r
2069 *               HWND hDlg : \83E\83C\83\93\83h\83E\83n\83\93\83h\83\8b\r
2070 *               UINT message : \83\81\83b\83Z\81[\83W\94Ô\8d\86\r
2071 *               WPARAM wParam : \83\81\83b\83Z\81[\83W\82Ì WPARAM \88ø\90\94\r
2072 *               LPARAM lParam : \83\81\83b\83Z\81[\83W\82Ì LPARAM \88ø\90\94\r
2073 *\r
2074 *       Return Value\r
2075 *               BOOL TRUE/FALSE\r
2076 *----------------------------------------------------------------------------*/\r
2077 \r
2078 static LRESULT CALLBACK TransDlgProc(HWND hDlg, UINT Msg, WPARAM wParam, LPARAM lParam)\r
2079 {\r
2080         RECT RectDlg;\r
2081         RECT RectPar;\r
2082         HMENU hMenu;\r
2083         static TRANSPACKET *Pkt;\r
2084 \r
2085         switch(Msg)\r
2086         {\r
2087                 case WM_INITDIALOG :\r
2088                         GetWindowRect(hDlg, &RectDlg);\r
2089                         RectDlg.right -= RectDlg.left;\r
2090                         RectDlg.bottom -= RectDlg.top;\r
2091                         GetWindowRect(GetMainHwnd(), &RectPar);\r
2092                         MoveWindow(hDlg,\r
2093                                 ((RectPar.right + RectPar.left) / 2) - (RectDlg.right / 2),\r
2094                                 ((RectPar.bottom + RectPar.top) / 2) - (RectDlg.bottom / 2),\r
2095                                 RectDlg.right,\r
2096                                 RectDlg.bottom,\r
2097                                 FALSE);\r
2098 \r
2099                         hMenu = GetSystemMenu(hDlg, FALSE);\r
2100                         EnableMenuItem(hMenu, SC_CLOSE, MF_GRAYED);\r
2101                         break;\r
2102 \r
2103                 case WM_COMMAND :\r
2104                         switch(LOWORD(wParam))\r
2105                         {\r
2106                                 case TRANS_STOP_NEXT :\r
2107                                         ClearAll = YES;\r
2108                                         break;\r
2109 \r
2110                                 case TRANS_STOP_ALL :\r
2111                                         ClearAll = YES;\r
2112                                         /* \82±\82±\82É break \82Í\82È\82¢ */\r
2113 \r
2114                                 case IDCANCEL :\r
2115                                         Pkt->Abort = ABORT_USER;\r
2116                                         Canceled = YES;\r
2117                                         break;\r
2118                         }\r
2119                         break;\r
2120 \r
2121                 case WM_TIMER :\r
2122                         if(wParam == TIMER_DISPLAY)\r
2123                         {\r
2124                                 if(MoveToForeground == YES)\r
2125                                         SetForegroundWindow(hDlg);\r
2126                                 MoveToForeground = NO;\r
2127                                 KillTimer(hDlg, TIMER_DISPLAY);\r
2128                                 DispTransferStatus(hDlg, NO, Pkt);\r
2129                                 SetTimer(hDlg, TIMER_DISPLAY, DISPLAY_TIMING, NULL);\r
2130                         }\r
2131                         break;\r
2132 \r
2133                 case WM_SET_PACKET :\r
2134                         Pkt = (TRANSPACKET *)lParam;\r
2135                         break;\r
2136         }\r
2137         return(FALSE);\r
2138 }\r
2139 \r
2140 \r
2141 /*----- \93]\91\97\83X\83e\81[\83^\83X\82ð\95\\8e¦ --------------------------------------------------\r
2142 *\r
2143 *       Parameter\r
2144 *               HWND hWnd : \83E\83C\83\93\83h\83E\83n\83\93\83h\83\8b\r
2145 *               int End : \93]\91\97\82ª\8a®\97¹\82µ\82½\82©\82Ç\82¤\82© (YES/NO)\r
2146 *\r
2147 *       Return Value\r
2148 *               \82È\82µ\r
2149 *----------------------------------------------------------------------------*/\r
2150 \r
2151 static void DispTransferStatus(HWND hWnd, int End, TRANSPACKET *Pkt)\r
2152 {\r
2153         time_t TotalLap;\r
2154         int Per;\r
2155         LONGLONG Bps;\r
2156         LONGLONG Transed;\r
2157         char Num1[40];\r
2158         char Num2[40];\r
2159         char Tmp[80];\r
2160         char Str[80];\r
2161         char *Pos;\r
2162 \r
2163         if(hWnd != NULL)\r
2164         {\r
2165                 SendMessage(hWnd, WM_GETTEXT, 79, (LPARAM)Str);\r
2166                 if((Pos = strchr(Str, ')')) != NULL)\r
2167                         Pos ++;\r
2168                 else\r
2169                         Pos = Str;\r
2170                 sprintf(Tmp, "(%d)%s", AskTransferFileNum(), Pos);\r
2171                 SendMessage(hWnd, WM_SETTEXT, 0, (LPARAM)Tmp);\r
2172 \r
2173                 if(Pkt->Abort == ABORT_NONE)\r
2174                 {\r
2175                         if(End == NO)\r
2176                         {\r
2177                                 TotalLap = time(NULL) - TimeStart + 1;\r
2178 \r
2179                                 Bps = 0;\r
2180                                 if(TotalLap != 0)\r
2181                                         Bps = AllTransSizeNow / TotalLap;\r
2182                                 Transed = Pkt->Size - Pkt->ExistSize;\r
2183 \r
2184                                 if(Pkt->Size <= 0)\r
2185                                         sprintf(Tmp, "%d ", Pkt->ExistSize);\r
2186                                 else if(Pkt->Size < 1024)\r
2187                                         sprintf(Tmp, "%s / %s ", MakeNumString(Pkt->ExistSize, Num1, TRUE), MakeNumString(Pkt->Size, Num2, TRUE));\r
2188                                 else\r
2189                                         sprintf(Tmp, "%sk / %sk ", MakeNumString(Pkt->ExistSize/1024, Num1, TRUE), MakeNumString(Pkt->Size/1024, Num2, TRUE));\r
2190                                 strcpy(Str, Tmp);\r
2191 \r
2192                                 if(Bps == 0)\r
2193                                         sprintf(Tmp, "( 0 B/S )");\r
2194                                 else if(Bps < 1000)\r
2195                                         sprintf(Tmp, "( %s B/S )", MakeNumString(Bps, Num1, TRUE));\r
2196                                 else\r
2197                                         sprintf(Tmp, "( %s.%02d KB/S )", MakeNumString(Bps/1000, Num1, TRUE), (int)((Bps%1000)/10));\r
2198                                 strcat(Str, Tmp);\r
2199 \r
2200                                 if((Bps > 0) && (Pkt->Size > 0) && (Transed >= 0))\r
2201                                 {\r
2202                                         sprintf(Tmp, "  %d:%02d", (int)((Transed/Bps)/60), (int)((Transed/Bps)%60));\r
2203                                         strcat(Str, Tmp);\r
2204                                 }\r
2205                                 else\r
2206                                         strcat(Str, "  ??:??");\r
2207                         }\r
2208                         else\r
2209                                 strcpy(Str, MSGJPN117);\r
2210                 }\r
2211                 else\r
2212                         strcpy(Str, MSGJPN118);\r
2213 \r
2214                 SendDlgItemMessage(hWnd, TRANS_STATUS, WM_SETTEXT, 0, (LPARAM)Str);\r
2215 \r
2216                 if(Pkt->Size <= 0)\r
2217                         Per = 0;\r
2218                 else if(Pkt->Size < 1024*1024)\r
2219                         Per = (int)(Pkt->ExistSize * 100 / Pkt->Size);\r
2220                 else\r
2221                         Per = (int)((Pkt->ExistSize/1024) * 100 / (Pkt->Size/1024));\r
2222                 SendDlgItemMessage(hWnd, TRANS_TIME_BAR, PBM_SETPOS, Per, 0);\r
2223         }\r
2224         return;\r
2225 }\r
2226 \r
2227 \r
2228 /*----- \93]\91\97\82·\82é\83t\83@\83C\83\8b\82Ì\8fî\95ñ\82ð\95\\8e¦ ------------------------------------------\r
2229 *\r
2230 *       Parameter\r
2231 *               TRANSPACKET *Pkt : \93]\91\97\83t\83@\83C\83\8b\8fî\95ñ\r
2232 *               char *Title : \83E\83C\83\93\83h\83E\82Ì\83^\83C\83g\83\8b\r
2233 *               int SkipButton : \81u\82±\82Ì\83t\83@\83C\83\8b\82ð\92\86\8e~\81v\83{\83^\83\93\82Ì\97L\96³ (TRUE/FALSE)\r
2234 *               int Info : \83t\83@\83C\83\8b\8fî\95ñ\82ð\95\\8e¦\82·\82é\82©\82Ç\82¤\82© (YES/NO)\r
2235 *\r
2236 *       Return Value\r
2237 *               \82È\82µ\r
2238 *----------------------------------------------------------------------------*/\r
2239 \r
2240 static void DispTransFileInfo(TRANSPACKET *Pkt, char *Title, int SkipButton, int Info)\r
2241 {\r
2242         char Tmp[40];\r
2243 \r
2244         if(Pkt->hWndTrans != NULL)\r
2245         {\r
2246                 EnableWindow(GetDlgItem(Pkt->hWndTrans, IDCANCEL), SkipButton);\r
2247 \r
2248                 sprintf(Tmp, "(%d)%s", AskTransferFileNum(), Title);\r
2249                 SendMessage(Pkt->hWndTrans, WM_SETTEXT, 0, (LPARAM)Tmp);\r
2250                 SendDlgItemMessage(Pkt->hWndTrans, TRANS_STATUS, WM_SETTEXT, 0, (LPARAM)"");\r
2251 \r
2252                 SendDlgItemMessage(Pkt->hWndTrans, TRANS_TIME_BAR, PBM_SETRANGE, 0, MAKELPARAM(0, 100));\r
2253                 SendDlgItemMessage(Pkt->hWndTrans, TRANS_TIME_BAR, PBM_SETSTEP, 1, 0);\r
2254                 SendDlgItemMessage(Pkt->hWndTrans, TRANS_TIME_BAR, PBM_SETPOS, 0, 0);\r
2255 \r
2256                 if(Info == YES)\r
2257                 {\r
2258                         DispStaticText(GetDlgItem(Pkt->hWndTrans, TRANS_REMOTE), Pkt->RemoteFile);\r
2259                         DispStaticText(GetDlgItem(Pkt->hWndTrans, TRANS_LOCAL), Pkt->LocalFile);\r
2260 \r
2261                         if(Pkt->Type == TYPE_I)\r
2262                                 SendDlgItemMessage(Pkt->hWndTrans, TRANS_MODE, WM_SETTEXT, 0, (LPARAM)MSGJPN119);\r
2263                         else if(Pkt->Type == TYPE_A)\r
2264                                 SendDlgItemMessage(Pkt->hWndTrans, TRANS_MODE, WM_SETTEXT, 0, (LPARAM)MSGJPN120);\r
2265 \r
2266                         if(Pkt->KanjiCode == KANJI_NOCNV)\r
2267                                 SendDlgItemMessage(Pkt->hWndTrans, TRANS_KANJI, WM_SETTEXT, 0, (LPARAM)MSGJPN121);\r
2268                         else if(Pkt->KanjiCode == KANJI_JIS)\r
2269                                 SendDlgItemMessage(Pkt->hWndTrans, TRANS_KANJI, WM_SETTEXT, 0, (LPARAM)MSGJPN122);\r
2270                         else if(Pkt->KanjiCode == KANJI_EUC)\r
2271                                 SendDlgItemMessage(Pkt->hWndTrans, TRANS_KANJI, WM_SETTEXT, 0, (LPARAM)MSGJPN123);\r
2272                 }\r
2273                 else\r
2274                 {\r
2275                         SendDlgItemMessage(Pkt->hWndTrans, TRANS_REMOTE, WM_SETTEXT, 0, (LPARAM)"");\r
2276                         SendDlgItemMessage(Pkt->hWndTrans, TRANS_LOCAL, WM_SETTEXT, 0, (LPARAM)"");\r
2277                         SendDlgItemMessage(Pkt->hWndTrans, TRANS_MODE, WM_SETTEXT, 0, (LPARAM)"");\r
2278                         SendDlgItemMessage(Pkt->hWndTrans, TRANS_KANJI, WM_SETTEXT, 0, (LPARAM)"");\r
2279                 }\r
2280         }\r
2281         return;\r
2282 }\r
2283 \r
2284 \r
2285 /*----- PASV\83R\83}\83\93\83h\82Ì\96ß\82è\92l\82©\82ç\83A\83h\83\8c\83X\82Æ\83|\81[\83g\94Ô\8d\86\82ð\92\8a\8fo --------------------\r
2286 *\r
2287 *       Parameter\r
2288 *               char *Str : PASV\83R\83}\83\93\83h\82Ì\83\8a\83v\83\89\83C\r
2289 *               char *Adrs : \83A\83h\83\8c\83X\82Ì\83R\83s\81[\90æ ("www.xxx.yyy.zzz")\r
2290 *               int *Port : \83|\81[\83g\94Ô\8d\86\82ð\83Z\83b\83g\82·\82é\83\8f\81[\83N\r
2291 *               int Max : \83A\83h\83\8c\83X\95¶\8e\9a\97ñ\82Ì\8dÅ\91å\92·\r
2292 *\r
2293 *       Return Value\r
2294 *               int \83X\83e\81[\83^\83X\r
2295 *                       SUCCESS/FAIL\r
2296 *----------------------------------------------------------------------------*/\r
2297 \r
2298 static int GetAdrsAndPort(char *Str, char *Adrs, int *Port, int Max)\r
2299 {\r
2300         char *Pos;\r
2301         char *Btm;\r
2302         int Sts;\r
2303 \r
2304         Sts = FAIL;\r
2305 \r
2306         Pos = strchr(Str, '(');\r
2307         if(Pos != NULL)\r
2308         {\r
2309                 Pos++;\r
2310                 Btm = strchr(Pos, ',');\r
2311                 if(Btm != NULL)\r
2312                 {\r
2313                         Btm++;\r
2314                         Btm = strchr(Btm, ',');\r
2315                         if(Btm != NULL)\r
2316                         {\r
2317                                 Btm++;\r
2318                                 Btm = strchr(Btm, ',');\r
2319                                 if(Btm != NULL)\r
2320                                 {\r
2321                                         Btm++;\r
2322                                         Btm = strchr(Btm, ',');\r
2323                                         if(Btm != NULL)\r
2324                                         {\r
2325                                                 if((Btm - Pos) <= Max)\r
2326                                                 {\r
2327                                                         strncpy(Adrs, Pos, Btm - Pos);\r
2328                                                         *(Adrs + (Btm - Pos)) = NUL;\r
2329                                                         ReplaceAll(Adrs, ',', '.');\r
2330 \r
2331                                                         Pos = Btm + 1;\r
2332                                                         Btm = strchr(Pos, ',');\r
2333                                                         if(Btm != NULL)\r
2334                                                         {\r
2335                                                                 Btm++;\r
2336                                                                 *Port = (atoi(Pos) * 0x100) + atoi(Btm);\r
2337                                                                 Sts = SUCCESS;\r
2338                                                         }\r
2339                                                 }\r
2340                                         }\r
2341                                 }\r
2342                         }\r
2343                 }\r
2344         }\r
2345         return(Sts);\r
2346 }\r
2347 \r
2348 \r
2349 /*----- Windows\82Ì\83X\83y\83V\83\83\83\8b\83f\83o\83C\83X\82©\82Ç\82¤\82©\82ð\95Ô\82· -----------------------------\r
2350 *\r
2351 *       Parameter\r
2352 *               char *Fname : \83t\83@\83C\83\8b\96¼\r
2353 *\r
2354 *       Return Value\r
2355 *               int \83X\83e\81[\83^\83X (YES/NO)\r
2356 *----------------------------------------------------------------------------*/\r
2357 \r
2358 static int IsSpecialDevice(char *Fname)\r
2359 {\r
2360         int Sts;\r
2361 \r
2362         Sts = NO;\r
2363         if((_stricmp(Fname, "CON") == 0) ||\r
2364            (_stricmp(Fname, "PRN") == 0) ||\r
2365            (_stricmp(Fname, "AUX") == 0) ||\r
2366            (_strnicmp(Fname, "CON.", 4) == 0) ||\r
2367            (_strnicmp(Fname, "PRN.", 4) == 0) ||\r
2368            (_strnicmp(Fname, "AUX.", 4) == 0))\r
2369         {\r
2370                 Sts = YES;\r
2371         }\r
2372         return(Sts);\r
2373 }\r
2374 \r
2375 \r
2376 /*----- \83~\83\89\81[\83\8a\83\93\83O\82Å\82Ì\83t\83@\83C\83\8b\8dí\8f\9c\8am\94F --------------------------------------\r
2377 *\r
2378 *       Parameter\r
2379 *               int Cur\r
2380 *               int Notify\r
2381 *               TRANSPACKET *Pkt\r
2382 *\r
2383 *       Return Value\r
2384 *               BOOL TRUE/FALSE\r
2385 *----------------------------------------------------------------------------*/\r
2386 \r
2387 static int MirrorDelNotify(int Cur, int Notify, TRANSPACKET *Pkt)\r
2388 {\r
2389         MIRRORDELETEINFO DelInfo;\r
2390         HWND hWnd;\r
2391 \r
2392         if(((Cur == WIN_LOCAL) && (MirDownDelNotify == NO)) ||\r
2393            ((Cur == WIN_REMOTE) && (MirUpDelNotify == NO)))\r
2394         {\r
2395                 Notify = YES_ALL;\r
2396         }\r
2397 \r
2398         if(Notify != YES_ALL)\r
2399         {\r
2400                 DelInfo.Cur = Cur;\r
2401                 DelInfo.Pkt = Pkt;\r
2402                 hWnd = Pkt->hWndTrans;\r
2403                 if(hWnd == NULL)\r
2404                         hWnd = GetMainHwnd();\r
2405                 Notify = DialogBoxParam(GetFtpInst(), MAKEINTRESOURCE(delete_dlg), hWnd, MirrorDeleteDialogCallBack, (LPARAM)&DelInfo);\r
2406         }\r
2407         return(Notify);\r
2408 }\r
2409 \r
2410 \r
2411 /*----- \83~\83\89\81[\83\8a\83\93\83O\82Å\82Ì\83t\83@\83C\83\8b\8dí\8f\9c\83_\83C\83A\83\8d\83O\82Ì\83R\81[\83\8b\83o\83b\83N ------------------\r
2412 *\r
2413 *       Parameter\r
2414 *               HWND hDlg : \83E\83C\83\93\83h\83E\83n\83\93\83h\83\8b\r
2415 *               UINT message : \83\81\83b\83Z\81[\83W\94Ô\8d\86\r
2416 *               WPARAM wParam : \83\81\83b\83Z\81[\83W\82Ì WPARAM \88ø\90\94\r
2417 *               LPARAM lParam : \83\81\83b\83Z\81[\83W\82Ì LPARAM \88ø\90\94\r
2418 *\r
2419 *       Return Value\r
2420 *               BOOL TRUE/FALSE\r
2421 *----------------------------------------------------------------------------*/\r
2422 \r
2423 static BOOL CALLBACK MirrorDeleteDialogCallBack(HWND hDlg, UINT iMessage, WPARAM wParam, LPARAM lParam)\r
2424 {\r
2425         static MIRRORDELETEINFO *DelInfo;\r
2426         switch (iMessage)\r
2427         {\r
2428                 case WM_INITDIALOG :\r
2429                         DelInfo = (MIRRORDELETEINFO *)lParam;\r
2430 \r
2431                         if(DelInfo->Cur == WIN_LOCAL)\r
2432                         {\r
2433                                 SendMessage(hDlg, WM_SETTEXT, 0, (LPARAM)MSGJPN124);\r
2434                                 SendDlgItemMessage(hDlg, DELETE_TEXT, WM_SETTEXT, 0, (LPARAM)DelInfo->Pkt->LocalFile);\r
2435                         }\r
2436                         else\r
2437                         {\r
2438                                 SendMessage(hDlg, WM_SETTEXT, 0, (LPARAM)MSGJPN125);\r
2439                                 SendDlgItemMessage(hDlg, DELETE_TEXT, WM_SETTEXT, 0, (LPARAM)DelInfo->Pkt->RemoteFile);\r
2440                         }\r
2441                         return(TRUE);\r
2442 \r
2443                 case WM_COMMAND :\r
2444                         switch(GET_WM_COMMAND_ID(wParam, lParam))\r
2445                         {\r
2446                                 case IDOK :\r
2447                                         EndDialog(hDlg, YES);\r
2448                                         break;\r
2449 \r
2450                                 case DELETE_NO :\r
2451                                         EndDialog(hDlg, NO);\r
2452                                         break;\r
2453 \r
2454                                 case DELETE_ALL :\r
2455                                         EndDialog(hDlg, YES_ALL);\r
2456                                         break;\r
2457 \r
2458                                 case IDCANCEL :\r
2459                                         ClearAll = YES;\r
2460                                         EndDialog(hDlg, NO_ALL);\r
2461                                         break;\r
2462                         }\r
2463             return(TRUE);\r
2464         }\r
2465         return(FALSE);\r
2466 }\r
2467 \r
2468 \r
2469 \r
2470 \r
2471 \r
2472 static void SetErrorMsg(char *fmt, ...)\r
2473 {\r
2474         va_list Args;\r
2475 \r
2476         if(strlen(ErrMsg) == 0)\r
2477         {\r
2478                 va_start(Args, fmt);\r
2479                 wvsprintf(ErrMsg, fmt, Args);\r
2480                 va_end(Args);\r
2481         }\r
2482         return;\r
2483 }\r
2484 \r
2485 \r
2486 \r
2487 \r
2488 \r
2489 \r
2490 /*----- \83_\83E\83\93\83\8d\81[\83h\8e\9e\82Ì\95s\90³\82È\83p\83X\82ð\83`\83F\83b\83N ----------------------------------\r
2491 *\r
2492 *       Parameter\r
2493 *               TRANSPACKET *packet : \83_\83E\83\93\83\8d\81[\83h\8fî\95ñ\r
2494 *\r
2495 *       Return Value\r
2496 *               int YES=\95s\90³\82È\83p\83X/NO=\96â\91è\82È\82¢\83p\83X\r
2497 *----------------------------------------------------------------------------*/\r
2498 int CheckPathViolation(TRANSPACKET *packet)\r
2499 {\r
2500         int result = NO;\r
2501         char *msg;\r
2502 \r
2503         if((strncmp(packet->RemoteFile, "..\\", 3) == 0) ||\r
2504            (strncmp(packet->RemoteFile, "../", 3) == 0) ||\r
2505            (strstr(packet->RemoteFile, "\\..\\") != NULL) ||\r
2506            (strstr(packet->RemoteFile, "/../") != NULL))\r
2507         {\r
2508                 msg = malloc(strlen(MSGJPN297) + strlen(packet->RemoteFile) + 1);\r
2509                 if(msg)\r
2510                 {\r
2511                         sprintf(msg, MSGJPN297, packet->RemoteFile);\r
2512                         MessageBox(GetMainHwnd(), msg, MSGJPN086, MB_OK);\r
2513                         free(msg);\r
2514                 }\r
2515                 result = YES;\r
2516         }\r
2517         return(result);\r
2518 }\r
2519 \r
2520 \r