diff options
Diffstat (limited to 'bin/blogin.in')
-rw-r--r-- | bin/blogin.in | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/bin/blogin.in b/bin/blogin.in index 6233820..9c19de9 100644 --- a/bin/blogin.in +++ b/bin/blogin.in @@ -1,7 +1,8 @@ #! @EXPECT_PATH@ -- ## -## $Id: blogin.in,v 1.31 2006/08/10 07:00:30 heas Exp $ +## $Id: blogin.in,v 1.33 2006/12/05 16:50:52 heas Exp $ ## +## @PACKAGE@ @VERSION@ ## Copyright (C) 1997-2006 by Terrapin Communications, Inc. ## All rights reserved. ## @@ -72,6 +73,9 @@ if {[ info exists env(CISCO_USER) ]} { } regexp {\(([^)]*)} "$reason" junk default_user } +if {[ info exists env(CLOGINRC) ]} { + set password_file $env(CLOGINRC) +} # Sometimes routers take awhile to answer (the default is 10 sec) set timeout 45 @@ -97,13 +101,16 @@ for {set i 0} {$i < $argc} {incr i} { } set do_passwd 0 # VTY Password - } -v* - - -v* { + } -v* { if {! [ regexp .\[vV\](.+) $arg ignore passwd]} { incr i set passwd [ lindex $argv $i ] } set do_passwd 0 + # Version string + } -V* { + send_user "@PACKAGE@ @VERSION@\n" + exit 0 # Enable Username } -w* - -W* { |