diff options
Diffstat (limited to 'bin/alogin.in')
-rw-r--r-- | bin/alogin.in | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/bin/alogin.in b/bin/alogin.in index 537c506..ae3ddee 100644 --- a/bin/alogin.in +++ b/bin/alogin.in @@ -1,8 +1,8 @@ #! @EXPECT_PATH@ -- ## -## $Id: alogin.in,v 1.30 2005/06/14 20:20:43 heas Exp $ +## $Id: alogin.in,v 1.33 2006/08/10 07:00:30 heas Exp $ ## -## Copyright (C) 1997-2004 by Terrapin Communications, Inc. +## Copyright (C) 1997-2006 by Terrapin Communications, Inc. ## All rights reserved. ## ## This software may be freely copied, modified and redistributed @@ -417,15 +417,16 @@ proc run_commands { prompt command } { } send "exit\r" expect { - -re "^WARNING: There are unsaved configuration changes." - { - send "y\r" - exp_continue - } - "\n" { exp_continue } - "\[^\n\r *]*Session terminated" { return 0 } - timeout { return 0 } - eof { return 0 } + -re "^WARNING: There are unsaved configuration changes." { + send "y\r" + exp_continue + } + "\n" { exp_continue } + "\[^\n\r *]*Session terminated" { return 0 } + timeout { catch {close}; wait + return 0 + } + eof { return 0 } } set in_proc 0 } |