Shell Programming and Scripting

logfile::
START OF SCRIPT
****************************SERVER:**********************
*********************************************************
array set ::env {LS_COLORS {} LESSOPEN {|/usr/bin/lesspipe.sh %s} 
TERM xterm CVS_RSH ssh SHELL /bin/bash ORACLE_BASE /u01/app/oracle SHLVL 2 G_BROKEN_FILENAMES PATH /usr/kerberos/bin:/usr/local/bin:/bin:/usr/bin:/sbin/:/usr/sbin:/home/oracle/bin:/u01/app/oracle/product/11.2.0/dbhome_1/bin:/u01/app/oracle/product/11.2.0/dbhome_1/OPatch:. _ /home/oracle/scripts/msa_config.exp USER oracle}
spawn telnet *****
manage
!Trying ****...

Connected to *****.

Escape character is '^]'.

Login: login
Password: *******

HP StorageWorks ***
System Name: ***
System Location: 
Version: W441P28

# show vdisk 
Name Size     Free    Own Pref   RAID   Disks Spr Chk  Status Jobs      
Press any key to continue (Q to quit)


expect script:
set env(TERM) xterm
set env(PATH) /usr/kerberos/bin:/usr/local/bin:/bin:/usr/bin:/sbin/:/usr/sbin:/home/oracle/bin:/u01/app/oracle/product/11.2.0/dbhome_1/bin:/u01/app/oracle/product/11.2.0/dbhome_1/OPatch:.

####set below to repopulate the environment
unset -nocomplain ::env(SSH_AUTH_SOCK)   ;# This one is session-bound anyway
puts[list array set ::env [array get ::env]]

set prompt "#"
set timeout -1
spawn telnet [lindex $argv 0]
match_max 200000
send -- "login\r"
expect -exact "login\r"
send -- "*"
expect -exact "*"
send -- "*"
expect -exact "*"
send -- "*"
expect -exact "*"
send -- "*"
expect -exact "*"
send -- "*"
expect -exact "*"
send -- "*"
expect -exact "*"
send -- "*"
expect -exact "*"
send -- "\r"
expect "$prompt"
send -- "show vdisk \r"
send -- "exit \r"
expect eof