Using expect for scp - expect succes only

# Check for the correct number of arguments
if {$argc < 3} {
   puts "Usage: expect scp.tcl <server name> <file name> <dest dir>"
   exit 1
} elseif {$argc > 3} {
      puts "Too many arguments"
      puts "Usage: expect scp.tcl <server name> <file name> <dest dir>"
      exit 1
}
 
# Get user name and parameters
set user [exec whoami]
set server [lindex $argv 0]
set file [lindex $argv 1]
set destDir [lindex $argv 2]
 
puts "\r\n"
puts "Copying $file to $destDir on $server"
 
# Start scp process
spawn -noecho scp $file $user@$server:$destDir
expect {
   "$user's Password:" {
      puts "\r\n"
      puts "WARNING: $user is not configured for scp on this server."
      puts "Please manually copy $file to $destDir on $server"
      exit 1
   } timeout {
     puts "WARNING: Timeout waiting for scp to complete"
     puts "Please manually copy $file to $destDir on $server"
     exit 1
   } eof {
     exit 0
   }
}