(Perl) SSH Commands to Sophos Router Device Console

Demonstrates how to establish an SSH session with a Sophos XG router and send commands in a device console session.

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

use chilkat();

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

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

$success = $ssh->Connect("172.16.16.16",22);
if ($success != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

# Authenticate using login/password:
$success = $ssh->AuthenticatePw("myLogin","myPassword");
if ($success != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

# Start a shell session.
# (The QuickShell method was added in Chilkat v9.5.0.65)
$channelNum = $ssh->QuickShell();
if ($channelNum < 0) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

# The Sophos router will send this initial prompt:

# 	Main Menu
# 
# 	    1.  Network  Configuration
# 	    2.  System   Configuration
# 	    3.  Route    Configuration
# 	    4.  Device Console
# 	    5.  Device Management
# 	    6.  VPN Management
# 	    7.  Shutdown/Reboot Device
# 	    0.  Exit
# 
# 	    Select Menu Number [0-7]: 

$success = $ssh->ChannelReceiveUntilMatch($channelNum,"Select Menu Number","utf-8",1);
if ($success != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

# Show what we received so far:
print $ssh->getReceivedText($channelNum,"utf-8") . "\r\n";

# Send "4" <RETURN> to mimic typing in a shell session.
$success = $ssh->ChannelSendString($channelNum,"4\n","utf-8");
if ($success != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

# We should get a "console>" prompt.
$success = $ssh->ChannelReceiveUntilMatch($channelNum,"console>","utf-8",1);
if ($success != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

print $ssh->getReceivedText($channelNum,"utf-8") . "\r\n";

# Send a command and get the output..
$success = $ssh->ChannelSendString($channelNum,"dnslookup host google.com\n","utf-8");
$success = $ssh->ChannelReceiveUntilMatch($channelNum,"console>","utf-8",1);
if ($success != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

print $ssh->getReceivedText($channelNum,"utf-8") . "\r\n";

# Send another command and get the output, and so on...
$success = $ssh->ChannelSendString($channelNum,"dnslookup host microsoft.com\n","utf-8");
$success = $ssh->ChannelReceiveUntilMatch($channelNum,"console>","utf-8",1);
if ($success != 1) {
    print $ssh->lastErrorText() . "\r\n";
    exit;
}

print $ssh->getReceivedText($channelNum,"utf-8") . "\r\n";

$ssh->Disconnect();