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. Perl

use chilkat();

$success = 0;

#  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 == 0) {
    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 == 0) {
    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 = chilkat::CkSocket->new();
$success = $tunnel->SshNewChannel("s3.amazonaws.com",$port,$bTls,$maxWaitMs,$channel);
if ($success == 0) {
    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();