Sponsored Content
Top Forums Shell Programming and Scripting Tcl / expect need to attempt telnet if failed ssh Post 303028220 by popeye on Wednesday 2nd of January 2019 09:04:27 AM
Old 01-02-2019
Tcl / expect need to attempt telnet if failed ssh

Morning and Happy New Year to all.

I am in a situation where I need to connect to a list of devices that are using either telnet or ssh.
I want to try to telnet, if I receive any of the following I want to attempt ssh :

"Connection refused"
"Connection timed out"
timeout expiration

Code:
#!/usr/bin/expect -d
set dev [lindex $argv 0]
set hnam [lindex $argv 1]
set timeout 10
set unam [lindex $argv 2]
set password [lindex $argv 3]
spawn telnet $dev
      expect {
             "sername" { send "$unam\n"; }
             "login"   { send "$unam\n"; }
#             -re "Connection refused|Connection timed out" { spawn ssh -o StrictHostKeyChecking=no $dev -l $unam }
             timeout { spawn ssh -o StrictHostKeyChecking=no $dev -l $unam
                     expect {
                            timeout { set err [ open "$hnam\_$dev.err" w ] ;
                                      puts $err "SSH timed out for $dev.\n";
                                      log_file ;
                                      exit; }

                             }

                     }
             }
sleep 1
            expect "assword"       { send "$password\n"; }
            expect -re {[#>] ?$}    { send "show clock\n" }
            expect -re {[#>] ?$}    { send "exit\n" }
wait
close $spawn_id

So my question is .. how do I use "|" or "OR" in tcl/expect I have been searching the web but havent found a good example.

Some Psuedo

spawn a telnet session
if Connection refused or Connection timed out or the time out expires
spawn a ssh session
.
.
.
.
end


Thanks in advance ..
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Expect with tcl/tk

hai all, i have an tcl script in which i have been reading the DUT Command prompt of an cisco switch as DUT Command Prompt : cisco* and running the test case of stp now the problem is if i have given any blank space in between the cisco or at the startup then the Expect is not identifying the... (0 Replies)
Discussion started by: sanjustudy
0 Replies

2. UNIX for Dummies Questions & Answers

Expect/Tcl help?

Does anyone know of an expect/tcl forum that is as helpful as this one is for shell scripting? Or if anyone has any expect knowledge, can you please provide some guidance on how to write to a local error log based on output from a ssh session? I have something like this: foreach host... (2 Replies)
Discussion started by: earnstaf
2 Replies

3. Shell Programming and Scripting

Tcl expect HELP

In the following "for" loop I assume the the script will expect "anyway", "first" NOT in any paticular order and send "yes" when there found, breaking out of the loop when "$prompt" is found. The way it is working is like 3 individual expect lines, and they MUST be in cronological order. ANY help... (0 Replies)
Discussion started by: dave_m
0 Replies

4. Shell Programming and Scripting

tcl/expect

Can someone identify what is the problem here?. no children while executing "exp_wait -nowait -i -1" (procedure "logOptions" line 45) invoked from within "logOptions" (procedure "doExecute" line 98) invoked from within "doExecute" (procedure "main" line 32) ... (7 Replies)
Discussion started by: calsum
7 Replies

5. Shell Programming and Scripting

Webpage to Telnet via Perl and Expect: Telnet problem?

Somewhat long story: I have a simple Perl CGI script that uses Expect to Telnet to a device and grab some data, and then spits it back to Perl for display on the Webpage. This works for many devices I've tried, but one device just fails, it keeps rejecting the password on this device, only... (1 Reply)
Discussion started by: jondo
1 Replies

6. Shell Programming and Scripting

Need 'expect' help, ssh/telnet and trapping

So here is what I am trying to do. I have a large # of switches and routers I am trying to log into. Unfortunately some have ssh only, some have telnet only. and some i have never logged into with ssh. I first want it to SSH, if i have never logged into the box it will ask for adding the ssh key. I... (0 Replies)
Discussion started by: ippy98
0 Replies

7. UNIX for Dummies Questions & Answers

Expect/Tcl help

hi, I am new in Expect. I have a question about expect timeout. suppose I have a structure of expect { ".."{ send"............"} timeout{ ............... } } The silly question is if I reach timeout, how can I store the error message showing on the screen to... (2 Replies)
Discussion started by: allenxiao7
2 Replies

8. Shell Programming and Scripting

tcl/expect magic ssh dictionary password

Hi gurus, I am trying to do some expect/TCL magic. My goal is to write some kind of password guessing script (nearly similar to dictionary attack against ssh). I read that this could be possible with expect/TCL, I am newbie in this language, its function and its terms so please be patient ;) ... (3 Replies)
Discussion started by: wakatana
3 Replies

9. Programming

Failed SSL Connection Attempt

The below error message I started seeing using Ubuntu 14.04 and was wondering if the forum has seen it because I cant seem much on the net for this: perl -e 'use IO::Socket::SSL qw(debug3);IO::Socket::SSL->new(PeerAddr=>"10.0.0.100",PeerPort=> 443,Proto=>"TCP") or die $!' DEBUG:... (1 Reply)
Discussion started by: metallica1973
1 Replies

10. Forum Support Area for Unregistered Users & Account Problems

Further to my query re: failed attempt to change email address on existing account

Neo Thanks for your reply to my original post, entitled "Problem changing the email address associated with my unix.com account". I am unable to reply to you in that thread, as I am unable to log-on to unix.com! From what you said about purging dormant accounts, it is likely that my account... (1 Reply)
Discussion started by: irb
1 Replies
ct_telnet(3erl) 					     Erlang Module Definition						   ct_telnet(3erl)

NAME
ct_telnet - Common Test specific layer on top of telnet client ct_telnet_client.erl. DESCRIPTION
Common Test specific layer on top of telnet client ct_telnet_client.erl Use this module to set up telnet connections, send commands and perform string matching on the result. See the unix_telnet manual page for information about how to use ct_telnet, and configure connections, specifically for unix hosts. The following default values are defined in ct_telnet: Connection timeout = 10 sec (time to wait for connection) Command timeout = 10 sec (time to wait for a command to return) Max no of reconnection attempts = 3 Reconnection interval = 5 sek (time to wait in between reconnection attempts) Keep alive = true (will send NOP to the server every 10 sec if connection is idle) These parameters can be altered by the user with the following configuration term: {telnet_settings, [{connect_timeout,Millisec}, {command_timeout,Millisec}, {reconnection_attempts,N}, {reconnection_interval,Millisec}, {keep_alive,Bool}]}. Millisec = integer(), N = integer() Enter the telnet_settings term in a configuration file included in the test and ct_telnet will retrieve the information automatically. Note that keep_alive may be specified per connection if required. See unix_telnet for details. DATA TYPES
connection() = handle() | {target_name() (see module ct), connection_type()} | target_name() (see module ct) : connection_type() = telnet | ts1 | ts2 : handle() = handle() (see module ct_gen_conn) : Handle for a specific telnet connection. prompt_regexp() = string() : A regular expression which matches all possible prompts for a specific type of target. The regexp must not have any groups i.e. when matching, re:run/3 shall return a list with one single element. EXPORTS
close(Connection) -> ok | {error, Reason} Types Connection = connection() (see module ct_telnet) Close the telnet connection and stop the process managing it. A connection may be associated with a target name and/or a handle. If Connection has no associated target name, it may only be closed with the handle value (see the open/4 function). cmd(Connection, Cmd) -> {ok, Data} | {error, Reason} Equivalent to cmd(Connection, Cmd, DefaultTimeout) . cmd(Connection, Cmd, Timeout) -> term() cmdf(Connection, CmdFormat, Args) -> {ok, Data} | {error, Reason} Equivalent to cmdf(Connection, CmdFormat, Args, DefaultTimeout) . cmdf(Connection, CmdFormat, Args, Timeout) -> term() cont_log(Str, Args) -> term() end_log() -> term() expect(Connection, Patterns) -> term() Equivalent to expect(Connections, Patterns, []) . expect(Connection, Patterns, Opts) -> {ok, Match} | {ok, MatchList, HaltReason} | {error, Reason} Types Connection = connection() (see module ct_telnet) Patterns = Pattern | [Pattern] Pattern = string() | {Tag, string()} | prompt | {prompt, Prompt} Prompt = string() Tag = term() Opts = [Opt] Opt = {timeout, Timeout} | repeat | {repeat, N} | sequence | {halt, HaltPatterns} | ignore_prompt Timeout = integer() N = integer() HaltPatterns = Patterns MatchList = [Match] Match = RxMatch | {Tag, RxMatch} | {prompt, Prompt} RxMatch = [string()] HaltReason = done | Match Reason = timeout | {prompt, Prompt} Get data from telnet and wait for the expected pattern. Pattern can be a POSIX regular expression. If more than one pattern is given, the function returns when the first match is found. RxMatch is a list of matched strings. It looks like this: [FullMatch, SubMatch1, SubMatch2, ...] where FullMatch is the string matched by the whole regular expression and SubMatchN is the string that matched subexpression no N . Subexpressions are denoted with '(' ')' in the regular expression If a Tag is given, the returned Match will also include the matched Tag . Else, only RxMatch is returned. The function will always return when a prompt is found, unless the ignore_prompt options is used. The timeout option indicates that the function shall return if the telnet client is idle (i.e. if no data is received) for more than Timeout milliseconds. Default timeout is 10 seconds. The repeat option indicates that the pattern(s) shall be matched multiple times. If N is given, the pattern(s) will be matched N times, and the function will return with HaltReason = done . The sequence option indicates that all patterns shall be matched in a sequence. A match will not be concluded untill all patterns are matched. Both repeat and sequence can be interrupted by one or more HaltPatterns . When sequence or repeat is used, there will always be a MatchList returned, i.e. a list of Match instead of only one Match . There will also be a HaltReason returned. Examples: expect(Connection,[{abc,"ABC"},{xyz,"XYZ"}], [sequence,{halt,[{nnn,"NNN"}]}]). will try to match "ABC" first and then "XYZ", but if "NNN" appears the function will return {error,{nnn,["NNN"]}} . If both "ABC" and "XYZ" are matched, the function will return {ok,[AbcMatch,XyzMatch]} . expect(Connection,[{abc,"ABC"},{xyz,"XYZ"}], [{repeat,2},{halt,[{nnn,"NNN"}]}]). will try to match "ABC" or "XYZ" twice. If "NNN" appears the function will return with HaltReason = {nnn,["NNN"]} . The repeat and sequence options can be combined in order to match a sequence multiple times. get_data(Connection) -> {ok, Data} | {error, Reason} Types Connection = connection() (see module ct_telnet) Data = [string()] Get all data which has been received by the telnet client since last command was sent. open(Name) -> {ok, Handle} | {error, Reason} Equivalent to open(Name, telnet) . open(Name, ConnType) -> {ok, Handle} | {error, Reason} Types Name = target_name() ConnType = connection_type() (see module ct_telnet) Handle = handle() (see module ct_telnet) Open a telnet connection to the specified target host. open(KeyOrName, ConnType, TargetMod) -> {ok, Handle} | {error, Reason} Equivalent to open(KeyOrName, ConnType, TargetMod, []) . open(KeyOrName, ConnType, TargetMod, Extra) -> {ok, Handle} | {error, Reason} Types KeyOrName = Key | Name Key = atom() Name = target_name() (see module ct) ConnType = connection_type() TargetMod = atom() Extra = term() Handle = handle() Open a telnet connection to the specified target host. The target data must exist in a configuration file. The connection may be associated with either Name and/or the returned Handle . To allocate a name for the target, use ct:require/2 in a test case, or use a require statement in the suite info function ( suite/0 ), or in a test case info function. If you want the connection to be associated with Handle only (in case you need to open multiple connections to a host for example), simply use Key , the configuration variable name, to specify the target. Note that a connection that has no associated target name can only be closed with the handle value. TargetMod is a module which exports the functions connect(Ip,Port,KeepAlive,Extra) and get_prompt_regexp() for the given TargetType (e.g. unix_telnet ). send(Connection, Cmd) -> ok | {error, Reason} Types Connection = connection() (see module ct_telnet) Cmd = string() Send a telnet command and return immediately. The resulting output from the command can be read with get_data/1 or expect/2/3 . sendf(Connection, CmdFormat, Args) -> ok | {error, Reason} Types Connection = connection() (see module ct_telnet) CmdFormat = string() Args = list() Send a telnet command and return immediately (uses a format string and a list of arguments to build the command). SEE ALSO
unix_telnet AUTHORS
<> common_test 1.5.3 ct_telnet(3erl)
All times are GMT -4. The time now is 06:23 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy