diff options
Diffstat (limited to 'bin/hlogin.in')
| -rw-r--r-- | bin/hlogin.in | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/bin/hlogin.in b/bin/hlogin.in index a98e926..3bf12de 100644 --- a/bin/hlogin.in +++ b/bin/hlogin.in @@ -1,6 +1,6 @@ #! @EXPECT_PATH@ -- ## -## $Id: hlogin.in,v 1.22 2004/02/02 17:38:36 heas Exp $ +## $Id: hlogin.in,v 1.23 2004/04/09 00:06:44 heas Exp $ ## ## Copyright (C) 1997-2004 by Terrapin Communications, Inc. ## All rights reserved. @@ -298,9 +298,9 @@ proc login { router user userpswd passwd enapasswd cmethod cyphertype } { regexp {(telnet|ssh)(:([^[:space:]]+))*} $prog command suffix junk port if [string match "telnet*" $prog] { if {"$port" == ""} { - set retval [ catch {spawn hpuifilter telnet $router} reason ] + set retval [ catch {spawn hpuifilter -- telnet $router} reason ] } else { - set retval [ catch {spawn hpuifilter telnet $router $port} reason ] + set retval [ catch {spawn hpuifilter -- telnet $router $port} reason ] } if { $retval } { send_user "\nError: telnet failed: $reason\n" @@ -308,9 +308,9 @@ proc login { router user userpswd passwd enapasswd cmethod cyphertype } { } } elseif [string match "ssh*" $prog] { if {"$port" == ""} { - set retval [ catch {spawn hpuifilter $sshcmd -c $cyphertype -x -l $user $router} reason ] + set retval [ catch {spawn hpuifilter -- '$sshcmd -c $cyphertype -x -l $user' $router} reason ] } else { - set retval [ catch {spawn hpuifilter $sshcmd -c $cyphertype -p $port -x -l $user $router} reason ] + set retval [ catch {spawn hpuifilter -- $sshcmd -c $cyphertype -p $port -x -l $user $router} reason ] } if { $retval } { send_user "\nError: $sshcmd failed: $reason\n" |