Perl

SSH Tunnel Thread Activity Log

Demonstrates the tunnel-log properties KeepTunnelLog, TunnelLog, and TunnelLogPath, which record the activity of the SSH tunnel and client-manager threads.

Note: The log paths are relative to the application's current working directory. Absolute paths may also be used.

Background: This is the counterpart to the accept log, covering the SSH side rather than the listener: the tunnel and client-manager threads that actually move data. As with the accept log, KeepTunnelLog enables the in-memory TunnelLog while TunnelLogPath writes a separate file. Together the two logs let you localize a problem to either the accepting side or the forwarding side.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the SshTunnel tunnel-log properties KeepTunnelLog, TunnelLog, and TunnelLogPath.
#  
#  These log the activity of the SSH tunnel and client-manager threads.

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

#  Retain the SSH tunnel-thread activity in memory so it can be read from the TunnelLog property.
$tunnel->put_KeepTunnelLog(1);

#  Optionally also write the tunnel-thread activity to a file (separate from the in-memory log).
$tunnel->put_TunnelLogPath("qa_output/tunnel.log");

$tunnel->put_DestHostname("db.internal.example.com");
$tunnel->put_DestPort(5432);

$sshPort = 22;
$success = $tunnel->Connect("ssh.example.com",$sshPort);
if ($success == 0) {
    print $tunnel->lastErrorText() . "\r\n";
    exit;
}

#  Normally you would not hard-code the password in source.  You should instead obtain it
#  from an interactive prompt, environment variable, or a secrets vault.
$password = "mySshPassword";

$success = $tunnel->AuthenticatePw("mySshLogin",$password);
if ($success == 0) {
    print $tunnel->lastErrorText() . "\r\n";
    exit;
}

$listenPort = 1080;
$success = $tunnel->BeginAccepting($listenPort);
if ($success == 0) {
    print $tunnel->lastErrorText() . "\r\n";
    exit;
}

#  ... clients transfer data through the tunnel ...

#  Read the accumulated in-memory tunnel log.
print $tunnel->tunnelLog() . "\r\n";

$waitForThreadExit = 1;
$success = $tunnel->CloseTunnel($waitForThreadExit);
if ($success == 0) {
    print $tunnel->lastErrorText() . "\r\n";
    exit;
}