Codeunit 9050 ABS Operation Response, source in 29

// ------------------------------------------------------------------------------------------------
// 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>
/// Holder object for holding for ABS client operations result.
/// </summary>
codeunit 9050 "ABS Operation Response"
{
    Access = Public;
    InherentEntitlements = X;
    InherentPermissions = X;

    /// <summary>
    /// Checks whether the operation was successful.
    /// </summary>
    /// <returns>True if the operation was successful; otherwise - false.</returns>
    procedure IsSuccessful(): Boolean
    begin
        exit(HttpResponseMessage.IsSuccessStatusCode);
    end;

    /// <summary>
    /// Gets the error (if any) of the response.
    /// </summary>
    /// <returns>Text representation of the error that occurred during the operation.</returns>
    procedure GetError(): Text
    begin
        exit(ResponseError);
    end;

    internal procedure SetError(Error: Text)
    begin
        ResponseError := Error;
    end;

    /// <summary>
    /// Gets the NextMarker (if any) of the response.
    /// </summary>
    /// <returns>Text representation of the NextMarker that is returned during the operation.</returns>
    procedure GetNextMarker(): Text
    begin
        exit(ResponseNextMarker);
    end;

    internal procedure SetNextMarker(NextMarker: Text)
    begin
        ResponseNextMarker := NextMarker;
    end;

    /// <summary>
    /// Gets the result of a ABS client operation as text,
    /// </summary>
    /// <returns>The content of the response.</returns>
    [NonDebuggable]
    [TryFunction]
    internal procedure GetResultAsText(var Result: Text);
    begin
        HttpResponseMessage.Content.ReadAs(Result);
    end;

    /// <summary>
    /// Gets the result of a ABS client operation as stream,
    /// </summary>
    /// <returns>The content of the response.</returns>
    [NonDebuggable]
    [TryFunction]
    internal procedure GetResultAsStream(var ResultInStream: InStream)
    begin
        HttpResponseMessage.Content.ReadAs(ResultInStream);
    end;

    [NonDebuggable]
    internal procedure SetHttpResponse(NewHttpResponseMessage: HttpResponseMessage)
    begin
        HttpResponseMessage := NewHttpResponseMessage;
    end;

    [NonDebuggable]
    procedure GetHeaderValueFromResponseHeaders(HeaderName: Text): Text
    var
        Headers: HttpHeaders;
        Values: array[100] of Text;
    begin
        Headers := HttpResponseMessage.Headers;
        if not Headers.Contains(HeaderName) then
            exit('');
        if not Headers.GetValues(HeaderName, Values) then
            exit('');
        exit(Values[1]);
    end;

    [NonDebuggable]
    procedure GetMetadataValueFromResponseHeaders(): Dictionary of [Text, Text]
    var
        Metadata: Dictionary of [Text, Text];
        Headers: HttpHeaders;
        HeaderKeys: List of [Text];
        HeaderKey: Text;
        Values: array[100] of Text;
    begin
        Headers := HttpResponseMessage.Headers();
        HeaderKeys := Headers.Keys();
        foreach HeaderKey in HeaderKeys do
            if HeaderKey.StartsWith('x-ms-meta-') then
                if Headers.GetValues(HeaderKey, Values) then
                    Metadata.Add(DelStr(HeaderKey, 1, 10), Values[1]);
        exit(Metadata);
    end;

    var
        [NonDebuggable]
        HttpResponseMessage: HttpResponseMessage;
        ResponseError, ResponseNextMarker : Text;
}