#!/usr/bin/expect -f

# scp.tcl
# 2009-03-18
# Chieh Cheng
# http://www.CynosureX.com/

# GNU General Public License (GPL) Version 2, June 1991

  set executable "scp"

  if { $argc > 0 } {
    set str $executable
    set pw ""

    for { set i 0 } { $i < $argc } { incr i } {
      if { [string match "--password:*" [lindex $argv $i]] } {
        set pw [string range [lindex $argv $i] 11 99999]
      } else {
        set str "$str \"[lindex $argv $i]\""
      }
    }

    eval spawn -noecho $str
      expect "*?assword:*" { send -- "$pw\r" }
      interact
  } else {
    spawn -noecho $executable
      expect eof
    spawn -noecho echo "           \[--password:password\]"
      expect eof
  }