Perl

Open an SSH Session Channel

Demonstrates the Chilkat Ssh.OpenSessionChannel method, which opens a new SSH session channel. It takes no arguments and returns the channel number, or -1 on failure. The transport must already be connected and authenticated.

Background: SSH multiplexes independent channels over one authenticated connection, and a session channel is the one used to run a command, start a shell, or invoke a subsystem. Opening the channel is only the container — nothing runs until you follow it with an exec, shell, or subsystem request. Always test for a negative return rather than assuming success.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the Ssh.OpenSessionChannel method, which opens a new SSH session channel.  It
#  takes no arguments and returns the channel number, or -1 on failure.  The transport must
#  already be connected and authenticated.

$ssh = chilkat::CkSsh->new();

$sshPort = 22;
$success = $ssh->Connect("ssh.example.com",$sshPort);
if ($success == 0) {
    print $ssh->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 = $ssh->AuthenticatePw("mySshLogin",$password);
if ($success == 0) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

#  Open a session channel.  A negative return value indicates failure.
$channelNum = $ssh->OpenSessionChannel();
if ($channelNum < 0) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

print "Opened session channel: " . $channelNum . "\r\n";

#  Opening the channel does not start a shell or command -- send an exec, shell, or subsystem
#  request next.

$ssh->Disconnect();