Perl Requires Chilkat v11.0.0+

REST through SSH Tunnel

See more REST Examples

Demonstrates how to connect through an SSH Tunnel (via port-forwarding) 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.

my $tunnel = Chilkat2::Socket->new;

my $sshHostname = 'sftp.example.com';
my $sshPort = 22;

# Connect to an SSH server and establish the SSH tunnel:
my $success = $tunnel->SshOpenTunnel($sshHostname, $sshPort);
if (!$success) {
    print $tunnel->LastErrorText, "\n";
    exit;
}

# Authenticate with the SSH server via a login/password
# or with a public key.
# This example demonstrates SSH password authentication.
$success = $tunnel->SshAuthenticatePw('mySshLogin', 'mySshPassword');
if (!$success) {
    print $tunnel->LastErrorText, "\n";
    exit;
}

#  OK, the SSH tunnel is setup.  Now open a channel within the tunnel.
#  (Any number of channels may be created from the same SSH tunnel.
#  Multiple channels may coexist at the same time.)

# This example connects to a REST server through the SSH tunnel.
# It will connect to the Amazon AWS service for this example.
my $rest = Chilkat2::Rest->new;

my $bTls = 1;
my $port = 443;
my $maxWaitMs = 5000;

# This returns a socket object that is a single channel within the SSH tunnel.
my $channel = Chilkat2::Socket->new;
$success = $tunnel->SshNewChannel('s3.amazonaws.com', $port, $bTls, $maxWaitMs, $channel);
if (!$success) {
    print $tunnel->LastErrorText, "\n";
    exit;
}

# Use the connection.  (This connection is a TLS running on an SSH channel through an SSH tunnel.
# In other words, TLS is wrapped within the SSH tunnel.)
$success = $rest->UseConnection($channel, 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();