Perl

REST through HTTP Proxy

See more REST Examples

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

use strict;
use warnings;
use Chilkat2;

# 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.
my $rest = Chilkat2::Rest->new;
my $socket = Chilkat2::Socket->new;

# Set the HTTP proxy domain or IP address, and port.
$socket->HttpProxyHostname('192.168.1.100');
$socket->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->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.
my $bTls = 1;
my $port = 443;
my $maxWaitMs = 5000;
my $success = $socket->Connect('s3.amazonaws.com', $port, $bTls, $maxWaitMs);
if (!$success) {
    print 'Connect Failure Error Code: ', $socket->ConnectFailReason, "\n";
    print $socket->LastErrorText, "\n";
    exit;
}

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

# Provide AWS credentials for the REST call.
my $authAws = Chilkat2::AuthAws->new;
$authAws->AccessKey('AWS_ACCESS_KEY');
$authAws->SecretKey('AWS_SECRET_KEY');
$authAws->ServiceName('s3');
$success = $rest->SetAuthAws($authAws);

# List all buckets for the account...
my $responseXml = $rest->FullRequestNoBody('GET', '/');
if (!$rest->LastMethodSuccess) {
    print $rest->LastErrorText, "\n";
    exit;
}

my $xml = Chilkat2::Xml->new;
$success = $xml->LoadXml($responseXml);

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

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

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