#!/usr/bin/env -S kermit +
#
# Author: Tomas Zeman <tzeman@volny.cz>
# This script belongs to public domain. Use it as you wish.
#
# Connects to a Cisco box via SSH and displays IOS version and running config.
# Handles --More-- prompt accordingly.
# Command session is printed to stdout, error and trace messages to stderr.
#
# Invocation:
# 	./connect <<host>>
#
# Environment:
# 	SSH_USER - ssh user
# 	SSH_PASS - password
# 	ENA_PASS - enable password
#

define waitfor {
	while true {
		minput \%1 {\%2} {--More--}
		if fail die_error \%3 \%4
		reinput 0 {--More--}
		if ok {
			output { }
		} else {
			reinput 0 {\%2}
			if ok break
			reinput 0 {\%2 }
			if ok break
		}
		clear input
	}
}

define log_trace {
	write error TRACE: \%1\{10}
}

define die_error {
	write error ERROR: \%2\{10}
	exit \%1
}

define cmd {
	log_trace {Executing command: \%4}
	lineout \%4
	waitfor \%1 \%2 \%3 \%4
}

# globals
set network directory ""
set exit on-disconnect on
set exit warning off
set input case ignore

log_trace {Connecting to \%1}
set host /pty ssh -e none -o 'StrictHostKeyChecking no' -l \$(SSH_USER) \%1
if fail die_error 1 {Connection to \%1}

log_trace {Waiting for password}
waitfor 5 {assword: } 2 {Password timeout}
lineout \$(SSH_PASS)
log_trace {Waiting for command prompt}
waitfor 5 {>} 2 {Command prompt}

lineout enable
waitfor 5 {assword: } 2 {Enable password timeout}
lineout \$(ENA_PASS)
log_trace {Waiting for command prompt (enable mode)}
waitfor 5 {\#} 2 {Command prompt}

local declare \&a
.wc := \fsplit(\v(input), &a, \{10}) 
.prompt := \&a[\&a[0]]

cmd 10 \m(prompt) 3 {show version}
cmd 20 \m(prompt) 3 {show run}

pause 1
lineout exit
log_trace {Exiting & disconnecting}
input 3 {\{10}}
log_trace {Done}
exit