// Licensed to the Apache Software Foundation (ASF) under one

// or more contributor license agreements.  See the NOTICE file

// distributed with this work for additional information

// regarding copyright ownership.  The ASF licenses this file

// to you under the Apache License, Version 2.0 (the

// "License"); you may not use this file except in compliance

// with the License.  You may obtain a copy of the License at

//

//   http://www.apache.org/licenses/LICENSE-2.0

//

// Unless required by applicable law or agreed to in writing,

// software distributed under the License is distributed on an

// "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY

// KIND, either express or implied.  See the License for the

// specific language governing permissions and limitations

// under the License.

#include "util/s3_util.h"

#include <aws/core/auth/AWSAuthSigner.h>

#include <aws/core/auth/AWSCredentials.h>

#include <aws/core/auth/AWSCredentialsProviderChain.h>

#include <aws/core/client/DefaultRetryStrategy.h>

#include <aws/core/utils/logging/LogLevel.h>

#include <aws/core/utils/logging/LogSystemInterface.h>

#include <aws/core/utils/memory/stl/AWSStringStream.h>

#include <aws/identity-management/auth/STSAssumeRoleCredentialsProvider.h>

#include <aws/s3/S3Client.h>

#include <aws/sts/STSClient.h>

#include <bvar/reducer.h>

#include <util/string_util.h>

#include <atomic>

#ifdef USE_AZURE

#include <azure/storage/blobs/blob_container_client.hpp>

#endif

#include <cstdlib>

#include <filesystem>

#include <functional>

#include <memory>

#include <ostream>

#include <utility>

#include "common/config.h"

#include "common/logging.h"

#include "common/status.h"

#include "cpp/aws_logger.h"

#include "cpp/obj_retry_strategy.h"

#include "cpp/sync_point.h"

#ifdef USE_AZURE

#include "io/fs/azure_obj_storage_client.h"

#endif

#include "io/fs/obj_storage_client.h"

#include "io/fs/s3_obj_storage_client.h"

#include "runtime/exec_env.h"

#include "s3_uri.h"

#include "vec/exec/scan/scanner_scheduler.h"

namespace doris {

namespace s3_bvar {

bvar::LatencyRecorder s3_get_latency("s3_get");

bvar::LatencyRecorder s3_put_latency("s3_put");

bvar::LatencyRecorder s3_delete_object_latency("s3_delete_object");

bvar::LatencyRecorder s3_delete_objects_latency("s3_delete_objects");

bvar::LatencyRecorder s3_head_latency("s3_head");

bvar::LatencyRecorder s3_multi_part_upload_latency("s3_multi_part_upload");

bvar::LatencyRecorder s3_list_latency("s3_list");

bvar::LatencyRecorder s3_list_object_versions_latency("s3_list_object_versions");

bvar::LatencyRecorder s3_get_bucket_version_latency("s3_get_bucket_version");

bvar::LatencyRecorder s3_copy_object_latency("s3_copy_object");

}; // namespace s3_bvar

namespace {

doris::Status is_s3_conf_valid(const S3ClientConf& conf) {

    if (conf.endpoint.empty()) {

        return Status::InvalidArgument<false>("Invalid s3 conf, empty endpoint");

    }

    if (conf.region.empty()) {

        return Status::InvalidArgument<false>("Invalid s3 conf, empty region");

    }

    if (conf.role_arn.empty()) {

        if (conf.ak.empty()) {

            return Status::InvalidArgument<false>("Invalid s3 conf, empty ak");

        }

        if (conf.sk.empty()) {

            return Status::InvalidArgument<false>("Invalid s3 conf, empty sk");

        }

    }

    return Status::OK();

}

// Return true is convert `str` to int successfully

bool to_int(std::string_view str, int& res) {

    auto [_, ec] = std::from_chars(str.data(), str.data() + str.size(), res);

    return ec == std::errc {};

}

constexpr char USE_PATH_STYLE[] = "use_path_style";

constexpr char AZURE_PROVIDER_STRING[] = "AZURE";

constexpr char S3_PROVIDER[] = "provider";

constexpr char S3_AK[] = "AWS_ACCESS_KEY";

constexpr char S3_SK[] = "AWS_SECRET_KEY";

constexpr char S3_ENDPOINT[] = "AWS_ENDPOINT";

constexpr char S3_REGION[] = "AWS_REGION";

constexpr char S3_TOKEN[] = "AWS_TOKEN";

constexpr char S3_MAX_CONN_SIZE[] = "AWS_MAX_CONN_SIZE";

constexpr char S3_REQUEST_TIMEOUT_MS[] = "AWS_REQUEST_TIMEOUT_MS";

constexpr char S3_CONN_TIMEOUT_MS[] = "AWS_CONNECTION_TIMEOUT_MS";

constexpr char S3_NEED_OVERRIDE_ENDPOINT[] = "AWS_NEED_OVERRIDE_ENDPOINT";

constexpr char S3_ROLE_ARN[] = "AWS_ROLE_ARN";

constexpr char S3_EXTERNAL_ID[] = "AWS_EXTERNAL_ID";

} // namespace

bvar::Adder<int64_t> get_rate_limit_ns("get_rate_limit_ns");

bvar::Adder<int64_t> get_rate_limit_exceed_req_num("get_rate_limit_exceed_req_num");

bvar::Adder<int64_t> put_rate_limit_ns("put_rate_limit_ns");

bvar::Adder<int64_t> put_rate_limit_exceed_req_num("put_rate_limit_exceed_req_num");

S3RateLimiterHolder* S3ClientFactory::rate_limiter(S3RateLimitType type) {

    CHECK(type == S3RateLimitType::GET || type == S3RateLimitType::PUT) << to_string(type);

    return _rate_limiters[static_cast<size_t>(type)].get();

}

int reset_s3_rate_limiter(S3RateLimitType type, size_t max_speed, size_t max_burst, size_t limit) {

    if (type == S3RateLimitType::UNKNOWN) {

        return -1;

    }

    return S3ClientFactory::instance().rate_limiter(type)->reset(max_speed, max_burst, limit);

}

S3ClientFactory::S3ClientFactory() {

    _aws_options = Aws::SDKOptions {};

    auto logLevel = static_cast<Aws::Utils::Logging::LogLevel>(config::aws_log_level);

    _aws_options.loggingOptions.logLevel = logLevel;

    _aws_options.loggingOptions.logger_create_fn = [logLevel] {

        return std::make_shared<DorisAWSLogger>(logLevel);

    };

    Aws::InitAPI(_aws_options);

    _ca_cert_file_path = get_valid_ca_cert_path(doris::split(config::ca_cert_file_paths, ";"));

    _rate_limiters = {

            std::make_unique<S3RateLimiterHolder>(

                    config::s3_get_token_per_second, config::s3_get_bucket_tokens,

                    config::s3_get_token_limit,

                    metric_func_factory(get_rate_limit_ns, get_rate_limit_exceed_req_num)),

            std::make_unique<S3RateLimiterHolder>(

                    config::s3_put_token_per_second, config::s3_put_bucket_tokens,

                    config::s3_put_token_limit,

                    metric_func_factory(put_rate_limit_ns, put_rate_limit_exceed_req_num))};

}

S3ClientFactory::~S3ClientFactory() {

    Aws::ShutdownAPI(_aws_options);

}

S3ClientFactory& S3ClientFactory::instance() {

    static S3ClientFactory ret;

    return ret;

}

std::shared_ptr<io::ObjStorageClient> S3ClientFactory::create(const S3ClientConf& s3_conf) {

    if (!is_s3_conf_valid(s3_conf).ok()) {

        return nullptr;

    }

    uint64_t hash = s3_conf.get_hash();

    {

        std::lock_guard l(_lock);

        auto it = _cache.find(hash);

        if (it != _cache.end()) {

            return it->second;

        }

    }

    auto obj_client = (s3_conf.provider == io::ObjStorageType::AZURE)

                              ? _create_azure_client(s3_conf)

                              : _create_s3_client(s3_conf);

    {

        uint64_t hash = s3_conf.get_hash();

        std::lock_guard l(_lock);

        _cache[hash] = obj_client;

    }

    return obj_client;

}

std::shared_ptr<io::ObjStorageClient> S3ClientFactory::_create_azure_client(

        const S3ClientConf& s3_conf) {

#ifdef USE_AZURE

    auto cred =

            std::make_shared<Azure::Storage::StorageSharedKeyCredential>(s3_conf.ak, s3_conf.sk);

    const std::string container_name = s3_conf.bucket;

    std::string uri;

    if (config::force_azure_blob_global_endpoint) {

        uri = fmt::format("https://{}.blob.core.windows.net/{}", s3_conf.ak, container_name);

    } else {

        uri = fmt::format("{}/{}", s3_conf.endpoint, container_name);

        if (s3_conf.endpoint.find("://") == std::string::npos) {

            uri = "https://" + uri;

        }

    }

    auto containerClient = std::make_shared<Azure::Storage::Blobs::BlobContainerClient>(uri, cred);

    LOG_INFO("create one azure client with {}", s3_conf.to_string());

    return std::make_shared<io::AzureObjStorageClient>(std::move(containerClient));

#else

    LOG_FATAL("BE is not compiled with azure support, export BUILD_AZURE=ON before building");

    return nullptr;

#endif

}

std::shared_ptr<Aws::Auth::AWSCredentialsProvider> S3ClientFactory::get_aws_credentials_provider(

        const S3ClientConf& s3_conf) {

    if (!s3_conf.ak.empty() && !s3_conf.sk.empty()) {

        Aws::Auth::AWSCredentials aws_cred(s3_conf.ak, s3_conf.sk);

        DCHECK(!aws_cred.IsExpiredOrEmpty());

        if (!s3_conf.token.empty()) {

            aws_cred.SetSessionToken(s3_conf.token);

        }

        return std::make_shared<Aws::Auth::SimpleAWSCredentialsProvider>(std::move(aws_cred));

    }

    if (s3_conf.cred_provider_type == CredProviderType::InstanceProfile) {

        if (s3_conf.role_arn.empty()) {

            return std::make_shared<Aws::Auth::InstanceProfileCredentialsProvider>();

        }

        Aws::Client::ClientConfiguration clientConfiguration =

                S3ClientFactory::getClientConfiguration();

        if (_ca_cert_file_path.empty()) {

            _ca_cert_file_path =

                    get_valid_ca_cert_path(doris::split(config::ca_cert_file_paths, ";"));

        }

        if (!_ca_cert_file_path.empty()) {

            clientConfiguration.caFile = _ca_cert_file_path;

        }

        auto stsClient = std::make_shared<Aws::STS::STSClient>(

                std::make_shared<Aws::Auth::InstanceProfileCredentialsProvider>(),

                clientConfiguration);

        return std::make_shared<Aws::Auth::STSAssumeRoleCredentialsProvider>(

                s3_conf.role_arn, Aws::String(), s3_conf.external_id,

                Aws::Auth::DEFAULT_CREDS_LOAD_FREQ_SECONDS, stsClient);

    }

    return std::make_shared<Aws::Auth::DefaultAWSCredentialsProviderChain>();

}

std::shared_ptr<io::ObjStorageClient> S3ClientFactory::_create_s3_client(

        const S3ClientConf& s3_conf) {

    TEST_SYNC_POINT_RETURN_WITH_VALUE(

            "s3_client_factory::create",

            std::make_shared<io::S3ObjStorageClient>(std::make_shared<Aws::S3::S3Client>()));

    Aws::Client::ClientConfiguration aws_config = S3ClientFactory::getClientConfiguration();

    if (s3_conf.need_override_endpoint) {

        aws_config.endpointOverride = s3_conf.endpoint;

    }

    aws_config.region = s3_conf.region;

    if (_ca_cert_file_path.empty()) {

        _ca_cert_file_path = get_valid_ca_cert_path(doris::split(config::ca_cert_file_paths, ";"));

    }

    if (!_ca_cert_file_path.empty()) {

        aws_config.caFile = _ca_cert_file_path;

    }

    if (s3_conf.max_connections > 0) {

        aws_config.maxConnections = s3_conf.max_connections;

    } else {

#ifdef BE_TEST

        // the S3Client may shared by many threads.

        // So need to set the number of connections large enough.

        aws_config.maxConnections = config::doris_scanner_thread_pool_thread_num;

#else

        aws_config.maxConnections =

                ExecEnv::GetInstance()->scanner_scheduler()->remote_thread_pool_max_thread_num();

#endif

    }

    aws_config.requestTimeoutMs = 30000;

    if (s3_conf.request_timeout_ms > 0) {

        aws_config.requestTimeoutMs = s3_conf.request_timeout_ms;

    }

    if (s3_conf.connect_timeout_ms > 0) {

        aws_config.connectTimeoutMs = s3_conf.connect_timeout_ms;

    }

    if (config::s3_client_http_scheme == "http") {

        aws_config.scheme = Aws::Http::Scheme::HTTP;

    }

    aws_config.retryStrategy = std::make_shared<S3CustomRetryStrategy>(

            config::max_s3_client_retry /*scaleFactor = 25*/);

    std::shared_ptr<Aws::S3::S3Client> new_client = std::make_shared<Aws::S3::S3Client>(

            get_aws_credentials_provider(s3_conf), std::move(aws_config),

            Aws::Client::AWSAuthV4Signer::PayloadSigningPolicy::Never,

            s3_conf.use_virtual_addressing);

    auto obj_client = std::make_shared<io::S3ObjStorageClient>(std::move(new_client));

    LOG_INFO("create one s3 client with {}", s3_conf.to_string());

    return obj_client;

}

Status S3ClientFactory::convert_properties_to_s3_conf(

        const std::map<std::string, std::string>& prop, const S3URI& s3_uri, S3Conf* s3_conf) {

    StringCaseMap<std::string> properties(prop.begin(), prop.end());

    if (auto it = properties.find(S3_AK); it != properties.end()) {

        s3_conf->client_conf.ak = it->second;

    }

    if (auto it = properties.find(S3_SK); it != properties.end()) {

        s3_conf->client_conf.sk = it->second;

    }

    if (auto it = properties.find(S3_TOKEN); it != properties.end()) {

        s3_conf->client_conf.token = it->second;

    }

    if (auto it = properties.find(S3_ENDPOINT); it != properties.end()) {

        s3_conf->client_conf.endpoint = it->second;

    }

    if (auto it = properties.find(S3_NEED_OVERRIDE_ENDPOINT); it != properties.end()) {

        s3_conf->client_conf.need_override_endpoint = (it->second == "true");

    }

    if (auto it = properties.find(S3_REGION); it != properties.end()) {

        s3_conf->client_conf.region = it->second;

    }

    if (auto it = properties.find(S3_MAX_CONN_SIZE); it != properties.end()) {

        if (!to_int(it->second, s3_conf->client_conf.max_connections)) {

            return Status::InvalidArgument("invalid {} value \"{}\"", S3_MAX_CONN_SIZE, it->second);

        }

    }

    if (auto it = properties.find(S3_REQUEST_TIMEOUT_MS); it != properties.end()) {

        if (!to_int(it->second, s3_conf->client_conf.request_timeout_ms)) {

            return Status::InvalidArgument("invalid {} value \"{}\"", S3_REQUEST_TIMEOUT_MS,

                                           it->second);

        }

    }

    if (auto it = properties.find(S3_CONN_TIMEOUT_MS); it != properties.end()) {

        if (!to_int(it->second, s3_conf->client_conf.connect_timeout_ms)) {

            return Status::InvalidArgument("invalid {} value \"{}\"", S3_CONN_TIMEOUT_MS,

                                           it->second);

        }

    }

    if (auto it = properties.find(S3_PROVIDER); it != properties.end()) {

        // S3 Provider properties should be case insensitive.

        if (0 == strcasecmp(it->second.c_str(), AZURE_PROVIDER_STRING)) {

            s3_conf->client_conf.provider = io::ObjStorageType::AZURE;

        }

    }

    if (s3_uri.get_bucket().empty()) {

        return Status::InvalidArgument("Invalid S3 URI {}, bucket is not specified",

                                       s3_uri.to_string());

    }

    s3_conf->bucket = s3_uri.get_bucket();

    // For azure's compatibility

    s3_conf->client_conf.bucket = s3_uri.get_bucket();

    s3_conf->prefix = "";

    // See https://sdk.amazonaws.com/cpp/api/LATEST/class_aws_1_1_s3_1_1_s3_client.html

    s3_conf->client_conf.use_virtual_addressing = true;

    if (auto it = properties.find(USE_PATH_STYLE); it != properties.end()) {

        s3_conf->client_conf.use_virtual_addressing = it->second != "true";

    }

    if (auto it = properties.find(S3_ROLE_ARN); it != properties.end()) {

        s3_conf->client_conf.cred_provider_type = CredProviderType::InstanceProfile;

        s3_conf->client_conf.role_arn = it->second;

    }

    if (auto it = properties.find(S3_EXTERNAL_ID); it != properties.end()) {

        s3_conf->client_conf.external_id = it->second;

    }

    if (auto st = is_s3_conf_valid(s3_conf->client_conf); !st.ok()) {

        return st;

    }

    return Status::OK();

}

static CredProviderType cred_provider_type_from_thrift(TCredProviderType::type cred_provider_type) {

    switch (cred_provider_type) {

    case TCredProviderType::DEFAULT:

        return CredProviderType::Default;

    case TCredProviderType::SIMPLE:

        return CredProviderType::Simple;

    case TCredProviderType::INSTANCE_PROFILE:

        return CredProviderType::InstanceProfile;

    default:

        __builtin_unreachable();

        LOG(WARNING) << "Invalid TCredProviderType value: " << cred_provider_type

                     << ", use default instead.";

        return CredProviderType::Default;

    }

}

S3Conf S3Conf::get_s3_conf(const cloud::ObjectStoreInfoPB& info) {

    S3Conf ret {

            .bucket = info.bucket(),

            .prefix = info.prefix(),

            .client_conf {

                    .endpoint = info.endpoint(),

                    .region = info.region(),

                    .ak = info.ak(),

                    .sk = info.sk(),

                    .token {},

                    .bucket = info.bucket(),

                    .provider = io::ObjStorageType::AWS,

                    .use_virtual_addressing =

                            info.has_use_path_style() ? !info.use_path_style() : true,

                    .role_arn = info.role_arn(),

                    .external_id = info.external_id(),

            },

            .sse_enabled = info.sse_enabled(),

    };

    if (info.has_cred_provider_type()) {

        ret.client_conf.cred_provider_type = cred_provider_type_from_pb(info.cred_provider_type());

    }

    io::ObjStorageType type = io::ObjStorageType::AWS;

    switch (info.provider()) {

    case cloud::ObjectStoreInfoPB_Provider_OSS:

        type = io::ObjStorageType::OSS;

        break;

    case cloud::ObjectStoreInfoPB_Provider_S3:

        type = io::ObjStorageType::AWS;

        break;

    case cloud::ObjectStoreInfoPB_Provider_COS:

        type = io::ObjStorageType::COS;

        break;

    case cloud::ObjectStoreInfoPB_Provider_OBS:

        type = io::ObjStorageType::OBS;

        break;

    case cloud::ObjectStoreInfoPB_Provider_BOS:

        type = io::ObjStorageType::BOS;

        break;

    case cloud::ObjectStoreInfoPB_Provider_GCP:

        type = io::ObjStorageType::GCP;

        break;

    case cloud::ObjectStoreInfoPB_Provider_AZURE:

        type = io::ObjStorageType::AZURE;

        break;

    default:

        __builtin_unreachable();

        LOG_FATAL("unknown provider type {}, info {}", info.provider(), ret.to_string());

    }

    ret.client_conf.provider = type;

    return ret;

}

S3Conf S3Conf::get_s3_conf(const TS3StorageParam& param) {

    S3Conf ret {

            .bucket = param.bucket,

            .prefix = param.root_path,

            .client_conf = {

                    .endpoint = param.endpoint,

                    .region = param.region,

                    .ak = param.ak,

                    .sk = param.sk,

                    .token = param.token,

                    .bucket = param.bucket,

                    .provider = io::ObjStorageType::AWS,

                    .max_connections = param.max_conn,

                    .request_timeout_ms = param.request_timeout_ms,

                    .connect_timeout_ms = param.conn_timeout_ms,

                    // When using cold heat separation in minio, user might use ip address directly,

                    // which needs enable use_virtual_addressing to true

                    .use_virtual_addressing = !param.use_path_style,

                    .role_arn = param.role_arn,

                    .external_id = param.external_id,

            }};

    if (param.__isset.cred_provider_type) {

        ret.client_conf.cred_provider_type =

                cred_provider_type_from_thrift(param.cred_provider_type);

    }

    io::ObjStorageType type = io::ObjStorageType::AWS;

    switch (param.provider) {

    case TObjStorageType::UNKNOWN:

        LOG_INFO("Receive one legal storage resource, set provider type to aws, param detail {}",

                 ret.to_string());

        type = io::ObjStorageType::AWS;

        break;

    case TObjStorageType::AWS:

        type = io::ObjStorageType::AWS;

        break;

    case TObjStorageType::AZURE:

        type = io::ObjStorageType::AZURE;

        break;

    case TObjStorageType::BOS:

        type = io::ObjStorageType::BOS;

        break;

    case TObjStorageType::COS:

        type = io::ObjStorageType::COS;

        break;

    case TObjStorageType::OBS:

        type = io::ObjStorageType::OBS;

        break;

    case TObjStorageType::OSS:

        type = io::ObjStorageType::OSS;

        break;

    case TObjStorageType::GCP:

        type = io::ObjStorageType::GCP;

        break;

    default:

        LOG_FATAL("unknown provider type {}, info {}", param.provider, ret.to_string());

        __builtin_unreachable();

    }

    ret.client_conf.provider = type;

    return ret;

}

} // end namespace doris