Lua

Azure Storage: Set Blob Service Properties

See more Azure Cloud Storage Examples

Azure Storage Blob Service REST API: Sample code to set a blob's service properties. Lua

local chilkat = require("chilkat")

-- Azure Blob Service Example: Set Blob Service Properties
-- See also: https://msdn.microsoft.com/en-us/library/azure/hh452235.aspx

-- This example requires the Chilkat API to have been previously unlocked.
-- See Global Unlock Sample for sample code.

local rest = chilkat.Rest.new()

-- Connect to the Azure Storage Blob Service
local bTls = true
local port = 443
local bAutoReconnect = true
-- In this example, the storage account name is "chilkat".
local success = rest:connect("chilkat.blob.core.windows.net", port, bTls, bAutoReconnect)
if not success then
    print(rest.last_error_text)
    return
end

-- Provide Azure Cloud credentials for the REST call.
local azAuth = chilkat.AuthAzureStorage.new()
azAuth.access_key = "AZURE_ACCESS_KEY"
-- The account name used here should match the 1st part of the domain passed in the call to Connect (above).
azAuth.account = "chilkat"
azAuth.scheme = "SharedKey"
azAuth.service = "Blob"
-- This causes the "x-ms-version: 2021-08-06" header to be automatically added.
azAuth.xms_version = "2021-08-06"
success = rest:set_auth_azure_storage(azAuth)

-- Note: The application does not need to explicitly set the following
-- headers: x-ms-date, Authorization.  These headers
-- are automatically set by Chilkat.

-- This example will set logging properties.  The XML body of the request
-- will look like this:

-- <?xml version="1.0" encoding="utf-8"?>
-- <StorageServiceProperties>
--     <Logging>
--         <Version>version-number</Version>
--         <Delete>true|false</Delete>
--         <Read>true|false</Read>
--         <Write>true|false</Write>
--         <RetentionPolicy>
--             <Enabled>true|false</Enabled>
--             <Days>number-of-days</Days>
--         </RetentionPolicy>
--     </Logging>

-- Build the request:
local xml = chilkat.Xml.new()
xml.tag = "StorageServiceProperties"
local xLogging = xml:new_child("Logging", "")
xLogging:new_child2("Version", "1.0")
xLogging:new_child2("Delete", "true")
xLogging:new_child2("Read", "true")
xLogging:new_child2("Write", "true")
local xRetension = xLogging:new_child("RetentionPolicy", "")
xRetension:new_child2("Enabled", "true")
xRetension:new_child2("Days", "7")

-- The expected response is a 202 response status code with no response body.
local responseStr = rest:full_request_string("PUT", "/?restype=service&comp=properties", xml:get_xml())
if not rest.last_method_success then
    print(rest.last_error_text)
    return
end

-- When successful, the Azure Storage service will respond with a 202 response code,
-- with no response body.
if rest.response_status_code ~= 202 then
    -- Examine the request/response to see what happened.
    print("response status code = " .. rest.response_status_code)
    print("response status text = " .. rest.response_status_text)
    print("response header: " .. rest.response_header)
    print("response body (if any): " .. responseStr)
    print("---")
    print("LastRequestStartLine: " .. rest.last_request_start_line)
    print("LastRequestHeader: " .. rest.last_request_header)
    return
end

print("Success: Blob service properties updated!")