(Perl) REST through SSH Tunnel

Demonstrates how to connect through an SSH Tunnel (via port-forwarding) to make REST API calls.

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

use chilkat();

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

$tunnel = chilkat::CkSocket->new();

$sshHostname = "sftp.example.com";
$sshPort = 22;

# Connect to an SSH server and establish the SSH tunnel:
$success = $tunnel->SshOpenTunnel($sshHostname,$sshPort);
if ($success != 1) {
    print $tunnel->lastErrorText() . "\r\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 != 1) {
    print $tunnel->lastErrorText() . "\r\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.
$rest = chilkat::CkRest->new();

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

# This returns a socket object that is a single channel within the SSH tunnel.
# channel is a Socket
$channel = $tunnel->SshOpenChannel("s3.amazonaws.com",$port,$bTls,$maxWaitMs);
if ($tunnel->get_LastMethodSuccess() != 1) {
    print $tunnel->lastErrorText() . "\r\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 != 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();