(Perl) ETrade List Accounts

Returns a list of E*TRADE accounts for the current user.

For more information, see https://apisb.etrade.com/docs/api/account/api-account-v1.html

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux, Solaris

use chilkat();

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

$http = chilkat::CkHttp->new();

$http->put_OAuth1(1);
$http->put_OAuthVerifier("");
$http->put_OAuthConsumerKey("ETRADE_CONSUMER_KEY");
$http->put_OAuthConsumerSecret("ETRADE_CONSUMER_SECRET");

# Load the access token previously obtained via the OAuth1 Authorization
$jsonToken = chilkat::CkJsonObject->new();
$success = $jsonToken->LoadFile("qa_data/tokens/etrade.json");
if ($success != 1) {
    print "Failed to load OAuth1 token" . "\r\n";
    exit;
}

$http->put_OAuthToken($jsonToken->stringOf("oauth_token"));
$http->put_OAuthTokenSecret($jsonToken->stringOf("oauth_token_secret"));

$sandboxUrl = "https://apisb.etrade.com/v1/accounts/list";
$liveUrl = "https://api.etrade.com/v1/accounts/list";

# resp is a HttpResponse
$resp = $http->QuickGetObj($sandboxUrl);
if ($http->get_LastMethodSuccess() != 1) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

# Make sure a successful response was received.
if ($resp->get_StatusCode() >= 300) {
    print $resp->statusLine() . "\r\n";
    print $resp->header() . "\r\n";
    print $resp->bodyStr() . "\r\n";
    exit;
}

if ($resp->get_StatusCode() == 204) {
    print "No records available." . "\r\n";
    exit;
}

# Sample XML response:

# Use this online tool to generate parsing code from sample XML: 
# Generate Parsing Code from XML

# <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
# <AccountListResponse>
#     <Accounts>
#         <Account>
#             <accountId>82314598</accountId>
#             <accountIdKey>dBZOKt9xDrtRSAOl4MSiiA</accountIdKey>
#             <accountMode>IRA</accountMode>
#             <accountDesc>Brokerage</accountDesc>
#             <accountName>NickName-1</accountName>
#             <accountType>MARGIN</accountType>
#             <institutionType>BROKERAGE</institutionType>
#             <accountStatus>ACTIVE</accountStatus>
#             <closedDate>0</closedDate>
#         </Account>
#         <Account>
#             <accountId>58315636</accountId>
#             <accountIdKey>vQMsebA1H5WltUfDkJP48g</accountIdKey>
#             <accountMode>BROKERAGE</accountMode>
#             <accountDesc>Complete Savings</accountDesc>
#             <accountName>NickName-2</accountName>
#             <accountType>INDIVIDUAL</accountType>
#             <institutionType>BROKERAGE</institutionType>
#             <accountStatus>ACTIVE</accountStatus>
#             <closedDate>0</closedDate>
#         </Account>
#         <Account>
#             <accountId>70700418</accountId>
#             <accountIdKey>6_Dpy0rmuQ9cu9IbTfvF2A</accountIdKey>
#             <accountMode>CASH</accountMode>
#             <accountDesc>INDIVIDUAL</accountDesc>
#             <accountName>NickName-3</accountName>
#             <accountType>INDIVIDUAL</accountType>
#             <institutionType>BROKERAGE</institutionType>
#             <accountStatus>ACTIVE</accountStatus>
#             <closedDate>0</closedDate>
#         </Account>
#         <Account>
#             <accountId>83515143</accountId>
#             <accountIdKey>xj1Dc18FTqWPqkEEVUr5rw</accountIdKey>
#             <accountMode>CASH</accountMode>
#             <accountDesc>INDIVIDUAL</accountDesc>
#             <accountName/>
#             <accountType>CASH</accountType>
#             <institutionType>BROKERAGE</institutionType>
#             <accountStatus>CLOSED</accountStatus>
#             <closedDate>1521027780</closedDate>
# 
#         </Account>
#     </Accounts>
# </AccountListResponse>

$xml = chilkat::CkXml->new();
$xml->LoadXml($resp->bodyStr());
print $xml->getXml() . "\r\n";

$i = 0;
$count_i = $xml->NumChildrenHavingTag("Accounts|Account");
while ($i < $count_i) {
    $xml->put_I($i);
    $accountId = $xml->GetChildIntValue("Accounts|Account[i]|accountId");
    $accountIdKey = $xml->getChildContent("Accounts|Account[i]|accountIdKey");
    $accountMode = $xml->getChildContent("Accounts|Account[i]|accountMode");
    $accountDesc = $xml->getChildContent("Accounts|Account[i]|accountDesc");
    $accountName = $xml->getChildContent("Accounts|Account[i]|accountName");
    $accountType = $xml->getChildContent("Accounts|Account[i]|accountType");
    $institutionType = $xml->getChildContent("Accounts|Account[i]|institutionType");
    $accountStatus = $xml->getChildContent("Accounts|Account[i]|accountStatus");
    $closedDate = $xml->GetChildIntValue("Accounts|Account[i]|closedDate");
    $i = $i + 1;
}

print "Success." . "\r\n";