Tcl

Peek at Buffered SSH Channel Text

Demonstrates the Chilkat Ssh.PeekReceivedText method, which returns the text currently buffered for a channel, decoded with the given charset, without removing any bytes. The first argument is the channel number and the second is the charset.

Background: Every other retrieval method consumes the buffer, which is awkward when you only want to know whether the output you are waiting for has arrived yet. Because peeking is nondestructive, you can inspect, decide, and still retrieve the data normally afterward — the basis of a poll-and-check loop. Note that StripColorCodes is not applied here, so terminal escape sequences appear exactly as buffered.

Chilkat Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set success 0

#  Demonstrates the Ssh.PeekReceivedText method, which returns the text currently buffered for a
#  channel without removing any bytes.  The 1st argument is the channel number and the 2nd is
#  the charset.

set ssh [new_CkSsh]

set sshPort 22
set success [CkSsh_Connect $ssh "ssh.example.com" $sshPort]
if {$success == 0} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    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.
set password "mySshPassword"

set success [CkSsh_AuthenticatePw $ssh "mySshLogin" $password]
if {$success == 0} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    exit
}

set channelNum [CkSsh_OpenSessionChannel $ssh]
if {$channelNum < 0} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    exit
}

set success [CkSsh_SendReqExec $ssh $channelNum "ls -l /tmp"]
if {$success == 0} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    exit
}

#  IMPORTANT: Set a read timeout.  ReadTimeoutMs defaults to 0, which means no limit -- without
#  it, this call waits forever if the server never sends channel close.
CkSsh_put_ReadTimeoutMs $ssh 15000

set success [CkSsh_ChannelReceiveToClose $ssh $channelNum]
if {$success == 0} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    exit
}

#  Look at the buffered text without consuming it.  This is useful for checking whether the
#  expected output has arrived yet.
set peeked [CkSsh_peekReceivedText $ssh $channelNum "utf-8"]
if {[CkSsh_get_LastMethodSuccess $ssh] == 0} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    exit
}

puts "Peeked: $peeked"

#  The bytes are still buffered, so retrieving them still returns the same text.
set output [CkSsh_getReceivedText $ssh $channelNum "utf-8"]
if {[CkSsh_get_LastMethodSuccess $ssh] == 0} then {
    puts [CkSsh_lastErrorText $ssh]
    delete_CkSsh $ssh
    exit
}

puts "Retrieved: $output"

CkSsh_Disconnect $ssh

delete_CkSsh $ssh