Perl

REST through HTTP Proxy

See more REST Examples

Demonstrates how to connect through an HTTP proxy to make REST API calls. Perl

use chilkat();

$success = 0;

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

# This example connects to a REST server through an HTTP proxy.
# It will connect to the Amazon AWS service for this example.
$rest = chilkat::CkRest->new();
$socket = chilkat::CkSocket->new();

# Set the HTTP proxy domain or IP address, and port.
$socket->put_HttpProxyHostname("192.168.1.100");
$socket->put_HttpProxyPort(8088);

# We want to tell the socket object that we're doing HTTP over the proxy connection.
# This is because an HTTP proxy used for other protocols (IMAP, SMTP, SSH, FTP, etc.) 
# can require some internal differences in behavior (i.e. how we do things).
$socket->put_HttpProxyForHttp(1);

# Other properties exist for specifying a proxy login, password, and authentication method (such as NTLM),
# but these are not used in this example.

# Connect through the HTTP proxy to the Amazon AWS server for the S3 service.
$bTls = 1;
$port = 443;
$maxWaitMs = 5000;
$success = $socket->Connect("s3.amazonaws.com",$port,$bTls,$maxWaitMs);
if ($success != 1) {
    print "Connect Failure Error Code: " . $socket->get_ConnectFailReason() . "\r\n";
    print $socket->lastErrorText() . "\r\n";
    exit;
}

# Use the proxied TLS connection:
$success = $rest->UseConnection($socket,1);
if ($success != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

# Provide AWS credentials for the REST call.
$authAws = chilkat::CkAuthAws->new();
$authAws->put_AccessKey("AWS_ACCESS_KEY");
$authAws->put_SecretKey("AWS_SECRET_KEY");
$authAws->put_ServiceName("s3");
$success = $rest->SetAuthAws($authAws);

# List all buckets for the account...
$responseXml = $rest->fullRequestNoBody("GET","/");
if ($rest->get_LastMethodSuccess() != 1) {
    print $rest->lastErrorText() . "\r\n";
    exit;
}

$xml = chilkat::CkXml->new();
$success = $xml->LoadXml($responseXml);

# Show the full XML returned.
print $xml->getXml() . "\r\n";

# Iterate over the buckets, showing each bucket name.
$success = $xml->FindChild2("Buckets");
if ($xml->FirstChild2() == 1) {
    print $xml->getChildContent("Name") . "\r\n";
    while (($xml->NextSibling2() == 1)) {
        print $xml->getChildContent("Name") . "\r\n";
    }

}

# Move the internal pointer back to the root node.
$xml->GetRoot2();