From 1a7c45398738cdb4eaafdc9e0962272f19d54816 Mon Sep 17 00:00:00 2001 From: Tar Committer Date: Tue, 5 Dec 2006 16:52:12 +0000 Subject: Imported from rancid-2.3.2a6.tar.gz. --- bin/htlogin.in | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) (limited to 'bin/htlogin.in') diff --git a/bin/htlogin.in b/bin/htlogin.in index 03c3762..213f028 100644 --- a/bin/htlogin.in +++ b/bin/htlogin.in @@ -1,7 +1,8 @@ #! @EXPECT_PATH@ -- ## -## $Id: htlogin.in,v 1.16 2006/08/10 07:00:31 heas Exp $ +## $Id: htlogin.in,v 1.18 2006/12/05 16:50:52 heas Exp $ ## +## @PACKAGE@ @VERSION@ ## Copyright (C) 1997-2006 by Terrapin Communications, Inc. ## All rights reserved. ## @@ -67,6 +68,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 @@ -92,13 +96,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* { -- cgit