Tcl send

#!/usr/bin/expect -f
set timeout 300
if { $argc < 2 } {


        puts "wrong parameters!"
        exit 0
}


set etacoUserName eimnpqz
set etacoPw 
set etacoPrompt bash


set copyIsDone 0
set docName [ lindex $argv 0 ]
set desIndex [expr  $argc-1]
set des [ lindex $argv $desIndex ]
set etacoIp 10.115.244.49
set passwdCount 0
set fileList $docName
if { $argc > 2 } {


        for { set i 1 } { $i < $desIndex } {incr i} {
                append fileList " " [ lindex $argv $i ]
        }
}


switch $des {
  18 {
        set labIP 10.112.104.179


  }


  17 {
        set labIP 10.112.104.67


  }


  tsu {
        set labIP 10.166.3.132


  }




  hurri {
    set labIP 10.112.104.24


  }


  ms1 {
    set labIP 10.112.177.4


  }




  ms0 {
    set labIP 10.112.104.147


  }




  eq1 {
     set labIP 10.112.181.68


  }


  gsm4 {
     set labIP 10.112.104.38
  }


  15 {
        set labIP 10.112.104.61


  }


  cdma7 {
     set labIP 10.112.104.34


  }


  chin {
     set labIP 10.112.104.177


  }




  etaco {


  }


  default {


     puts "Lab is not supported"
     exit 0
  }


}


spawn scp $docName $etacoUserName@$etacoIp:/local/users/$etacoUserName/


expect {
        "Password:" {
                exp_send "$etacoPw\r"
                exp_continue
        }




        default {
        #       puts "failed to copy the faile to etaco server"
                #exit 0
        }
}


if { $argc > 2 } {


        for { set i 1 } { $i < [expr $argc -1] } {incr i} {
                spawn scp [ lindex $argv $i] $etacoUserName@$etacoIp:/local/users/$etacoUserName/
                expect {
        "Password:" {
                exp_send "$etacoPw\r"
                exp_continue
        }




        default {
        #       puts "failed to copy the faile to etaco server"
                #exit 0
        }
                }


        }
}


if { [string compare $des "etaco"] == 0 } {
        exit 0
}


spawn ssh $etacoUserName@$etacoIp


expect {
        "Password:" {
                if { $passwdCount == 0 } {
                        incr passwdCount 1
                        exp_send "$etacoPw\r"
                        exp_continue
                } else {
                        exp_send "mtc\r"
                        exp_continue
                }
        }


        $etacoPrompt {
                if { $copyIsDone == 0 } {
                        exp_send "scp $fileList mtc@$labIP:/opt/swd/\r"
                        incr copyIsDone 1
                        exp_continue
                }
        }


        default {
                puts "failed to copy the faile to etaco server"
                exit 0
        }


}


puts "\r"