产卵路由器停止时路由器重新加载，任何方式有自动重新产卵后，路由器重新加载起来

Question

我运行TCL预计发送脚本文件，并执行作为./file

#!/usr/bin/expect 
spawn -noecho telnet 42.0.1.11 
set timeout 900 
expect "login:" 
send "admin\r" 
expect "Password: " 
send "ram\r" 
expect "#" 
for {set i 0} {$i <= 1000000000} {incr i} { 
some router commands 
} 

这个作品很好，直到路由器重新加载，当路由器重新加载时，这个脚本停止，因为spawn id不打开，我想恢复脚本（我不知道到底需要多少时间来重新加载，因为它大部分时间都在变化）。自动恢复脚本

谢谢

Answer 1

把你的登录程序到proc中，如果你得到EOF，再次调用它。这里有一个基本的想法，只记得可能有其他方式出错。

编辑：我已经重新编写了一些调查后的代码。这已经在Linux上通过Solaris 10工作站模拟的“路由器重启”进行了测试（对不起，没有思科重启）。正如我所提到的，ping实现不同于OS到OS，因此可能需要更改proc Ping以适应您的情况。

#!/usr/bin/tclsh 

package require Expect 

proc RouterLogin {ip user pass} { 
    spawn -noecho telnet $ip 
    set timeout 60 
    expect "login:" 
    send "$user\r" 
    expect "Password: " 
    send "$pass\r" 
    expect "#" 
    return $spawn_id 
} 

proc RouterPing ip { 
    # ping retry limit  - 3 
    # delay between retries - 30 seconds 
    set limit 3 
    set delay 30 
    set attempt 1 
    set result false 
    while {$result == false && $attempt <= $limit} { 
     set result [Ping $ip] 
     incr attempt 
     if {!$result && $attempt <= $limit} { 
      # wait $delay seconds 
      after [expr {1000 * $delay}] 
     } 
    } 
    return $result 
} 

proc Ping ip { 
    set pingCmd "ping -c 1 $ip" 
    catch {eval exec $pingCmd} pingRes 
    if {[regexp "bytes from" $pingRes]} { 
     return true 
    } else { 
     return false 
    } 
} 

proc RouterExec {ip user pass commandList} { 
    set spawn_id [RouterLogin $ip $user $pass] 
    set timeout 30 
    foreach cmd $commandList { 
     send "$cmd\r" 
     expect { 
      "#" { 
       # you are good 
       puts "Command executed successfully" 
      } 
      eof { 
       # wait 5 minutes 
       after [expr {1000 * 60 * 5}] 
       if {[RouterPing $ip]} { 
        # ping was successful, relogin and resume 
        set spawn_id [RouterLogin $ip $user $pass] 
       } else { 
        # ping was not successful, abort execution 
        return false 
       } 
      } 
      timeout { 
       puts "INF: timeout" 
       return false 
      } 
     } 
    } 
    send "logout\r" 
    return true 
} 

set commandList [list command1 command2 command3] 

RouterExec "42.0.1.11" "admin" "ram" $commandList