Permalink
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
22 lines (18 sloc) 427 Bytes
#!/usr/bin/expect
set fofn [lindex $argv 0]
set dropbox [lindex $argv 1]
set pass [lindex $argv 2]
set files [open $fofn]
set subs [read $files]
set direxist 0
set timeout -1
foreach line [split $subs \n] {
if { "" != $line } {
set seqfile [exec basename $line]
set lst [split $line "/"]
spawn ascp -QT -l80M -d $line $dropbox@webin.ebi.ac.uk:.
expect "Password:"
send "$pass\r"
expect eof
}
}