1 /*=============================================================================
\r
5 ===============================================================================
\r
6 / Copyright (C) 1997-2007 Sota. All rights reserved.
\r
8 / Redistribution and use in source and binary forms, with or without
\r
9 / modification, are permitted provided that the following conditions
\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
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
30 /* このソースは一部、WS_FTP Version 93.12.05 のソースを参考にしました。 */
\r
37 #include <mbstring.h>
\r
39 #include <winsock.h>
\r
40 #include <windowsx.h>
\r
41 #include <commctrl.h>
\r
44 #include "resource.h"
\r
49 /*===== プロトタイプ =====*/
\r
51 static int DoPWD(char *Buf);
\r
52 static int ReadOneLine(SOCKET cSkt, char *Buf, int Max, int *CancelCheckWork);
\r
53 static int DoDirList(HWND hWnd, SOCKET cSkt, char *AddOpt, char *Path, int Num, int *CancelCheckWork);
\r
54 static void ChangeSepaLocal2Remote(char *Fname);
\r
55 static void ChangeSepaRemote2Local(char *Fname);
\r
57 /*===== 外部参照 =====*/
\r
59 extern TRANSPACKET MainTransPkt;
\r
63 extern int SendQuit;
\r
65 /*===== ローカルなワーク =====*/
\r
67 static int PwdCommandType;
\r
69 static int CheckCancelFlg = NO;
\r
73 /*----- リモート側のカレントディレクトリ変更 ----------------------------------
\r
77 * int Disp : ディレクトリリストにパス名を表示するかどうか(YES/NO)
\r
78 * int ForceGet : 失敗してもカレントディレクトリを取得する
\r
79 * int ErrorBell : エラー事の音を鳴らすかどうか(YES/NO)
\r
83 *----------------------------------------------------------------------------*/
\r
85 int DoCWD(char *Path, int Disp, int ForceGet, int ErrorBell)
\r
88 char Buf[FMAX_PATH+1];
\r
90 Sts = FTP_COMPLETE * 100;
\r
92 if(strcmp(Path, "..") == 0)
\r
93 Sts = CommandProcCmd(NULL, "CDUP");
\r
94 else if(strcmp(Path, "") != 0)
\r
96 if((AskHostType() != HTYPE_VMS) || (strchr(Path, '[') != NULL))
\r
97 Sts = CommandProcCmd(NULL, "CWD %s", Path);
\r
99 Sts = CommandProcCmd(NULL, "CWD [.%s]", Path); /* VMS用 */
\r
102 if((Sts/100 >= FTP_CONTINUE) && (ErrorBell == YES))
\r
103 SoundPlay(SND_ERROR);
\r
105 if((Sts/100 == FTP_COMPLETE) ||
\r
110 if(DoPWD(Buf) != FTP_COMPLETE)
\r
112 /*===== PWDが使えなかった場合 =====*/
\r
118 AskRemoteCurDir(Buf, FMAX_PATH);
\r
119 if(strlen(Buf) == 0)
\r
122 while(*Path != NUL)
\r
124 if(strcmp(Path, ".") == 0)
\r
126 else if(strncmp(Path, "./", 2) == 0)
\r
128 else if(strcmp(Path, "..") == 0)
\r
133 else if(strncmp(Path, "../", 2) == 0)
\r
147 SetRemoteDirHist(Buf);
\r
156 /*----- リモート側のカレントディレクトリ変更(その2)-------------------------
\r
160 * char *Cur : カレントディレクトリ
\r
166 * パス名は "xxx/yyy/zzz" の形式
\r
167 * ディレクトリ変更が失敗したら、カレントディレクトリに戻しておく
\r
168 *----------------------------------------------------------------------------*/
\r
170 int DoCWDStepByStep(char *Path, char *Cur)
\r
175 char Tmp[FMAX_PATH+2];
\r
177 Sts = FTP_COMPLETE;
\r
179 memset(Tmp, NUL, FMAX_PATH+2);
\r
184 if((Set2 = strchr(Set, '/')) != NULL)
\r
186 if((Sts = DoCWD(Set, NO, NO, NO)) != FTP_COMPLETE)
\r
193 if(Sts != FTP_COMPLETE)
\r
194 DoCWD(Cur, NO, NO, NO);
\r
200 /*----- リモート側のカレントディレクトリ取得 ----------------------------------
\r
203 * char *Buf : パス名を返すバッファ
\r
207 *----------------------------------------------------------------------------*/
\r
209 static int DoPWD(char *Buf)
\r
215 if(PwdCommandType == PWD_XPWD)
\r
217 Sts = CommandProcCmd(Tmp, "XPWD");
\r
218 if(Sts/100 != FTP_COMPLETE)
\r
219 PwdCommandType = PWD_PWD;
\r
221 if(PwdCommandType == PWD_PWD)
\r
222 Sts = CommandProcCmd(Tmp, "PWD");
\r
224 if(Sts/100 == FTP_COMPLETE)
\r
226 if((Pos = strchr(Tmp, '"')) != NULL)
\r
228 memmove(Tmp, Pos+1, strlen(Pos+1)+1);
\r
229 if((Pos = strchr(Tmp, '"')) != NULL)
\r
233 memmove(Tmp, Tmp+4, strlen(Tmp+4)+1);
\r
235 if(strlen(Tmp) < FMAX_PATH)
\r
238 ReplaceAll(Buf, '\\', '/');
\r
239 ChangeSepaRemote2Local(Buf);
\r
240 ChangeFnameRemote2Local(Buf, FMAX_PATH);
\r
243 Sts = FTP_ERROR*100;
\r
249 /*----- PWDコマンドのタイプを初期化する ---------------------------------------
\r
256 *----------------------------------------------------------------------------*/
\r
258 void InitPWDcommand()
\r
260 PwdCommandType = PWD_XPWD;
\r
264 /*----- リモート側のディレクトリ作成 ----------------------------------------
\r
271 *----------------------------------------------------------------------------*/
\r
273 int DoMKD(char *Path)
\r
277 Sts = CommandProcCmd(NULL, "MKD %s", Path);
\r
279 if(Sts/100 >= FTP_CONTINUE)
\r
280 SoundPlay(SND_ERROR);
\r
286 /*----- リモート側のディレクトリ削除 ------------------------------------------
\r
293 *----------------------------------------------------------------------------*/
\r
295 int DoRMD(char *Path)
\r
299 Sts = CommandProcCmd(NULL, "RMD %s", Path);
\r
301 if(Sts/100 >= FTP_CONTINUE)
\r
302 SoundPlay(SND_ERROR);
\r
308 /*----- リモート側のファイル削除 ----------------------------------------------
\r
315 *----------------------------------------------------------------------------*/
\r
317 int DoDELE(char *Path)
\r
321 Sts = CommandProcCmd(NULL, "DELE %s", Path);
\r
323 if(Sts/100 >= FTP_CONTINUE)
\r
324 SoundPlay(SND_ERROR);
\r
330 /*----- リモート側のファイル名変更 --------------------------------------------
\r
333 * char *Src : 元ファイル名
\r
334 * char *Dst : 変更後のファイル名
\r
338 *----------------------------------------------------------------------------*/
\r
340 int DoRENAME(char *Src, char *Dst)
\r
344 Sts = CommandProcCmd(NULL, "RNFR %s", Src);
\r
346 Sts = command(AskCmdCtrlSkt(), NULL, &CheckCancelFlg, "RNTO %s", Dst);
\r
348 if(Sts/100 >= FTP_CONTINUE)
\r
349 SoundPlay(SND_ERROR);
\r
355 /*----- リモート側のファイルの属性変更 ----------------------------------------
\r
359 * char *Mode : モード文字列
\r
363 *----------------------------------------------------------------------------*/
\r
365 int DoCHMOD(char *Path, char *Mode)
\r
369 Sts = CommandProcCmd(NULL, "%s %s %s", AskHostChmodCmd(), Mode, Path);
\r
371 if(Sts/100 >= FTP_CONTINUE)
\r
372 SoundPlay(SND_ERROR);
\r
378 /*----- リモート側のファイルのサイズを取得(転送ソケット使用)-----------------
\r
382 * LONGLONG *Size : ファイルのサイズを返すワーク
\r
389 * サイズが選られない時は Size = -1 を返す
\r
390 *----------------------------------------------------------------------------*/
\r
393 //int DoSIZE(char *Path, LONGLONG *Size)
\r
394 int DoSIZE(SOCKET cSkt, char *Path, LONGLONG *Size)
\r
399 // Sts = CommandProcTrn(Tmp, "SIZE %s", Path);
\r
400 Sts = CommandProcTrn(cSkt, Tmp, "SIZE %s", Path);
\r
403 if((Sts/100 == FTP_COMPLETE) && (strlen(Tmp) > 4) && IsDigit(Tmp[4]))
\r
404 *Size = _atoi64(&Tmp[4]);
\r
410 /*----- リモート側のファイルの日付を取得(転送ソケット使用)-------------------
\r
414 * FILETIME *Time : 日付を返すワーク
\r
421 * 日付が選られない時は Time = 0 を返す
\r
422 *----------------------------------------------------------------------------*/
\r
425 //int DoMDTM(char *Path, FILETIME *Time)
\r
426 int DoMDTM(SOCKET cSkt, char *Path, FILETIME *Time)
\r
432 Time->dwLowDateTime = 0;
\r
433 Time->dwHighDateTime = 0;
\r
435 // Sts = CommandProcTrn(Tmp, "MDTM %s", Path);
\r
436 Sts = CommandProcTrn(cSkt, Tmp, "MDTM %s", Path);
\r
437 if(Sts/100 == FTP_COMPLETE)
\r
439 sTime.wMilliseconds = 0;
\r
440 if(sscanf(Tmp+4, "%04d%02d%02d%02d%02d%02d",
\r
441 &sTime.wYear, &sTime.wMonth, &sTime.wDay,
\r
442 &sTime.wHour, &sTime.wMinute, &sTime.wSecond) == 6)
\r
444 SystemTimeToFileTime(&sTime, Time);
\r
445 SpecificLocalFileTime2FileTime(Time, AskHostTimeZone());
\r
453 /*----- リモート側のコマンドを実行 --------------------------------------------
\r
456 * char *CmdStr : コマンド文字列
\r
460 *----------------------------------------------------------------------------*/
\r
462 int DoQUOTE(char *CmdStr)
\r
466 Sts = CommandProcCmd(NULL, "%s", CmdStr);
\r
468 if(Sts/100 >= FTP_CONTINUE)
\r
469 SoundPlay(SND_ERROR);
\r
475 /*----- ソケットを閉じる ------------------------------------------------------
\r
482 *----------------------------------------------------------------------------*/
\r
484 SOCKET DoClose(SOCKET Sock)
\r
486 if(Sock != INVALID_SOCKET)
\r
488 // if(WSAIsBlocking())
\r
490 // DoPrintf("Skt=%u : Cancelled blocking call", Sock);
\r
491 // WSACancelBlockingCall();
\r
493 do_closesocket(Sock);
\r
494 DoPrintf("Skt=%u : Socket closed.", Sock);
\r
495 Sock = INVALID_SOCKET;
\r
497 if(Sock != INVALID_SOCKET)
\r
498 DoPrintf("Skt=%u : Failed to close socket.", Sock);
\r
504 /*----- ホストからログアウトする ----------------------------------------------
\r
507 * kSOCKET ctrl_skt : ソケット
\r
511 *----------------------------------------------------------------------------*/
\r
513 int DoQUIT(SOCKET ctrl_skt)
\r
517 Ret = FTP_COMPLETE;
\r
518 if(SendQuit == YES)
\r
519 Ret = command(ctrl_skt, NULL, &CheckCancelFlg, "QUIT") / 100;
\r
525 /*----- リモート側のディレクトリリストを取得(コマンドコントロールソケットを使用)
\r
528 * char *AddOpt : 追加のオプション
\r
530 * int Num : ファイル名番号
\r
534 *----------------------------------------------------------------------------*/
\r
536 int DoDirListCmdSkt(char *AddOpt, char *Path, int Num, int *CancelCheckWork)
\r
540 if(AskTransferNow() == YES)
\r
543 // if((Sts = DoDirList(NULL, AskCmdCtrlSkt(), AddOpt, Path, Num)) == 429)
\r
545 // ReConnectCmdSkt();
\r
546 Sts = DoDirList(NULL, AskCmdCtrlSkt(), AddOpt, Path, Num, CancelCheckWork);
\r
548 if(Sts/100 >= FTP_CONTINUE)
\r
549 SoundPlay(SND_ERROR);
\r
555 /*----- リモート側のディレクトリリストを取得 ----------------------------------
\r
558 * HWND hWnd : 転送中ダイアログのウインドウハンドル
\r
559 * SOCKET cSkt : コントロールソケット
\r
560 * char *AddOpt : 追加のオプション
\r
561 * char *Path : パス名 (""=カレントディレクトリ)
\r
562 * int Num : ファイル名番号
\r
566 *----------------------------------------------------------------------------*/
\r
568 static int DoDirList(HWND hWnd, SOCKET cSkt, char *AddOpt, char *Path, int Num, int *CancelCheckWork)
\r
570 char Tmp[FMAX_PATH];
\r
574 //DoPrintf("===== DoDirList %d = %s", Num, Path);
\r
576 MakeCacheFileName(Num, Tmp);
\r
577 // MainTransPkt.ctrl_skt = cSkt;
\r
579 if(AskListCmdMode() == NO)
\r
581 strcpy(MainTransPkt.Cmd, "NLST");
\r
582 if(strlen(AskHostLsName()) > 0)
\r
584 strcat(MainTransPkt.Cmd, " ");
\r
585 if((AskHostType() == HTYPE_ACOS) || (AskHostType() == HTYPE_ACOS_4))
\r
586 strcat(MainTransPkt.Cmd, "'");
\r
587 strcat(MainTransPkt.Cmd, AskHostLsName());
\r
588 if((AskHostType() == HTYPE_ACOS) || (AskHostType() == HTYPE_ACOS_4))
\r
589 strcat(MainTransPkt.Cmd, "'");
\r
591 if(strlen(AddOpt) > 0)
\r
592 strcat(MainTransPkt.Cmd, AddOpt);
\r
596 strcpy(MainTransPkt.Cmd, "LIST");
\r
597 if(strlen(AddOpt) > 0)
\r
599 strcat(MainTransPkt.Cmd, " -");
\r
600 strcat(MainTransPkt.Cmd, AddOpt);
\r
604 if(strlen(Path) > 0)
\r
605 strcat(MainTransPkt.Cmd, " ");
\r
607 strcpy(MainTransPkt.RemoteFile, Path);
\r
608 strcpy(MainTransPkt.LocalFile, Tmp);
\r
609 MainTransPkt.Type = TYPE_A;
\r
610 MainTransPkt.Size = -1;
\r
611 /* ファイルリストの中の漢字のファイル名は、別途 */
\r
612 /* ChangeFnameRemote2Local で変換する */
\r
613 MainTransPkt.KanjiCode = KANJI_NOCNV;
\r
614 MainTransPkt.KanaCnv = YES;
\r
615 MainTransPkt.Mode = EXIST_OVW;
\r
616 MainTransPkt.ExistSize = 0;
\r
617 MainTransPkt.hWndTrans = hWnd;
\r
618 MainTransPkt.Next = NULL;
\r
620 Sts = DoDownLoad(cSkt, &MainTransPkt, YES, CancelCheckWork);
\r
623 //DoPrintf("===== DoDirList Done.");
\r
629 /*----- リモート側へコマンドを送りリプライを待つ(コマンドソケット)-----------
\r
632 * char *Reply : リプライのコピー先 (NULL=コピーしない)
\r
633 * char *fmt : フォーマット文字列
\r
640 * コマンドコントロールソケットを使う
\r
641 *----------------------------------------------------------------------------*/
\r
643 int CommandProcCmd(char *Reply, char *fmt, ...)
\r
649 va_start(Args, fmt);
\r
650 wvsprintf(Cmd, fmt, Args);
\r
653 if(AskTransferNow() == YES)
\r
657 //DoPrintf("**CommandProcCmd : %s", Cmd);
\r
659 // if((Sts = command(AskCmdCtrlSkt(), Reply, "%s", Cmd)) == 429)
\r
661 // if(ReConnectCmdSkt() == FFFTP_SUCCESS)
\r
663 Sts = command(AskCmdCtrlSkt(), Reply, &CheckCancelFlg, "%s", Cmd);
\r
670 /*----- リモート側へコマンドを送りリプライを待つ(転送ソケット)---------------
\r
673 * char *Reply : リプライのコピー先 (NULL=コピーしない)
\r
674 * char *fmt : フォーマット文字列
\r
682 *----------------------------------------------------------------------------*/
\r
685 //int CommandProcTrn(char *Reply, char *fmt, ...)
\r
686 int CommandProcTrn(SOCKET cSkt, char *Reply, char *fmt, ...)
\r
692 va_start(Args, fmt);
\r
693 wvsprintf(Cmd, fmt, Args);
\r
697 //DoPrintf("**CommandProcTrn : %s", Cmd);
\r
699 // if((Sts = command(AskTrnCtrlSkt(), Reply, "%s", Cmd)) == 429)
\r
701 // if(ReConnectTrnSkt() == FFFTP_SUCCESS)
\r
702 // Sts = command(AskTrnCtrlSkt(), Reply, &CheckCancelFlg, "%s", Cmd);
\r
703 Sts = command(cSkt, Reply, &CheckCancelFlg, "%s", Cmd);
\r
709 /*----- コマンドを送りリプライを待つ ------------------------------------------
\r
712 * SOCKET cSkt : コントロールソケット
\r
713 * char *Reply : リプライのコピー先 (NULL=コピーしない)
\r
714 * char *fmt : フォーマット文字列
\r
721 * ホストのファイル名の漢字コードに応じて、ここで漢字コードの変換を行なう
\r
722 *----------------------------------------------------------------------------*/
\r
725 //static int cntcnt = 0;
\r
727 int command(SOCKET cSkt, char *Reply, int *CancelCheckWork, char *fmt, ...)
\r
730 char Cmd[FMAX_PATH*2];
\r
732 char TmpBuf[ONELINE_BUF_SIZE];
\r
734 if(cSkt != INVALID_SOCKET)
\r
736 va_start(Args, fmt);
\r
737 wvsprintf(Cmd, fmt, Args);
\r
740 if(strncmp(Cmd, "PASS ", 5) == 0)
\r
741 SetTaskMsg(">PASS [xxxxxx]");
\r
742 else if((strncmp(Cmd, "USER ", 5) == 0) ||
\r
743 (strncmp(Cmd, "OPEN ", 5) == 0))
\r
745 SetTaskMsg(">%s", Cmd);
\r
749 ChangeSepaLocal2Remote(Cmd);
\r
750 SetTaskMsg(">%s", Cmd);
\r
751 ChangeFnameLocal2Remote(Cmd, FMAX_PATH*2);
\r
754 // DoPrintf("SEND : %s", Cmd);
\r
755 strcat(Cmd, "\x0D\x0A");
\r
761 if(SendData(cSkt, Cmd, strlen(Cmd), 0, CancelCheckWork) == FFFTP_SUCCESS)
\r
763 Sts = ReadReplyMessage(cSkt, Reply, 1024, CancelCheckWork, TmpBuf);
\r
767 //if(Reply != NULL)
\r
768 // DoPrintf("%x : %x : %s : %s", cSkt, &TmpBuf, Cmd, Reply);
\r
770 // DoPrintf("%x : %x : %s : NULL", cSkt, &TmpBuf, Cmd);
\r
772 // DoPrintf("command() RET=%d", Sts);
\r
781 /*----- データを送る ----------------------------------------------------------
\r
784 * SOCKET Skt : ソケット
\r
786 * int Size : 送るデータのサイズ
\r
787 * int Mode : コールモード
\r
791 * FFFTP_SUCCESS/FFFTP_FAIL
\r
792 *----------------------------------------------------------------------------*/
\r
794 int SendData(SOCKET Skt, char *Data, int Size, int Mode, int *CancelCheckWork)
\r
799 // struct timeval Tout;
\r
800 // struct timeval *ToutPtr;
\r
804 if(Skt != INVALID_SOCKET)
\r
806 Sts = FFFTP_SUCCESS;
\r
809 // FD_ZERO(&SendFds);
\r
810 // FD_SET(Skt, &SendFds);
\r
812 // if(TimeOut != 0)
\r
814 // Tout.tv_sec = TimeOut;
\r
815 // Tout.tv_usec = 0;
\r
816 // ToutPtr = &Tout;
\r
818 // Tmp = select(0, NULL, &SendFds, NULL, ToutPtr);
\r
819 // if(Tmp == SOCKET_ERROR)
\r
821 // Sts = FFFTP_FAIL;
\r
822 // ReportWSError("select", WSAGetLastError());
\r
825 // else if(Tmp == 0)
\r
827 // Sts = FFFTP_FAIL;
\r
828 // SetTaskMsg(MSGJPN241);
\r
832 Tmp = do_send(Skt, Data, Size, Mode, &TimeOutErr, CancelCheckWork);
\r
833 if(TimeOutErr == YES)
\r
836 SetTaskMsg(MSGJPN241);
\r
839 else if(Tmp == SOCKET_ERROR)
\r
842 ReportWSError("send", WSAGetLastError());
\r
854 /*----- 応答メッセージを受け取る ----------------------------------------------
\r
857 * SOCKET cSkt : コントロールソケット
\r
858 * char *Buf : メッセージを受け取るバッファ (NULL=コピーしない)
\r
859 * int Max : バッファのサイズ
\r
860 * int *CancelCheckWork :
\r
861 * char *Tmp : テンポラリワーク
\r
865 *----------------------------------------------------------------------------*/
\r
867 int ReadReplyMessage(SOCKET cSkt, char *Buf, int Max, int *CancelCheckWork, char *Tmp)
\r
876 memset(Buf, NUL, Max);
\r
880 if(cSkt != INVALID_SOCKET)
\r
886 iRetCode = ReadOneLine(cSkt, Tmp, ONELINE_BUF_SIZE, CancelCheckWork);
\r
888 SetTaskMsg("%s", Tmp);
\r
897 if(IsDigit(Tmp[i]) == 0)
\r
902 strncat(Buf, Tmp, Max);
\r
903 Max = max1(0, Max-strlen(Tmp));
\r
905 // strncpy(Buf, Tmp, Max);
\r
908 if((iRetCode != 421) && (iRetCode != 429))
\r
910 if((FirstCode == 0) &&
\r
911 (iRetCode >= 100) && (iRetCode <= 599))
\r
913 FirstCode = iRetCode;
\r
916 if((iRetCode < 100) || (iRetCode > 599) ||
\r
917 (*(Tmp + 3) == '-') ||
\r
918 ((FirstCode > 0) && (iRetCode != FirstCode)))
\r
924 FirstCode = iRetCode;
\r
928 while(iContinue == YES);
\r
934 /*----- 1行分のデータを受け取る ----------------------------------------------
\r
937 * SOCKET cSkt : コントロールソケット
\r
938 * char *Buf : メッセージを受け取るバッファ
\r
939 * int Max : バッファのサイズ
\r
940 * int *CancelCheckWork :
\r
944 *----------------------------------------------------------------------------*/
\r
946 static int ReadOneLine(SOCKET cSkt, char *Buf, int Max, int *CancelCheckWork)
\r
954 // struct timeval Tout;
\r
955 // struct timeval *ToutPtr;
\r
960 if(cSkt != INVALID_SOCKET)
\r
962 memset(Buf, NUL, Max);
\r
963 Max--; /* 末尾のNULLのぶん */
\r
968 // FD_ZERO(&ReadFds);
\r
969 // FD_SET(cSkt, &ReadFds);
\r
971 // if(TimeOut != 0)
\r
973 // Tout.tv_sec = TimeOut;
\r
974 // Tout.tv_usec = 0;
\r
975 // ToutPtr = &Tout;
\r
977 // i = select(0, &ReadFds, NULL, NULL, ToutPtr);
\r
978 // if(i == SOCKET_ERROR)
\r
980 // ReportWSError("select", WSAGetLastError());
\r
986 // SetTaskMsg(MSGJPN242);
\r
991 /* LFまでを受信するために、最初はPEEKで受信 */
\r
992 if((SizeOnce = do_recv(cSkt, (LPSTR)Tmp, 1024, MSG_PEEK, &TimeOutErr, CancelCheckWork)) <= 0)
\r
994 if(TimeOutErr == YES)
\r
996 SetTaskMsg(MSGJPN242);
\r
999 else if(SizeOnce == SOCKET_ERROR)
\r
1006 /* LFを探して、あったらそこまでの長さをセット */
\r
1007 for(i = 0; i < SizeOnce ; i++)
\r
1009 if(*(Tmp + i) == NUL || *(Tmp + i) == 0x0A)
\r
1017 if((SizeOnce = do_recv(cSkt, Tmp, SizeOnce, 0, &TimeOutErr, CancelCheckWork)) <= 0)
\r
1020 CopySize = min1(Max, SizeOnce);
\r
1021 memcpy(Pos, Tmp, CopySize);
\r
1025 /* データがLFで終わっていたら1行終わり */
\r
1026 if(*(Tmp + SizeOnce - 1) == 0x0A)
\r
1034 memset(Buf, 0, Max);
\r
1036 if((SizeOnce == -2) || (AskTransferNow() == YES))
\r
1037 // 転送中に全て中止を行うと不正なデータが得られる場合のバグ修正
\r
1038 // エラーの種類によっては無限ループとスタックオーバーフローの可能性あり
\r
1039 // DisconnectSet();
\r
1041 if(SizeOnce == -1)
\r
1042 ReConnectTrnSkt(&cSkt);
\r
1049 if(IsDigit(*Buf) && IsDigit(*(Buf+1)) && IsDigit(*(Buf+2)))
\r
1051 memset(Tmp, NUL, 4);
\r
1052 strncpy(Tmp, Buf, 3);
\r
1053 ResCode = atoi(Tmp);
\r
1056 /* 末尾の CR,LF,スペースを取り除く */
\r
1057 while((i=strlen(Buf))>2 &&
\r
1058 (Buf[i-1]==0x0a || Buf[i-1]==0x0d || Buf[i-1]==' '))
\r
1066 /*----- 固定長データを受け取る ------------------------------------------------
\r
1069 * SOCKET cSkt : コントロールソケット
\r
1070 * char *Buf : メッセージを受け取るバッファ
\r
1072 * int *CancelCheckWork :
\r
1076 * FFFTP_SUCCESS/FFFTP_FAIL
\r
1077 *----------------------------------------------------------------------------*/
\r
1079 int ReadNchar(SOCKET cSkt, char *Buf, int Size, int *CancelCheckWork)
\r
1081 // struct timeval Tout;
\r
1082 // struct timeval *ToutPtr;
\r
1083 // fd_set ReadFds;
\r
1090 if(cSkt != INVALID_SOCKET)
\r
1092 Sts = FFFTP_SUCCESS;
\r
1095 // FD_ZERO(&ReadFds);
\r
1096 // FD_SET(cSkt, &ReadFds);
\r
1097 // ToutPtr = NULL;
\r
1098 // if(TimeOut != 0)
\r
1100 // Tout.tv_sec = TimeOut;
\r
1101 // Tout.tv_usec = 0;
\r
1102 // ToutPtr = &Tout;
\r
1104 // i = select(0, &ReadFds, NULL, NULL, ToutPtr);
\r
1105 // if(i == SOCKET_ERROR)
\r
1107 // ReportWSError("select", WSAGetLastError());
\r
1108 // Sts = FFFTP_FAIL;
\r
1111 // else if(i == 0)
\r
1113 // SetTaskMsg(MSGJPN243);
\r
1114 // Sts = FFFTP_FAIL;
\r
1118 if((SizeOnce = do_recv(cSkt, Buf, Size, 0, &TimeOutErr, CancelCheckWork)) <= 0)
\r
1120 if(TimeOutErr == YES)
\r
1121 SetTaskMsg(MSGJPN243);
\r
1131 if(Sts == FFFTP_FAIL)
\r
1132 SetTaskMsg(MSGJPN244);
\r
1138 /*----- エラー文字列を取得 ----------------------------------------------------
\r
1141 * UINT Error : エラー番号
\r
1145 *----------------------------------------------------------------------------*/
\r
1147 char *ReturnWSError(UINT Error)
\r
1149 static char Msg[128];
\r
1154 case WSAVERNOTSUPPORTED:
\r
1155 Str = "version of WinSock not supported";
\r
1158 case WSASYSNOTREADY:
\r
1159 Str = "WinSock not present or not responding";
\r
1163 Str = "app version not supported by DLL";
\r
1166 case WSAHOST_NOT_FOUND:
\r
1167 Str = "Authoritive: Host not found";
\r
1170 case WSATRY_AGAIN:
\r
1171 Str = "Non-authoritive: host not found or server failure";
\r
1174 case WSANO_RECOVERY:
\r
1175 Str = "Non-recoverable: refused or not implemented";
\r
1179 Str = "Valid name, no data record for type";
\r
1183 case WSANO_ADDRESS:
\r
1184 Str = "Valid name, no MX record";
\r
1188 case WSANOTINITIALISED:
\r
1189 Str = "WSA Startup not initialized";
\r
1193 Str = "Network subsystem failed";
\r
1196 case WSAEINPROGRESS:
\r
1197 Str = "Blocking operation in progress";
\r
1201 Str = "Blocking call cancelled";
\r
1204 case WSAEAFNOSUPPORT:
\r
1205 Str = "address family not supported";
\r
1209 Str = "no file descriptors available";
\r
1213 Str = "no buffer space available";
\r
1216 case WSAEPROTONOSUPPORT:
\r
1217 Str = "specified protocol not supported";
\r
1220 case WSAEPROTOTYPE:
\r
1221 Str = "protocol wrong type for this socket";
\r
1224 case WSAESOCKTNOSUPPORT:
\r
1225 Str = "socket type not supported for address family";
\r
1229 Str = "descriptor is not a socket";
\r
1232 case WSAEWOULDBLOCK:
\r
1233 Str = "socket marked as non-blocking and SO_LINGER set not 0";
\r
1236 case WSAEADDRINUSE:
\r
1237 Str = "address already in use";
\r
1240 case WSAECONNABORTED:
\r
1241 Str = "connection aborted";
\r
1244 case WSAECONNRESET:
\r
1245 Str = "connection reset";
\r
1249 Str = "not connected";
\r
1252 case WSAETIMEDOUT:
\r
1253 Str = "connection timed out";
\r
1256 case WSAECONNREFUSED:
\r
1257 Str = "connection refused";
\r
1260 case WSAEHOSTDOWN:
\r
1261 Str = "host down";
\r
1264 case WSAEHOSTUNREACH:
\r
1265 Str = "host unreachable";
\r
1268 case WSAEADDRNOTAVAIL:
\r
1269 Str = "address not available";
\r
1273 sprintf(Msg, "error %u", Error);
\r
1280 /*----- デバッグコンソールにエラーを表示 --------------------------------------
\r
1283 * char *Msg : エラーの前に表示するメッセージ
\r
1284 * UINT Error : エラー番号
\r
1288 *----------------------------------------------------------------------------*/
\r
1290 void ReportWSError(char *Msg, UINT Error)
\r
1293 DoPrintf("[[%s : %s]]", Msg, ReturnWSError(Error));
\r
1295 DoPrintf("[[%s]]", ReturnWSError(Error));
\r
1299 /*----- ファイル名をローカル側で扱えるように変換する --------------------------
\r
1302 * char *Fname : ファイル名
\r
1307 * FFFTP_SUCCESS/FFFTP_FAIL
\r
1308 *----------------------------------------------------------------------------*/
\r
1310 int ChangeFnameRemote2Local(char *Fname, int Max)
\r
1315 CODECONVINFO cInfo;
\r
1318 if((Buf = malloc(Max)) != NULL)
\r
1320 InitCodeConvInfo(&cInfo);
\r
1321 cInfo.KanaCnv = NO; //AskHostNameKana();
\r
1322 cInfo.Str = Fname;
\r
1323 cInfo.StrLen = strlen(Fname);
\r
1325 cInfo.BufSize = Max - 1;
\r
1327 // ここで全てUTF-8へ変換する
\r
1328 // TODO: SJIS以外も直接UTF-8へ変換
\r
1329 switch(AskHostNameKanji())
\r
1332 ConvSJIStoUTF8N(&cInfo);
\r
1333 *(Buf + cInfo.OutLen) = NUL;
\r
1334 strcpy(Fname, Buf);
\r
1335 Pos = strchr(Fname, NUL);
\r
1336 FlushRestData(&cInfo);
\r
1337 *(Buf + cInfo.OutLen) = NUL;
\r
1342 ConvJIStoSJIS(&cInfo);
\r
1343 *(Buf + cInfo.OutLen) = NUL;
\r
1344 strcpy(Fname, Buf);
\r
1345 Pos = strchr(Fname, NUL);
\r
1346 FlushRestData(&cInfo);
\r
1347 *(Buf + cInfo.OutLen) = NUL;
\r
1350 InitCodeConvInfo(&cInfo);
\r
1351 cInfo.KanaCnv = NO;
\r
1352 cInfo.Str = Fname;
\r
1353 cInfo.StrLen = strlen(Fname);
\r
1355 cInfo.BufSize = Max - 1;
\r
1356 ConvSJIStoUTF8N(&cInfo);
\r
1357 *(Buf + cInfo.OutLen) = NUL;
\r
1358 strcpy(Fname, Buf);
\r
1359 Pos = strchr(Fname, NUL);
\r
1360 FlushRestData(&cInfo);
\r
1361 *(Buf + cInfo.OutLen) = NUL;
\r
1366 ConvEUCtoSJIS(&cInfo);
\r
1367 *(Buf + cInfo.OutLen) = NUL;
\r
1368 strcpy(Fname, Buf);
\r
1369 Pos = strchr(Fname, NUL);
\r
1370 FlushRestData(&cInfo);
\r
1371 *(Buf + cInfo.OutLen) = NUL;
\r
1374 InitCodeConvInfo(&cInfo);
\r
1375 cInfo.KanaCnv = NO;
\r
1376 cInfo.Str = Fname;
\r
1377 cInfo.StrLen = strlen(Fname);
\r
1379 cInfo.BufSize = Max - 1;
\r
1380 ConvSJIStoUTF8N(&cInfo);
\r
1381 *(Buf + cInfo.OutLen) = NUL;
\r
1382 strcpy(Fname, Buf);
\r
1383 Pos = strchr(Fname, NUL);
\r
1384 FlushRestData(&cInfo);
\r
1385 *(Buf + cInfo.OutLen) = NUL;
\r
1389 case KANJI_SMB_HEX :
\r
1390 case KANJI_SMB_CAP :
\r
1391 ConvSMBtoSJIS(&cInfo);
\r
1392 *(Buf + cInfo.OutLen) = NUL;
\r
1393 strcpy(Fname, Buf);
\r
1394 Pos = strchr(Fname, NUL);
\r
1395 FlushRestData(&cInfo);
\r
1396 *(Buf + cInfo.OutLen) = NUL;
\r
1399 InitCodeConvInfo(&cInfo);
\r
1400 cInfo.KanaCnv = NO;
\r
1401 cInfo.Str = Fname;
\r
1402 cInfo.StrLen = strlen(Fname);
\r
1404 cInfo.BufSize = Max - 1;
\r
1405 ConvSJIStoUTF8N(&cInfo);
\r
1406 *(Buf + cInfo.OutLen) = NUL;
\r
1407 strcpy(Fname, Buf);
\r
1408 Pos = strchr(Fname, NUL);
\r
1409 FlushRestData(&cInfo);
\r
1410 *(Buf + cInfo.OutLen) = NUL;
\r
1414 // case KANJI_UTF8N :
\r
1415 // ConvUTF8NtoSJIS(&cInfo);
\r
1416 // *(Buf + cInfo.OutLen) = NUL;
\r
1417 // strcpy(Fname, Buf);
\r
1418 // Pos = strchr(Fname, NUL);
\r
1419 // FlushRestData(&cInfo);
\r
1420 // *(Buf + cInfo.OutLen) = NUL;
\r
1421 // strcpy(Pos, Buf);
\r
1425 Sts = FFFTP_SUCCESS;
\r
1431 /*----- ファイル名をリモート側で扱えるように変換する --------------------------
\r
1434 * char *Fname : ファイル名
\r
1439 * FFFTP_SUCCESS/FFFTP_FAIL
\r
1440 *----------------------------------------------------------------------------*/
\r
1442 int ChangeFnameLocal2Remote(char *Fname, int Max)
\r
1447 CODECONVINFO cInfo;
\r
1450 if((Buf = malloc(Max)) != NULL)
\r
1452 InitCodeConvInfo(&cInfo);
\r
1453 cInfo.KanaCnv = AskHostNameKana();
\r
1454 cInfo.Str = Fname;
\r
1455 cInfo.StrLen = strlen(Fname);
\r
1457 cInfo.BufSize = Max - 1;
\r
1459 // ここで全てUTF-8から変換する
\r
1460 // TODO: SJIS以外も直接UTF-8から変換
\r
1461 switch(AskHostNameKanji())
\r
1464 ConvUTF8NtoSJIS(&cInfo);
\r
1465 *(Buf + cInfo.OutLen) = NUL;
\r
1466 strcpy(Fname, Buf);
\r
1467 Pos = strchr(Fname, NUL);
\r
1468 FlushRestData(&cInfo);
\r
1469 *(Buf + cInfo.OutLen) = NUL;
\r
1474 ConvUTF8NtoSJIS(&cInfo);
\r
1475 *(Buf + cInfo.OutLen) = NUL;
\r
1476 strcpy(Fname, Buf);
\r
1477 Pos = strchr(Fname, NUL);
\r
1478 FlushRestData(&cInfo);
\r
1479 *(Buf + cInfo.OutLen) = NUL;
\r
1482 InitCodeConvInfo(&cInfo);
\r
1483 cInfo.KanaCnv = NO;
\r
1484 cInfo.Str = Fname;
\r
1485 cInfo.StrLen = strlen(Fname);
\r
1487 cInfo.BufSize = Max - 1;
\r
1488 ConvSJIStoJIS(&cInfo);
\r
1489 *(Buf + cInfo.OutLen) = NUL;
\r
1490 strcpy(Fname, Buf);
\r
1491 Pos = strchr(Fname, NUL);
\r
1492 FlushRestData(&cInfo);
\r
1493 *(Buf + cInfo.OutLen) = NUL;
\r
1498 ConvUTF8NtoSJIS(&cInfo);
\r
1499 *(Buf + cInfo.OutLen) = NUL;
\r
1500 strcpy(Fname, Buf);
\r
1501 Pos = strchr(Fname, NUL);
\r
1502 FlushRestData(&cInfo);
\r
1503 *(Buf + cInfo.OutLen) = NUL;
\r
1506 InitCodeConvInfo(&cInfo);
\r
1507 cInfo.KanaCnv = NO;
\r
1508 cInfo.Str = Fname;
\r
1509 cInfo.StrLen = strlen(Fname);
\r
1511 cInfo.BufSize = Max - 1;
\r
1512 ConvSJIStoEUC(&cInfo);
\r
1513 *(Buf + cInfo.OutLen) = NUL;
\r
1514 strcpy(Fname, Buf);
\r
1515 Pos = strchr(Fname, NUL);
\r
1516 FlushRestData(&cInfo);
\r
1517 *(Buf + cInfo.OutLen) = NUL;
\r
1521 case KANJI_SMB_HEX :
\r
1522 ConvUTF8NtoSJIS(&cInfo);
\r
1523 *(Buf + cInfo.OutLen) = NUL;
\r
1524 strcpy(Fname, Buf);
\r
1525 Pos = strchr(Fname, NUL);
\r
1526 FlushRestData(&cInfo);
\r
1527 *(Buf + cInfo.OutLen) = NUL;
\r
1530 InitCodeConvInfo(&cInfo);
\r
1531 cInfo.KanaCnv = NO;
\r
1532 cInfo.Str = Fname;
\r
1533 cInfo.StrLen = strlen(Fname);
\r
1535 cInfo.BufSize = Max - 1;
\r
1536 ConvSJIStoSMB_HEX(&cInfo);
\r
1537 *(Buf + cInfo.OutLen) = NUL;
\r
1538 strcpy(Fname, Buf);
\r
1539 Pos = strchr(Fname, NUL);
\r
1540 FlushRestData(&cInfo);
\r
1541 *(Buf + cInfo.OutLen) = NUL;
\r
1545 case KANJI_SMB_CAP :
\r
1546 ConvUTF8NtoSJIS(&cInfo);
\r
1547 *(Buf + cInfo.OutLen) = NUL;
\r
1548 strcpy(Fname, Buf);
\r
1549 Pos = strchr(Fname, NUL);
\r
1550 FlushRestData(&cInfo);
\r
1551 *(Buf + cInfo.OutLen) = NUL;
\r
1554 InitCodeConvInfo(&cInfo);
\r
1555 cInfo.KanaCnv = NO;
\r
1556 cInfo.Str = Fname;
\r
1557 cInfo.StrLen = strlen(Fname);
\r
1559 cInfo.BufSize = Max - 1;
\r
1560 ConvSJIStoSMB_CAP(&cInfo);
\r
1561 *(Buf + cInfo.OutLen) = NUL;
\r
1562 strcpy(Fname, Buf);
\r
1563 Pos = strchr(Fname, NUL);
\r
1564 FlushRestData(&cInfo);
\r
1565 *(Buf + cInfo.OutLen) = NUL;
\r
1569 // case KANJI_UTF8N :
\r
1570 // ConvSJIStoUTF8N(&cInfo);
\r
1571 // *(Buf + cInfo.OutLen) = NUL;
\r
1572 // strcpy(Fname, Buf);
\r
1573 // Pos = strchr(Fname, NUL);
\r
1574 // FlushRestData(&cInfo);
\r
1575 // *(Buf + cInfo.OutLen) = NUL;
\r
1576 // strcpy(Pos, Buf);
\r
1580 Sts = FFFTP_SUCCESS;
\r
1586 /*----- パスの区切り文字をホストに合わせて変更する ----------------------------
\r
1589 * char *Fname : ファイル名
\r
1593 *----------------------------------------------------------------------------*/
\r
1594 static void ChangeSepaLocal2Remote(char *Fname)
\r
1596 if(AskHostType() == HTYPE_STRATUS)
\r
1598 ReplaceAll(Fname, '/', '>');
\r
1604 /*----- パスの区切り文字をローカルに合わせて変更する --------------------------
\r
1607 * char *Fname : ファイル名
\r
1611 *----------------------------------------------------------------------------*/
\r
1612 static void ChangeSepaRemote2Local(char *Fname)
\r
1614 if(AskHostType() == HTYPE_STRATUS)
\r
1616 ReplaceAll(Fname, '>', '/');
\r