#!/usr/bin/expect
##################################################################
# #
# FileName: brg1Mb.exp #
# Expect script to set wireless brdige data rate to 1 Mbps #
# #
##################################################################
set timeout 30
set prompt "(%|>|#|\\$) $" ;
catch { set prompt $env(EXPECT_PROMPT) }
set bw [lrange $argv 0 0]
set dly [lrange $argv 1 1]
set qlen [lrange $argv 2 2]
puts "Telnet into mobile router bridge"
set tpid1 [ spawn telnet 100.10.10.150 ]
send "\r"
expect ">"
send "1"
expect ">"
send "1"
expect ">"
send "3"
expect ":"
send $bw
send "\r"
sleep 3
#send "\r"
#expect ">"
#send "\027"
#expect ">"
#send "\027"
#expect ">"
#send "8"
#expect "?"
#send "y"
exec kill -9 $tpid1
puts "Telnet into Rack6R2\r"
set tpid5 [spawn telnet 100.10.18.22]
expect "Password"
send "cisco\r"
expect ">"
send "en\r"
expect "Password"
send "cisco\r"
expect "#"
send "conf t\r"
expect "#"
send "int fa0/1\r"
send "delay "
send $dly
send "00"
send "\r"
expect "#"
send "hold "
send $qlen
send " in\r"
expect "#"
send "int fa0/0\r"
send "delay "
send $dly
send "00"
send "\r"
expect "#"
send "hold "
send $qlen
send " in\r"
expect "#"
send "end\r"
expect "#"
exec kill -9 $tpid5
exec route del default gw 100.10.18.22
exec route add default gw 100.10.13.7
puts "Telnet into home agent bridge"
set tpid2 [ spawn telnet 100.10.10.50 ]
send "\r"
expect ">"
send "1"
expect ">"
send "1"
expect ">"
send "3"
expect ":"
send $bw
send "\r"
sleep 1
#send "\r"
#expect ">"
#send "\027"
#expect ">"
#send "\027"
#expect ">"
#send "8"
#expect "?"
#send "y"
exec kill -9 $tpid2
puts "Telnet into home agent bridge"
set tpid3 [ spawn telnet 100.10.15.5 ]
send "\r"
expect ">"
send "1"
expect ">"
send "1"
expect ">"
send "3"
expect ":"
send $bw
send "\r"
sleep 1
#send "\r"
#expect ">"
#send "\027"
#expect ">"
#send "\027"
#expect ">"
#send "8"
#expect "?"
#send "y"
exec kill -9 $tpid3
puts "Telnet into home agent bridge"
set tpid4 [ spawn telnet 100.10.17.5 ]
send "\r"
expect ">"
send "1"
expect ">"
send "1"
expect ">"
send "3"
expect ":"
send $bw
send "\r"
sleep 1
#send "\r"
#expect ">"
#send "\027"
#expect ">"
#send "\027"
#expect ">"
#send "8"
#expect "?"
#send "y"
exec kill -9 $tpid4
puts "Telnet into Rack7R7\r"
set tpid6 [spawn telnet 100.10.13.7]
expect "Password"
send "cisco\r"
expect ">"
send "en\r"
expect "Password"
send "cisco\r"
expect "#"
send "conf t\r"
expect "#"
send "int fa0/0\r"
send "delay "
send $dly
send "00"
send "\r"
expect "#"
send "hold "
send $qlen
send " in\r"
expect "#"
send "int fa0/1\r"
send "delay "
send $dly
send "00"
send "\r"
expect "#"
send "hold "
send $qlen
send " in\r"
expect "#"
send "int fa1/0\r"
send "delay "
send $dly
send "00"
send "\r"
expect "#"
send "hold "
send $qlen
send " in\r"
expect "#"
send "end\r"
exec kill -9 $tpid6
puts "Telnet into Rack6R7\r"
set tpid7 [spawn telnet 100.10.13.77]
expect "Password"
send "cisco\r"
expect ">"
send "en\r"
expect "Password"
send "cisco\r"
expect "#"
send "conf t\r"
expect "#"
send "int fa0/0\r"
send "delay "
send $dly
send "00"
send "\r"
expect "#"
send "hold "
send $qlen
send " in\r"
expect "#"
send "int fa0/1\r"
send "delay "
send $dly
send "00"
send "\r"
expect "#"
send "hold "
send $qlen
send " in\r"
expect "#"
send "int fa1/0\r"
send "delay "
send $dly
send "00"
send "\r"
expect "#"
send "hold "
send $qlen
send " in\r"
expect "#"
send "end\r"
exec kill -9 $tpid7
puts "Telnet into Rack7R2\r"
set tpid8 [spawn telnet 100.10.14.2]
expect "Password"
send "cisco\r"
expect ">"
send "en\r"
expect "Password"
send "cisco\r"
expect "#"
send "conf t\r"
expect "#"
send "int fa0/0\r"
send "delay "
send $dly
send "00"
send "\r"
expect "#"
send "hold "
send $qlen
send " in\r"
expect "#"
send "int fa0/1\r"
send "delay "
send $dly
send "00"
send "\r"
expect "#"
send "hold "
send $qlen
send " in\r"
expect "#"
send "end\r"
exec kill -9 $tpid8
puts "Telnet into Rack6R1\r"
set tpid9 [spawn telnet 100.10.16.11]
expect "Password"
send "cisco\r"
expect ">"
send "en\r"
expect "Password"
send "cisco\r"
expect "#"
send "conf t\r"
expect "#"
send "int e0/0\r"
send "delay "
send $dly
send "00"
send "\r"
expect "#"
send "hold "
send $qlen
send " in\r"
expect "#"
send "int e0/1\r"
send "delay "
send $dly
send "00"
send "\r"
expect "#"
send "hold "
send $qlen
send " in\r"
expect "#"
send "end\r"
exec kill -9 $tpid9
puts "Telnet into Rack7R1\r"
set tpid10 [spawn telnet 100.10.11.1]
expect "Password"
send "cisco\r"
expect ">"
send "en\r"
expect "Password"
send "cisco\r"
expect "#"
send "conf t\r"
expect "#"
send "int e0/0\r"
send "delay "
send $dly
send "00"
send "\r"
expect "#"
send "hold "
send $qlen
send " in\r"
expect "#"
send "int e0/1\r"
send "delay "
send $dly
send "00"
send "\r"
expect "#"
send "hold "
send $qlen
send " in\r"
expect "#"
send "end\r"
exec kill -9 $tpid10
exec route del default gw 100.10.13.7
exec route add default gw 100.10.18.22
(
geocities.com/shezy22/cisco_mip) (
geocities.com/shezy22)