banner.tcl - prompts for password and provides basic usage
proc banner {} {
global ver userid passwd tacacs
divider "\033\[1m " [list "\033\[7m[color red "GO $ver"]\033\[27m" "" \
"Usage: go \[-a -d -e -n -o -r -s ] <device> \[nocbox]" "" \
"These hot keys will be available during the session:" "" \
[color white "<cntl>A - toggle Hotscript "] \
[color white "<cntl>B - edit init commands "] \
[color white "<cntl>P - display device passwords "] \
[color white "<cntl>F - GO Frequently asked questions"] \
[color white "<cntl>U - utility menus "] \
[color white "<cntl>W - ACCESS Website "] \
[color white "<cntl>? - Where am I? "]]
set passwd [getpass [color red " Enter TACACS+ password for $userid: "]]
puts "\033\[0m"
set check [utility_decrypt "tacacs"]
if {$passwd == $check} {
set tacacs $passwd
} else {
divider "!" [list "Critical error." "" \
"TACACS+ password does not match" \
"the key used to decrypt the password files." \
"Try again. If this continues to fail, re-run" \
"GO with the -r switch to re-encrypt the AAA password" \
"files."]
titlebar "GO Security Violation"
exit
}
}
Output looks like this:
[rbacon@ash-a6-07-sp:/homes/ashnoc01/rbacon:0]go xxx.xxxx
GO V8.6 <cntl>A - toggle Hotscript
<cntl>B - edit init commands
<cntl>P - display device passwords
<cntl>F - GO Frequently asked questions
<cntl>U - utility menus
<cntl>W - ACCESS Website
<cntl>? - Where am I?
Questions/comments/criticisms: