Perl

Use an Existing Socket SSH Tunnel

Demonstrates the Chilkat MailMan.UseSshTunnel method, which configures MailMan to use an existing SSH tunnel provided by a Socket object for its SMTP and POP3 connections. This example opens and authenticates a tunnel on a Socket, hands it to MailMan, and then verifies an SMTP login through it.

Background: Sharing one already-established SSH tunnel across objects avoids opening (and authenticating) a separate SSH connection for every component that needs to reach the remote network. Here the tunnel lives on a Socket object, which MailMan then routes its SMTP/POP3 traffic through. It is the Socket-based sibling of UseSsh, which shares an Ssh object instead.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the MailMan.UseSshTunnel method, which configures MailMan to use an existing
#  SSH tunnel provided by a Socket object for its SMTP and POP3 connections.

#  Open and authenticate the SSH tunnel using a Socket object.
$sshTunnel = chilkat::CkSocket->new();
$success = $sshTunnel->SshOpenTunnel("ssh.example.com",22);
if ($success == 0) {
    print $sshTunnel->lastErrorText() . "\r\n";
    exit;
}

$success = $sshTunnel->SshAuthenticatePw("sshUser","sshPassword");
if ($success == 0) {
    print $sshTunnel->lastErrorText() . "\r\n";
    exit;
}

$mailman = chilkat::CkMailMan->new();

#  Configure the SMTP server connection.  These connections will travel through the tunnel.
$mailman->put_SmtpHost("smtp.example.com");
$mailman->put_SmtpPort(465);
$mailman->put_SmtpSsl(1);
$mailman->put_SmtpUsername('user@example.com');
$mailman->put_SmtpPassword("myPassword");

#  Tell MailMan to route its connections through the existing tunnel.
$success = $mailman->UseSshTunnel($sshTunnel);
if ($success == 0) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}

#  SMTP operations now travel through the shared SSH tunnel.
$success = $mailman->VerifySmtpLogin();
if ($success == 0) {
    print $mailman->lastErrorText() . "\r\n";
    exit;
}

print "Authenticated with the SMTP server through the SSH tunnel." . "\r\n";