https:// URL to S3 API at oraclecloud.com is interpreted as S3 protocol, instead of WebDAV

Source commit: 753bcabac3f1dca913a554d65189a38f44411082

source/core/SessionData.cpp

@@ -2382,7 +2382,8 @@ bool __fastcall TSessionData::ParseUrl(UnicodeString Url, TOptions * Options,
             (IsDomainOrSubdomain(HostName, S3HostName) ||
              IsDomainOrSubdomain(HostName, L"digitaloceanspaces.com") ||
              IsDomainOrSubdomain(HostName, S3GoogleCloudHostName) ||
-             IsDomainOrSubdomain(HostName, L"r2.cloudflarestorage.com")))
+             IsDomainOrSubdomain(HostName, L"r2.cloudflarestorage.com") ||
+             (IsDomainOrSubdomain(HostName, L"oraclecloud.com") && ContainsText(HostName, L".compat.objectstorage."))))
         {
           AFSProtocol = fsS3;
         }