CreateSite Perl Example
use chilkat();
# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
$rest = chilkat::CkRest->new();
$authAws = chilkat::CkAuthAws->new();
$authAws->put_AccessKey("AWS_ACCESS_KEY");
$authAws->put_SecretKey("AWS_SECRET_KEY");
# Don't forget to change the region to your particular region. (Also make the same change in the call to Connect below.)
$authAws->put_Region("us-west-2");
$authAws->put_ServiceName("outposts");
# SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
$rest->SetAuthAws($authAws);
# URL: https://outposts.us-west-2.amazonaws.com/
# Use the same region as specified above.
$success = $rest->Connect("outposts.us-west-2.amazonaws.com",443,1,1);
if ($success != 1) {
print "ConnectFailReason: " . $rest->get_ConnectFailReason() . "\r\n";
print $rest->lastErrorText() . "\r\n";
exit;
}
# The following code creates the JSON request body.
# The JSON created by this code is shown below.
# Use this online tool to generate code from sample JSON:
# Generate Code to Create JSON
$json = chilkat::CkJsonObject->new();
$json->UpdateString("Description","string");
$json->UpdateString("Name","string");
$json->UpdateString("Notes","string");
$json->UpdateString("OperatingAddress.AddressLine1","string");
$json->UpdateString("OperatingAddress.AddressLine2","string");
$json->UpdateString("OperatingAddress.AddressLine3","string");
$json->UpdateString("OperatingAddress.City","string");
$json->UpdateString("OperatingAddress.ContactName","string");
$json->UpdateString("OperatingAddress.ContactPhoneNumber","string");
$json->UpdateString("OperatingAddress.CountryCode","string");
$json->UpdateString("OperatingAddress.DistrictOrCounty","string");
$json->UpdateString("OperatingAddress.Municipality","string");
$json->UpdateString("OperatingAddress.PostalCode","string");
$json->UpdateString("OperatingAddress.StateOrRegion","string");
$json->UpdateString("RackPhysicalProperties.FiberOpticCableType","string");
$json->UpdateString("RackPhysicalProperties.MaximumSupportedWeightLbs","string");
$json->UpdateString("RackPhysicalProperties.OpticalStandard","string");
$json->UpdateString("RackPhysicalProperties.PowerConnector","string");
$json->UpdateString("RackPhysicalProperties.PowerDrawKva","string");
$json->UpdateString("RackPhysicalProperties.PowerFeedDrop","string");
$json->UpdateString("RackPhysicalProperties.PowerPhase","string");
$json->UpdateString("RackPhysicalProperties.UplinkCount","string");
$json->UpdateString("RackPhysicalProperties.UplinkGbps","string");
$json->UpdateString("ShippingAddress.AddressLine1","string");
$json->UpdateString("ShippingAddress.AddressLine2","string");
$json->UpdateString("ShippingAddress.AddressLine3","string");
$json->UpdateString("ShippingAddress.City","string");
$json->UpdateString("ShippingAddress.ContactName","string");
$json->UpdateString("ShippingAddress.ContactPhoneNumber","string");
$json->UpdateString("ShippingAddress.CountryCode","string");
$json->UpdateString("ShippingAddress.DistrictOrCounty","string");
$json->UpdateString("ShippingAddress.Municipality","string");
$json->UpdateString("ShippingAddress.PostalCode","string");
$json->UpdateString("ShippingAddress.StateOrRegion","string");
$json->UpdateString("Tags.string","string");
# The JSON request body created by the above code:
# {
# "Description": "string",
# "Name": "string",
# "Notes": "string",
# "OperatingAddress": {
# "AddressLine1": "string",
# "AddressLine2": "string",
# "AddressLine3": "string",
# "City": "string",
# "ContactName": "string",
# "ContactPhoneNumber": "string",
# "CountryCode": "string",
# "DistrictOrCounty": "string",
# "Municipality": "string",
# "PostalCode": "string",
# "StateOrRegion": "string"
# },
# "RackPhysicalProperties": {
# "FiberOpticCableType": "string",
# "MaximumSupportedWeightLbs": "string",
# "OpticalStandard": "string",
# "PowerConnector": "string",
# "PowerDrawKva": "string",
# "PowerFeedDrop": "string",
# "PowerPhase": "string",
# "UplinkCount": "string",
# "UplinkGbps": "string"
# },
# "ShippingAddress": {
# "AddressLine1": "string",
# "AddressLine2": "string",
# "AddressLine3": "string",
# "City": "string",
# "ContactName": "string",
# "ContactPhoneNumber": "string",
# "CountryCode": "string",
# "DistrictOrCounty": "string",
# "Municipality": "string",
# "PostalCode": "string",
# "StateOrRegion": "string"
# },
# "Tags": {
# "string": "string"
# }
# }
$rest->AddHeader("Content-Type","application/x-amz-json-1.1");
$rest->AddHeader("X-Amz-Target","CreateSite");
$sbRequestBody = chilkat::CkStringBuilder->new();
$json->EmitSb($sbRequestBody);
$sbResponseBody = chilkat::CkStringBuilder->new();
$success = $rest->FullRequestSb("POST","/sites",$sbRequestBody,$sbResponseBody);
if ($success != 1) {
print $rest->lastErrorText() . "\r\n";
exit;
}
$respStatusCode = $rest->get_ResponseStatusCode();
print "response status code = " . $respStatusCode . "\r\n";
if ($respStatusCode != 200) {
print "Response Header:" . "\r\n";
print $rest->responseHeader() . "\r\n";
print "Response Body:" . "\r\n";
print $sbResponseBody->getAsString() . "\r\n";
exit;
}
$jResp = chilkat::CkJsonObject->new();
$jResp->LoadSb($sbResponseBody);
# The following code parses the JSON response.
# A sample JSON response is shown below the sample code.
# Use this online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON
$AccountId = $jResp->stringOf("Site.AccountId");
$Description = $jResp->stringOf("Site.Description");
$Name = $jResp->stringOf("Site.Name");
$Notes = $jResp->stringOf("Site.Notes");
$OperatingAddressCity = $jResp->stringOf("Site.OperatingAddressCity");
$OperatingAddressCountryCode = $jResp->stringOf("Site.OperatingAddressCountryCode");
$OperatingAddressStateOrRegion = $jResp->stringOf("Site.OperatingAddressStateOrRegion");
$FiberOpticCableType = $jResp->stringOf("Site.RackPhysicalProperties.FiberOpticCableType");
$MaximumSupportedWeightLbs = $jResp->stringOf("Site.RackPhysicalProperties.MaximumSupportedWeightLbs");
$OpticalStandard = $jResp->stringOf("Site.RackPhysicalProperties.OpticalStandard");
$PowerConnector = $jResp->stringOf("Site.RackPhysicalProperties.PowerConnector");
$PowerDrawKva = $jResp->stringOf("Site.RackPhysicalProperties.PowerDrawKva");
$PowerFeedDrop = $jResp->stringOf("Site.RackPhysicalProperties.PowerFeedDrop");
$PowerPhase = $jResp->stringOf("Site.RackPhysicalProperties.PowerPhase");
$UplinkCount = $jResp->stringOf("Site.RackPhysicalProperties.UplinkCount");
$UplinkGbps = $jResp->stringOf("Site.RackPhysicalProperties.UplinkGbps");
$SiteArn = $jResp->stringOf("Site.SiteArn");
$SiteId = $jResp->stringOf("Site.SiteId");
$v_String = $jResp->stringOf("Site.Tags.string");
# A sample JSON response body parsed by the above code:
# {
# "Site": {
# "AccountId": "string",
# "Description": "string",
# "Name": "string",
# "Notes": "string",
# "OperatingAddressCity": "string",
# "OperatingAddressCountryCode": "string",
# "OperatingAddressStateOrRegion": "string",
# "RackPhysicalProperties": {
# "FiberOpticCableType": "string",
# "MaximumSupportedWeightLbs": "string",
# "OpticalStandard": "string",
# "PowerConnector": "string",
# "PowerDrawKva": "string",
# "PowerFeedDrop": "string",
# "PowerPhase": "string",
# "UplinkCount": "string",
# "UplinkGbps": "string"
# },
# "SiteArn": "string",
# "SiteId": "string",
# "Tags": {
# "string": "string"
# }
# }
# }
