Просмотр исходного кода

Bug 1451: Directory listing lacks attributes on MVS systems

https://winscp.net/tracker/1451

Source commit: 5085f9d05c9fbc019e789f088ccf424506558eba
Martin Prikryl 9 лет назад
Родитель
Сommit
11bd37aad2
1 измененных файлов с 6 добавлено и 2 удалено
  1. 6 2
      source/core/FtpFileSystem.cpp

+ 6 - 2
source/core/FtpFileSystem.cpp

@@ -3789,9 +3789,13 @@ void __fastcall TFTPFileSystem::HandleReplyStatus(UnicodeString Response)
       if (FLastCode == 215)
       {
         FSystem = FLastResponse->Text.TrimRight();
-        // full name is "Personal FTP Server PRO K6.0"
         if ((FListAll == asAuto) &&
-            (FSystem.Pos(L"Personal FTP Server") > 0))
+             // full name is "Personal FTP Server PRO K6.0"
+            ((FSystem.Pos(L"Personal FTP Server") > 0) ||
+             // full name is "MVS is the operating system of this server. FTP Server is running on ..."
+             // (the ... can be "z/OS")
+             // https://www.ibm.com/support/knowledgecenter/SSLTBW_2.1.0/com.ibm.zos.v2r1.cs3cod0/ftp215-02.htm
+             (FSystem.SubString(1, 3) == L"MVS")))
         {
           FTerminal->LogEvent(L"Server is known not to support LIST -a");
           FListAll = asOff;