#!/usr/local/bin/expect --
#
# Name: cisco_fetch
# Author: Craig Labovitz (Merit Network, Inc. 1995)
# Description: Trivial script to perform 'show ip bgp' on a given cisco


if {$argc != 2} {
  puts "\nUsage: cisco_fetch hostname\n\n"
  exit
}

set host     [lindex $argv 0]
set password [lindex $argv 1]

spawn telnet $host
expect "Password: "
send "$password\r"
expect "*>*"
send "term length 0\r"
expect "*>*"
send "show ip bgp\r"
send "quit\r"

for {} 1 {} {
  expect eof {
	exit
  }
}




