Codeunit 9052 ABS Container Client, source in 24

// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------

namespace System.Azure.Storage;

/// <summary>
/// Provides functionality to use operations on containers in Azure BLOB Services.
/// </summary>
codeunit 9052 "ABS Container Client"
{
    Access = Public;
    InherentEntitlements = X;
    InherentPermissions = X;


    /// <summary>
    /// Initializes the Azure BLOB Storage container client.
    /// </summary>
    /// <param name="StorageAccount">The name of Storage Account to use.</param>
    /// <param name="Authorization">The authorization to use.</param>
    [NonDebuggable]
    procedure Initialize(StorageAccount: Text; Authorization: Interface "Storage Service Authorization")
    var
        StorageServiceAuthorization: Codeunit "Storage Service Authorization";
    begin
        ABSClientImpl.Initialize(StorageAccount, '', '', Authorization, StorageServiceAuthorization.GetDefaultAPIVersion());
    end;

    /// <summary>
    /// Initializes the Azure BLOB Storage container client.
    /// </summary>
    /// <param name="StorageAccount">The Storage Account to use.</param>
    /// <param name="ApiVersion">The API version to use.</param>
    [NonDebuggable]
    procedure Initialize(StorageAccount: Text; Authorization: Interface "Storage Service Authorization"; ApiVersion: Enum "Storage Service API Version")
    begin
        ABSClientImpl.Initialize(StorageAccount, '', '', Authorization, ApiVersion);
    end;

    /// <summary>
    /// The base URL to use when constructing the final URI.
    /// If not set, the base URL is https://%1.blob.core.windows.net where %1 is the storage account name.
    /// </summary>
    /// <remarks>Use %1 as a placeholder for the storage account name.</remarks>
    /// <param name="BaseUrl">A valid URL string</param>
    procedure SetBaseUrl(BaseUrl: Text)
    begin
        ABSClientImpl.SetBaseUrl(BaseUrl);
    end;

    /// <summary>
    /// List all containers in specific Storage Account.
    /// see: https://go.microsoft.com/fwlink/?linkid=2211410
    /// </summary>
    /// <param name="Container">Collection of the result (temporary record).</param>
    /// <returns>An operation response object</returns>
    procedure ListContainers(var ABSContainers: Record "ABS Container"): Codeunit "ABS Operation Response"
    var
        ABSOptionalParameters: Codeunit "ABS Optional Parameters";
    begin
        exit(ABSClientImpl.ListContainers(ABSContainers, ABSOptionalParameters));
    end;

    /// <summary>
    /// List all containers in specific Storage Account.
    /// see: https://go.microsoft.com/fwlink/?linkid=2211410
    /// </summary>
    /// <param name="Container">Collection of the result (temporary record).</param>
    /// <param name="ABSOptionalParameters">Optional parameters to pass.</param>
    /// <returns>An operation response object</returns>
    procedure ListContainers(var ABSContainers: Record "ABS Container"; ABSOptionalParameters: Codeunit "ABS Optional Parameters"): Codeunit "ABS Operation Response"
    begin
        exit(ABSClientImpl.ListContainers(ABSContainers, ABSOptionalParameters));
    end;

    /// <summary>
    /// Creates a new container in the Storage Account.
    /// see: https://go.microsoft.com/fwlink/?linkid=2211411
    /// </summary>
    /// <param name="ContainerName">The name of the container.</param>
    /// <returns>An operation response object</returns>
    procedure CreateContainer(ContainerName: Text): Codeunit "ABS Operation Response"
    var
        ABSOptionalParameters: Codeunit "ABS Optional Parameters";
    begin
        exit(ABSClientImpl.CreateContainer(ContainerName, ABSOptionalParameters));
    end;

    /// <summary>
    /// Creates a new container in the Storage Account.
    /// see: https://go.microsoft.com/fwlink/?linkid=2211411
    /// </summary>
    /// <param name="ContainerName">The name of the container to create.</param>
    /// <param name="ABSOptionalParameters">Optional parameters to pass.</param>
    /// <returns>An operation response object</returns>
    procedure CreateContainer(ContainerName: Text; ABSOptionalParameters: Codeunit "ABS Optional Parameters"): Codeunit "ABS Operation Response"
    begin
        exit(ABSClientImpl.CreateContainer(ContainerName, ABSOptionalParameters));
    end;

    /// <summary>
    /// Deletes a container from the Storage Account.
    /// see: https://go.microsoft.com/fwlink/?linkid=2210393
    /// </summary>
    /// <param name="ContainerName">The name of the container.</param>
    /// <returns>An operation response object</returns>
    procedure DeleteContainer(ContainerName: Text): Codeunit "ABS Operation Response"
    var
        ABSOptionalParameters: Codeunit "ABS Optional Parameters";
    begin
        exit(ABSClientImpl.DeleteContainer(ContainerName, ABSOptionalParameters));
    end;

    /// <summary>
    /// Deletes a container from the Storage Account.
    /// see: https://go.microsoft.com/fwlink/?linkid=2210393
    /// </summary>
    /// <param name="ContainerName">The name of the container to delete.</param>
    /// <param name="ABSOptionalParameters">Optional parameters to pass.</param>
    /// <returns>An operation response object</returns>
    procedure DeleteContainer(ContainerName: Text; ABSOptionalParameters: Codeunit "ABS Optional Parameters"): Codeunit "ABS Operation Response"
    begin
        exit(ABSClientImpl.DeleteContainer(ContainerName, ABSOptionalParameters));
    end;

    /// <summary>
    /// Requests a new lease. If the container does not have an active lease, the blob service creates a lease on the container. The lease duration can be 15 to 60 seconds or can be infinite
    /// see: https://go.microsoft.com/fwlink/?linkid=2211318
    /// </summary>
    /// <param name="ContainerName">The name of the container.</param>
    /// <param name="LeaseId">Guid containing the response value from x-ms-lease-id HttpHeader</param>
    /// <returns>An operation response object</returns>
    procedure AcquireLease(ContainerName: Text; var LeaseId: Guid): Codeunit "ABS Operation Response"
    var
        ABSOptionalParameters: Codeunit "ABS Optional Parameters";
        ProposedLeaseId: Guid;
    begin
        exit(ABSClientImpl.ContainerAcquireLease(ContainerName, ABSOptionalParameters, -1, ProposedLeaseId, LeaseId)); // Infinite duration, null Guid
    end;

    /// <summary>
    /// Requests a new lease. If the container does not have an active lease, the blob service creates a lease on the container. The lease duration can be 15 to 60 seconds or can be infinite
    /// see: https://go.microsoft.com/fwlink/?linkid=2211318
    /// </summary>
    /// <param name="ContainerName">The name of the container.</param>
    /// <param name="ABSOptionalParameters">Optional parameters to pass.</param>
    /// <param name="LeaseId">Guid containing the response value from x-ms-lease-id HttpHeader</param>
    /// <returns>An operation response object</returns>
    procedure AcquireLease(ContainerName: Text; ABSOptionalParameters: Codeunit "ABS Optional Parameters"; var LeaseId: Guid): Codeunit "ABS Operation Response"
    var
        ProposedLeaseId: Guid;
    begin
        exit(ABSClientImpl.ContainerAcquireLease(ContainerName, ABSOptionalParameters, -1, ProposedLeaseId, LeaseId)); // Infinite duration, null Guid
    end;

    /// <summary>
    /// Requests a new lease. If the container does not have an active lease, the blob service creates a lease on the container. The lease duration can be 15 to 60 seconds or can be infinite
    /// see: https://go.microsoft.com/fwlink/?linkid=2211318
    /// </summary>
    /// <param name="ContainerName">The name of the container.</param>
    /// <param name="DurationSeconds">Specifies the duration of the lease, in seconds, or negative one (-1) for a lease that never expires</param>
    /// <param name="LeaseId">Guid containing the response value from x-ms-lease-id HttpHeader</param>
    /// <returns>An operation response object</returns>
    procedure AcquireLease(ContainerName: Text; DurationSeconds: Integer; var LeaseId: Guid): Codeunit "ABS Operation Response"
    var
        ABSOptionalParameters: Codeunit "ABS Optional Parameters";
        ProposedLeaseId: Guid;
    begin
        exit(ABSClientImpl.ContainerAcquireLease(ContainerName, ABSOptionalParameters, DurationSeconds, ProposedLeaseId, LeaseId)); // Custom duration, null Guid
    end;

    /// <summary>
    /// Requests a new lease. If the container does not have an active lease, the blob service creates a lease on the container. The lease duration can be 15 to 60 seconds or can be infinite
    /// see: https://go.microsoft.com/fwlink/?linkid=2211318
    /// </summary>
    /// <param name="ContainerName">The name of the container.</param>
    /// <param name="DurationSeconds">Specifies the duration of the lease, in seconds, or negative one (-1) for a lease that never expires</param>
    /// <param name="ABSOptionalParameters">Optional parameters to pass.</param>
    /// <param name="LeaseId">Guid containing the response value from x-ms-lease-id HttpHeader</param>
    /// <returns>An operation response object</returns>
    procedure AcquireLease(ContainerName: Text; DurationSeconds: Integer; ABSOptionalParameters: Codeunit "ABS Optional Parameters"; var LeaseId: Guid): Codeunit "ABS Operation Response"
    var
        ProposedLeaseId: Guid;
    begin
        exit(ABSClientImpl.ContainerAcquireLease(ContainerName, ABSOptionalParameters, DurationSeconds, ProposedLeaseId, LeaseId)); // Custom duration, null Guid
    end;

    /// <summary>
    /// Requests a new lease. If the container does not have an active lease, the blob service creates a lease on the container. The lease duration can be 15 to 60 seconds or can be infinite
    /// see: https://go.microsoft.com/fwlink/?linkid=2211318
    /// </summary>
    /// <param name="ContainerName">The name of the container.</param>
    /// <param name="ProposedLeaseId">Proposed lease ID, in a GUID string format</param>
    /// <param name="LeaseId">Guid containing the response value from x-ms-lease-id HttpHeader</param>
    /// <returns>An operation response object</returns>
    procedure AcquireLease(ContainerName: Text; ProposedLeaseId: Guid; var LeaseId: Guid): Codeunit "ABS Operation Response"
    var
        ABSOptionalParameters: Codeunit "ABS Optional Parameters";
    begin
        exit(ABSClientImpl.ContainerAcquireLease(ContainerName, ABSOptionalParameters, -1, ProposedLeaseId, LeaseId)); // Infinite duration, custom Guid
    end;

    /// <summary>
    /// Requests a new lease. If the container does not have an active lease, the blob service creates a lease on the container. The lease duration can be 15 to 60 seconds or can be infinite
    /// see: https://go.microsoft.com/fwlink/?linkid=2211318
    /// </summary>
    /// <param name="ContainerName">The name of the container.</param>
    /// <param name="ProposedLeaseId">Proposed lease ID, in a GUID string format</param>
    /// <param name="ABSOptionalParameters">Optional parameters to pass.</param>
    /// <param name="LeaseId">Guid containing the response value from x-ms-lease-id HttpHeader</param>
    /// <returns>An operation response object</returns>
    procedure AcquireLease(ContainerName: Text; ProposedLeaseId: Guid; ABSOptionalParameters: Codeunit "ABS Optional Parameters"; var LeaseId: Guid): Codeunit "ABS Operation Response"
    begin
        exit(ABSClientImpl.ContainerAcquireLease(ContainerName, ABSOptionalParameters, -1, ProposedLeaseId, LeaseId)); // Infinite duration, custom Guid
    end;

    /// <summary>
    /// Requests a new lease. If the container does not have an active lease, the blob service creates a lease on the container. The lease duration can be 15 to 60 seconds or can be infinite
    /// see: https://go.microsoft.com/fwlink/?linkid=2211318
    /// </summary>
    /// <param name="ContainerName">The name of the container.</param>
    /// <param name="DurationSeconds">Specifies the duration of the lease, in seconds, or negative one (-1) for a lease that never expires</param>
    /// <param name="ProposedLeaseId">Proposed lease ID, in a GUID string format</param>
    /// <param name="ABSOptionalParameters">Optional parameters to pass.</param>
    /// <param name="LeaseId">Guid containing the response value from x-ms-lease-id HttpHeader</param>
    /// <returns>An operation response object</returns>
    procedure AcquireLease(ContainerName: Text; DurationSeconds: Integer; ProposedLeaseId: Guid; ABSOptionalParameters: Codeunit "ABS Optional Parameters"; var LeaseId: Guid): Codeunit "ABS Operation Response"
    begin
        exit(ABSClientImpl.ContainerAcquireLease(ContainerName, ABSOptionalParameters, DurationSeconds, ProposedLeaseId, LeaseId));
    end;

    /// <summary>
    /// Releases a lease on a container if it is no longer needed so that another client may immediately acquire a lease against the blob
    /// see: https://go.microsoft.com/fwlink/?linkid=2211318
    /// </summary>
    /// <param name="ContainerName">The name of the container.</param>
    /// <param name="LeaseId">The Guid for the lease that should be released</param>
    /// <returns>An operation response object</returns>
    procedure ReleaseLease(ContainerName: Text; LeaseId: Guid): Codeunit "ABS Operation Response"
    var
        ABSOptionalParameters: Codeunit "ABS Optional Parameters";
    begin
        exit(ABSClientImpl.ContainerReleaseLease(ContainerName, ABSOptionalParameters, LeaseId));
    end;

    /// <summary>
    /// Releases a lease on a container if it is no longer needed so that another client may immediately acquire a lease against the blob
    /// see: https://go.microsoft.com/fwlink/?linkid=2211318
    /// </summary>
    /// <param name="ContainerName">The name of the container.</param>
    /// <param name="LeaseId">The Guid for the lease that should be released</param>
    /// <param name="ABSOptionalParameters">Optional parameters to pass.</param>
    /// <returns>An operation response object</returns>
    procedure ReleaseLease(ContainerName: Text; LeaseId: Guid; ABSOptionalParameters: Codeunit "ABS Optional Parameters"): Codeunit "ABS Operation Response"
    begin
        exit(ABSClientImpl.ContainerReleaseLease(ContainerName, ABSOptionalParameters, LeaseId));
    end;

    /// <summary>
    /// Renews a lease on a container to keep it locked again for the same amount of time as before
    /// see: https://go.microsoft.com/fwlink/?linkid=2211318
    /// </summary>
    /// <param name="ContainerName">The name of the container.</param>
    /// <param name="LeaseId">The Guid for the lease that should be renewed</param>
    /// <returns>An operation response object</returns>
    procedure RenewLease(ContainerName: Text; LeaseId: Guid): Codeunit "ABS Operation Response"
    var
        ABSOptionalParameters: Codeunit "ABS Optional Parameters";
    begin
        exit(ABSClientImpl.ContainerRenewLease(ContainerName, ABSOptionalParameters, LeaseId));
    end;

    /// <summary>
    /// Renews a lease on a container to keep it locked again for the same amount of time as before
    /// see: https://go.microsoft.com/fwlink/?linkid=2211318
    /// </summary>
    /// <param name="ContainerName">The name of the container.</param>
    /// <param name="LeaseId">The Guid for the lease that should be renewed</param>
    /// <param name="ABSOptionalParameters">Optional parameters to pass.</param>
    /// <returns>An operation response object</returns>
    procedure RenewLease(ContainerName: Text; LeaseId: Guid; ABSOptionalParameters: Codeunit "ABS Optional Parameters"): Codeunit "ABS Operation Response"
    begin
        exit(ABSClientImpl.ContainerRenewLease(ContainerName, ABSOptionalParameters, LeaseId));
    end;

    /// <summary>
    /// Breaks a lease on a container but ensures that another client cannot acquire a new lease until the current lease period has expired
    /// see: https://go.microsoft.com/fwlink/?linkid=2211318
    /// </summary>
    /// <param name="ContainerName">The name of the container.</param>
    /// <param name="LeaseId">The Guid for the lease that should be broken</param>
    /// <returns>An operation response object</returns>
    procedure BreakLease(ContainerName: Text; LeaseId: Guid): Codeunit "ABS Operation Response"
    var
        ABSOptionalParameters: Codeunit "ABS Optional Parameters";
    begin
        exit(ABSClientImpl.ContainerBreakLease(ContainerName, ABSOptionalParameters, LeaseId, 0));
    end;

    /// <summary>
    /// Breaks a lease on a container but ensures that another client cannot acquire a new lease until the current lease period has expired
    /// see: https://go.microsoft.com/fwlink/?linkid=2211318
    /// </summary>
    /// <param name="ContainerName">The name of the container.</param>
    /// <param name="LeaseId">The Guid for the lease that should be broken</param>
    /// <param name="LeaseBreakPeriod">The proposed duration the lease should continue before it is broken, in seconds, between 0 and 60.</param>
    /// <returns>An operation response object</returns>
    procedure BreakLease(ContainerName: Text; LeaseId: Guid; LeaseBreakPeriod: Integer): Codeunit "ABS Operation Response"
    var
        ABSOptionalParameters: Codeunit "ABS Optional Parameters";
    begin
        exit(ABSClientImpl.ContainerBreakLease(ContainerName, ABSOptionalParameters, LeaseId, LeaseBreakPeriod));
    end;

    /// <summary>
    /// Breaks a lease on a container but ensures that another client cannot acquire a new lease until the current lease period has expired
    /// see: https://go.microsoft.com/fwlink/?linkid=2211318
    /// </summary>
    /// <param name="ContainerName">The name of the container.</param>
    /// <param name="LeaseId">The Guid for the lease that should be broken</param>
    /// <param name="ABSOptionalParameters">Optional parameters to pass.</param>
    /// <returns>An operation response object</returns>
    procedure BreakLease(ContainerName: Text; LeaseId: Guid; ABSOptionalParameters: Codeunit "ABS Optional Parameters"): Codeunit "ABS Operation Response"
    begin
        exit(ABSClientImpl.ContainerBreakLease(ContainerName, ABSOptionalParameters, LeaseId, 0));
    end;

    /// <summary>
    /// Breaks a lease on a container but ensures that another client cannot acquire a new lease until the current lease period has expired
    /// see: https://go.microsoft.com/fwlink/?linkid=2211318
    /// </summary>
    /// <param name="ContainerName">The name of the container.</param>
    /// <param name="LeaseId">The Guid for the lease that should be broken</param>
    /// <param name="ABSOptionalParameters">Optional parameters to pass.</param>
    /// <param name="LeaseBreakPeriod">The proposed duration the lease should continue before it is broken, in seconds, between 0 and 60.</param>
    /// <returns>An operation response object</returns>
    procedure BreakLease(ContainerName: Text; LeaseId: Guid; ABSOptionalParameters: Codeunit "ABS Optional Parameters"; LeaseBreakPeriod: Integer): Codeunit "ABS Operation Response"
    begin
        exit(ABSClientImpl.ContainerBreakLease(ContainerName, ABSOptionalParameters, LeaseId, LeaseBreakPeriod));
    end;

    /// <summary>
    /// Changes the lease ID of an active lease
    /// see: https://go.microsoft.com/fwlink/?linkid=2211318
    /// </summary>
    /// <param name="ContainerName">The name of the container.</param>
    /// <param name="LeaseId">The Guid for the lease that should be changed. Will contain the updated Guid after successful operation.</param>
    /// <param name="ProposedLeaseId">The Guid that should be used in future</param>
    /// <returns>An operation response object</returns>
    procedure ChangeLease(ContainerName: Text; var LeaseId: Guid; ProposedLeaseId: Guid): Codeunit "ABS Operation Response"
    var
        ABSOptionalParameters: Codeunit "ABS Optional Parameters";
    begin
        exit(ABSClientImpl.ContainerChangeLease(ContainerName, ABSOptionalParameters, LeaseId, ProposedLeaseId));
    end;

    /// <summary>
    /// Changes the lease ID of an active lease
    /// see: https://go.microsoft.com/fwlink/?linkid=2211318
    /// </summary>
    /// <param name="ContainerName">The name of the container.</param>
    /// <param name="LeaseId">The Guid for the lease that should be changed</param>
    /// <param name="ProposedLeaseId">The Guid that should be used in future</param>
    /// <param name="ABSOptionalParameters">Optional parameters to pass.</param>
    /// <returns>An operation response object</returns>
    procedure ChangeLease(ContainerName: Text; LeaseId: Guid; ProposedLeaseId: Guid; ABSOptionalParameters: Codeunit "ABS Optional Parameters"): Codeunit "ABS Operation Response"
    begin
        exit(ABSClientImpl.ContainerChangeLease(ContainerName, ABSOptionalParameters, LeaseId, ProposedLeaseId));
    end;

    var
        ABSClientImpl: Codeunit "ABS Client Impl.";
}