GetRun 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("devicefarm");
# SetAuthAws causes Chilkat to automatically add the following headers: Authorization, X-Amz-Date
$rest->SetAuthAws($authAws);
# URL: https://devicefarm.us-west-2.amazonaws.com/
# Use the same region as specified above.
$success = $rest->Connect("devicefarm.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("arn","string");
# The JSON request body created by the above code:
# {
# "arn": "string"
# }
$rest->AddHeader("Content-Type","application/x-amz-json-1.1");
$rest->AddHeader("X-Amz-Target","DeviceFarm_20150623.GetRun");
$sbRequestBody = chilkat::CkStringBuilder->new();
$json->EmitSb($sbRequestBody);
$sbResponseBody = chilkat::CkStringBuilder->new();
$success = $rest->FullRequestSb("POST","/",$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
$AppUpload = $jResp->stringOf("run.appUpload");
$Arn = $jResp->stringOf("run.arn");
$BillingMethod = $jResp->stringOf("run.billingMethod");
$CompletedJobs = $jResp->IntOf("run.completedJobs");
$Errored = $jResp->IntOf("run.counters.errored");
$Failed = $jResp->IntOf("run.counters.failed");
$Passed = $jResp->IntOf("run.counters.passed");
$Skipped = $jResp->IntOf("run.counters.skipped");
$Stopped = $jResp->IntOf("run.counters.stopped");
$Total = $jResp->IntOf("run.counters.total");
$Warned = $jResp->IntOf("run.counters.warned");
$Created = $jResp->IntOf("run.created");
$Metered = $jResp->IntOf("run.deviceMinutes.metered");
$DeviceMinutesTotal = $jResp->IntOf("run.deviceMinutes.total");
$Unmetered = $jResp->IntOf("run.deviceMinutes.unmetered");
$DevicePoolArn = $jResp->stringOf("run.devicePoolArn");
$MatchedDevicesCount = $jResp->IntOf("run.deviceSelectionResult.matchedDevicesCount");
$MaxDevices = $jResp->IntOf("run.deviceSelectionResult.maxDevices");
$EventCount = $jResp->IntOf("run.eventCount");
$JobTimeoutMinutes = $jResp->IntOf("run.jobTimeoutMinutes");
$Locale = $jResp->stringOf("run.locale");
$Latitude = $jResp->IntOf("run.location.latitude");
$Longitude = $jResp->IntOf("run.location.longitude");
$Message = $jResp->stringOf("run.message");
$Name = $jResp->stringOf("run.name");
$NetworkProfileArn = $jResp->stringOf("run.networkProfile.arn");
$Description = $jResp->stringOf("run.networkProfile.description");
$DownlinkBandwidthBits = $jResp->IntOf("run.networkProfile.downlinkBandwidthBits");
$DownlinkDelayMs = $jResp->IntOf("run.networkProfile.downlinkDelayMs");
$DownlinkJitterMs = $jResp->IntOf("run.networkProfile.downlinkJitterMs");
$DownlinkLossPercent = $jResp->IntOf("run.networkProfile.downlinkLossPercent");
$NetworkProfileName = $jResp->stringOf("run.networkProfile.name");
$v_Type = $jResp->stringOf("run.networkProfile.type");
$UplinkBandwidthBits = $jResp->IntOf("run.networkProfile.uplinkBandwidthBits");
$UplinkDelayMs = $jResp->IntOf("run.networkProfile.uplinkDelayMs");
$UplinkJitterMs = $jResp->IntOf("run.networkProfile.uplinkJitterMs");
$UplinkLossPercent = $jResp->IntOf("run.networkProfile.uplinkLossPercent");
$ParsingResultUrl = $jResp->stringOf("run.parsingResultUrl");
$Platform = $jResp->stringOf("run.platform");
$Bluetooth = $jResp->IntOf("run.radios.bluetooth");
$Gps = $jResp->IntOf("run.radios.gps");
$Nfc = $jResp->IntOf("run.radios.nfc");
$Wifi = $jResp->IntOf("run.radios.wifi");
$Result = $jResp->stringOf("run.result");
$ResultCode = $jResp->stringOf("run.resultCode");
$Seed = $jResp->IntOf("run.seed");
$SkipAppResign = $jResp->IntOf("run.skipAppResign");
$Started = $jResp->IntOf("run.started");
$Status = $jResp->stringOf("run.status");
$runStopped = $jResp->IntOf("run.stopped");
$TestSpecArn = $jResp->stringOf("run.testSpecArn");
$TotalJobs = $jResp->IntOf("run.totalJobs");
$runType = $jResp->stringOf("run.type");
$WebUrl = $jResp->stringOf("run.webUrl");
$i = 0;
$count_i = $jResp->SizeOfArray("run.customerArtifactPaths.androidPaths");
while ($i < $count_i) {
$jResp->put_I($i);
$strVal = $jResp->stringOf("run.customerArtifactPaths.androidPaths[i]");
$i = $i + 1;
}
$i = 0;
$count_i = $jResp->SizeOfArray("run.customerArtifactPaths.deviceHostPaths");
while ($i < $count_i) {
$jResp->put_I($i);
$strVal = $jResp->stringOf("run.customerArtifactPaths.deviceHostPaths[i]");
$i = $i + 1;
}
$i = 0;
$count_i = $jResp->SizeOfArray("run.customerArtifactPaths.iosPaths");
while ($i < $count_i) {
$jResp->put_I($i);
$strVal = $jResp->stringOf("run.customerArtifactPaths.iosPaths[i]");
$i = $i + 1;
}
$i = 0;
$count_i = $jResp->SizeOfArray("run.deviceSelectionResult.filters");
while ($i < $count_i) {
$jResp->put_I($i);
$attribute = $jResp->stringOf("run.deviceSelectionResult.filters[i].attribute");
$operator = $jResp->stringOf("run.deviceSelectionResult.filters[i].operator");
$j = 0;
$count_j = $jResp->SizeOfArray("run.deviceSelectionResult.filters[i].values");
while ($j < $count_j) {
$jResp->put_J($j);
$strVal = $jResp->stringOf("run.deviceSelectionResult.filters[i].values[j]");
$j = $j + 1;
}
$i = $i + 1;
}
# A sample JSON response body parsed by the above code:
# {
# "run": {
# "appUpload": "string",
# "arn": "string",
# "billingMethod": "string",
# "completedJobs": number,
# "counters": {
# "errored": number,
# "failed": number,
# "passed": number,
# "skipped": number,
# "stopped": number,
# "total": number,
# "warned": number
# },
# "created": number,
# "customerArtifactPaths": {
# "androidPaths": [
# "string"
# ],
# "deviceHostPaths": [
# "string"
# ],
# "iosPaths": [
# "string"
# ]
# },
# "deviceMinutes": {
# "metered": number,
# "total": number,
# "unmetered": number
# },
# "devicePoolArn": "string",
# "deviceSelectionResult": {
# "filters": [
# {
# "attribute": "string",
# "operator": "string",
# "values": [
# "string"
# ]
# }
# ],
# "matchedDevicesCount": number,
# "maxDevices": number
# },
# "eventCount": number,
# "jobTimeoutMinutes": number,
# "locale": "string",
# "location": {
# "latitude": number,
# "longitude": number
# },
# "message": "string",
# "name": "string",
# "networkProfile": {
# "arn": "string",
# "description": "string",
# "downlinkBandwidthBits": number,
# "downlinkDelayMs": number,
# "downlinkJitterMs": number,
# "downlinkLossPercent": number,
# "name": "string",
# "type": "string",
# "uplinkBandwidthBits": number,
# "uplinkDelayMs": number,
# "uplinkJitterMs": number,
# "uplinkLossPercent": number
# },
# "parsingResultUrl": "string",
# "platform": "string",
# "radios": {
# "bluetooth": boolean,
# "gps": boolean,
# "nfc": boolean,
# "wifi": boolean
# },
# "result": "string",
# "resultCode": "string",
# "seed": number,
# "skipAppResign": boolean,
# "started": number,
# "status": "string",
# "stopped": number,
# "testSpecArn": "string",
# "totalJobs": number,
# "type": "string",
# "webUrl": "string"
# }
# }
