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                            
                                                                              
            Usage:   go [-a -d -e -n -o -r -s ] <device> [nocbox]              
                                                                              
            These hot keys will be available during the session:              
                                                                              
              <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?                                  
                                                                              
                                                                               

            Enter TACACS+ password for rbacon:   

----

Questions/comments/criticisms: