Lua

Set Container ACL

See more Azure Cloud Storage Examples

Azure Storage Blob Service REST API: Sample code to set the permissions of a container. Lua

local chilkat = require("chilkat")

-- Azure Blob Service Example: Set Container ACL
-- See also: https://msdn.microsoft.com/en-us/library/azure/dd179391.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.

-- The XML body of the request will look like this:

-- <?xml version="1.0" encoding="utf-8"?>
-- <SignedIdentifiers>
--   <SignedIdentifier>
--     <Id>unique-character-value-of-up-to-64-chars</Id>
--     <AccessPolicy>
--       <Start>start-time</Start>
--       <Expiry>expiry-time</Expiry>
--       <Permission>abbreviated-permission-list</Permission>
--     </AccessPolicy>
--   </SignedIdentifier>
-- </SignedIdentifiers>

-- Generate a random 32-character string.
local prng = chilkat.Prng.new()
local randomId = prng:random_string(32, true, true, true)

-- Get the current system date/time in ISO 8061 format
local dt = chilkat.DateTime.new()
dt:set_from_current_system_time()
local bLocal = false
-- Get the current date/time in ISO 8061 UTC format.
local curDtStr = dt:get_as_timestamp(bLocal)
-- The expire time will be 365 days in the future.
success = dt:add_days(365)
local expireDtStr = dt:get_as_timestamp(bLocal)

-- Build the request:
local xml = chilkat.Xml.new()
xml.tag = "SignedIdentifiers"
local xSignedId = xml:new_child("SignedIdentifier", "")
xSignedId:new_child2("Id", randomId)
local xAccessPolicy = xSignedId:new_child("AccessPolicy", "")
xAccessPolicy:new_child2("Start", curDtStr)
xAccessPolicy:new_child2("Expiry", expireDtStr)
xAccessPolicy:new_child2("Permission", "rwd")

-- Show the XML..
print(xml:get_xml())

-- The expected response is a 200 response status code with no response body.
local responseStr = rest:full_request_string("PUT", "/mycontainer?restype=container&comp=acl", 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 200 response status code,
-- with no response body.

if rest.response_status_code ~= 200 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.")