summaryrefslogtreecommitdiffstats
path: root/bin/nslogin.in
diff options
context:
space:
mode:
Diffstat (limited to 'bin/nslogin.in')
-rw-r--r--bin/nslogin.in92
1 files changed, 60 insertions, 32 deletions
diff --git a/bin/nslogin.in b/bin/nslogin.in
index 6cf4188..9e9e354 100644
--- a/bin/nslogin.in
+++ b/bin/nslogin.in
@@ -1,27 +1,47 @@
#! @EXPECT_PATH@ --
##
-## $Id: nslogin.in,v 1.22 2006/12/08 21:28:26 heas Exp $
+## $Id$
##
## @PACKAGE@ @VERSION@
-## Copyright (C) 1997-2006 by Terrapin Communications, Inc.
+## Copyright (c) 1997-2007 by Terrapin Communications, Inc.
## All rights reserved.
##
-## This software may be freely copied, modified and redistributed
-## without fee for non-commerical purposes provided that this license
-## remains intact and unmodified with any RANCID distribution.
+## This code is derived from software contributed to and maintained by
+## Terrapin Communications, Inc. by Henry Kilmer, John Heasley, Andrew Partan,
+## Pete Whiting, Austin Schutz, and Andrew Fort.
##
-## There is no warranty or other guarantee of fitness of this software.
-## It is provided solely "as is". The author(s) disclaim(s) all
-## responsibility and liability with respect to this software's usage
-## or its effect upon hardware, computer systems, other software, or
-## anything else.
+## Redistribution and use in source and binary forms, with or without
+## modification, are permitted provided that the following conditions
+## are met:
+## 1. Redistributions of source code must retain the above copyright
+## notice, this list of conditions and the following disclaimer.
+## 2. Redistributions in binary form must reproduce the above copyright
+## notice, this list of conditions and the following disclaimer in the
+## documentation and/or other materials provided with the distribution.
+## 3. All advertising materials mentioning features or use of this software
+## must display the following acknowledgement:
+## This product includes software developed by Terrapin Communications,
+## Inc. and its contributors for RANCID.
+## 4. Neither the name of Terrapin Communications, Inc. nor the names of its
+## contributors may be used to endorse or promote products derived from
+## this software without specific prior written permission.
+## 5. It is requested that non-binding fixes and modifications be contributed
+## back to Terrapin Communications, Inc.
##
-## Except where noted otherwise, rancid was written by and is maintained by
-## Henry Kilmer, John Heasley, Andrew Partan, Pete Whiting, and Austin Schutz.
-##
-#
-# The login expect scripts were based on Erik Sherk's gwtn, by permission.
-#
+## THIS SOFTWARE IS PROVIDED BY Terrapin Communications, INC. AND CONTRIBUTORS
+## ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+## TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+## PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COMPANY OR CONTRIBUTORS
+## BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+## CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+## SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+## INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+## CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+## ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+## POSSIBILITY OF SUCH DAMAGE.
+#
+# The expect login scripts were based on Erik Sherk's gwtn, by permission.
+#
# nslogin - Netscaler login
#
# Hacks from Anshuman Kanwar.
@@ -35,7 +55,7 @@
#
# Usage line
-set usage "Usage: $argv0 \[-autoenable\] \[-noenable\] \[-c command\] \
+set usage "Usage: $argv0 \[-dV\] \[-autoenable\] \[-noenable\] \[-c command\] \
\[-Evar=x\] \[-e enable-password\] \[-f cloginrc-file\] \[-p user-password\] \
\[-s script-file\] \[-t timeout\] \[-u username\] \
\[-v vty-password\] \[-w enable-username\] \[-x command-file\] \
@@ -47,7 +67,7 @@ set usage "Usage: $argv0 \[-autoenable\] \[-noenable\] \[-c command\] \
# Password file
set password_file $env(HOME)/.cloginrc
# Default is to login to the router
-set do_command 1
+set do_command 0
set do_script 0
# The default is to automatically enable
set avenable 0
@@ -90,8 +110,11 @@ for {set i 0} {$i < $argc} {incr i} {
set arg [lindex $argv $i]
switch -glob -- $arg {
+ # Expect debug mode
+ -d* {
+ exp_internal 1
# Username
- -u* -
+ } -u* -
-U* {
if {! [ regexp .\[uU\](.+) $arg ignore user]} {
incr i
@@ -330,7 +353,7 @@ proc login { router user userpswd passwd enapasswd cmethod cyphertype } {
expect_after {
timeout {
send_user "\nError: TIMEOUT reached\n"
- catch {close}; wait
+ catch {close}; catch {wait};
if { $in_proc} {
return 1
} else {
@@ -338,7 +361,7 @@ proc login { router user userpswd passwd enapasswd cmethod cyphertype } {
}
} eof {
send_user "\nError: EOF received\n"
- catch {close}; wait
+ catch {close}; catch {wait};
if { $in_proc} {
return 1
} else {
@@ -356,22 +379,22 @@ proc login { router user userpswd passwd enapasswd cmethod cyphertype } {
# if telnet fails with connection refused, try ssh
expect {
-re "(Connection refused|Secure connection \[^\n\r]+ refused|Connection closed by)" {
- catch {close}; wait
+ catch {close}; catch {wait};
if !$progs {
send_user "\nError: Connection Refused ($prog)\n"; return 1
}
}
eof { send_user "\nError: Couldn't login\n"; wait; return 1 }
-nocase "unknown host\r" {
- catch {close};
+ catch {close}; catch {wait};
send_user "\nError: Unknown host\n"; wait; return 1
}
"Host is unreachable" {
- catch {close};
+ catch {close}; catch {wait};
send_user "\nError: Host Unreachable!\n"; wait; return 1
}
"No address associated with name" {
- catch {close};
+ catch {close}; catch {wait};
send_user "\nError: Unknown host\n"; wait; return 1
}
-re "(Host key not found |The authenticity of host .* be established).*\(yes\/no\)\?" {
@@ -388,7 +411,7 @@ proc login { router user userpswd passwd enapasswd cmethod cyphertype } {
return 1 }
-re "(denied|Sorry)" {
send_user "\nError: Check your passwd for $router\n"
- catch {close}; wait; return 1
+ catch {close}; catch {wait}; return 1
}
"Login failed" {
send_user "\nError: Check your passwd for $router\n"
@@ -398,7 +421,9 @@ proc login { router user userpswd passwd enapasswd cmethod cyphertype } {
send_user "\nError: Check your passwd for $router\n"
return 1
}
- -re "@\[^\r\n]+ $p_prompt" {
+ # newer netscaler code (NS8.0: Build 47.8) the password prompt is
+ # "Password:" not "user@hosts's password:"
+ -re "(@\[^\r\n]+ )?$p_prompt" {
# ssh pwd prompt
sleep 1
send "$userpswd\r"
@@ -408,7 +433,7 @@ proc login { router user userpswd passwd enapasswd cmethod cyphertype } {
"$prompt" { break; }
"Login invalid" {
send_user "\nError: Invalid login\n";
- catch {close}; wait; return 1
+ catch {close}; catch {wait}; return 1
}
}
}
@@ -504,7 +529,7 @@ proc run_commands { prompt command } {
exp_continue
}
"\n" { exp_continue }
- timeout { catch {close}; wait
+ timeout { catch {close}; catch {wait};
return 0
}
eof { return 0 }
@@ -519,6 +544,7 @@ proc run_commands { prompt command } {
#
source_password_file $password_file
set in_proc 0
+set exitval 0
foreach router [lrange $argv $i end] {
set router [string tolower $router]
send_user "$router\n"
@@ -617,6 +643,7 @@ foreach router [lrange $argv $i end] {
# Login to the router
if {[login $router $ruser $userpswd $passwd $enapasswd $cmethod $cyphertype]} {
+ incr exitval
continue
}
@@ -639,6 +666,7 @@ foreach router [lrange $argv $i end] {
if { $do_command } {
if {[run_commands $prompt $command]} {
+ incr exitval
continue
}
} elseif { $do_script } {
@@ -652,7 +680,7 @@ foreach router [lrange $argv $i end] {
}
expect -re $prompt {}
source $sfile
- close
+ catch {close};
} else {
label $router
log_user 1
@@ -660,7 +688,7 @@ foreach router [lrange $argv $i end] {
}
# End of for each router
- wait
+ catch {wait};
sleep 0.3
}
-exit 0
+exit $exitval